Télécharger la plaquette Cast3M


fr en

Télécharger test_acos.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : test_acos.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5.  
  6. *===================================================================
  7. *
  8. * Teste le bon fonctionnement des opérateurs ACOS, ASIN, ATG et TAN
  9. *
  10. *===================================================================
  11. *
  12. * Auteur : P. Maugis, 26/09/2007
  13. *
  14. *===================================================================
  15. * Teste ACOS, ASIN, ATG
  16. * ---------------------
  17.  
  18. EPS0=1d-13 ;
  19.  
  20. * flottants
  21. x  = 'ACOS' 0. ;
  22. 'SI' ('NEG' x 90. EPS0) ; 'ERREUR' 5 ; 'FINSI' ;
  23. x  = 'ASIN' 1. ;
  24. 'SI' ('NEG' x 90. EPS0) ; 'ERREUR' 5 ; 'FINSI' ;
  25. x  = 'ATG'  1.D30 ;
  26. 'SI' ('NEG' x 90. EPS0) ; 'ERREUR' 5 ; 'FINSI' ;
  27. x  = 'ATG'  1. 0. ;
  28. 'SI' ('NEG' x 90. EPS0) ; 'ERREUR' 5 ; 'FINSI' ;
  29. x  = 'ACOS' (2**-.5) ;
  30. 'SI' ('NEG' x 45. EPS0) ; 'ERREUR' 5 ; 'FINSI' ;
  31. x  = 'ASIN' (2**-.5) ;
  32. 'SI' ('NEG' x 45. EPS0) ; 'ERREUR' 5 ; 'FINSI' ;
  33. x  = 'ATG'  1. ;
  34. 'SI' ('NEG' x 45. EPS0) ; 'ERREUR' 5 ; 'FINSI' ;
  35. x  = 'ATG'  2. 2.;
  36. 'SI' ('NEG' x 45. EPS0) ; 'ERREUR' 5 ; 'FINSI' ;
  37.  
  38. * listes
  39. l  = 'PROG' 1. 1. .5 0. -.5 -1. -1 ;
  40. l2 = 'PROG' 0. 0. 60. 90. 120. 180. 180. ;
  41. *'SI' (('MAXIMUM' (('ACOS' l) - l2) 'ABS') > EPS0) ; 'ERREUR' 5; 'FINSI';
  42. l3 = 'PROG' 1d-30 (3.**.5) 1d30 (-1. * (3**.5)) -1d30 ;
  43. l31= 'PROG' 45. 45. 45. -135. -135. ;
  44. l4 = 'PROG' 0. 60. 90. -60. -90. ;
  45. 'SI' (('MAXIMUM' (('ATG' l3) - l4) 'ABS') > EPS0) ; 'ERREUR' 5; 'FINSI';
  46. 'SI' (('MAXIMUM' (('ATG' l3 l3)-l31) 'ABS') > EPS0) ; 
  47.   'ERREUR' 5;
  48. 'FINSI';
  49.  
  50. * champ-points
  51. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  52. m  = 'DROIT' (0 0) 4 (0 1) ;
  53. m2  = 'DROIT' (0 0) 6 (0 1) ;
  54. _m = 'CHAN' 'POI1' m ;
  55. _m2 = 'CHAN' 'POI1' m2 ;
  56. c  = 'MANU' 'CHPO' 1 _m2 'HOP' l ;
  57. c2 = 'MANU' 'CHPO' 1 _m2 'HOP' l2 ;
  58. *'SI' (('MAXIMUM' (('ACOS' c) - c2) 'ABS') > EPS0) ; 'ERREUR' 5; 'FINSI';
  59. c3 = 'MANU' 'CHPO' 1 _m 'HOP' l3 ;
  60. c31= 'MANU' 'CHPO' 1 _m 'HOP' l31;
  61. c4 = 'MANU' 'CHPO' 1 _m 'HOP' l4 ;
  62. 'SI' (('MAXIMUM' (('ATG' c3) - c4) 'ABS') > EPS0) ; 'ERREUR' 5; 'FINSI';
  63.   LIST ('ATG' c3 c3);
  64.   LIST ('MAXIMUM' (('ATG' c3 c3) - c31) 'ABS');
  65. 'SI' (('MAXIMUM' (('ATG' c3 c3) - c31) 'ABS') > EPS0) ;
  66.   'ERREUR' 5;
  67. 'FINSI';
  68.  
  69. * chamelem (ici SEG2 aux noeuds)
  70. d  = 'CHANGER' 'CHAM' c  m2 'NOEUD' ;
  71. d2 = 'CHANGER' 'CHAM' c2 m2 'NOEUD' ;
  72. 'SI' (('MAXIMUM' (('ACOS' d) - d2) 'ABS') > EPS0) ; 'ERREUR' 5; 'FINSI';
  73. d3 = 'CHANGER' 'CHAM' c3  m 'NOEUD' ;
  74. d31= 'CHANGER' 'CHAM' c31 m 'NOEUD' ;
  75. d4 = 'CHANGER' 'CHAM' c4  m 'NOEUD' ;
  76.  
  77. 'SI' (('MAXIMUM' (('ATG' d3 d3) - d31) 'ABS') > EPS0) ;
  78.   'ERREUR' 5; 
  79. 'FINSI';
  80. 'SI' (('MAXIMUM' (('ATG' d3) - d4) 'ABS') > EPS0) ; 'ERREUR' 5; 'FINSI';
  81.  
  82. * Teste TAN
  83. * ---------
  84. * flottants
  85. x  = 'TAN' 45. ;
  86. 'SI' ('NEG' x 1. EPS0) ; 'ERREUR' 5 ; 'FINSI' ;
  87. *
  88. x = 'TAN'  90.   ; mess x ;
  89. x = 'TAN'  270.  ; mess x ;
  90. x = 'TAN' -90.   ; mess x ;
  91. x = 'TAN' -270.  ; mess x ;
  92.  
  93. * listes
  94. l5 = 'PROG' 0. 45. 60. 120. 135. 180. ;
  95. l6 = 'PROG' 0. 1. (3.**.5) (-1. * (3**.5)) -1. 0. ;
  96. 'SI' (('MAXIMUM' (('TAN' l5) - l6) 'ABS') > EPS0) ; 'ERREUR' 5; 'FINSI';
  97.  
  98. * champ-points
  99. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  100. m  = 'DROIT' (0 0) 5 (0 1) ;
  101. _m = 'CHAN' 'POI1' m ;
  102. c5 = 'MANU' 'CHPO' 1 _m 'HOP' l5;
  103. c6 = 'MANU' 'CHPO' 1 _m 'HOP' l6 ;
  104. 'SI' (('MAXIMUM' (('TAN' c5) - c6) 'ABS') > EPS0) ; 'ERREUR' 5; 'FINSI';
  105.  
  106.  
  107. * chamelem (ici SEG2 aux noeuds)
  108. d5 = 'CHANGER' 'CHAM' c5 m 'NOEUD' ;
  109. d6 = 'CHANGER' 'CHAM' c6 m 'NOEUD' ;
  110. 'SI' (('MAXIMUM' (('TAN' d5) - d6) 'ABS') > EPS0) ; 'ERREUR' 5; 'FINSI';
  111. 'FIN' ;
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  

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