Télécharger la plaquette Cast3M


fr en

Télécharger prod_CHPOINT.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : produit.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5.  
  6. ************************************************************************
  7. * SI GRAPH = N PAS DE GRAPHIQUE AFFICHE
  8. * SINON SI GRAPH DIFFERENT DE N TOUS
  9. * LES GRAPHIQUES SONT AFFICHES
  10.  
  11. GRAPH = 'N'       ;
  12. OPTI ECHO 1       ;
  13.  
  14. SAUT PAGE         ;
  15. SI (NEG GRAPH 'N');
  16.   OPTI TRAC X     ;
  17. SINO              ;
  18.   OPTI TRAC PSC   ;
  19. FINSI             ;
  20.  
  21. SAUT PAGE         ;
  22.  
  23. ************************************************************************
  24. * NOM         : PRODUIT
  25. * DESCRIPTION : Teste l'operateur '*' entre objets de type CHPOINT
  26. *
  27. *
  28. * LANGAGE     : GIBIANE-CAST3M
  29. * AUTEUR      : Clément BERTHINIER (CEA/DEN/DM2S/SEMT/LM2S)
  30. *               mél : clement.berthinier@cea.fr
  31. **********************************************************************
  32. * VERSION    : v1, 04/02/2015, version initiale
  33. * HISTORIQUE : v1, 04/02/2015, création
  34. * HISTORIQUE :
  35. * HISTORIQUE :
  36. ************************************************************************
  37. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  38. * en cas de modification de ce sous-programme afin de faciliter
  39. * la maintenance !
  40. ************************************************************************
  41.  
  42.  
  43. ************************************************************************
  44. * Création d'un maillage
  45. ************************************************************************
  47. OPTI ELEM SEG2;
  48.  
  49. P1= 0. 0. 0. ;
  50. P2= 1. 0. 0. ;
  51.  
  52. L1= DROI 10 P1 P2     ;
  53. L2= L1 PLUS (0. 1. 0.);
  54.  
  55. OPTI ELEM QUA4    ;
  56. S1= REGL L1 10 L2 ;
  57.  
  58. OPTI ELEM CUB8                ;
  59. V1= VOLU S1 TRAN 10 (0. 0. 1.);
  60.  
  61.  
  62. SI(NEG GRAPH 'N');
  63.   TRAC CACH V1   ;
  64. FINSI            ;
  65.  
  66.  
  67. ************************************************************************
  68. * Création d'un CHPOINT
  69. ************************************************************************
  70. X Y Z = COOR V1             ;
  71.  
  72. ************************************************************************
  73. * Multiplication de CHPOINT de meme NATURE
  74. ************************************************************************
  75. * Création de CHPO1 et CHPO2 : NATURE DIFFUS
  76. CHPO1 = X + (Y**2) + (Z**3) ;
  77. CHPO2 = CHPO1 * 2.          ;
  78. CHPO3 = CHPO1 * CHPO2       ;
  79. NATU  = EXTR CHPO3 'NATU'   ;
  80. SI ('NEG' NATU 'DIFFUS')    ;
  81.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  82.   ERRE 5;
  83. FINSI;
  84.  
  85. * Création de CHPO4 et CHPO5 : NATURE DISCRET
  86. CHPO4 = CHAN CHPO1 'ATTRIBUT' 'NATURE' 'DISCRET';
  87. CHPO5 = CHAN CHPO2 'ATTRIBUT' 'NATURE' 'DISCRET';
  88. CHPO6 = CHPO4 * CHPO5        ;
  89. NATU  = EXTR CHPO6 'NATU'    ;
  90. SI ('NEG' NATU 'DISCRET')    ;
  91.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  92.   ERRE 5;
  93. FINSI;
  94.  
  95. * Création de CHPO7 et CHPO8 : NATURE INDETER
  96. CHPO7 = CHAN CHPO1 'ATTRIBUT' 'NATURE' 'INDETER';
  97. CHPO8 = CHAN CHPO2 'ATTRIBUT' 'NATURE' 'INDETER';
  98. CHPO9 = CHPO7 * CHPO8        ;
  99. NATU  = EXTR CHPO9 'NATU'    ;
  100. SI ('NEG' NATU 'INDETERMINE');
  101.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  102.   ERRE 5;
  103. FINSI;
  104.  
  105. ************************************************************************
  106. * Multiplication de CHPOINT de NATURE différente
  107. ************************************************************************
  108. CHPO10 = CHPO1 * CHPO4 ;
  109. NATU  = EXTR CHPO10 'NATU'    ;
  110. SI ('NEG' NATU 'DISCRET');
  111.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  112.   ERRE 5;
  113. FINSI;
  114.  
  115. CHPO11 = CHPO1 * CHPO7 ;
  116. NATU  = EXTR CHPO11 'NATU'    ;
  117. SI ('NEG' NATU 'INDETERMINE');
  118.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  119.   ERRE 5;
  120. FINSI;
  121.  
  122. CHPO12 = CHPO4 * CHPO7 ;
  123. NATU  = EXTR CHPO12 'NATU'    ;
  124. SI ('NEG' NATU 'INDETERMINE');
  125.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  126.   ERRE 5;
  127. FINSI;
  128.  
  129.  
  130. ************************************************************************
  131. * Multiplication de CHPOINT en changeant la NATURE du resultat
  132. ************************************************************************
  133. CHPO13 = CHPO1 * CHPO2 'NATURE' 'DISCRET'     ;
  134. NATU  = EXTR CHPO13 'NATU'    ;
  135. SI ('NEG' NATU 'DISCRET');
  136.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  137.   ERRE 5;
  138. FINSI;
  139.  
  140. CHPO14 = CHPO1 * CHPO2 'NATURE' 'DIFFUS'      ;
  141. NATU  = EXTR CHPO14 'NATU'    ;
  142. SI ('NEG' NATU 'DIFFUS');
  143.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  144.   ERRE 5;
  145. FINSI;
  146.  
  147. CHPO15 = CHPO1 * CHPO2 'NATURE' 'INDETERMINE' ;
  148. NATU  = EXTR CHPO15 'NATU'    ;
  149. SI ('NEG' NATU 'INDETERMINE');
  150.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  151.   ERRE 5;
  152. FINSI;
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163. ************************************************************************
  164. * Création d'un CHPOINT avec plusieurs composantes
  165. ************************************************************************
  166. CHPO101 = CHAN 'COMP' 'X1' CHPO1 ;
  167. CHPO102 = CHAN 'COMP' 'Y1' CHPO2 ;
  168. CHPO103 = CHAN 'COMP' 'Z1' CHPO3 ;
  169.  
  170. LISMO1  = MOTS 'X1' 'Y1' 'Z1' ;
  171. LISMO2  = MOTS 'X2' 'Y2' 'Z2' ;
  172.  
  173. ************************************************************************
  174. * Multiplication de CHPOINT de memem NATURE avec 3 composantes
  175. ************************************************************************
  176. * Création de CHPO104 et CHPO105 : NATURE DIFFUS
  177. CHPO104 = CHPO101 ET CHPO102 ET CHPO103 ;
  178. CHPO105 = COS CHPO104 ;
  179. CHPO106 = CHPO104 * CHPO105 LISMO1 LISMO1 LISMO2;
  180. NATU  = EXTR CHPO106 'NATU'    ;
  181. SI ('NEG' NATU 'DIFFUS');
  182.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  183.   ERRE 5;
  184. FINSI;
  185.  
  186. * Création de CHPO107 et CHPO108 : NATURE DISCRET
  187. CHPO107 = CHAN CHPO104 'ATTRIBUT' 'NATURE' 'DISCRET';
  188. CHPO108 = CHAN CHPO105 'ATTRIBUT' 'NATURE' 'DISCRET';
  189. CHPO109 = CHPO107 * CHPO108  LISMO1 LISMO1 LISMO2   ;
  190. NATU  = EXTR CHPO109 'NATU'    ;
  191. SI ('NEG' NATU 'DISCRET');
  192.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  193.   ERRE 5;
  194. FINSI;
  195.  
  196. * Création de CHPO110 et CHPO111 : NATURE INDETER
  197. CHPO110 = CHAN CHPO104 'ATTRIBUT' 'NATURE' 'INDETER';
  198. CHPO111 = CHAN CHPO105 'ATTRIBUT' 'NATURE' 'INDETER';
  199. CHPO112 = CHPO110 * CHPO111  LISMO1 LISMO1 LISMO2   ;
  200. NATU  = EXTR CHPO112 'NATU'    ;
  201. SI ('NEG' NATU 'INDETERMINE');
  202.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  203.   ERRE 5;
  204. FINSI;
  205.  
  206. ************************************************************************
  207. * Multiplication de CHPOINT de NATURE differente avec 3 composantes
  208. ************************************************************************
  209. CHPO113 = CHPO104 * CHPO107 LISMO1 LISMO1 LISMO2;
  210. NATU  = EXTR CHPO113 'NATU'    ;
  211. SI ('NEG' NATU 'DISCRET');
  212.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  213.   ERRE 5;
  214. FINSI;
  215.  
  216. CHPO114 = CHPO104 * CHPO110 LISMO1 LISMO1 LISMO2;
  217. NATU  = EXTR CHPO114 'NATU'    ;
  218. SI ('NEG' NATU 'INDETERMINE');
  219.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  220.   ERRE 5;
  221. FINSI;
  222.  
  223. CHPO115 = CHPO107 * CHPO110 LISMO1 LISMO1 LISMO2;
  224. NATU  = EXTR CHPO115 'NATU'    ;
  225. SI ('NEG' NATU 'INDETERMINE');
  226.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  227.   ERRE 5;
  228. FINSI;
  229.  
  230.  
  231. ************************************************************************
  232. * Multiplication de CHPOINT avec 3 composante en changeant la NATURE
  233. ************************************************************************
  234. CHPO116 = CHPO104 * CHPO107 LISMO1 LISMO1 LISMO2 'NATURE' 'DISCRET';
  235. NATU  = EXTR CHPO116 'NATU'    ;
  236. SI ('NEG' NATU 'DISCRET');
  237.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  238.   OPTI DONN 5;
  239.   ERRE 5;
  240. FINSI;
  241.  
  242. CHPO117 = CHPO104 * CHPO110 LISMO1 LISMO1 LISMO2 'NATURE' 'DIFFUS ';
  243. NATU  = EXTR CHPO117 'NATU'    ;
  244. SI ('NEG' NATU 'DIFFUS');
  245.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  246.   ERRE 5;
  247. FINSI;
  248.  
  249. CHPO118 = CHPO107 * CHPO110 LISMO1 LISMO1 LISMO2 'NATURE' 'INDETER';
  250. NATU  = EXTR CHPO118 'NATU'    ;
  251. SI ('NEG' NATU 'INDETERMINE');
  252.   MESS 'La nature du CHPOINT resultat n"est pas bonne';
  253.   ERRE 5;
  254. FINSI;
  255.  
  256.  
  257.  
  258. FIN;
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  

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