Download tassins1.dgibi

Back to the list

* 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