Télécharger la plaquette Cast3M


fr en

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. *****************************
  6. *                           *
  7. *    SOLUTION ANALYTIQUE    *
  8. *                           *
  9. *****************************
  10.       UXANA = 0.00700;      
  11.       UYANA = -86.7515;     
  12.       UZANA = 2.38900;     
  13. *                           *
  14.       RXANA = -0.36000;     
  15.       RYANA = -0.12000;     
  16.       RZANA = -4.33563;         
  17. *                           *
  18. *****************************
  19. *
  20. *
  21. *********CREATION DES POUTRES****
  22. *
  23. *****PROPRIETES GEOMETRIQUES*****
  24. *
  25. l1=10.;
  26. lt=30.;
  27. torp = 5;
  28. iyp = 3;
  29. izp = 4;
  30. secp = 0.2;
  31. *
  32. *****PROPRIETES MATERIELLES*****
  33. *
  34. youp = 32;
  35. nup = 0.2;
  36. *
  37. dir1 = 0 1 0;
  38. dir2 = 1 0 0;
  39. *
  40. ****POUTRE GAUCHE****
  41. *
  42. pi1 = 0 0 0;
  43. pi2 = l1 0 0;
  44. li = pi1 d 1 pi2;
  45. *
  46. *
  47. ****POUTRE DROITE****
  48. *
  49. ps1 = l1 0 0;
  50. ps2 = lt 0 0;
  51. ls = ps1 d 1 ps2;
  52. *
  53. lt = ls et li;
  54. *trac lt;
  55. *
  56. mop =  modeli lt mecanique elastique poutre;
  57. map = mate mop YOUN youp NU nup TORS torp INRY iyp INRZ izp SECT secp;
  58. * 
  59. ********JOINT*********
  60. *
  61. lj = pi2 d 1 ps1;
  62. moj =  modeli lj mecanique elastique anisotrope joi1;
  63. maj = mate moj direction dir1 dir2
  64.          D11 30 
  65.          D21 10 D22 40 
  66.          D31 10 D32 10 D33 30 
  67.          D41 0 D42 0 D43 0 D44 40
  68.          D51 0 D52 0 D53 0 D54 10 D55 20 
  69.          D61 0 D62 0 D63 0 D64 10 D65 10 D66 30;
  70. *
  71. *********************************
  72. *********************************
  73. *
  74. mo1 = moj et mop;
  75. ma1 = maj et map;
  76. *
  77. cl1 = bloq depl rota pi1;
  78. *
  79. **************
  80. * CHARGEMENT *
  81. **************
  82. fo1 = force (0. -1. 0.) ps2;
  83. *
  84. LI1 = PROG 0. PAS 0.2 1. ;
  85. LI2 = PROG 0. PAS 0.2 1. ;
  86. EV1 = EVOL MANU T LI1 F(T) LI2;
  87. *
  88. CHA1 = CHAR 'MECA' fo1 EV1 ;
  89. *
  90. **************
  91. *
  92. TAB1 = TABLE ;
  93. *
  94. TAB1.'BLOCAGES_MECANIQUES' = cl1;
  95. TAB1.'MODELE' = mo1;
  96. TAB1.'CARACTERISTIQUES' = ma1;
  97. TAB1.'CHARGEMENT' = CHA1;
  98. TAB1.'TEMPS_CALCULES' = LI1;
  99. TAB1.'HYPOTHESE_DEFORMATIONS' = 'LINEAIRE';
  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.  

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