Télécharger testjoi1ani.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : testjoi1ani.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. opti elem seg2 dime 3 mode trid;
  5. option epsilon lineaire;
  6. *****************************
  7. * *
  8. * SOLUTION ANALYTIQUE *
  9. * *
  10. *****************************
  11. UXANA = 0.00700;
  12. UYANA = -86.7515;
  13. UZANA = 2.38900;
  14. * *
  15. RXANA = -0.36000;
  16. RYANA = -0.12000;
  17. RZANA = -4.33563;
  18. * *
  19. *****************************
  20. *
  21. *
  22. *********CREATION DES POUTRES****
  23. *
  24. *****PROPRIETES GEOMETRIQUES*****
  25. *
  26. l1=10.;
  27. lt=30.;
  28. torp = 5;
  29. iyp = 3;
  30. izp = 4;
  31. secp = 0.2;
  32. *
  33. *****PROPRIETES MATERIELLES*****
  34. *
  35. youp = 32;
  36. nup = 0.2;
  37. *
  38. dir1 = 0 1 0;
  39. dir2 = 1 0 0;
  40. *
  41. ****POUTRE GAUCHE****
  42. *
  43. pi1 = 0 0 0;
  44. pi2 = l1 0 0;
  45. li = pi1 d 1 pi2;
  46. *
  47. *
  48. ****POUTRE DROITE****
  49. *
  50. ps1 = l1 0 0;
  51. ps2 = lt 0 0;
  52. ls = ps1 d 1 ps2;
  53. *
  54. lt = ls et li;
  55. *trac lt;
  56. *
  57. mop = modeli lt mecanique elastique poutre;
  58. map = mate mop YOUN youp NU nup TORS torp INRY iyp INRZ izp SECT secp;
  59. *
  60. ********JOINT*********
  61. *
  62. lj = pi2 d 1 ps1;
  63. moj = modeli lj mecanique elastique anisotrope joi1;
  64. maj = mate moj direction dir1 dir2
  65. D11 30
  66. D21 10 D22 40
  67. D31 10 D32 10 D33 30
  68. D41 0 D42 0 D43 0 D44 40
  69. D51 0 D52 0 D53 0 D54 10 D55 20
  70. D61 0 D62 0 D63 0 D64 10 D65 10 D66 30;
  71. *
  72. *********************************
  73. *********************************
  74. *
  75. mo1 = moj et mop;
  76. ma1 = maj et map;
  77. *
  78. cl1 = bloq depl rota pi1;
  79. *
  80. **************
  81. * CHARGEMENT *
  82. **************
  83. fo1 = force (0. -1. 0.) ps2;
  84. *
  85. LI1 = PROG 0. PAS 0.2 1. ;
  86. LI2 = PROG 0. PAS 0.2 1. ;
  87. EV1 = EVOL MANU T LI1 F(T) LI2;
  88. *
  89. CHA1 = CHAR 'MECA' fo1 EV1 ;
  90. *
  91. **************
  92. *
  93. TAB1 = TABLE ;
  94. *
  95. TAB1.'BLOCAGES_MECANIQUES' = cl1;
  96. TAB1.'MODELE' = mo1;
  97. TAB1.'CARACTERISTIQUES' = ma1;
  98. TAB1.'CHARGEMENT' = CHA1;
  99. TAB1.'TEMPS_CALCULES' = LI1;
  100. *
  101. PASAPAS TAB1 ;
  102. *
  103. * ---------- CODE DE FONCTIONNEMENT ----------
  104. *
  105. RES = TAB1 . DEPLACEMENTS . 5 ;
  106. DEPA1 = EXTR res UY ps2 ;
  107. RESI = ABS( (DEPA1-UYANA)/UYANA ) ;
  108. *
  109. SI (RESI <EG 1E-3 ) ;
  110. ERRE 0 ;
  111. SINO;
  112. ERRE 5 ;
  113. FINSI ;
  114. *
  115. FIN;
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  

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