Geant4 Cross Reference

Cross-Referencing   Geant4
Geant4/geometry/magneticfield/src/G4MagErrorStepper.cc

Version: [ ReleaseNotes ] [ 1.0 ] [ 1.1 ] [ 2.0 ] [ 3.0 ] [ 3.1 ] [ 3.2 ] [ 4.0 ] [ 4.0.p1 ] [ 4.0.p2 ] [ 4.1 ] [ 4.1.p1 ] [ 5.0 ] [ 5.0.p1 ] [ 5.1 ] [ 5.1.p1 ] [ 5.2 ] [ 5.2.p1 ] [ 5.2.p2 ] [ 6.0 ] [ 6.0.p1 ] [ 6.1 ] [ 6.2 ] [ 6.2.p1 ] [ 6.2.p2 ] [ 7.0 ] [ 7.0.p1 ] [ 7.1 ] [ 7.1.p1 ] [ 8.0 ] [ 8.0.p1 ] [ 8.1 ] [ 8.1.p1 ] [ 8.1.p2 ] [ 8.2 ] [ 8.2.p1 ] [ 8.3 ] [ 8.3.p1 ] [ 8.3.p2 ] [ 9.0 ] [ 9.0.p1 ] [ 9.0.p2 ] [ 9.1 ] [ 9.1.p1 ] [ 9.1.p2 ] [ 9.1.p3 ] [ 9.2 ] [ 9.2.p1 ] [ 9.2.p2 ] [ 9.2.p3 ] [ 9.2.p4 ] [ 9.3 ] [ 9.3.p1 ] [ 9.3.p2 ] [ 9.4 ] [ 9.4.p1 ] [ 9.4.p2 ] [ 9.4.p3 ] [ 9.4.p4 ] [ 9.5 ] [ 9.5.p1 ] [ 9.5.p2 ] [ 9.6 ] [ 9.6.p1 ] [ 9.6.p2 ] [ 9.6.p3 ] [ 9.6.p4 ] [ 10.0 ] [ 10.0.p1 ] [ 10.0.p2 ] [ 10.0.p3 ] [ 10.0.p4 ] [ 10.1 ] [ 10.1.p1 ] [ 10.1.p2 ] [ 10.1.p3 ] [ 10.2 ] [ 10.2.p1 ] [ 10.2.p2 ] [ 10.2.p3 ] [ 10.3 ] [ 10.3.p1 ] [ 10.3.p2 ] [ 10.3.p3 ] [ 10.4 ] [ 10.4.p1 ] [ 10.4.p2 ] [ 10.4.p3 ] [ 10.5 ] [ 10.5.p1 ] [ 10.6 ] [ 10.6.p1 ] [ 10.6.p2 ] [ 10.6.p3 ] [ 10.7 ] [ 10.7.p1 ] [ 10.7.p2 ] [ 10.7.p3 ] [ 10.7.p4 ] [ 11.0 ] [ 11.0.p1 ] [ 11.0.p2 ] [ 11.0.p3, ] [ 11.0.p4 ] [ 11.1 ] [ 11.1.1 ] [ 11.1.2 ] [ 11.1.3 ] [ 11.2 ] [ 11.2.1 ] [ 11.2.2 ] [ 11.3.0 ]

  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 // G4MagErrorStepper implementation
 27 //
 28 // Author: W.Wander <wwc@mit.edu>, 09.12.1997
 29 // --------------------------------------------------------------------
 30 
 31 #include "G4MagErrorStepper.hh"
 32 #include "G4LineSection.hh"
 33 
 34 G4MagErrorStepper::~G4MagErrorStepper()
 35 {
 36    delete [] yMiddle;
 37    delete [] dydxMid;
 38    delete [] yInitial;
 39    delete [] yOneStep;
 40 }
 41 
 42 void G4MagErrorStepper::Stepper( const G4double yInput[],
 43                                  const G4double dydx[],
 44                                        G4double hstep,
 45                                        G4double yOutput[],
 46                                        G4double yError [] )
 47 {  
 48    const G4int nvar = GetNumberOfVariables();
 49    const G4int maxvar = GetNumberOfStateVariables();
 50 
 51    // correction for Richardson Extrapolation.
 52    //
 53    G4double  correction = 1. / ( (1 << IntegratorOrder()) -1 );
 54    
 55    //  Saving yInput because yInput and yOutput can be aliases for same array
 56    //
 57    for(G4int i=0; i<nvar; ++i)
 58    {
 59      yInitial[i]=yInput[i];
 60    }
 61    yInitial[7] = yInput[7]; // Copy the time in case...even if not really needed
 62    yMiddle[7] = yInput[7];  // Copy the time from initial value 
 63    yOneStep[7] = yInput[7]; // As it contributes to final value of yOutput ?
 64    // yOutput[7] = yInput[7];  // -> dumb stepper does it too for RK4
 65 
 66    for(G4int i=nvar; i<maxvar; ++i)
 67    {
 68      yOutput[i]=yInput[i];
 69    }
 70    // yError[7] = 0.0;         
 71 
 72    G4double halfStep = hstep * 0.5; 
 73 
 74    // Do two half steps
 75    //
 76    DumbStepper  (yInitial,  dydx,   halfStep, yMiddle);
 77    RightHandSide(yMiddle, dydxMid);    
 78    DumbStepper  (yMiddle, dydxMid, halfStep, yOutput); 
 79 
 80    // Store midpoint, chord calculation
 81    //
 82    fMidPoint = G4ThreeVector( yMiddle[0],  yMiddle[1],  yMiddle[2]); 
 83 
 84    // Do a full Step
 85    //
 86    DumbStepper(yInitial, dydx, hstep, yOneStep);
 87    for(G4int i=0; i<nvar; ++i)
 88    {
 89       yError [i] = yOutput[i] - yOneStep[i] ;
 90       yOutput[i] += yError[i]*correction ;
 91         // Provides accuracy increased by 1 order via Richardson Extrapolation  
 92    }
 93 
 94    fInitialPoint = G4ThreeVector( yInitial[0], yInitial[1], yInitial[2]); 
 95    fFinalPoint   = G4ThreeVector( yOutput[0],  yOutput[1],  yOutput[2]); 
 96 
 97    return;
 98 }
 99 
100 G4double G4MagErrorStepper::DistChord() const 
101 {
102   // Estimate the maximum distance from the curve to the chord
103   //
104   // We estimate this using the distance of the midpoint to 
105   // chord (the line between 
106   // 
107   // Method below is good only for angle deviations < 2 pi, 
108   // This restriction should not a problem for the Runge cutta methods, 
109   // which generally cannot integrate accurately for large angle deviations.
110 
111   G4double distLine, distChord; 
112 
113   if (fInitialPoint != fFinalPoint)
114   {
115      distLine = G4LineSection::Distline(fMidPoint, fInitialPoint, fFinalPoint);
116        // This is a class method that gives distance of Mid 
117        // from the Chord between the Initial and Final points.
118 
119      distChord = distLine;
120   }
121   else
122   {
123      distChord = (fMidPoint-fInitialPoint).mag();
124   }
125 
126   return distChord;
127 }
128