Download @zacpro6.procedur

Back to the list

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

© Cast3M 2003 - All rights reserved.
Disclaimer