home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / EDUCATON / GEO_MATH.ZIP / M4.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-15  |  896 b   |  38 lines
  1. 0  CLS:PRINT
  2. 5  DEF FNA (X) = 1.5708 - ATN (X/ SQR (X * X-1))
  3. 10   PRINT "ANALYSIS OF TWO VECTORS"
  4. 35   PRINT 
  5. 40   PRINT "VECTOR 1: X,Y,Z";
  6. 50   INPUT X(1),Y(1),Z(1)
  7. 60   PRINT "VECTOR 2: X,Y,Z";
  8. 70   INPUT X(2),Y(2),Z(2)
  9. 80   PRINT 
  10. 90   FOR I = 1 TO 2
  11. 100  M(I) =  SQR (X(I) ^ 2 + Y(I) ^ 2 + Z(I) ^ 2)
  12. 110   IF M(I) = 0 THEN 220
  13. 120   PRINT "VECTOR ";I;":"
  14. 130   PRINT "MAGNITUDE: ";M(I)
  15. 140  S = 57.2958
  16. 150  J = X(I) / M(I)
  17. 160   PRINT "ANGLE WITH X-AXIS: "; FNA(J) * S
  18. 170  J = Y(I) / M(I)
  19. 180   PRINT "ANGLE WITH Y-AXIS: "; FNA(J) * S
  20. 190  J = Z(I) / M(I)
  21. 200   PRINT "ANGLE WITH Z-AXIS: "; FNA(J) * S
  22. 210   PRINT 
  23. 220   NEXT I
  24. 230  J = 0
  25. 240   IF M(1) = 0 THEN 310
  26. 250   IF M(2) = 0 THEN 310
  27. 260  J = (X(1) * X(2) + Y(1) * Y(2) + Z(1) * Z(2)) / M(1) / M(2)
  28. 270   IF J <  > 0 THEN 300
  29. 280  J = 90
  30. 290   GOTO 310
  31. 300  J =  FNA (J) * S
  32. 310   PRINT "ANGLE BETWEEN VECTORS: ";J
  33. 320   PRINT 
  34. 330   PRINT "MORE DATA? (1=YES, 0=NO)";
  35. 340   INPUT Z
  36. 350   IF Z = 1 THEN 20
  37. 360   RUN "MATH"
  38.