home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mcademo2.zip / QUADRATI.MCD / QUADRATI.MCD
Text File  |  1991-06-12  |  3KB  |  113 lines
  1. .MCD 30001 1 74
  2. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  3. .CMD SET ORIGIN 0
  4. .CMD SET TOL 0.001000000000000
  5. .CMD SET PRNCOLWIDTH 8
  6. .CMD SET PRNPRECISION 4
  7. .CMD PRINT_SETUP 1.200000 0
  8. .CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
  9. .CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
  10. .CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
  11. .CMD DEFINE_FONTSTYLE_NAME fontID=3 name=Greek^Variables
  12. .CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
  13. .CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
  14. .CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
  15. .CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
  16. .CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
  17. .CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
  18. .CMD DEFINE_FONTSTYLE fontID=0 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  19. .CMD DEFINE_FONTSTYLE fontID=1 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  20. .CMD DEFINE_FONTSTYLE fontID=2 family=Helv points=10 bold=0 italic=0 underline=0
  21. .CMD DEFINE_FONTSTYLE fontID=3 family=Symbol points=10 bold=0 italic=0 underline=0
  22. .CMD DEFINE_FONTSTYLE fontID=4 family=Helv points=10 bold=0 italic=0 underline=0
  23. .CMD DEFINE_FONTSTYLE fontID=5 family=Courier points=10 bold=0 italic=0 underline=0
  24. .CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
  25. .CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
  26. .CMD DEFINE_FONTSTYLE fontID=8 family=Terminal points=0 bold=0 italic=0 underline=0
  27. .CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
  28. .CMD UNITS U=1
  29. .TXT 2 2 0 0
  30. C a422,465,87
  31. {\rtf1\ansi \deff0
  32. {\fonttbl
  33. {\f0\fnil Helv;}
  34. {\f1\fnil Symbol;}
  35. }
  36. {\plain {\f0 \fs24 \b \i \ulnone }{\f0 \fs24 
  37. \b \i \ulnone SOLUTION TO GENERAL QUADRATIC
  38.  EQUATION}{}}
  39. }
  40. .TXT 4 -1 0 0
  41. C a192,194,31
  42. {\rtf1\ansi \deff0
  43. {\fonttbl
  44. {\f0\fnil Helv;}
  45. {\f1\fnil Symbol;}
  46. }
  47. {\plain {}{Coefficients as follows:}{}}
  48. }
  49. .EQN 0 32 0 0
  50. a:1
  51. .EQN 0 13 0 0
  52. b:-3
  53. .EQN 0 13 0 0
  54. c:2
  55. .EQN 4 -32 0 0
  56. discrim:(b)^(2)-4*a*c
  57. .TXT 2 -26 0 0
  58. C a168,170,28
  59. {\rtf1\ansi \deff0
  60. {\fonttbl
  61. {\f0\fnil Helv;}
  62. {\f1\fnil Symbol;}
  63. }
  64. {\plain {}{Compute discriminant:}{}}
  65. }
  66. .EQN 0 53 0 0
  67. discrim=?_n_u_l_l_
  68. .TXT 4 -49 0 0
  69. C a520,522,176
  70. {\rtf1\ansi \deff0
  71. {\fonttbl
  72. {\f0\fnil Helv;}
  73. {\f1\fnil Symbol;}
  74. }
  75. {\plain {}{-> If discriminant is positive,
  76.  both roots real.                 -> If 
  77. discriminant is negative, roots are complex
  78.  conjugates.\par -> If discriminant is zero,
  79.  double root.}{}}
  80. }
  81. .TXT 8 -4 0 0
  82. C a112,114,21
  83. {\rtf1\ansi \deff0
  84. {\fonttbl
  85. {\f0\fnil Helv;}
  86. {\f1\fnil Symbol;}
  87. }
  88. {\plain {}{Compute roots:}{}}
  89. }
  90. .TXT 0 44 0 0
  91. C a200,202,80
  92. {\rtf1\ansi \deff0
  93. {\fonttbl
  94. {\f0\fnil Helv;}
  95. {\f1\fnil Symbol;}
  96. }
  97. {\plain {}{\f0 \fs20 \b0 \i0 \ul }{}{\f0 
  98. \fs20 \b0 \i0 \ul Check ... should be zero
  99.  }{}}
  100. }
  101. .EQN 5 -42 0 0
  102. x1:(-b+\(discrim))/(2*a)
  103. .EQN 0 23 0 0
  104. x1=?_n_u_l_l_
  105. .EQN 0 19 0 0
  106. a*(x1)^(2)+b*x1+c=?_n_u_l_l_
  107. .EQN 10 -42 0 0
  108. x2:(-b-\(discrim))/(2*a)
  109. .EQN 0 23 0 0
  110. x2=?_n_u_l_l_
  111. .EQN 0 19 0 0
  112. a*(x2)^(2)+b*x2+c=?_n_u_l_l_
  113.