1 : * SIGNENVE PROCEDUR BLAY 94/04/07 21:15:14 1105 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 = 3.14159265 ; Z2PI = ZPI '*' 2. ; Z4PI = ZPI '*' 4. ; 51 : ZE = 2.71828 ; 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 ;
© Cast3M 2003 - All rights reserved.
Disclaimer