Télécharger la plaquette Cast3M


fr en

Télécharger explochar.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : explochar.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *----------------------------------------------------------------------*
  5. * Verifie le fonctionnement de la procedure EXPLORER avec la donnee
  6. * d'un CHARGEMENT
  7. *----------------------------------------------------------------------*
  8. opti dime 2 elem qua4 ;
  9.  
  10. * mettre GRAPH a O pour tester EXPLORER en interactif
  11. GRAPH = 'N' ;
  12. *  GRAPH = 'O' ;
  13.  
  14.  
  15.  
  16. L1 = droi (0 0) (1 0) 10 ;
  17. S1 = L1 tran 5 (0 0.4) ;
  18. *trac S1 ;
  19.  
  20. mo1 = mode s1 mecanique ;
  21.  
  22. cht1 = (S1 coor 1) nomc T ;
  23. chp1 = pres mass mo1 10. L1 ;
  24. chep1 = manu chml mo1 epxx 1. epyy 2. epzz 3. gaxy 0. ;
  25. *
  26. lt1  = prog 0. pas 2. 10. ;
  27. la1  = prog 0. pas 0.2 1. ;
  28. ev1  = evol manu temp lt1 ampl la1 ;
  29.  
  30. cg1  = char t    cht1 ev1 ;
  31. cg2  = char meca chp1 ev1 ;
  32. cg3  = char defi chep1 ev1 ;
  33.  
  34. tt1 = tabl ;
  35. tt1 . 0 = 0. ;
  36. tt1 . 1 = 1. ;
  37. tt2 = tabl ;
  38. tt2 . 0 = cht1 ;
  39. tt2 . 1 = cht1 ;
  40. cgt1    = char tabu tt1 tt2 ;
  41.  
  42. cg0  = cg1 et cg2 et cg3 et cgt1 ;
  43.  
  44. tab1 = table ;
  45. tab1 . modele = mo1 ;
  46. tab1 . chargement = cg0 ;
  47. list cg0;
  48.  
  49. *...test en X (interactif) 
  50. SI (NEG GRAPH 'N') ;
  51.   explorer tab1 'CHAR' ;
  52. * avec option 
  53.   topt = tabl;
  54.   topt . 'TYPE' = mot 'T';
  55.   EXPLORER tab1 'CHAR' topt;
  56.   topt . 'TYPE' = mot 'MECA';
  57.   topt . 'COMP' = mot 'FY';
  58.   EXPLORER tab1 'CHAR' topt;
  59. FINSI;
  60.  
  61. *...test en PS
  62. opti trac psc ;
  63. * par defaut
  64.   EXPLORER tab1 'CHAR' ;
  65. * avec option 
  66.   topt = tabl;
  67.   topt . 'TYPE' = mot 'T';
  68.   EXPLORER tab1 'CHAR' topt;
  69.   topt . 'TYPE' = mot 'MECA';
  70.   topt . 'COMP' = mot 'FY';
  71.   EXPLORER tab1 'CHAR' topt;
  72.  
  73.  
  74. fin ;
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  

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