Télécharger tassins1.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : tassins1.dgibi
  2. opti dime 2 elem QUA4;
  3.  
  4. DISCR=QUAF;
  5. nb=100;
  6. nb=20;
  7. p1= 0. 0. ;
  8. p2= 1. 0. ;
  9.  
  10. p1p2= p1 d nb p2;
  11. mt=p1p2 trans nb (0. 1.);
  12. Mmt= mt chan QUAF;
  13. $mt=model Mmt 'NAVIER_STOKES' DISCR ;
  14. doma $mt 'IMPR';
  15. nas= valeur assis;
  16. mess ' nombre d assistants possible ' nas;
  17. si ( nas > 1) ;
  18. qmt=part 'ARLE' 4 Mmt ;
  19. a=assi 'TOUS' coor 1 qmt ;
  20. aa = et a;
  21.  
  22. $am=assi 'TOUS' model qmt 'NAVIER_STOKES' DISCR ;
  23. list $am.1;
  24. finsi;
  25. FIN;
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales