Télécharger zonfis.procedur

Retour à la liste

Numérotation des lignes :

  1. * ZONFIS PROCEDUR LJ1 14/11/26 21:15:05 8301
  2. DEBPROC ZONFIS TAB1*TABLE PHA/ENTIER PBA/ENTIER
  3. NHA/ENTIER NBA/ENTIER HAU/FLOTTANT BAS/FLOTTANT
  4. GAU/FLOTTANT DRO/FLOTTANT ALPHA/FLOTTANT;
  5. ****
  6. x1 = tab1.pfx . nha . pha;
  7. x2 = tab1.pfx . nba . pba;
  8. z1 = tab1.pfz . nha . pha;
  9. z2 = tab1.pfz . nba . pba;
  10. *
  11. kk = (x2 - x1)/(z2 - z1);
  12. *
  13. z3 = hau;
  14. z4 = bas;
  15. *
  16. x3 = (kk * (z3 - z1)) + x1;
  17. x4 = (kk * (z4 - z1)) + x1;
  18. *
  19. x31 = x3 + gau;
  20. x41 = x4 + gau;
  21. *
  22. x32 = x3 + dro;
  23. x42 = x4 + dro;
  24. *
  25. si tab1.droi;
  26. x33 = x32 ;
  27. x43 = x42 + alpha;
  28. x34 = x31;
  29. x44 = x41;
  30. sinon;
  31. x33 = x31 ;
  32. x43 = x41 + alpha;
  33. x34 = x32;
  34. x44 = x42;
  35. fins;
  36. *
  37. tab1.zgi = table;
  38. tab1.zgi.x = table;
  39. tab1.zgi.z = table;
  40. tab1.zgi.x . 1 = x34;
  41. tab1.zgi.x . 2 = x44;
  42. tab1.zgi.z . 1 = z3;
  43. tab1.zgi.z . 2 = z4;
  44. *
  45. tab1.zgf = table;
  46. tab1.zgf.x = table;
  47. tab1.zgf.z = table;
  48. tab1.zgf.x . 1 = x33;
  49. tab1.zgf.x . 2 = x43;
  50. tab1.zgf.z . 1 = z3;
  51. tab1.zgf.z . 2 = z4;
  52. *
  53. lisx = prog x1 x2 x3 x4 x31 x41 x32 x42 x33 x43 x34 x44;
  54. lisz = prog z1 z2 z3 z4 z3 z4 z3 z4 z3 z4 z3 z4;
  55. *
  56. tab1.zone = evol manu 'x' lisx 'z' lisz;
  57. mess '******************************************************';
  58. mess 'Nombre de ligne horizontale:';
  59. list (dime tab1.pfx);
  60. mess 'List des points sur la ligne horizontale haute:';
  61. list tab1.pfx.nha;
  62. mess 'List des points sur la ligne horizontale basse:';
  63. list tab1.pfx.nba;
  64. mess '*******************************************************';
  65. FINPROC;
  66.  
  67.  
  68.  

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