Télécharger la plaquette Cast3M


fr en

Télécharger @stat.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @STAT     PROCEDUR  CB215821  16/11/21    21:15:00     9195           
  2. *-----------------------------------------------------------
  3. ******              PROCEDURE @STAT                   ******
  4. *-----------------------------------------------------------
  5. *
  6. *    CETTE PROCEDURE A ETE MISE GRACIEUSEMENT
  7. *   A DISPOSITION DE LA COMMUNAUTE  CASTEM2000
  8. * PAR  DELERUYELLE Fr.  (SOCOTEC-INDUSTRIE à l'IPSN/DES)
  9. *
  10. *-----------------------------------------------------------
  11. *           OPERATIONS STATISTIQUES COURANTES
  12. *----------------------------------------------------------
  13. 'DEBP' @STAT    LX*'LISTREEL' LY/'LISTREEL' ;
  14.  
  15.  XI  = 0. ;
  16.  XI2 = 0. ;
  17.  NX  = 'DIME' LX ;
  18.  
  19. 'SI' ('EXIS' LY) ;
  20. *  DEUX LISTES
  21.    YI   = 0.      ;
  22.    YI2  = 0.      ;
  23.    XIYI = 0.      ;
  24.    NY = 'DIME' LY ;
  25.  
  26.   'SI' (NX 'EGA' NY) ;
  27.      K = 0 ;
  28.     'REPE' BOU1 NX ;
  29.        K = K '+' 1 ;
  30.        XK = 'EXTR' LX K ;
  31.        YK = 'EXTR' LY K ;
  32.  
  33.        XI   = XI   '+'  XK         ;
  34.        XI2  = XI2  '+' (XK '**' 2) ;
  35.        YI   = YI   '+'  YK         ;
  36.        YI2  = YI2  '+' (YK '**' 2) ;
  37.        XIYI = XIYI '+' (XK '*' YK) ;
  38.     'FIN' BOU1 ;
  39.  
  40.      XM   = XI '/' NX ;
  41.      YM   = YI '/' NY ;
  42.  
  43.      VX = 0.D0 ;
  44.      VY = 0.D0 ;
  45.     'REPE' BOU2 NX ;
  46.        XK  ='EXTR' LX &BOU2             ;
  47.        YK = 'EXTR' LY &BOU2             ;
  48.        VX  = VX '+' ((XK '-' XM) '**' 2);
  49.        VY  = VY '+' ((YK '-' YM) '**' 2);
  50.     'FIN' BOU2 ;
  51.      VX = VX '/'  NX    ;
  52.      VY = VY '/'  NY    ;
  53.      EX = VX '**' 0.5D0 ;
  54.      EY = VY '**' 0.5D0 ;
  55.  
  56.      COXY =(XIYI '/'  NX) '-' (XM '*' YM) ;
  57.      A    = COXY '/'  VX         ;
  58.      B    = YM   '-' (A  '*' XM) ;
  59.      R    = COXY '/' (EX '*' EY) ;
  60.  
  61.   'SINON' ;
  62.     'MESS' '    ' ;
  63.     'MESS' '*** STAT ==> Les listes lx et ly n ont pas meme dimension' ;
  64.     'MESS' '             Dim(lx)=' ('DIME' LX) 'Dim(ly)=' ('DIME' LY) ;
  65.     'MESS' '    ' ;
  66.   'FINSI' ;
  67.   'RESP' XM EX YM EY A B R ;
  68.  
  69. 'SINON' ;
  70. *  UNE SEULE LISTE
  71.   'REPE' BOU1 NX ;
  72.      XK  = 'EXTR' LX &BOU1       ;
  73.      XI  = XI    '+'  XK         ;
  74.   'FIN' BOU1 ;
  75.    XM = XI  '/' NX               ;
  76.  
  77.    VX = 0.D0 ;
  78.   'REPE' BOU2 NX ;
  79.      XK  ='EXTR' LX &BOU2             ;
  80.      VX  = VX '+' ((XK '-' XM) '**' 2);
  81.   'FIN' BOU2 ;
  82.    VX = VX '/'  NX    ;
  83.    EX = VX '**' 0.5D0 ;
  84.   'RESP' XM EX ;
  85. 'FINSI' ;
  86.  
  87. 'FINP' ;
  88.  

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