Geant4 Cross Reference |
1 // 1 // 2 // ******************************************* 2 // ******************************************************************** 3 // * License and Disclaimer 3 // * License and Disclaimer * 4 // * 4 // * * 5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of * 6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and * 7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file * 8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These * 9 // * include a list of copyright holders. 9 // * include a list of copyright holders. * 10 // * 10 // * * 11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing * 12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this * 13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, * 14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its * 15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above * 16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. * 17 // * 17 // * * 18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and * 19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. * 20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or * 21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its * 22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your * 23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. * 24 // ******************************************* 24 // ******************************************************************** 25 // 25 // 26 // 26 // >> 27 // $Id: G4gsrotm.cc,v 1.12 2006/06/29 18:14:55 gunter Exp $ >> 28 // GEANT4 tag $Name: geant4-09-02 $ 27 // 29 // 28 #include "G3toG4.hh" 30 #include "G3toG4.hh" 29 #include "G3RotTable.hh" 31 #include "G3RotTable.hh" 30 #include "G3toG4RotationMatrix.hh" << 31 #include "G4PhysicalConstants.hh" << 32 #include "G4ThreeVector.hh" 32 #include "G4ThreeVector.hh" >> 33 #include "G3toG4RotationMatrix.hh" 33 34 34 void PG4gsrotm(G4String *tokens) << 35 void PG4gsrotm(G4String tokens[]) 35 { 36 { 36 // fill the parameter containers 37 // fill the parameter containers 37 G3fillParams(tokens,PTgsrotm); 38 G3fillParams(tokens,PTgsrotm); 38 39 39 // interpret the parameters 40 // interpret the parameters 40 G4int irot = Ipar[0]; 41 G4int irot = Ipar[0]; 41 42 42 // the angles in Geant are in degrees 43 // the angles in Geant are in degrees 43 G4double theta1 = Rpar[0]; 44 G4double theta1 = Rpar[0]; 44 G4double phi1 = Rpar[1]; 45 G4double phi1 = Rpar[1]; 45 G4double theta2 = Rpar[2]; 46 G4double theta2 = Rpar[2]; 46 G4double phi2 = Rpar[3]; 47 G4double phi2 = Rpar[3]; 47 G4double theta3 = Rpar[4]; 48 G4double theta3 = Rpar[4]; 48 G4double phi3 = Rpar[5]; 49 G4double phi3 = Rpar[5]; 49 50 50 G4gsrotm(irot, theta1,phi1, theta2,phi2, t 51 G4gsrotm(irot, theta1,phi1, theta2,phi2, theta3,phi3); 51 } 52 } 52 53 53 void G4gsrotm(G4int irot, G4double theta1, G4d 54 void G4gsrotm(G4int irot, G4double theta1, G4double phi1, 54 G4double theta2, G4double phi2, 55 G4double theta2, G4double phi2, G4double theta3, G4double phi3) 55 { 56 { 56 G4double degrad = pi/180; 57 G4double degrad = pi/180; 57 58 58 G4double th1r = theta1*degrad; 59 G4double th1r = theta1*degrad; 59 G4double th2r = theta2*degrad; 60 G4double th2r = theta2*degrad; 60 G4double th3r = theta3*degrad; 61 G4double th3r = theta3*degrad; 61 62 62 G4double phi1r = phi1*degrad; 63 G4double phi1r = phi1*degrad; 63 G4double phi2r = phi2*degrad; 64 G4double phi2r = phi2*degrad; 64 G4double phi3r = phi3*degrad; 65 G4double phi3r = phi3*degrad; 65 66 66 // Construct unit vectors 67 // Construct unit vectors 67 68 68 G4ThreeVector x(std::sin(th1r)*std::cos(ph 69 G4ThreeVector x(std::sin(th1r)*std::cos(phi1r), std::sin(th1r)*std::sin(phi1r), std::cos(th1r)); 69 G4ThreeVector y(std::sin(th2r)*std::cos(ph 70 G4ThreeVector y(std::sin(th2r)*std::cos(phi2r), std::sin(th2r)*std::sin(phi2r), std::cos(th2r)); 70 G4ThreeVector z(std::sin(th3r)*std::cos(ph 71 G4ThreeVector z(std::sin(th3r)*std::cos(phi3r), std::sin(th3r)*std::sin(phi3r), std::cos(th3r)); 71 72 72 // check for orthonormality and left-h 73 // check for orthonormality and left-handedness 73 74 74 G4double check = (x.cross(y))*z; 75 G4double check = (x.cross(y))*z; 75 G4double tol = 1.0e-3; 76 G4double tol = 1.0e-3; 76 77 77 if (1-std::abs(check)>tol) { 78 if (1-std::abs(check)>tol) { 78 G4cerr << "Coordinate axes forming rot 79 G4cerr << "Coordinate axes forming rotation matrix " 79 << irot << " are not orthonorma 80 << irot << " are not orthonormal.(" << 1-std::abs(check) << ")" 80 << G4endl; 81 << G4endl; 81 G4cerr << " theta1=" << theta1; 82 G4cerr << " theta1=" << theta1; 82 G4cerr << " phi1=" << phi1; 83 G4cerr << " phi1=" << phi1; 83 G4cerr << " theta2=" << theta2; 84 G4cerr << " theta2=" << theta2; 84 G4cerr << " phi2=" << phi2; 85 G4cerr << " phi2=" << phi2; 85 G4cerr << " theta3=" << theta3; 86 G4cerr << " theta3=" << theta3; 86 G4cerr << " phi3=" << phi3; 87 G4cerr << " phi3=" << phi3; 87 G4cerr << G4endl; 88 G4cerr << G4endl; 88 G4Exception("G4gsrotm()", "G3toG40023" << 89 G4Exception("G4gsrotm error"); 89 "Non orthogonal axes!"); << 90 return; << 91 } 90 } 92 //else if (1+check<=tol) { 91 //else if (1+check<=tol) { 93 // G4cerr << "G4gsrotm warning: coordin 92 // G4cerr << "G4gsrotm warning: coordinate axes forming rotation " 94 // << "matrix " << irot << " are 93 // << "matrix " << irot << " are left-handed" << G4endl; 95 //} 94 //} 96 95 97 G3toG4RotationMatrix* rotp = new G3toG4Rot 96 G3toG4RotationMatrix* rotp = new G3toG4RotationMatrix; 98 97 99 rotp->SetRotationMatrixByRow(x, y, z); 98 rotp->SetRotationMatrixByRow(x, y, z); 100 99 101 // add it to the List 100 // add it to the List 102 101 103 G3Rot.Put(irot, rotp); 102 G3Rot.Put(irot, rotp); 104 } 103 } 105 104