Télécharger gdep2co.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : gdep2co.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *
  5. * portes tournant autour d'un axe
  6. *
  7. opti dime 2 elem TRI3 ; dens 4;
  8. pa = 0 0 ; pb = 4 0 ; liab = pa d pb;
  9. suto = liab trans 4 ( 0 10);
  10. pq = cote 3 suto ;
  11. mo= suto model mecanique elastique dkt;
  12. EP = 1.;
  13. ma= mater mo young 10000 nu 0.3 epai EP;
  14. bli = bloq pa UX ;
  15. blf = bloq liab UY UZ ;
  16. blro = bloq suto RY RZ ; bl = bli et blf et blro;
  17. bly = bloq pq uy;
  18. blz = bloq pq uz;
  19. ang = 11.25;
  20. gtz =10. *( prog 0. ( sin ang ) ( sin ( 2. * ang) )
  21. ( sin ( 3. * ang) )
  22. ( sin ( 4. * ang)) ( sin ( 5. * ang)) ( sin ( 6. * ang))
  23. ( sin ( 7. * ang)) ( sin ( 8. * ang)) ( sin ( 9. * ang))
  24. ( sin ( 10. * ang)) ) ;
  25.  
  26. gty =10. *( prog 0. ( cos ang - 1.) ( cos ( 2. * ang) - 1.)
  27. ( cos ( 3. * ang) - 1.)
  28. (cos (4.*ang) - 1.) (cos (5.*ang) - 1.) (cos (6.*ang) - 1.)
  29. (cos (7.*ang) - 1.) (cos (8.*ang) - 1.) (cos (9.*ang) - 1.)
  30. (cos (10.*ang) - 1.) ) ;
  31. fz = depimp blz 1. ;
  32. fy = depimp bly 1.;
  33. ft = prog 0. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.;
  34. evz = evol manu abs ft ord gtz;
  35. evy = evol manu abs ft ord gty;
  36. chz = charge dimp fz evz;chy = charge dimp fy evy;
  37. ch = chz et chy;
  38. tb = table;
  39. tb . grands_deplacements = vrai;
  40. tb . blocages_mecaniques = blz et bly et bl;
  41. *tb . automatique = vrai; tb . autocrit = 100000;
  42. lit = prog 1. 2. 3. 4. ;
  43. tb . chargement = ch;
  44. tb . modele = mo;
  45. tb . caracteristiques = ma;
  46. tb . temps_calcules = lit;
  47. pasapas tb;
  48. co1 = tb . contraintes . 4;
  49. cma = maxi co1;
  50. mess ' contrainte maximum ' cma;
  51. si ( cma > 1.e-2);
  52. erre 5;
  53. finsi;
  54. mess '************* test correct **************';
  55. fin;
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  

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