1 : * EXPLORER PROCEDUR CHAT 11/09/28 21:15:39 7144 2 : DEBPROCEDURE EXPLORER 3 : MATAB*'TABLE' ; 4 : lopt=mots; 5 : leforces = 'TEXTE' 'FX FY FZ'; 6 : 'SI' ('EGA' ('VALE' 'DIME') 2); 7 : leforces='TEXTE' 'FX FY'; 8 : 'FINSI'; 9 : 'SI' ('EGA' ('VALE' 'MODE') 'AXIS'); 10 : leforces='TEXTE' 'FR FZ'; 11 : 'FINSI'; 12 : lemail = 'EXTR' matab.'MODELE' 'MAIL'; 13 : 'TRAC' 'NCLK' 'CACH' lemail; 14 : 'SI' ('EXIS' matab 'DEPLACEMENTS'); 15 : tdpl = matab.'DEPLACEMENTS'; 16 : lopt= mots 'Depl'; 17 : 'FINSI'; 18 : 'SI' ( 'EXIS' matab 'CONTRAINTES'); 19 : lopt= lopt 'ET' (mots 'Cont'); 20 : tctr = matab.'CONTRAINTES'; 21 : modmec= 'EXTR' matab.'MODELE' 'FORMULATION' 'MECANIQUE'; 22 : matmec= redu matab.'CARACTERISTIQUES' modmec; 23 : 'FINSI'; 24 : 'SI' ( 'EXIS' matab 'VARIABLES_INTERNES'); 25 : lopt= lopt 'ET' (mots 'Var_'); 26 : 'FINSI'; 27 : 'SI' ( 'EXIS' matab 'REACTIONS'); 28 : trea = matab.'REACTIONS'; 29 : lopt= lopt 'ET' (mots 'Reac'); 30 : 'FINSI'; 31 : 'SI' ( 'EXIS' matab 'TEMPERATURES'); 32 : lopt= lopt 'ET' (mots 'Temp'); 33 : modthe= 'EXTR' matab.'MODELE' 'FORMULATION' 'THERMIQUE'; 34 : maithe= 'EXTR' modthe 'MAILLAGE'; 35 : tctem=matab.'TEMPERATURES'; 36 : 'FINSI'; 37 : ttem= matab.'TEMPS'; 38 : tindex = 'INDEX' ttem; 39 : ltindex = 'DIME' tindex - 1; 40 : ind=0;d1=d1; 41 : defor = FAUX ; 42 : contr = FAUX ; 43 : react = FAUX ; 44 : evolu = FAUX ; 45 : tempe = FAUX ; 46 : evo_esp = FAUX ; 47 : evo_tem = FAUX; 48 : depla = FAUX; 49 : var_int= FAUX; 50 : quit = FAUX; 51 : tempe=FAUX; 52 : 'REPETER' bouc2; 53 : 'SI' ('EXIS' matab 'DEPLACEMENTS'); 54 : defor contr react evolu quit= 'CHOI' 'cochez les options désirées' 55 : defor contr react evolu quit; 56 : 'SINON'; 57 : 'SI' ( 'EXIS' matab 'TEMPERATURES'); 58 : tempe evolu quit = 'CHOI' 'cochez les options désirées' 59 : tempe evolu quit; 60 : 'SINON' ; 61 : mess ' la TABLE ne contient ni deplacements ni temperartures'; 62 : quitter explorer; 63 : 'FINSI'; 64 : 'FINSI'; 65 : si quit ; 'QUITTER' EXPLORER; 'FINSI'; 66 : 'SI' (('NON' defor) 'ET' ('NON' contr) 'ET' ('NON' react) 67 : 'ET' ( 'NON' evolu) 'ET' ('NON' tempe)); 68 : 'ITERER' bouc2; 69 : 'FINSI'; 70 : 'SI' evolu; 71 : ret = 'MENU' ' Faites votre choix' 'evo_espace' 'evo_temps' ; 72 : 'SI' ( 'EGA' ret 'Quitter' ) ; 'QUITTER' EXPLORER; 'FINSI'; 73 : 'SI' ( 'EGA' ret 'evo_espace') ; 74 : evo_esp=VRAI;evo_tem=FAUX; 75 : 'SINON'; 76 : evo_esp=FAUX; 77 : 'SI' ( 'EGA' ret 'evo_temps' ) ; evo_tem=VRAI ; 'FINSI'; 78 : 'FINSI'; 79 : 'SI' evo_esp; 80 : depla=FAUX;contr=FAUX; react=FAUX; tempe=FAUX;var_int=faux; 81 : mai= 'SAIS' 'Ligne suivant laquelle tracer : ' 'MAILLAGE'; 82 : ret = 'MENU' 'Choisissez le champ concerne' lopt; 83 : message ' retour de menu ' ret; 84 : 'SI' ( 'EGA' ret 'Quitter' ); 'QUITTER' explorer; 'FINSI'; 85 : 'SI' ( 'EGA' ret 'Depl') ; depla=VRAI;'FINS'; 86 : 'SI' ( 'EGA' ret 'Cont') ; contr=VRAI;'FINS'; 87 : 'SI' ( 'EGA' ret 'Reac') ; react=VRAI;'FINS'; 88 : 'SI' ( 'EGA' ret 'Temp') ; tempe=VRAI;'FINS'; 89 : 'SI' ( 'EGA' ret 'Var_') ; var_int=VRAI;'FINS'; 90 : 'SI' ( 'EGA' ret 'Depl') ; ICHPO=VRAI; 91 : mot1='MOT' 'DEPLACEMENTS';'FINS'; 92 : 'SI' ( 'EGA' ret 'Cont') ; ICHPO=FAUX; 93 : mot1='MOT''CONTRAINTES'; 'FINS'; 94 : 'SI' ( 'EGA' ret 'Reac') ; ICHPO=VRAI; 95 : mot1='MOT' 'REACTIONS';'FINS'; 96 : 'SI' ( 'EGA' ret 'Temp') ; ICHPO=VRAI; 97 : mot1='MOT' 'TEMPERATURES';'FINS'; 98 : 'SI' ( 'EGA' ret 'Var_') ; ICHPO=FAUX; 99 : mot1='MOT' 'VARIABLES_INTERNES';'FINS'; 100 : lcomp= 'EXTR' matab . mot1 . 1 'COMP'; 101 : compo= 'MENU' 'Composantes?' lcomp; 102 : cp= ttem . ind; 103 : 'SI' ( 'EGA' compo 'Quitter' ); 'QUITTER' explorer; 'FINSI'; 104 : tit= 'SAIS' 105 : ' Donner un titre pour le dessin (entrer quotes) :' 'MOT' ; 106 : tcp = ttem . ind; 107 : ch = chaine tit ' pour le temps ' tcp;'TITRE' ch; 108 : 'SI' ( depla 'OU' tempe 'OU' react ); 109 : 'SI' depla; mata=matab.'DEPLACEMENTS';'FINSI'; 110 : 'SI' tempe; mata=matab.'TEMPERATURES';'FINSI'; 111 : 'SI' react; mata=matab.'REACTIONS';'FINSI'; 112 : tcp= ttem . ind; 113 : ev = 'EVOL' 'CHPO' mata . ind mai compo; 114 : ichpo=vrai; 115 : dess ev; 116 : 'SINON' ; 117 : 'SI' var_int; mata = matab.'VARIABLES_INTERNES' ;'FINSI'; 118 : 'SI' contr; mata= matab.'CONTRAINTES'; 'FINSI'; 119 : rdt = 'CHANG' 'CHPO' mata . ind matab.'MODELE'; 120 : ichpo=FAUX; 121 : ev = 'EVOL' 'CHPO' rdt mai compo; 122 : 'FINSI'; 123 : 'REPE' bouc77 ; 124 : cha = 'CHAINE' 'pas courant :' ind; 125 : ret = 'MENU' cha 'options' 'n°' 'retracer' 'precedent' 'suivant'; 126 : 'SI' ('EGA' ret 'options') ; 'QUITTER' bouc77 ; 'FINSI'; 127 : 'SI' ('EGA' ret 'precedent') ; ind = ind - 1; 'FINSI'; 128 : 'SI' ('EGA' ret 'suivant') ; ind = ind + 1; 'FINSI'; 129 : 'SI' ('EGA' ret 'retracer') ; ind = ind ; 'FINSI'; 130 : 'SI' ('EGA' ret 'Quitter') ; 'QUITTER' bouc2; 'FINSI'; 131 : 'SI' ('EGA' ret 'n°') ;ind='SAIS' 'Numéro du pas : ' 'ENTIER'; 132 : 'FINSI'; 133 : 'SI' (ind > ltindex); ind = 0 ; 'FINSI'; 134 : 'SI' (ind < 0); ind = ltindex; 'FINSI'; 135 : tcp = ttem . ind; 136 : ch = chaine tit ' pour le temps ' tcp;'TITRE' ch; 137 : 'SI' ichpo; 138 : ev = 'EVOL' 'CHPO' mata . ind mai compo; 139 : 'SINON'; 140 : rdt= 'CHANG' 'CHPO' mata . ind matab.'MODELE'; 141 : 142 : ev = 'EVOL' 'CHPO' rdt mai compo; 143 : 'FINSI'; 144 : dess ev; 145 : 'FIN' bouc77; 146 : 'FINSI'; 147 : 'SI' evo_tem; 148 : depla=FAUX;contr=FAUX; react=FAUX; tempe=FAUX;var_int=faux; 149 : ret = 'MENU' 'Choisissez le champ concerne' 150 : 'depla' 'contr' 'react' 'tempe' 'var_int'; 151 : 'SI' ( 'EGA' ret 'Quitter' ); 'QUITTER' explorer; 'FINSI'; 152 : 'SI' ( 'EGA' ret 'depla') ; ICHPO=VRAI; 153 : mot1='MOT' 'DEPLACEMENTS';'FINS'; 154 : 'SI' ( 'EGA' ret 'contr') ; ICHPO=FAUX; 155 : mot1='MOT''CONTRAINTES'; 'FINS'; 156 : 'SI' ( 'EGA' ret 'react') ; ICHPO=VRAI; 157 : mot1='MOT' 'REACTIONS';'FINS'; 158 : 'SI' ( 'EGA' ret 'tempe') ; ICHPO=VRAI; 159 : mot1='MOT' 'TEMPERATURES';'FINS'; 160 : 'SI' ( 'EGA' ret 'var_int') ; ICHPO=FAUX; 161 : mot1='MOT' 'VARIABLES_INTERNES';'FINS'; 162 : lcomp= 'EXTR' matab . mot1 . 1 'COMP'; 163 : compo= 'MENU' 'Composantes?' lcomp; 164 : 'SI' ( 'EGA' compo 'Quitter' ); 'QUITTER' explorer; 'FINSI'; 165 : 'SI' ichpo; 166 : P1= 'SAIS' 'Point concerne? : ' 'POINT'; 167 : ev1= evol 'TEMP' matab mot1 compo p1; 168 : 'SINON'; 169 : N1='SAIS' 'Numero de la zone concernee : ' 'ENTIER'; 170 : N2='SAIS' 'Numero de l element concerne : ' 'ENTIER'; 171 : N3='SAIS' 'Numero du point de gauss concerne : ' 'ENTIER'; 172 : ev1 = evol 'TEMP' matab mot1 compo n1 n2 n3; 173 : 'FINSI'; 174 : dess ev1; 175 : 'FINSI'; 176 : 'SINON'; 177 : 'REPETER' bouc1; 178 : cha = 'CHAINE' 'pas courant :' ind; 179 : ret = 'MENU' cha 'options' 'n°' 'retracer' 'precedent' 'suivant'; 180 : 'SI' ('EGA' ret 'options') ; 'QUITTER' bouc1 ; 'FINSI'; 181 : 'SI' ('EGA' ret 'precedent') ; ind = ind - 1; 'FINSI'; 182 : 'SI' ('EGA' ret 'suivant') ; ind = ind + 1; 'FINSI'; 183 : 'SI' ('EGA' ret 'retracer') ; ind = ind ; 'FINSI'; 184 : 'SI' ('EGA' ret 'Quitter') ; 'QUITTER' bouc2; 'FINSI'; 185 : 'SI' ('EGA' ret 'n°') ; ind = 'SAIS' 'Numéro du pas : ' 'ENTIER'; 186 : 'FINSI'; 187 : 'SI' (ind > ltindex); ind = 0 ; 'FINSI'; 188 : 'SI' (ind < 0); ind = ltindex; 'FINSI'; 189 : 'SI' defor; dpl = 'DEFO' lemail tdpl.ind;'FINSI'; 190 : 'SI' contr; ctr = tctr.ind;'FINSI'; 191 : 'SI' react;vec = 'VECTEUR' trea.ind leforces;'FINSI'; 192 : 'SI' (defor 'ET' react);dpv ='DEFO' lemail tdpl.ind vec;'FINSI'; 193 : 'SI' (defor 'ET' ('NON' contr) 'ET' ('NON' react)); 194 : 'TITRE' 'deforme au temps ' matab.temps.ind; 195 : 'TRAC' lemail dpl; 196 : 'FINSI'; 197 : 'SI' (('NON' defor) 'ET' contr 'ET' ('NON' react)); 198 : 'TITRE' 'contraintes au temps ' matab.temps.ind; 199 : 'TRAC' ctr modmec matmec ; 200 : 'FINSI'; 201 : 'SI' (defor 'ET' contr 'ET' ('NON' react)); 202 : 'TITRE' 'contraintes au temps ' matab.temps.ind; 203 : 'TRAC' ctr modmec matmec dpl; 204 : 'FINSI'; 205 : 'SI' (('NON' defor) 'ET' ('NON' contr) 'ET' react); 206 : 'TITRE' 'reactions au temps ' matab.temps.ind; 207 : 'TRAC' lemail vec; 208 : 'FINSI'; 209 : 'SI' (defor 'ET' ('NON' contr) 'ET' react); 210 : 'TITRE' 'deforme au temps ' matab.temps.ind; 211 : 'TRAC' dpv lemail; 212 : 213 : 'FINSI'; 214 : 'SI' (('NON' defor) 'ET' contr 'ET' react); 215 : 'TITRE' 'contraintes au temps ' matab.temps.ind; 216 : 'TRAC' ctr modmec matmec lemail vec; 217 : 'FINSI'; 218 : 'SI' (defor 'ET' contr 'ET' react); 219 : 'TITRE' 'contraintes au temps ' matab.temps.ind; 220 : 'TRAC' ctr modmec matmec dpv ; 221 : 'FINSI'; 222 : 'SI' tempe; 223 : tctemp=tctem.ind; 224 : 'TITRE' ' Temperatures au temps ' matab.temps.ind; 225 : 'TRAC' tctemp maithe ; 226 : 'FINSI'; 227 : 'FIN' bouc1; 228 : 'FINSI'; 229 : 'FIN' bouc2; 230 : 'FINPRO' ; 231 : 232 : 233 : 234 : 235 : 236 :
© Cast3M 2003 - All rights reserved.
Disclaimer