STEER/AliMagFC.cxx

   1 /**************************************************************************
   2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
   3  *                                                                        *
   4  * Author: The ALICE Off-line Project.                                    *
   5  * Contributors are mentioned in the code where appropriate.              *
   6  *                                                                        *
   7  * Permission to use, copy, modify and distribute this software and its   *
   8  * documentation strictly for non-commercial purposes is hereby granted   *
   9  * without fee, provided that the above copyright notice appears in all   *
  10  * copies and that both the copyright notice and this permission notice   *
  11  * appear in the supporting documentation. The authors make no claims     *
  12  * about the suitability of this software for any purpose. It is          *
  13  * provided "as is" without express or implied warranty.                  *
  14  **************************************************************************/
  15
  16 /* $Header$ */
  17
  18 //-------------------------------------------------------------------------
  19 //
  20 //     Constant magnetic field class
  21 //
  22 //-------------------------------------------------------------------------
  23
  24 #include <stdlib.h>
  25
  26 #include "AliMagFC.h"
  27
  28 ClassImp(AliMagFC)
  29
  30 //________________________________________
  31 AliMagFC::AliMagFC(const char *name, const char *title, const Int_t integ,
  32                    const Float_t factor, const Float_t fmax)
  33   : AliMagF(name,title,integ,factor,fmax)
  34 {
  35   //
  36   // Standard constructor
  37   //
  38   fType = kConst;
  39   fMap  = 1;
  40   printf("Constant Field %s created: map= %d, factor= %f\n",fName.Data(),fMap,
  41          factor);
  42 }
  43
  44 //________________________________________
  45 void AliMagFC::Field(Float_t *x, Float_t *b)
  46 {
  47   //
  48   // Method to return the field in a point
  49   //
  50   b[0]=b[1]=b[2]=0;
  51   if(fMap==1) {
  52     if(TMath::Abs(x[2])<700 && x[0]*x[0]+(x[1]+30)*(x[1]+30) < 560*560) {
  53       b[2]=2;
  54     } else {
  55       if ( 725 <= x[2] && x[2] <= 1225 ) {
  56         Float_t dz = TMath::Abs(975-x[2])*0.01;
  57         b[0]=(1-0.1*dz*dz)*7;
  58       }
  59       else {
  60 //This is the ZDC part
  61     Float_t rad2=x[0]*x[0]+x[1]*x[1];
  62     if(x[2]>kCORBEG2 && x[2]<kCOREND2){
  63       if(rad2<kCOR2RA2){
  64         b[0] = kFCORN2;
  65       }
  66     }
  67     else if(x[2]>kZ1BEG && x[2]<kZ1END){
  68       if(rad2<kZ1RA2){
  69         b[0] = -kG1*x[1];
  70         b[1] = -kG1*x[0];
  71       }
  72     }
  73     else if(x[2]>kZ2BEG && x[2]<kZ2END){
  74       if(rad2<kZ2RA2){
  75         b[0] = kG1*x[1];
  76         b[1] = kG1*x[0];
  77       }
  78     }
  79     else if(x[2]>kZ3BEG && x[2]<kZ3END){
  80       if(rad2<kZ3RA2){
  81         b[0] = kG1*x[1];
  82         b[1] = kG1*x[0];
  83       }
  84     }
  85     else if(x[2]>kZ4BEG && x[2]<kZ4END){
  86       if(rad2<kZ4RA2){
  87         b[0] = -kG1*x[1];
  88         b[1] = -kG1*x[0];
  89       }
  90     }
  91     else if(x[2]>kD1BEG && x[2]<kD1END){
  92       if(rad2<kD1RA2){
  93         b[1] = -kFDIP;
  94       }
  95     }
  96     else if(x[2]>kD2BEG && x[2]<kD2END){
  97       if(((x[0]-kXCEN1D2)*(x[0]-kXCEN1D2)+(x[1]-kYCEN1D2)*(x[1]-kYCEN1D2))<kD2RA2
  98         || ((x[0]-kXCEN2D2)*(x[0]-kXCEN2D2)+(x[1]-kYCEN2D2)*(x[1]-kYCEN2D2))<kD2RA2){
  99         b[1] = kFDIP;
 100       }
 101     }
 102
 103       }
 104     }
 105     if(fFactor!=1) {
 106       b[0]*=fFactor;
 107       b[1]*=fFactor;
 108       b[2]*=fFactor;
 109     }
 110   } else {
 111     printf("Invalid field map for constant field %d\n",fMap);
 112     exit(1);
 113   }
 114 }
 115