Numérotation des lignes :

* fichier : gedit parallelisation_CHPOINT.dgibi************************************************************************************************************************************************    *----------------------------------------------------------------------**     Cas-Test de Verification : Operations Elementaires CHPOINTS      **----------------------------------------------------------------------**                                                                      **    Ce  cas  test  permet de  verifier le bon  fonctionnement  de  la ** parallelisation des operations elementaires suivantes sur l'objet de ** type CHPOINT :                                                       ***   CHPO2 = CHPO1 ** FLOT1*   CHPO2 = CHPO1 ** ENTI1*   CHPO2 = CHPO1 *  FLOT1*   CHPO2 = CHPO1 /  FLOT1*   CHPO2 = CHPO1 +  FLOT1*   CHPO2 = CHPO1 -  FLOT1*   CHPO2 = FLOT1 -  CHPO1*   CHPO2 = COS  CHPO1*   CHPO2 = SIN  CHPO1*   CHPO2 = TAN  CHPO1*   CHPO2 = ACOS CHPO1*   CHPO2 = ASIN CHPO1*   CHPO2 = ATG  CHPO1*   CHPO2 = EXP  CHPO1*   CHPO2 = LOG  CHPO1*   CHPO2 = ABS  CHPO1*   CHPO2 = COSH CHPO1*   CHPO2 = SINH CHPO1*   CHPO2 = TANH CHPO1*   CHPO2 = ERF  CHPO1*   CHPO2 = ERFC CHPO1*   CHPO2 = ACOH CHPO1*   CHPO2 = ASIH CHPO1*   CHPO2 = ATAH CHPO1*----------------------------------------------------------------------*  *----------------------------------------------------------------------** MAILLAGE*----------------------------------------------------------------------*opti dime 3 elem cub8;a1 =0. 0. 0.;a2 =1. 0. 0.;a3 =0. 2. 0.; **nbre d elementsnbel=50;d1=a1 d nbel a2;s1=d1 tran nbel (0. 2. 0.);msh = s1 volu nbel tran (0. 0. 3.); *----------------------------------------------------------------------** CALCULS SUR LES CHPOINTS*----------------------------------------------------------------------*X0 Y0 Z0 = COOR msh;*TOTO = TABL; NBBOUC = 80  ;BDESS  = FAUX; *----------------------------------------------------------------------** Test de Cohabitation ASSISTANTS / PTHREADS (Correction ANOMALIE 9297)*----------------------------------------------------------------------** Utilisation de ASSI 'TOUS'  car en  OPTI PARA VRAI; les CHPOINTS sont* systématiquement fusionnesNBPART     = 40;MSHPART    = PART 'ARLE' NBPART (CHAN 'POI1' msh);X0p Y0p Z0p= ASSI 'TOUS' COOR MSHPART;CHPADD     = TABL 'ESCLAVE';REPE SURPAR NBPART;  CHPADD.&SURPAR = &SURPAR ;FIN SURPAR; REPE SURI 1000;  BTEST = VRAI;  X1P = ASSI 'TOUS' X0p '*' 0.     ;  X2P = ASSI 'TOUS' X1p '+' CHPADD ;  REPE SURPAR NBPART;    BTEST = BTEST 'ET' ('EGA' ('MINI' X2P. &SURPAR) CHPADD. &SURPAR) ;  FIN SURPAR;  SI (NON BTEST);    MESS 'Erreur dans les ASSISTANTS combines au PTHREADS';    REPE SURPAR NBPART;      MESS &SURPAR ('MINI' X2P. &SURPAR);    FIN SURPAR;    ERRE 21 ;  FINS;  DETR X2P;  DETR X1P;FIN SURI;  ************************************************************************* PUISSANCE************************************************************************SI VRAI;  PUI1 = 0   ;  REPE SURI NBBOUC;    X11 = X0 ** PUI1 ;   Y11 = Y0 ** PUI1 ;   Z11 = Z0 ** PUI1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X11 D1;    TIT1 = CHAI 'PUISSANCE' PUI1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  PUI1 = 1   ;  REPE SURI NBBOUC;    X12 = X0 ** PUI1 ;   Y12 = Y0 ** PUI1 ;   Z12 = Z0 ** PUI1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X12 D1;    TIT1 = CHAI 'PUISSANCE' PUI1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  PUI1 = 4   ;  REPE SURI NBBOUC;    X13 = X0 ** PUI1 ;   Y13 = Y0 ** PUI1 ;   Z13 = Z0 ** PUI1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X13 D1;    TIT1 = CHAI 'PUISSANCE' PUI1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  PUI1 = 3.00   ;  REPE SURI NBBOUC;    X14 = X0 ** PUI1 ;   Y14 = Y0 ** PUI1 ;   Z14 = Z0 ** PUI1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X14 D1;    TIT1 = CHAI 'PUISSANCE' PUI1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  PUI1 = 0.5   ;  REPE SURI NBBOUC;    X15 = X0 ** PUI1 ;   Y15 = Y0 ** PUI1 ;   Z15 = Z0 ** PUI1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X15 D1;    TIT1 = CHAI 'PUISSANCE' PUI1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  PUI1 = 1./5.   ;  REPE SURI NBBOUC;    X16 = X0 ** PUI1 ;   Y16 = Y0 ** PUI1 ;   Z16 = Z0 ** PUI1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X16 D1;    TIT1 = CHAI 'PUISSANCE' PUI1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  PUI1 = 2.4   ;  REPE SURI NBBOUC;    X17 = X0 ** PUI1 ;   Y17 = Y0 ** PUI1 ;   Z17 = Z0 ** PUI1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X17 D1;    TIT1 = CHAI 'PUISSANCE' PUI1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  ************************************************************************* ADDITION************************************************************************SI VRAI;  ADD1 = 2.   ;  REPE SURI NBBOUC;    X3 = X0 + ADD1 ;   Y3 = Y0 + ADD1 ;   Z3 = Z0 + ADD1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X3 D1;    TIT1 = CHAI 'ADDITION' ADD1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  ************************************************************************* SOUSTRACTION************************************************************************SI VRAI;  SOU1 = 2.   ;  REPE SURI NBBOUC;    X4 = X0 - SOU1 ;   Y4 = Y0 - SOU1 ;   Z4 = Z0 - SOU1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X4 D1;    TIT1 = CHAI 'SOUSTRACTION' SOU1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  SOU1 = 2.   ;  REPE SURI NBBOUC;    X5 = SOU1 - X0 ;   Y5 = SOU1 - Y0 ;   Z5 = SOU1 - Z0 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X5 D1;    TIT1 = CHAI 'SOUSTRACTION' SOU1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  ************************************************************************* DIVISION************************************************************************SI VRAI;  DIV1 = 10.   ;  REPE SURI NBBOUC;    X6 = X0 / DIV1 ;   Y6 = Y0 / DIV1 ;   Z6 = Z0 / DIV1 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X6 D1;    TIT1 = CHAI 'DIVISION' DIV1;    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  ************************************************************************* FONCTIONS************************************************************************SI VRAI;  REPE SURI NBBOUC;    X7 = COS (X0 * (180. / (MAXI X0))) ;   Y7 = COS Y0 ;   Z7 = COS Z0 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'COSINUS';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = SIN (X0 * (180. / (MAXI X0))) ;   Y7 = SIN Y0 ;   Z7 = SIN Z0 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'SINUS';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = TAN (X0 * (45. / (MAXI X0))) ;   Y7 = TAN Y0 ;   Z7 = TAN Z0 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'TANGENTE';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = ACOS (X0 / (MAXI X0)) ;   Y7 = ACOS (Y0 / (MAXI Y0)) ;   Z7 = ACOS (Z0 / (MAXI Z0)) ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'ARC COSINUS';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = ASIN (X0 / (MAXI X0)) ;   Y7 = ASIN (Y0 / (MAXI Y0)) ;   Z7 = ASIN (Z0 / (MAXI Z0)) ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'ARC SINUS';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = ATG  (X0 / (MAXI X0)) ;   Y7 = ATG  (Y0 / (MAXI Y0)) ;   Z7 = ATG  (Z0 / (MAXI Z0)) ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'ARC TANGENTE';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = EXP X0 ;   Y7 = EXP Y0 ;   Z7 = EXP Z0 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'EXPONENTIELLE';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = LOG (X0 + 1.) ;   Y7 = LOG (Y0 + 1.) ;   Z7 = LOG (Z0 + 1.) ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'LOGARITHME';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = ABS (-2. * X0) ;   Y7 = ABS (-3. * Y0) ;   Z7 = ABS (-4. * Z0) ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'VALEUR ABSOLUE';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = COSH  (X0 - 0.5) ;   Y7 = COSH  (Y0 - 0.5) ;   Z7 = COSH  (Z0 - 0.5) ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'COSINUS HYPERBOLIQUE';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = SINH  (5. * (X0 - 0.5)) ;   Y7 = SINH  (Y0 - 0.5) ;   Z7 = SINH  (Z0 - 0.5) ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'SINUS HYPERBOLIQUE';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = TANH  (2. * (X0 - 0.5)) ;   Y7 = TANH  (Y0 - 0.5) ;   Z7 = TANH  (Z0 - 0.5) ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'TANGENTE HYPERBOLIQUE';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = ERF  (2. * (X0 - 0.5)) ;   Y7 = ERF  (Y0 - 0.5) ;   Z7 = ERF  (Z0 - 0.5) ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'ERF';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = ERFC  (2. * (X0 - 0.5)) ;   Y7 = ERFC  (Y0 - 0.5) ;   Z7 = ERFC  (Z0 - 0.5) ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'ERFC';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = ACOH (X0+1.) ;   Y7 = ACOH (Y0+1.) ;   Z7 = ACOH (Z0+1.) ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'ACOH';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = ASIH X0 ;   Y7 = ASIH Y0 ;   Z7 = ASIH Z0 ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'ASIH';    DESS EVO1 'TITR' TIT1;  FINSI;FINS;  SI VRAI;  REPE SURI NBBOUC;    X7 = ATAH ((X0 - 0.5)*1.9) ;   Y7 = ATAH ((Y0 * 0.9) / (MAXI Y0)) ;   Z7 = ATAH ((Z0 * 0.9) / (MAXI Z0 )) ; * TOTO.&SURI = X1 ;   FIN SURI;  SI (BDESS) ;    EVO1 = EVOL 'CHPO' X7 D1;    TIT1 = CHAI 'ATAH';    DESS EVO1 'TITR' TIT1;  FINSI;FINS; TEMP 'IMPR'; FIN;

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