home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / MCAD254.ZIP / QUADRATI.MCD < prev    next >
Encoding:
Text File  |  1989-06-21  |  1.2 KB  |  55 lines
  1. .MCD 25000 0
  2. .CMD SURFACEFORMAT rot=10 tilt=35 vScale=20 size=15,30
  3. .CMD SKETCHFORMAT mag=1.000000,1.000000 center=0.500000,0.500000 size=15,30 box=y
  4. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  5. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  6. .CMD SET ORIGIN 0
  7. .CMD SET TOL 0.001000
  8. .CMD MARGIN 0
  9. .CMD LINELENGTH 78
  10. .CMD SET PRNCOLWIDTH 8
  11. .CMD SET PRNPRECISION 4
  12. .TXT 1 1 1 41 
  13. a1,40,38,39
  14. SOLUTION TO GENERAL QUADRATIC EQUATION
  15. .TXT 2 8 1 26 
  16. a1,26,24,25
  17. Coefficients as follows:
  18. .EQN 0 32 1 8 
  19. a:1
  20. .EQN 0 13 1 9 
  21. b:-3
  22. .EQN 0 13 1 8 
  23. c:2
  24. .EQN 2 -32 2 23 
  25. discrim:b^2-4*a*c
  26. .TXT 1 -26 1 23 
  27. a1,23,21,22
  28. Compute discriminant:
  29. .EQN 0 53 1 15 
  30. discrim=?
  31. .TXT 2 -49 3 67 
  32. a3,67,65,170
  33. -> If discriminant is positive, both roots real.                 
  34. -> If discriminant is negative, roots are complex conjugates.
  35. -> If discriminant is zero, double root.
  36. .TXT 4 -4 1 16 
  37. a1,16,14,15
  38. Compute roots:
  39. .TXT 0 44 2 26 
  40. a2,26,24,51
  41. Check ... should be zero 
  42. ------------------------
  43. .EQN 2 -42 4 21 
  44. x1:(-b+\discrim)/(2*a)
  45. .EQN 1 43 2 24 
  46. a*x1^2+b*x1+c=?
  47. .EQN 1 -16 1 10 
  48. x1=?
  49. .EQN 3 -27 4 21 
  50. x2:(-b-\discrim)/(2*a)
  51. .EQN 1 43 2 24 
  52. a*x2^2+b*x2+c=?
  53. .EQN 1 -16 1 10 
  54. x2=?
  55.