Procedures | Cast3M

   1 : * ACCEVITE  PROCEDUR  PICA      92/07/03    21:15:15     619            
   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=3.1415927*2;
  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;