Télécharger @zacpro6.procedur

Retour à la liste

Numérotation des lignes :

  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.  
  12.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales