% Please revise the following items when a new process is created.  
 algebraic;
 model_home:='"~fdc96/model/smu_cp1/"; 
 rocess_name:='"$e^+ e^- \rightarrow \psi^\prime \rightarrow J/\psi \pi^+ \pi^-$";   
 process_author:='"Jian-xiong Wang";                
 process_time:='"Nov. 15, 2003";                    
 namel:='(ef efb jpsi pis pisb)$
 inpl:='(1 1 -1 -1 -1)$
 ncolor:='1$ 
% n_background:='5;
% nv_fix:='(20);
% resonance_diag_only:='1;
change_parameters:='( 
); 
 input_list:='(
   (ec         3.686)  %center mass energy
   (acc1       0.01)    %acurcy of grid optimization in bases  
   (acc2       0.01)    %acurcy of integration in bases  
   (itmx1      20)      %number of iteration for grid optimization 
   (itmx2      20)      %number of iteration for integration
   (ncall      40000)    %number of sample point in each iteration. 
   (mxdim      50)      %number of maxium integration dimension. 
%  (pr1m       1.9)
   (akapa       1.0)
   (mc_num       26830)
   (da_num       26830)
   (iter         1000)
 );  
%approximation_rules:={fme=>0,f73=>0,f74=>0};
mass_drop_list:='((fme 0));

 histograms:={
    {1,sqrts(p3,p4),50,"M(J/[y] and [p]^-!)"},
    {2,sqrts(p3,p5),50,"M(J/[y] and [p]^+!)"},
    {3,sqrts(p4,p5),50,"M([p]^-! and [p]^!)"},
    {4,wcos(p3+p4,z),50,"cos of (P([p]^+!)+P([p]^-!) and beam"}, 
{5,wcos_lorentz(p3,p5,p3+p4),50,"cos ofJ/[y] and [p]^+! in CMS of J/[y] and [p]^-!"},
{6,wcos_lorentz(p3,p4,p3+p5),50,"cos ofJ/[y] and [p]^-! in CMS of J/[y] and [p]^+!"},
{7,wcos_lorentz(p3,p4,p4+p5),50,"cos ofJ/[y] and [p]^-! in CMS of [p]^-! and [p]^+!"}
     };
    
 scatters:={
   {1,s(p3,p4),s(p3,p5),30,30,0,16,0,16,"Daliz plot of S34, S35"},
   {2,s(p3,p4),s(p4,p5),30,30,0,16,0,16,"Daliz plot of S34, S45"}
%   {3,s(p3,p5),s(p4,p5),30,30,0,16,0,16,"Daliz plot of S34, S45"}
 };  

corelation:='(
            (a3tsign p4 p5 "cp by sign((p4_z-p5_z)*(p4xp5)_z)")
            (a3sign p1 p4 p5 "measurement of cp by sign((p1 x p4) . p5)")
            (a2sign p4 p5 "measurement of cpt by sign(p4-p5) ")
            );


 mkfit:='yes; 
 
end;