flyopunta/src/src_dev/devquad.cpp

/***************************************************************************
                          devquad.cpp  -  description
                             -------------------
    begin                : Thu Jan 9 2003
    copyright            : (C) 2003 by Giuseppe Pierazzini
    email                : peppe@unipi.it
  ***************************************************************************
  *                                                                         *
  *   NA48  simulation program.                                             *
  *                                                                         *
  ***************************************************************************/


#include "evento.h"
#include "parm.h"
#include "devquad.h"

//using namespace std;
DevQuad::DevQuad(){
  devtype=TypDevQuad;
  devclass="Quadrupol";
// quadropulo: campo  quadrupolare ==> campo = 1
  campo=1;
  if(Dbref<=0.0)
  { Dbref=1.;
    Gout<<"\n In Quad "<<nome<<"  Distance for field normalization in 'vfield' card not defined...forced to  1 cm.";
    
  }
   Bref/=Dbref;
}
DevQuad::~DevQuad(){
}
//----

gvet& DevQuad::Get_Field(gvet &P)
{
// Il campo e' descritto da curve equipotenziali iperboliche.
// l'intensita' e' normalizzata a B  ad 1 cm dal centro.
// l' intensita' cresce con la distanza dal centro.
// P e' il raggio vettore.
//    Field.setvn( P[0]*Bref,-P[1]*Bref,0.);
    Field.setvn( P[1]*Bref,P[0]*Bref,0.);
/*   
   Puls.print("Puls");
   P.print( evento_.Event, nome);
   Field.print( evento_.Event, "B");
*/
   return Field;
}