Télécharger la plaquette Cast3M


fr en

Télécharger mulc.procedur

Retour à la liste

Numérotation des lignes : 

  1. * MULC      PROCEDUR  GOUNAND   12/12/06    21:15:17     7595           
  2. *
  3. DEBPROC MULC ZCHPO1*CHPOINT ZCHPO2*CHPOINT ;
  4. *
  5. *
  6. ****************************************************
  7. *
  8. *       PROCEDUR MULT1 : MULTIPLICATION DE DEUX 
  9. *         CHPOINTS DE MEME SUPPORT GEOMETRIQUE
  10. *         MULTIPLICATION TERME A TERME
  11. *
  12. *   SYNTAXE
  13. *   -------
  14. *
  15. *     CHRES = MULC CH1 CH2 ;
  16. *
  17. *    APPELE PAR SISSI
  18. ****************************************************
  19. *
  20. * Ancienne programmation
  21. *
  22. *ZCHRE1 = ZCHPO1 * 0. ;
  23. *ZLCOMP1 = 'EXTR' ZCHPO1 'COMP' ;
  24. *ZNCO1 = 'DIME' ZLCOMP1 ;
  25. *II = 0 ;
  26. *'REPETER' BCOMP1 ZNCO1 ;
  27. *II = II '+' 1 ;
  28. *ZNOMC1 = 'EXTR' ZLCOMP1 II ;
  29. *ZAUX = 'EXCO' ZCHPO1 ZNOMC1 ;
  30. *ZAUX2 = 'EXCO' ZCHPO2 ZNOMC1 ;
  31. *ZRESU = ZAUX * ZAUX2 ;
  32. *ZRESU = 'NOMC' ZNOMC1 ZRESU ;
  33. *ZCHRE1 = ZCHRE1 '+' ZRESU ;
  34. *'FIN' BCOMP1 ;
  35. *
  36. *
  37. *'MENAGE' ;
  38. * Nouvelle programmation
  39. ZLCOMP1 = 'EXTR' ZCHPO1 'COMP' ;
  40. ZCHRE1  = '*' ZCHPO1 ZCHPO2 ZLCOMP1 ZLCOMP1 ZLCOMP1 ;
  41. 'FINPROC'  ZCHRE1 ;
  42. *
  43. *
  44.  
  45.  

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