Procédures | Cast3M

* @ZACPRO6  PROCEDUR  CHAT      95/12/13    21:46:44     1945           
*-------------------------------CALCUL DE X:Y------------------------*
 
'DEBP' @ZACPRO6 X*'MCHAML' Y*'MCHAML';
X1 X2 X3 X4 X5 X6 = @ZACPRO4 X;
Y1 Y2 Y3 Y4 Y5 Y6 = @ZACPRO4 Y;
PRSC1    = (X1*Y1) + (X2*Y2) + (X3*Y3);
PRSC2    = ((X4*Y4) + (X5*Y5) + (X6*Y6))*2.;
PRSC     = (PRSC1 + PRSC2)*(3./2.); 
'FINP' PRSC;