Télécharger la plaquette Cast3M


fr en

Télécharger parallelisation_CHPOINT.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : gedit parallelisation_CHPOINT.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5.  
  6.  
  7.  
  8. *----------------------------------------------------------------------*
  9. *     Cas-Test de Verification : Operations Elementaires CHPOINTS      *
  10. *----------------------------------------------------------------------*
  11. *                                                                      *
  12. *    Ce  cas  test  permet de  verifier le bon  fonctionnement  de  la *
  13. * parallelisation des operations elementaires suivantes sur l'objet de *
  14. * type CHPOINT :                                                       *
  15. *
  16. *   CHPO2 = CHPO1 ** FLOT1
  17. *   CHPO2 = CHPO1 ** ENTI1
  18. *   CHPO2 = CHPO1 *  FLOT1
  19. *   CHPO2 = CHPO1 /  FLOT1
  20. *   CHPO2 = CHPO1 +  FLOT1
  21. *   CHPO2 = CHPO1 -  FLOT1
  22. *   CHPO2 = FLOT1 -  CHPO1
  23. *   CHPO2 = COS  CHPO1
  24. *   CHPO2 = SIN  CHPO1
  25. *   CHPO2 = TAN  CHPO1
  26. *   CHPO2 = ACOS CHPO1
  27. *   CHPO2 = ASIN CHPO1
  28. *   CHPO2 = ATG  CHPO1
  29. *   CHPO2 = EXP  CHPO1
  30. *   CHPO2 = LOG  CHPO1
  31. *   CHPO2 = ABS  CHPO1
  32. *   CHPO2 = COSH CHPO1
  33. *   CHPO2 = SINH CHPO1
  34. *   CHPO2 = TANH CHPO1
  35. *   CHPO2 = ERF  CHPO1
  36. *   CHPO2 = ERFC CHPO1
  37. *   CHPO2 = ACOH CHPO1
  38. *   CHPO2 = ASIH CHPO1
  39. *   CHPO2 = ATAH CHPO1
  40. *----------------------------------------------------------------------*
  41.  
  42.  
  43. *----------------------------------------------------------------------*
  44. * MAILLAGE
  45. *----------------------------------------------------------------------*
  46. opti dime 3 elem cub8;
  47. a1 =0. 0. 0.;
  48. a2 =1. 0. 0.;
  49. a3 =0. 2. 0.;
  50.  
  51. **nbre d elements
  52. nbel=50;
  53. d1=a1 d nbel a2;
  54. s1=d1 tran nbel (0. 2. 0.);
  55. msh = s1 volu nbel tran (0. 0. 3.);
  56.  
  57. *----------------------------------------------------------------------*
  58. * CALCULS SUR LES CHPOINTS
  59. *----------------------------------------------------------------------*
  60. X0 Y0 Z0 = COOR msh;
  61. *TOTO = TABL;
  62.  
  63. NBBOUC = 80  ;
  64. BDESS  = FAUX;
  65.  
  66. *----------------------------------------------------------------------*
  67. * Test de Cohabitation ASSISTANTS / PTHREADS (Correction ANOMALIE 9297)
  68. *----------------------------------------------------------------------*
  69. * Utilisation de ASSI 'TOUS'  car en  OPTI PARA VRAI; les CHPOINTS sont
  70. * systématiquement fusionnes
  71. NBPART     = 40;
  72. MSHPART    = PART 'ARLE' NBPART (CHAN 'POI1' msh);
  73. X0p Y0p Z0p= ASSI 'TOUS' COOR MSHPART;
  74. CHPADD     = TABL 'ESCLAVE';
  75. REPE SURPAR NBPART;
  76.   CHPADD.&SURPAR = &SURPAR ;
  77. FIN SURPAR;
  78.  
  79. REPE SURI 1000;
  80.   BTEST = VRAI;
  81.   X1P = ASSI 'TOUS' X0p '*' 0.     ;
  82.   X2P = ASSI 'TOUS' X1p '+' CHPADD ;
  83.   REPE SURPAR NBPART;
  84.     BTEST = BTEST 'ET' ('EGA' ('MINI' X2P. &SURPAR) CHPADD. &SURPAR) ;
  85.   FIN SURPAR;
  86.   SI (NON BTEST);
  87.     MESS 'Erreur dans les ASSISTANTS combines au PTHREADS';
  88.     REPE SURPAR NBPART;
  89.       MESS &SURPAR ('MINI' X2P. &SURPAR);
  90.     FIN SURPAR;
  91.     ERRE 21 ;
  92.   FINS;
  93.   DETR X2P;
  94.   DETR X1P;
  95. FIN SURI;
  96.  
  97.  
  98. ************************************************************************
  99. * PUISSANCE
  100. ************************************************************************
  101. SI VRAI;
  102.   PUI1 = 0   ;
  103.   REPE SURI NBBOUC;
  104.  
  105.    X11 = X0 ** PUI1 ;
  106.    Y11 = Y0 ** PUI1 ;
  107.    Z11 = Z0 ** PUI1 ;
  108.  
  109. * TOTO.&SURI = X1 ;
  110.  
  111.   FIN SURI;
  112.   SI (BDESS) ;
  113.     EVO1 = EVOL 'CHPO' X11 D1;
  114.     TIT1 = CHAI 'PUISSANCE' PUI1;
  115.     DESS EVO1 'TITR' TIT1;
  116.   FINSI;
  117. FINS;
  118.  
  119.  
  120. SI VRAI;
  121.   PUI1 = 1   ;
  122.   REPE SURI NBBOUC;
  123.  
  124.    X12 = X0 ** PUI1 ;
  125.    Y12 = Y0 ** PUI1 ;
  126.    Z12 = Z0 ** PUI1 ;
  127.  
  128. * TOTO.&SURI = X1 ;
  129.  
  130.   FIN SURI;
  131.   SI (BDESS) ;
  132.     EVO1 = EVOL 'CHPO' X12 D1;
  133.     TIT1 = CHAI 'PUISSANCE' PUI1;
  134.     DESS EVO1 'TITR' TIT1;
  135.   FINSI;
  136. FINS;
  137.  
  138.  
  139. SI VRAI;
  140.   PUI1 = 4   ;
  141.   REPE SURI NBBOUC;
  142.  
  143.    X13 = X0 ** PUI1 ;
  144.    Y13 = Y0 ** PUI1 ;
  145.    Z13 = Z0 ** PUI1 ;
  146.  
  147. * TOTO.&SURI = X1 ;
  148.  
  149.   FIN SURI;
  150.   SI (BDESS) ;
  151.     EVO1 = EVOL 'CHPO' X13 D1;
  152.     TIT1 = CHAI 'PUISSANCE' PUI1;
  153.     DESS EVO1 'TITR' TIT1;
  154.   FINSI;
  155. FINS;
  156.  
  157.  
  158. SI VRAI;
  159.   PUI1 = 3.00   ;
  160.   REPE SURI NBBOUC;
  161.  
  162.    X14 = X0 ** PUI1 ;
  163.    Y14 = Y0 ** PUI1 ;
  164.    Z14 = Z0 ** PUI1 ;
  165.  
  166. * TOTO.&SURI = X1 ;
  167.  
  168.   FIN SURI;
  169.   SI (BDESS) ;
  170.     EVO1 = EVOL 'CHPO' X14 D1;
  171.     TIT1 = CHAI 'PUISSANCE' PUI1;
  172.     DESS EVO1 'TITR' TIT1;
  173.   FINSI;
  174. FINS;
  175.  
  176.  
  177. SI VRAI;
  178.   PUI1 = 0.5   ;
  179.   REPE SURI NBBOUC;
  180.  
  181.    X15 = X0 ** PUI1 ;
  182.    Y15 = Y0 ** PUI1 ;
  183.    Z15 = Z0 ** PUI1 ;
  184.  
  185. * TOTO.&SURI = X1 ;
  186.  
  187.   FIN SURI;
  188.   SI (BDESS) ;
  189.     EVO1 = EVOL 'CHPO' X15 D1;
  190.     TIT1 = CHAI 'PUISSANCE' PUI1;
  191.     DESS EVO1 'TITR' TIT1;
  192.   FINSI;
  193. FINS;
  194.  
  195.  
  196. SI VRAI;
  197.   PUI1 = 1./5.   ;
  198.   REPE SURI NBBOUC;
  199.  
  200.    X16 = X0 ** PUI1 ;
  201.    Y16 = Y0 ** PUI1 ;
  202.    Z16 = Z0 ** PUI1 ;
  203.  
  204. * TOTO.&SURI = X1 ;
  205.  
  206.   FIN SURI;
  207.   SI (BDESS) ;
  208.     EVO1 = EVOL 'CHPO' X16 D1;
  209.     TIT1 = CHAI 'PUISSANCE' PUI1;
  210.     DESS EVO1 'TITR' TIT1;
  211.   FINSI;
  212. FINS;
  213.  
  214.  
  215. SI VRAI;
  216.   PUI1 = 2.4   ;
  217.   REPE SURI NBBOUC;
  218.  
  219.    X17 = X0 ** PUI1 ;
  220.    Y17 = Y0 ** PUI1 ;
  221.    Z17 = Z0 ** PUI1 ;
  222.  
  223. * TOTO.&SURI = X1 ;
  224.  
  225.   FIN SURI;
  226.   SI (BDESS) ;
  227.     EVO1 = EVOL 'CHPO' X17 D1;
  228.     TIT1 = CHAI 'PUISSANCE' PUI1;
  229.     DESS EVO1 'TITR' TIT1;
  230.   FINSI;
  231. FINS;
  232.  
  233.  
  234. ************************************************************************
  235. * ADDITION
  236. ************************************************************************
  237. SI VRAI;
  238.   ADD1 = 2.   ;
  239.   REPE SURI NBBOUC;
  240.  
  241.    X3 = X0 + ADD1 ;
  242.    Y3 = Y0 + ADD1 ;
  243.    Z3 = Z0 + ADD1 ;
  244.  
  245. * TOTO.&SURI = X1 ;
  246.  
  247.   FIN SURI;
  248.   SI (BDESS) ;
  249.     EVO1 = EVOL 'CHPO' X3 D1;
  250.     TIT1 = CHAI 'ADDITION' ADD1;
  251.     DESS EVO1 'TITR' TIT1;
  252.   FINSI;
  253. FINS;
  254.  
  255.  
  256. ************************************************************************
  257. * SOUSTRACTION
  258. ************************************************************************
  259. SI VRAI;
  260.   SOU1 = 2.   ;
  261.   REPE SURI NBBOUC;
  262.  
  263.    X4 = X0 - SOU1 ;
  264.    Y4 = Y0 - SOU1 ;
  265.    Z4 = Z0 - SOU1 ;
  266.  
  267. * TOTO.&SURI = X1 ;
  268.  
  269.   FIN SURI;
  270.   SI (BDESS) ;
  271.     EVO1 = EVOL 'CHPO' X4 D1;
  272.     TIT1 = CHAI 'SOUSTRACTION' SOU1;
  273.     DESS EVO1 'TITR' TIT1;
  274.   FINSI;
  275. FINS;
  276.  
  277.  
  278. SI VRAI;
  279.   SOU1 = 2.   ;
  280.   REPE SURI NBBOUC;
  281.  
  282.    X5 = SOU1 - X0 ;
  283.    Y5 = SOU1 - Y0 ;
  284.    Z5 = SOU1 - Z0 ;
  285.  
  286. * TOTO.&SURI = X1 ;
  287.  
  288.   FIN SURI;
  289.   SI (BDESS) ;
  290.     EVO1 = EVOL 'CHPO' X5 D1;
  291.     TIT1 = CHAI 'SOUSTRACTION' SOU1;
  292.     DESS EVO1 'TITR' TIT1;
  293.   FINSI;
  294. FINS;
  295.  
  296.  
  297. ************************************************************************
  298. * DIVISION
  299. ************************************************************************
  300. SI VRAI;
  301.   DIV1 = 10.   ;
  302.   REPE SURI NBBOUC;
  303.  
  304.    X6 = X0 / DIV1 ;
  305.    Y6 = Y0 / DIV1 ;
  306.    Z6 = Z0 / DIV1 ;
  307.  
  308. * TOTO.&SURI = X1 ;
  309.  
  310.   FIN SURI;
  311.   SI (BDESS) ;
  312.     EVO1 = EVOL 'CHPO' X6 D1;
  313.     TIT1 = CHAI 'DIVISION' DIV1;
  314.     DESS EVO1 'TITR' TIT1;
  315.   FINSI;
  316. FINS;
  317.  
  318.  
  319. ************************************************************************
  320. * FONCTIONS
  321. ************************************************************************
  322. SI VRAI;
  323.   REPE SURI NBBOUC;
  324.  
  325.    X7 = COS (X0 * (180. / (MAXI X0))) ;
  326.    Y7 = COS Y0 ;
  327.    Z7 = COS Z0 ;
  328.  
  329.   FIN SURI;
  330.   SI (BDESS) ;
  331.     EVO1 = EVOL 'CHPO' X7 D1;
  332.     TIT1 = CHAI 'COSINUS';
  333.     DESS EVO1 'TITR' TIT1;
  334.   FINSI;
  335. FINS;
  336.  
  337.  
  338. SI VRAI;
  339.   REPE SURI NBBOUC;
  340.  
  341.    X7 = SIN (X0 * (180. / (MAXI X0))) ;
  342.    Y7 = SIN Y0 ;
  343.    Z7 = SIN Z0 ;
  344.  
  345.   FIN SURI;
  346.   SI (BDESS) ;
  347.     EVO1 = EVOL 'CHPO' X7 D1;
  348.     TIT1 = CHAI 'SINUS';
  349.     DESS EVO1 'TITR' TIT1;
  350.   FINSI;
  351. FINS;
  352.  
  353.  
  354. SI VRAI;
  355.   REPE SURI NBBOUC;
  356.  
  357.    X7 = TAN (X0 * (45. / (MAXI X0))) ;
  358.    Y7 = TAN Y0 ;
  359.    Z7 = TAN Z0 ;
  360.  
  361.   FIN SURI;
  362.   SI (BDESS) ;
  363.     EVO1 = EVOL 'CHPO' X7 D1;
  364.     TIT1 = CHAI 'TANGENTE';
  365.     DESS EVO1 'TITR' TIT1;
  366.   FINSI;
  367. FINS;
  368.  
  369.  
  370. SI VRAI;
  371.   REPE SURI NBBOUC;
  372.  
  373.    X7 = ACOS (X0 / (MAXI X0)) ;
  374.    Y7 = ACOS (Y0 / (MAXI Y0)) ;
  375.    Z7 = ACOS (Z0 / (MAXI Z0)) ;
  376.  
  377.   FIN SURI;
  378.   SI (BDESS) ;
  379.     EVO1 = EVOL 'CHPO' X7 D1;
  380.     TIT1 = CHAI 'ARC COSINUS';
  381.     DESS EVO1 'TITR' TIT1;
  382.   FINSI;
  383. FINS;
  384.  
  385.  
  386. SI VRAI;
  387.   REPE SURI NBBOUC;
  388.  
  389.    X7 = ASIN (X0 / (MAXI X0)) ;
  390.    Y7 = ASIN (Y0 / (MAXI Y0)) ;
  391.    Z7 = ASIN (Z0 / (MAXI Z0)) ;
  392.  
  393.   FIN SURI;
  394.   SI (BDESS) ;
  395.     EVO1 = EVOL 'CHPO' X7 D1;
  396.     TIT1 = CHAI 'ARC SINUS';
  397.     DESS EVO1 'TITR' TIT1;
  398.   FINSI;
  399. FINS;
  400.  
  401.  
  402. SI VRAI;
  403.   REPE SURI NBBOUC;
  404.  
  405.    X7 = ATG  (X0 / (MAXI X0)) ;
  406.    Y7 = ATG  (Y0 / (MAXI Y0)) ;
  407.    Z7 = ATG  (Z0 / (MAXI Z0)) ;
  408.  
  409.   FIN SURI;
  410.   SI (BDESS) ;
  411.     EVO1 = EVOL 'CHPO' X7 D1;
  412.     TIT1 = CHAI 'ARC TANGENTE';
  413.     DESS EVO1 'TITR' TIT1;
  414.   FINSI;
  415. FINS;
  416.  
  417.  
  418. SI VRAI;
  419.   REPE SURI NBBOUC;
  420.  
  421.    X7 = EXP X0 ;
  422.    Y7 = EXP Y0 ;
  423.    Z7 = EXP Z0 ;
  424.  
  425. * TOTO.&SURI = X1 ;
  426.  
  427.   FIN SURI;
  428.   SI (BDESS) ;
  429.     EVO1 = EVOL 'CHPO' X7 D1;
  430.     TIT1 = CHAI 'EXPONENTIELLE';
  431.     DESS EVO1 'TITR' TIT1;
  432.   FINSI;
  433. FINS;
  434.  
  435.  
  436. SI VRAI;
  437.   REPE SURI NBBOUC;
  438.  
  439.    X7 = LOG (X0 + 1.) ;
  440.    Y7 = LOG (Y0 + 1.) ;
  441.    Z7 = LOG (Z0 + 1.) ;
  442.  
  443. * TOTO.&SURI = X1 ;
  444.  
  445.   FIN SURI;
  446.   SI (BDESS) ;
  447.     EVO1 = EVOL 'CHPO' X7 D1;
  448.     TIT1 = CHAI 'LOGARITHME';
  449.     DESS EVO1 'TITR' TIT1;
  450.   FINSI;
  451. FINS;
  452.  
  453.  
  454. SI VRAI;
  455.   REPE SURI NBBOUC;
  456.  
  457.    X7 = ABS (-2. * X0) ;
  458.    Y7 = ABS (-3. * Y0) ;
  459.    Z7 = ABS (-4. * Z0) ;
  460.  
  461. * TOTO.&SURI = X1 ;
  462.  
  463.   FIN SURI;
  464.   SI (BDESS) ;
  465.     EVO1 = EVOL 'CHPO' X7 D1;
  466.     TIT1 = CHAI 'VALEUR ABSOLUE';
  467.     DESS EVO1 'TITR' TIT1;
  468.   FINSI;
  469. FINS;
  470.  
  471.  
  472. SI VRAI;
  473.   REPE SURI NBBOUC;
  474.  
  475.    X7 = COSH  (X0 - 0.5) ;
  476.    Y7 = COSH  (Y0 - 0.5) ;
  477.    Z7 = COSH  (Z0 - 0.5) ;
  478.  
  479.   FIN SURI;
  480.   SI (BDESS) ;
  481.     EVO1 = EVOL 'CHPO' X7 D1;
  482.     TIT1 = CHAI 'COSINUS HYPERBOLIQUE';
  483.     DESS EVO1 'TITR' TIT1;
  484.   FINSI;
  485. FINS;
  486.  
  487.  
  488. SI VRAI;
  489.   REPE SURI NBBOUC;
  490.  
  491.    X7 = SINH  (5. * (X0 - 0.5)) ;
  492.    Y7 = SINH  (Y0 - 0.5) ;
  493.    Z7 = SINH  (Z0 - 0.5) ;
  494.  
  495.   FIN SURI;
  496.   SI (BDESS) ;
  497.     EVO1 = EVOL 'CHPO' X7 D1;
  498.     TIT1 = CHAI 'SINUS HYPERBOLIQUE';
  499.     DESS EVO1 'TITR' TIT1;
  500.   FINSI;
  501. FINS;
  502.  
  503.  
  504. SI VRAI;
  505.   REPE SURI NBBOUC;
  506.  
  507.    X7 = TANH  (2. * (X0 - 0.5)) ;
  508.    Y7 = TANH  (Y0 - 0.5) ;
  509.    Z7 = TANH  (Z0 - 0.5) ;
  510.  
  511.   FIN SURI;
  512.   SI (BDESS) ;
  513.     EVO1 = EVOL 'CHPO' X7 D1;
  514.     TIT1 = CHAI 'TANGENTE HYPERBOLIQUE';
  515.     DESS EVO1 'TITR' TIT1;
  516.   FINSI;
  517. FINS;
  518.  
  519.  
  520. SI VRAI;
  521.   REPE SURI NBBOUC;
  522.  
  523.    X7 = ERF  (2. * (X0 - 0.5)) ;
  524.    Y7 = ERF  (Y0 - 0.5) ;
  525.    Z7 = ERF  (Z0 - 0.5) ;
  526.  
  527.   FIN SURI;
  528.   SI (BDESS) ;
  529.     EVO1 = EVOL 'CHPO' X7 D1;
  530.     TIT1 = CHAI 'ERF';
  531.     DESS EVO1 'TITR' TIT1;
  532.   FINSI;
  533. FINS;
  534.  
  535.  
  536. SI VRAI;
  537.   REPE SURI NBBOUC;
  538.  
  539.    X7 = ERFC  (2. * (X0 - 0.5)) ;
  540.    Y7 = ERFC  (Y0 - 0.5) ;
  541.    Z7 = ERFC  (Z0 - 0.5) ;
  542.  
  543.   FIN SURI;
  544.   SI (BDESS) ;
  545.     EVO1 = EVOL 'CHPO' X7 D1;
  546.     TIT1 = CHAI 'ERFC';
  547.     DESS EVO1 'TITR' TIT1;
  548.   FINSI;
  549. FINS;
  550.  
  551.  
  552. SI VRAI;
  553.   REPE SURI NBBOUC;
  554.  
  555.    X7 = ACOH (X0+1.) ;
  556.    Y7 = ACOH (Y0+1.) ;
  557.    Z7 = ACOH (Z0+1.) ;
  558.  
  559. * TOTO.&SURI = X1 ;
  560.  
  561.   FIN SURI;
  562.   SI (BDESS) ;
  563.     EVO1 = EVOL 'CHPO' X7 D1;
  564.     TIT1 = CHAI 'ACOH';
  565.     DESS EVO1 'TITR' TIT1;
  566.   FINSI;
  567. FINS;
  568.  
  569.  
  570. SI VRAI;
  571.   REPE SURI NBBOUC;
  572.  
  573.    X7 = ASIH X0 ;
  574.    Y7 = ASIH Y0 ;
  575.    Z7 = ASIH Z0 ;
  576.  
  577. * TOTO.&SURI = X1 ;
  578.  
  579.   FIN SURI;
  580.   SI (BDESS) ;
  581.     EVO1 = EVOL 'CHPO' X7 D1;
  582.     TIT1 = CHAI 'ASIH';
  583.     DESS EVO1 'TITR' TIT1;
  584.   FINSI;
  585. FINS;
  586.  
  587.  
  588. SI VRAI;
  589.   REPE SURI NBBOUC;
  590.  
  591.    X7 = ATAH ((X0 - 0.5)*1.9) ;
  592.    Y7 = ATAH ((Y0 * 0.9) / (MAXI Y0)) ;
  593.    Z7 = ATAH ((Z0 * 0.9) / (MAXI Z0 )) ;
  594.  
  595. * TOTO.&SURI = X1 ;
  596.  
  597.   FIN SURI;
  598.   SI (BDESS) ;
  599.     EVO1 = EVOL 'CHPO' X7 D1;
  600.     TIT1 = CHAI 'ATAH';
  601.     DESS EVO1 'TITR' TIT1;
  602.   FINSI;
  603. FINS;
  604.  
  605. TEMP 'IMPR';
  606.  
  607. FIN;
  608.  
  609.  
  610.  
  611.  

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