Procédures | Cast3M

* POLYNO    PROCEDUR  CHAT      96/08/08    08:43:14     2244           
DEBPROCEDUR POLYNO X*FLOTTANT C0 *FLOTTANT C1*FLOTTANT;                         
XX = X;                                                                         
A = C1 * X + C0;                                                                
REPETE SS;                                                                      
  ARGUMENT C2/FLOTTANT;                                                         
  SI ( EXISTE C2);                                                              
    XX = XX * X;A = XX * C2 + A;                                                
  SINON;                                                                        
    RESPRO A;                                                                   
    QUITTER POLYNO;                                                             
  FINSI;                                                                        
FIN SS;                                                                         
FINP;