Télécharger la plaquette Cast3M


fr en

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

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