Télécharger la plaquette Cast3M


fr en

Télécharger accevite.procedur

Retour à la liste

Numérotation des lignes : 

  1. * ACCEVITE  PROCEDUR  CB215821  15/12/02    21:15:03     8719           
  2. ********************************************************************************
  3. * PROCEDURE ACCEVITE
  4. *
  5. * passage acceleration/frequence ou periode en vitesse/frequence ou periode
  6. *
  7. * RSV=FREQPERI RSA (MODE);
  8. *
  9. ********************************************************************************
  10. 'DEBPROC' ACCEVITE RSA*'EVOLUTION' MODE*'MOT';
  11. *
  12. PIF2=2. * PI;
  13. NC='DIME' RSA;
  14. J=0;
  15. 'REPE' LAB1 NC;
  16.   J=J+1;
  17.   RSAX='EXTR' RSA 'ABSC' J;
  18.   'SI' ('EGA' MODE 'FREQ');
  19.     RSVY=('EXTR' RSA 'ORDO' J)/(PIF2*RSAX);
  20.     RSVJ='EVOL' 'MANU' 'FREQUENCY' RSAX 'VELOCITY' RSVY;
  21.   'SINON';
  22.     RSVY=(('EXTR' RSA 'ORDO' J)*RSAX)/PIF2;
  23.     RSVJ='EVOL' 'MANU' 'PERIOD' RSAX 'VELOCITY' RSVY;
  24.   'FINSI';
  25.   'SI' (J 'EGA' 1); RSV=RSVJ;
  26.   'SINON';          RSV=RSV 'ET' RSVJ; 'FINSI';
  27. 'FIN' LAB1;
  28. *
  29. 'FINPROC' RSV;
  30.  
  31.  

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