home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / TRIANGLE.MCD < prev    next >
Encoding:
Text File  |  1987-10-23  |  1.6 KB  |  72 lines
  1. .MCD 20000 0
  2. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  3. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  4. .CMD SET ORIGIN 0
  5. .CMD SET TOL 0.001000
  6. .CMD MARGIN 0
  7. .CMD LINELENGTH 78
  8. .CMD SET PRNCOLWIDTH 8
  9. .CMD SET PRNPRECISION 4
  10. .CMD FILENAME data1 data1
  11. .CMD FILENAME data2 data2
  12. .TXT 0 2 1 18 
  13. a1,17,15,16
  14. Triangle solver
  15. .TXT 2 -2 1 54 
  16. a1,54,52,53
  17. Given two sides and included angle, find third side:
  18. .EQN 2 10 3 41 
  19. abC_c(a,b,C):\(a^2+b^2-2*a*b*cos(C))
  20. .TXT 5 -10 1 55 
  21. a1,55,53,54
  22. Given two sides and adjacent angle, find other angle:
  23. .EQN 2 10 3 32 
  24. abA_B(a,b,A):asin(b*sin(A)/a)
  25. .TXT 4 -10 1 38 
  26. a1,37,35,36
  27. Given two angles, find third angle:
  28. .EQN 2 10 1 32 
  29. AB_C(A,B):180*deg-(A+B)
  30. .TXT 2 -10 1 32 
  31. a1,32,30,31
  32. Given three sides, find angle:
  33. .EQN 2 10 4 36 
  34. abc_C(a,b,c):acos((a^2+b^2-c^2)/(2*a*b))
  35. .TXT 5 -10 1 50 
  36. a1,50,48,49
  37. Given two angles and a side, find adjacent side:
  38. .EQN 2 10 3 26 
  39. aAB_b(a,A,B):a*sin(B)/sin(A)
  40. .TXT 4 -10 1 77 
  41. a1,77,75,76
  42. ===========================================================================
  43. .TXT 2 0 1 65 
  44. a1,65,63,64
  45. Solving for triangle parts, given b and c and included angle A:
  46. .EQN 2 40 1 8 
  47. b:1
  48. .EQN 2 0 1 8 
  49. c:2
  50. .EQN 2 0 1 13 
  51. A:60*deg
  52. .EQN 2 -40 1 19 
  53. a:abC_c(b,c,A)
  54. .EQN 0 40 1 13 
  55. a=?
  56. .EQN 2 -40 1 19 
  57. B:abA_B(a,b,A)
  58. .EQN 0 40 1 12 
  59. B=?deg
  60. .EQN 2 -40 1 19 
  61. C:abA_B(a,c,A)
  62. .EQN 0 40 1 12 
  63. C=?deg
  64. .TXT 4 -40 2 68 
  65. a2,67,65,95
  66. Using these same functions, similar solutions are possible given 
  67. other parts of the triangle.
  68. .EQN 26 10 1 9 
  69. rad~1
  70. .EQN 2 0 3 14 
  71. deg~π/180*rad
  72.