* fichier : tassins1.dgibi opti dime 2 elem QUA4; DISCR=QUAF; nb=100; nb=20; p1= 0. 0. ; p2= 1. 0. ; p1p2= p1 d nb p2; mt=p1p2 trans nb (0. 1.); Mmt= mt chan QUAF; $mt=model Mmt 'NAVIER_STOKES' DISCR ; doma $mt 'IMPR'; nas= valeur assis; mess ' nombre d assistants possible ' nas; si ( nas > 1) ; qmt=part 4 Mmt 'NOOPT'; a=assi 'TOUS' coor 1 qmt ; aa = et a; $am=assi 'TOUS' model qmt 'NAVIER_STOKES' DISCR ; list $am.1; finsi; FIN;
© Cast3M 2003 - All rights reserved.
Disclaimer