home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / QUADRATI.MCD < prev    next >
Encoding:
Text File  |  1987-10-23  |  1.1 KB  |  54 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. .TXT 1 1 1 40 
  11. a1,40,38,39
  12. SOLUTION TO GENERAL QUADRATIC EQUATION
  13. .TXT 2 8 1 26 
  14. a1,26,24,25
  15. Coefficients as follows:
  16. .EQN 0 32 1 8 
  17. a:1
  18. .EQN 0 13 1 9 
  19. b:-3
  20. .EQN 0 13 1 8 
  21. c:2
  22. .EQN 2 -32 2 23 
  23. discrim:b^2-4*a*c
  24. .TXT 1 -26 1 23 
  25. a1,23,21,22
  26. Compute discriminant:
  27. .EQN 0 53 1 15 
  28. discrim=?
  29. .TXT 2 -49 3 67 
  30. a3,67,65,170
  31. -> If discriminant is positive, both roots real.                 
  32. -> If discriminant is negative, roots are complex conjugates.
  33. -> If discriminant is zero, double root.
  34. .TXT 4 -4 1 16 
  35. a1,16,14,15
  36. Compute roots:
  37. .TXT 0 44 2 26 
  38. a2,26,24,51
  39. Check ... should be zero 
  40. ------------------------
  41. .EQN 2 -42 4 21 
  42. x1:(-b+\discrim)/(2*a)
  43. .EQN 1 43 2 24 
  44. a*x1^2+b*x1+c=?
  45. .EQN 1 -16 1 10 
  46. x1=?
  47. .EQN 3 -27 4 21 
  48. x2:(-b-\discrim)/(2*a)
  49. .EQN 1 43 2 24 
  50. a*x2^2+b*x2+c=?AaΣ"
  51.  
  52. .EQN 1 -16 1 10 
  53. x2=?
  54.