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.  
  89.  
  90.  
  91.  

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