12 lines
300 B
Text
12 lines
300 B
Text
OPTI 'REST' '../2_RESOLUTION/RESULTS.sauv';
|
|
REST;
|
|
|
|
OPTI 'TRAC' 'PS';
|
|
REPETER POUR ((DIME (TAB1 . MODES)) - 2);
|
|
OPTI 'FTRA' (CHAI 'MODE' &POUR '.ps');
|
|
LIST &POUR;
|
|
LIST TAB1 . MODES . (&POUR);
|
|
DEF = DEFO VO TAB1 . MODES . (&POUR) . DEFORMEE_MODALE 10. 'ROUG';
|
|
TR = TRAC DEF 'FACE';
|
|
FIN POUR;
|
|
FIN;
|