Télécharger signenve.procedur

Retour à la liste

Numérotation des lignes :

  1. * SIGNENVE PROCEDUR CB215821 15/12/02 21:15:16 8719
  2. 'DEBPROC' SIGNENVE ZZTA*'TABLE ' ;
  3. * CALCUL DE L'ENVELOPPE ET DE LA CORRECTION DE L'ETAT INSTATIONNAIRE
  4. *'MESS' 'DEBUT DU CALCUL DE L ENVELOPPE ' ; 'TEMPS' ;
  5. * SIGNENVE ZZTA
  6. *
  7. *******************************************************************
  8. * ZZTA : OBJET DE TYPE TABLE CONTENANT
  9. *
  10. * INDICE TYPE COMMENTAIRES
  11. *
  12. * TYPENVE MOT TYPE DE L'ENVELOPPE
  13. * NPT ENTIER NOMBRE DE POINTS DU SIGNAL
  14. * DUREE FLOTTANT DUR{E DU SIGNAL
  15. * TDEBUT FLOTTANT DEBUT DU PLATEAU
  16. * TFIN FLOTTANT FIN DU PLATEAU
  17. * EPS FLOTTANT AMORTISSEMENT
  18. *
  19. *******************************************************************
  20. *
  21. * ZDF PAS EN FREQUENCE = 1 / ZDUREE
  22. * ZDT PAS EN TEMPS = ZDUREE / ZNPT
  23. *
  24. * ZFRQ0 ZFRQ TABLE DES FREQUENCES (AVEC ET SANS FREQUENCE NULLE)
  25. * ZFRQ0 = ZFRC1 + ZFRC2 ET DE LONGUEUR ZNBFR
  26. * ZNBFR (ZNPT / 2 ) + 1 : NB DE PTS DU SPECTRE
  27. * ZTEMP TABLE DES TEMPS AYANT ZNPT POINTS
  28. *
  29. *
  30. *'MESS' 'DEBUT D EXECUTION DE LA PROCEDURE ENVE ' ; 'TEMPS' ;
  31. *
  32. * CREATION DE L'ENVELOPPE
  33. *
  34. TYPENVE = 'MOT' 'TYPENVE' ; NPT = 'MOT' 'NPT' ;
  35. DUREE = 'MOT' 'DUREE' ;
  36. TDEBUT = 'MOT' 'TDEBUT' ; TFIN = 'MOT' 'TFIN' ;
  37. EPS = 'MOT' 'EPS' ;
  38. *
  39. ZTYPENV = ZZTA. TYPENVE ;
  40. ZCST = 'MOT' 'CONST'; ZNEG = 'MOT' 'N'; ZPTLIN = 'MOT' 'PLATLIN';
  41. 'SI' ( 'NON' ( 'EXIS' ZTYPENV ) ) ; ZTYPENV = ZNEG ; 'FINSI' ;
  42. ZNPT = ZZTA. NPT ; ZDUREE = ZZTA. DUREE ;
  43. ZNPT2 = ZNPT '/' 2 ;
  44. 'SI' ( 'EGA' ZTYPENV ZPTLIN ) ;
  45. ZTDEBUT = ZZTA. TDEBUT ; ZTFIN = ZZTA. TFIN ;
  46. 'FINSI' ;
  47. ZEPS = ZZTA. EPS ;
  48. ZDF = 1. '/' ZDUREE ; ZDT = ZDUREE '/' ZNPT ;
  49. *
  50. ZPI = PI ; Z2PI = ZPI '*' 2. ; Z4PI = ZPI '*' 4. ;
  51. ZE = EXP 1. ; Z2PIDF = Z2PI '*' ZDF ; Z4PIDF = 2. '*' Z2PIDF;
  52. Z2PIEPS = Z2PI '*' ZEPS ; Z4PIEPS = 2. '*' Z2PIEPS ;
  53. Z4PIDFEP = Z4PIDF '*' ZEPS ;
  54. ZI = 0 ;
  55. 'SI' ( ( 'EGA' ZTYPENV ZNEG ) 'OU' ( 'EGA' ZTYPENV ZCST ) ) ;
  56. ZLRENV = 'PROG' ZNPT '*' 1.0 ;
  57. * CALCUL DES TERMES CORRECTIFS DUS A L ETAT INSTATIONNAIRE
  58. ZDEXP = 'EXP' ( -1. '*' Z4PI ) ;
  59. ZEXP = 1. ;
  60. ZLRCORR = 'PROG' ;
  61. REPETER LOOPINS1 ZNPT2 ;
  62. ZI = ZI '+' 1 ;
  63. ZOM0 = Z2PIDF '*' ZI ; Z2OM0EP = Z4PIDFEP '*' ZI ;
  64. ZEXP = ZEXP '*' ZDEXP ;
  65. ZCORR = ( 1. '-' ZEXP ) '/' ( Z2OM0EP '*' ZOM0 '*' ZOM0 ) ;
  66. ZLRCORR = 'INSERER' ZLRCORR ZI ZCORR ;
  67. 'FIN' LOOPINS1 ;
  68. 'SINON' ;
  69. 'SI' ( 'EGA' ZTYPENV ZPTLIN ) ;
  70. ZT3 = ZDUREE ;
  71. ZT1 = 'ENTI' ( ZTDEBUT '/' ZDT ) '*' ZDT ;
  72. ZT2 = 'ENTI' ( ZTFIN '/' ZDT ) '*' ZDT ;
  73. ZT3T2 = ZDUREE '-' ZT2 ;
  74. ZZA = 1 '/' ZT1 ; ZZC = ZT1 '-' ZDT ;
  75. ZLRENV1 = 'PROG' 'LINE' 'A' ZZA 'PROG' 0. 'PAS' ZDT ZZC ;
  76. ZLRENV2 = 'PROG' 'LINE' 'A' 0. 'B' 1.
  77. 'PROG' ZT1 'PAS' ZDT ZT2 ;
  78. ZZA = -1. '/' ZT3T2 ; ZZB = ZDUREE '/' ZT3T2 ;
  79. ZZC = ZT2 '+' ZDT ; ZZD = ZDUREE '-' ZDT ;
  80. ZLRENV3 = 'PROG' 'LINE' 'A' ZZA 'B' ZZB
  81. 'PROG' ZZC 'PAS' ZDT ZZD;
  82. ZLRENV = ZLRENV1 'ET' ZLRENV2 'ET' ZLRENV3 ;
  83. 'OUBLI' ZLRENV1 ; 'OUBLI' ZLRENV2 ; 'OUBLI' ZLRENV3 ;
  84. *
  85. * CALCUL DES TERMES CORRECTIFS DUS A L ETAT INSTATIONNAIRE
  86. ZT3T1 = ZT3 '-' ZT1 ; ZT3T2 = ZT3 '-' ZT2 ;
  87. Z2T3T2 = 2. '*' ZT3T2 ; ZT3T2C = ZT3T2 '*' ZT3T2 ;
  88. Z4T3T2C = 4. '*' ZT3T2C ;
  89. Z2T1 = 2. '*' ZT1 ; ZT1C = ZT1 '*' ZT1 ; Z4T1C = 4. '*' ZT1C ;
  90. Z4PIEP31 = Z4PIEPS '*' ZT3T1 ; Z4PIEP32 = Z4PIEPS '*' ZT3T2 ;
  91. Z4PIEP3 = Z4PIEPS '*' ZT3 ;
  92. Z4PDFE31 = -1. '*' Z4PIDFEP '*' ZT3T1 ;
  93. Z4PDFE32 = -1. '*' Z4PIDFEP '*' ZT3T2 ;
  94. Z4PDFE3 = -1. '*' Z4PIDFEP '*' ZT3 ;
  95. ZEXT3T1 = 1. ; ZEXT3T2 = 1. ; ZEXT3 = 1. ;
  96. *
  97. ZLRENTI = 'PROG' 1 'PAS' 1 ZNPT2 ;
  98. ZLRUNIT = 'PROG' ZNPT2 '*' 1. ;
  99. ZEVUNIT = 'EVOL' 'MANU' 'ABSC' ZLRENTI 'ORDO' ZLRUNIT ;
  100. *
  101. ZLROM0 = ZLRENTI '*' Z2PIDF ;
  102. ZEVOM0 = 'EVOL' 'MANU' 'ABSC' ZLRENTI 'ORDO' ZLROM0 ;
  103. ZLROM0EP = ZLROM0 '*' ZEPS ;
  104. LR2OM0EP = ZLROM0EP '*' 2 ; LROM0EP2 = ZLROM0EP '**' 2 ;
  105. *
  106. ZLRAAAA = LROM0EP2 '*' Z2T1 ;
  107. ZEVAAAA = 'EVOL' 'MANU' 'ABSC' ZLRENTI 'ORDO' ZLRAAAA ;
  108. ZLRBBBB = LROM0EP2 '*' Z2T3T2 ;
  109. ZEVBBBB = 'EVOL' 'MANU' 'ABSC' ZLRENTI 'ORDO' ZLRBBBB ;
  110. LROM0EP3 = ZLROM0EP '**' 3 ;
  111. ZLRCCCC = LROM0EP3 '*' Z4T3T2C ;
  112. ZEVCCCC = 'EVOL' 'MANU' 'ABSC' ZLRENTI 'ORDO' ZLRCCCC ;
  113. ZLRDDDD = LROM0EP3 '*' Z4T1C ;
  114. ZEVDDDD = 'EVOL' 'MANU' 'ABSC' ZLRENTI 'ORDO' ZLRDDDD ;
  115. *******
  116. ZLREXT31 = ZLRENTI '*' Z4PDFE31 ; ZLREXT31 = 'EXP' ZLREXT31 ;
  117. ZLREXT32 = ZLRENTI '*' Z4PDFE32 ; ZLREXT32 = 'EXP' ZLREXT32 ;
  118. ZLREXT3 = ZLRENTI '*' Z4PDFE3 ; ZLREXT3 = 'EXP' ZLREXT3 ;
  119. ZEVEXT31 = 'EVOL' 'MANU' 'ABSC' ZLRENTI 'ORDO' ZLREXT31 ;
  120. ZEVEXT32 = 'EVOL' 'MANU' 'ABSC' ZLRENTI 'ORDO' ZLREXT32 ;
  121. *
  122. ZLREEEE = ZLREXT31 '-' ZLREXT3 ;
  123. ZEVEEEE = 'EVOL' 'MANU' 'ABSC' ZLRENTI 'ORDO' ZLREEEE ;
  124. *
  125. ZEVINVB = ZEVUNIT '/' ZEVBBBB ;
  126. ZEVINVC = ZEVUNIT '/' ZEVCCCC ;
  127. *******
  128. 'MESS' ZTITRE 'CORRECTION EFFETS INSTATIONNAIRES' ;
  129. 'TITRE' ZTITRE 'CORRECTION EFFETS INSTATIONNAIRES' ;
  130. ZEVCORR = ( ZEVEEEE '/' ZEVDDDD ) '-' ( ZEVEXT31 '/' ZEVAAAA )
  131. '-' ( ZEVEXT32 '*' ( ZEVINVB '+' ZEVINVC ) )
  132. '+' ( ZEVUNIT '/' ZEVCCCC ) ;
  133. ZEVCORR = ZEVCORR '/' ( 2. '*' ZEVOM0 '*' ZEVOM0 ) ;
  134. ZLRCORR = 'EXTR' ZEVCORR 'ORDO' 1 ;
  135. * 'FINSI';
  136. 'SINON' ;
  137. 'ERREUR' 'TYPE D ENVELOPPE NON PREVU ' ;
  138. 'FINSI' ;
  139. 'FINSI' ;
  140. 'SI' ( 'NON' ( IMPII '<' 1 ) ) ; 'DESS' ZEVENV ; 'FINSI' ;
  141. *
  142. ZENV = 'TABLE' ;
  143. ZENV.'LRENV' = ZLRENV ;
  144. ZENV.'LRCORR' = ZLRCORR ;
  145. 'FINPROC' ZENV ;
  146.  
  147.  

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