Télécharger testjoi1orth.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : testjoi1orth.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. opti elem seg2 dime 3 mode trid;
  5. OPTI EPSILON LINEAIRE ;
  6. *****************************
  7. * *
  8. * SOLUTION ANALYTIQUE *
  9. * *
  10. *****************************
  11. UXANA = 0.007;
  12. UYANA = -83.5455;
  13. UZANA = 0.00;
  14. * *
  15. RXANA = 0.00;
  16. RYANA = 0.00;
  17. RZANA = -4.175625;
  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 = mode lt mecanique elastique poutre;
  58. map = mate mop YOUN youp NU nup
  59. TORS torp INRY iyp INRZ izp SECT secp;
  60. *
  61. ********JOINT*********
  62. *
  63. lj = pi2 d 1 ps1;
  64. moj = mode lj mecanique elastique orthotrope joi1;
  65. maj = mate moj direction dir1 dir2
  66. KN 30 KS1 40 KS2 30 QN 40 QS1 20 QS2 30;
  67. *
  68. *********************************
  69. *
  70. mo1 = moj et mop;
  71. ma1 = maj et map;
  72. *
  73. cl1 = bloq depl rota pi1;
  74. ri1 = rigi mo1 ma1;
  75. ri2 = ri1 et cl1;
  76. fo1 = force (0. -1. 0.) ps2;
  77. res = reso ri2 fo1;
  78. ss1 = sigma mo1 ma1 res;
  79. ee1 = epsi mo1 ma1 res;
  80. gr1 = grad mo1 ma1 res;
  81. gf1 = graf mo1 ma1 res;
  82. sss = elas mo1 ee1 ma1;
  83. fi1 = bsig mo1 ss1 ma1;
  84. *
  85. *
  86. * ---------- CODE DE FONCTIONNEMENT ----------
  87. *
  88. *opti donn 5;
  89. DEPA1 = EXTR res UY ps2 ;
  90. RESI = ABS( (DEPA1-UYANA)/UYANA ) ;
  91.  
  92. SI (RESI <EG 3E-3 ) ;
  93. ERRE 0 ;
  94. SINO;
  95. ERRE 5 ;
  96. FINSI ;
  97.  
  98. FIN;
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  

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