Geant4 Cross Reference |
1 // 2 // ******************************************************************** 3 // * License and Disclaimer * 4 // * * 5 // * The Geant4 software is copyright of the Copyright Holders of * 6 // * the Geant4 Collaboration. It is provided under the terms and * 7 // * conditions of the Geant4 Software License, included in the file * 8 // * LICENSE and available at http://cern.ch/geant4/license . These * 9 // * include a list of copyright holders. * 10 // * * 11 // * Neither the authors of this software system, nor their employing * 12 // * institutes,nor the agencies providing financial support for this * 13 // * work make any representation or warranty, express or implied, * 14 // * regarding this software system or assume any liability for its * 15 // * use. Please see the license in the file LICENSE and URL above * 16 // * for the full disclaimer and the limitation of liability. * 17 // * * 18 // * This code implementation is the result of the scientific and * 19 // * technical work of the GEANT4 collaboration. * 20 // * By using, copying, modifying or distributing the software (or * 21 // * any work based on the software) you agree to acknowledge its * 22 // * use in resulting scientific publications, and indicate your * 23 // * acceptance of all terms of the Geant4 Software license. * 24 // ******************************************************************** 25 // 26 // G4TsitourasRK45 27 // 28 // Class description: 29 // 30 // Tsitouras - 5(4) RK stepper (non-FSAL version) 31 // Implements RK tableau from 'Table 1' of: 32 // C. Tsitouras, "Runge-Kutta pairs of order 5(4) satisfying only 33 // the first column simplifying assumption" 34 // Computers & Mathematics with Applications, 35 // vol. 62, no. 2, pp. 770-775, 2011. 36 37 // Author: Somnath Banerjee, Google Summer of Code 2015, 11.06.2015 38 // Supervision: John Apostolakis, CERN 39 // -------------------------------------------------------------------- 40 #ifndef TSITOURAS_RK45_HH 41 #define TSITOURAS_RK45_HH 42 43 #include "G4MagIntegratorStepper.hh" 44 45 class G4TsitourasRK45 : public G4MagIntegratorStepper 46 { 47 public: 48 49 G4TsitourasRK45(G4EquationOfMotion* EqRhs, 50 G4int numberOfVariables = 6, 51 G4bool primary = true); 52 ~G4TsitourasRK45() override; 53 54 G4TsitourasRK45(const G4TsitourasRK45&) = delete; 55 G4TsitourasRK45& operator=(const G4TsitourasRK45&) = delete; 56 57 void Stepper( const G4double y[], 58 const G4double dydx[], 59 G4double h, 60 G4double yout[], 61 G4double yerr[] ) override; 62 63 void SetupInterpolation( /* const G4double yInput[], 64 const G4double dydx[], 65 const G4double Step */ ); 66 67 void Interpolate( const G4double yInput[], 68 const G4double dydx[], 69 const G4double Step, 70 G4double yOut[], 71 G4double tau ); 72 // For calculating the output at the tau fraction of Step 73 74 void interpolate( const G4double yInput[], 75 const G4double dydx[], 76 G4double yOut[], 77 G4double Step, 78 G4double tau); 79 80 G4double DistChord() const override; 81 inline G4int IntegratorOrder() const override { return 4; } 82 83 private : 84 85 G4double *ak2, *ak3, *ak4, *ak5, *ak6, *ak7, *ak8, *yTemp, *yIn; 86 87 G4double fLastStepLength = 0.0; 88 G4double *fLastInitialVector, *fLastFinalVector, 89 *fLastDyDx, *fMidVector, *fMidError; 90 // For DistChord calculations 91 92 G4TsitourasRK45* fAuxStepper = nullptr; 93 }; 94 95 #endif 96