Télécharger la plaquette Cast3M


fr en

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. *****************************
  6. *                           *
  7. *    SOLUTION ANALYTIQUE    *
  8. *                           *
  9. *****************************
  10.       UXANA = 0.007;
  11.       UYANA = -83.5455;     
  12.       UZANA = 0.00;     
  13. *                           *
  14.       RXANA = 0.00;     
  15.       RYANA = 0.00;     
  16.       RZANA = -4.175625;     
  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 = mode lt mecanique elastique poutre;
  57. map = mate mop YOUN youp NU nup 
  58.            TORS torp INRY iyp INRZ izp SECT secp;
  59. * 
  60. ********JOINT*********
  61. *
  62. lj = pi2 d 1 ps1;
  63. moj = mode lj mecanique elastique orthotrope joi1;
  64. maj = mate moj direction dir1 dir2
  65.          KN 30 KS1 40 KS2 30 QN 40 QS1 20 QS2 30;
  66. *
  67. *********************************
  68. *
  69. mo1 = moj et mop;
  70. ma1 = maj et map;
  71. *
  72. cl1 = bloq depl rota pi1;
  73. ri1 = rigi mo1 ma1;
  74. ri2 = ri1 et cl1;
  75. fo1 = force (0. -1. 0.) ps2;
  76. res = reso ri2 fo1;
  77. ss1 = sigma mo1 ma1 res 'LINEAIRE';
  78. ee1 = epsi mo1 ma1 res 'LINEAIRE';
  79. gr1 = grad mo1 ma1 res;
  80. gf1 = graf mo1 ma1 res;
  81. sss = elas mo1 ee1 ma1;
  82. fi1 = bsig mo1 ss1 ma1;
  83. *
  84. *
  85. * ----------    CODE DE FONCTIONNEMENT       ----------
  86. *
  87. *opti donn 5;
  88. DEPA1 = EXTR res UY ps2 ;
  89. 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.  
  106.  
  107.  

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