Download polyno.procedur

Back to the list

   1 : * POLYNO    PROCEDUR  CHAT      96/08/08    08:43:14     2244           
   2 : DEBPROCEDUR POLYNO X*FLOTTANT C0 *FLOTTANT C1*FLOTTANT;                         
   3 : XX = X;                                                                         
   4 : A = C1 * X + C0;                                                                
   5 : REPETE SS;                                                                      
   6 :   ARGUMENT C2/FLOTTANT;                                                         
   7 :   SI ( EXISTE C2);                                                              
   8 :     XX = XX * X;A = XX * C2 + A;                                                
   9 :   SINON;                                                                        
  10 :     RESPRO A;                                                                   
  11 :     QUITTER POLYNO;                                                             
  12 :   FINSI;                                                                        
  13 : FIN SS;                                                                         
  14 : FINP;                                                                           
  15 :  

© Cast3M 2003 - All rights reserved.
Disclaimer