Télécharger ssch.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : ssch.dgibi
  2. SAUT PAGE ;
  3. ************************************************************
  4. *
  5. * test elementaire de l'operateur ssch
  6. *
  7. ************************************************************
  8.  
  9.  
  10. pa = 0.0 0.0 ;
  11. pb = 1.0 0.0 ;
  12. pc = 1.0 1.0 ;
  13. pd = 0.0 1.0 ;
  14.  
  15. su = manu qua4 pa pb pc pd ;
  16. sup = chan su poi1 ;
  17.  
  18. tabdon = table ;
  19. tabdon . iden = lect 1 101 ;
  20. tabchi = chi1 tabdon COMP '/u/castem/divers/COMPOM'
  21. LOGK '/u/castem/divers/COMPOM' ;
  22.  
  23. tbparm = table ;
  24. tbparm . itmax = 40 ;
  25. tbparm . eps = 1.d-4 ;
  26. tbparm . sortie = mots 'SOLU' ;
  27.  
  28. tchi = table ;
  29. tchi . soustype = donnees_chimiques ;
  30. tchi . tot = manu chpo sup 2 x001 (prog 5.d-5 5.d-4 1.d-3 2.d-5 )
  31. x101 (prog 5.d-5 1.d-3 5.d-4 1.d-5 ) ;
  32. tchi . logc = manu chpo sup 2 x001 -4.
  33. x101 -4. ;
  34.  
  35. tachi = chi2 tabchi tbparm tchi ;
  36.  
  37. dfi = manu chpo sup 2 x001 (prog 0.d0 1.d-5 2.e-5 0.d0)
  38. x101 (prog 0.d0 1.d-5 3.e-5 0.d0) ;
  39. cc = tachi . solu ;
  40. dcc = manu chpo sup 3 w001 (prog 1.e-6 0.0 0.0 2.e-6)
  41. w002 (prog 2.e-6 0.0 0.0 3.e-6)
  42. w003 (prog 3.e-6 0.0 0.0 1.e-6) ;
  43. res = ssch tabchi dfi cc dcc ;
  44.  
  45.  
  46. tes = manu chpo sup 3 w001 (prog 1.d-6 6.4432d-6 9.4077d-6 3.d-6)
  47. w002 (prog 1.d-6 6.4432d-6 1.94077d-5 3.d-6)
  48. w003 (prog -1.d-6 3.5567d-6 1.05923d-5 -3.d-6);
  49.  
  50. ver = ( abs(res - tes) )masque superieur 1.d-5 somme ;
  51.  
  52. si (ver ega 0) ;
  53. erre 0 ;
  54. sinon ;
  55. erre 5 ;
  56. finsi ;
  57.  
  58. fin ;
  59.  
  60.  
  61.  

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