Télécharger la plaquette Cast3M


fr en

Télécharger cpliq.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  cpliq.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *****************  CAS TEST : cpliq.dgibi   **************************
  5. *
  6. * Test de l'opérateur 'VARI' 'CPLIQ'(P,H)
  7. * Les données sont un FLOTTANT, un LISTREEL ou un CHPO
  8. *
  9. 'OPTI' 'DIME' 2 'ELEM' 'QUA4' ;
  10. 'OPTI' 'ECHO' 0 ;
  11. *
  12. *------------------------------------------------------> FLOTTANT
  13. *
  14. X1 = 1.D5 ;
  15. X2 = 2.093D5 ;
  16. X3 = 'VARI' 'CPLIQ' X1 X2 ;
  17. XSTO1 = X3 ;
  18. *
  19. X1 = 5.D5 ;
  20. X2 = 2.097D5 ;
  21. X3 = 'VARI' 'CPLIQ' X1 X2 ;
  22. XSTO2 = X3 ;
  23. *
  24. X1 = 10.D5 ;
  25. X2 = 2.101D5 ;
  26. X3 = 'VARI' 'CPLIQ' x1 x2 ;
  27. XSTO3 = X3 ;
  28. *------------------------------------------------------> LISTREEL
  29. Y1 = 'PROG' 1.d5 5.d5 10.d5 ;
  30. Y2 = 'PROG' 2.093E5 2.097E5 2.101e5 ;
  31. Y3 = 'VARI' 'CPLIQ' Y1 Y2 ;
  32. YSTO1 = EXTR Y3 1 ;
  33. YSTO2 = EXTR Y3 2 ;
  34. YSTO3 = EXTR Y3 3 ;
  35. *------------------------------------------------------> CHPO
  36. P1   = 1.  2.093 ;
  37. P2   = 5.  2.097 ;
  38. P3   = 10. 2.101 ;
  39. P1P3 = P1 'DROI' 1 P2 'DROI' 1 P3 ;
  40. Z1   = 1.D5 * ('COOR' 1 P1P3) ;
  41. Z2   = 1.D5 * ('COOR' 2 P1P3) ;
  42. Z3   = 'VARI' 'CPLIQ' Z1 Z2 ;
  43. ZSTO1 = 'EXTR' Z3 'SCAL' P1  ;
  44. ZSTO2 = 'EXTR' Z3 'SCAL' P2  ;
  45. ZSTO3 = 'EXTR' Z3 'SCAL' P3  ;
  46. *-------------------------------------------> Controle
  47. CTRL1 = XSTO1 + YSTO1 + ZSTO1 / 3.d0 - XSTO1 / XSTO1 ;
  48. CTRL2 = XSTO2 + YSTO2 + ZSTO2 / 3.d0 - XSTO2 / XSTO2 ;
  49. CTRL3 = XSTO3 + YSTO3 + ZSTO3 / 3.d0 - XSTO3 / XSTO3 ;
  50. CTRL4 = CTRL1 + CTRL2 + CTRL3 ;
  51. XREF1 = 4181. ;
  52. XREF2 = 4182. ;
  53. XREF3 = 4179. ;
  54. CTRL5 = XSTO1 + YSTO1 + ZSTO1 / 3.d0 - XREF1 / XREF1 ;
  55. CTRL6 = XSTO2 + YSTO2 + ZSTO2 / 3.d0 - XREF2 / XREF2 ;
  56. CTRL7 = XSTO3 + YSTO3 + ZSTO3 / 3.d0 - XREF3 / XREF3 ;
  57. CTRL8 = CTRL5 + CTRL6 + CTRL7 ;
  58. *-------------------------------------------> Affichage
  59. 'MESS' '     ' ;
  60. 'MESS' '     ' ;
  61. 'MESS' 'Point 1  VARI CPLIQ ----->' XSTO1 YSTO1 ZSTO1 XREF1 ;
  62. 'MESS' 'Point 2  VARI CPLIQ ----->' XSTO2 YSTO2 ZSTO2 XREF2 ;
  63. 'MESS' 'Point 3  VARI CPLIQ ----->' XSTO3 YSTO3 ZSTO3 XREF3 ;
  64. 'MESS' '     ' ;
  65. 'MESS' 'Comparaison calculs rel.----->' CTRL4 ;
  66. 'MESS' 'Erreur rel. VDI         ----->' CTRL8 ;
  67. 'MESS' '     ' ;
  68. 'MESS' '     ' ;
  69. 'MESS' '     ' ;
  70. *-------------------------------------------> Compte-rendu et sortie
  71. EPS4  = 1.E-14 ;
  72. EPS8  = 1.E-2  ;
  73. CTRL4 = ABS CTRL4 ;
  74. CTRL8 = ABS CTRL8 ;
  75. LOG4 = CTRL4 > EPS4 ;
  76. LOG8 = CTRL8 > EPS8 ;
  77. L0   = LOG4 'OU' LOG8 ;
  78. 'SI' L0        ;
  79.    'ERREUR' 5  ;
  80. 'SINON'        ;
  81.    'ERREUR' 0  ;
  82. 'FINSI'        ;
  83. *
  84. 'FIN' ;
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  

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