API tools faq
paste
Advertisement
Aes_Sedia5

MATHPACK(algebra)

Aes_Sedia5
Dec 1st, 2011
65
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.15 KB | None | 0 0
raw download clone embed print report diff
  1.  
  2. :Program ZZALGEBR
  3. :While 1
  4. :¦ DelVar KDelVar J
  5. :¦ "MADE BY AES SEDIA5"→Str1
  6. :¦ "CEMETECH.NET"→Str2
  7. :¦ ClrHome
  8. :¦ ClrDraw
  9. :¦ a+bi
  10. :¦ 0
  11. :¦ Text(1,1,"ALL THINGS FOR ALGEBRA
  12. :¦ Text(7,1,"1.EXPONENTIAL GROWTH
  13. :¦ Text(13,1,"2.DISTANCE BETWEEN TWO POINTS
  14. :¦ Text(19,1,"3.DOUBLING TIME OF AN OBJECT
  15. :¦ Text(25,1,"4.HALF LIFE OF AN OBJECT
  16. :¦ Text(37,1,"6.MORE PROGRAMS
  17. :¦ Text(43,1,"7.EXIT
  18. :¦ Text(49,1,Str1
  19. :¦ Text(55,1,Str2
  20. :¦ Repeat K
  21. :¦ ¦ getKey→K
  22. :¦ End
  23. :¦ If K=72
  24. :¦ Then
  25. :¦ ¦ ClrDraw
  26. :¦ ¦ Text(1,1,"THANK YOU FOR USING
  27. :¦ ¦ Text(13,1,"ALGEBRA
  28. :¦ ¦ Text(25,1,"FROM THE FIVE PACK
  29. :¦ ¦ Text(37,1,"OF MATH
  30. :¦ ¦ Text(49,1,Str1
  31. :¦ ¦ Text(55,1,Str2
  32. :¦ ¦ rand(100)
  33. :¦ ¦ DelVar K
  34. :¦ ¦ ClrDraw
  35. :¦ ¦ Disp
  36. :¦ ¦ Return
  37. :¦ End
  38. :¦ If K=92
  39. :¦ Then
  40. :¦ ¦ ClrDraw
  41. :¦ ¦ Text(1,1,"EXPONENTIAL GROWTH
  42. :¦ ¦ Text(13,1,"1.FIND FOR CONTINUOUS Use e^
  43. :¦ ¦ Text(25,1,"2.FIND NON-CONTINUOUS DO NOT USE e^
  44. :¦ ¦ Text(37,1,"3.BACK
  45. :¦ ¦ Text(49,1,Str1
  46. :¦ ¦ Text(55,1,Str2
  47. :¦ ¦ Repeat Ans
  48. :¦ ¦ ¦ getKey
  49. :¦ ¦ End
  50. :¦ ¦ If Ans=92
  51. :¦ ¦ Then
  52. :¦ ¦ ¦ Input "INITIAL AMOUNT",N
  53. :¦ ¦ ¦ Input "RATE OF GROWTH",R
  54. :¦ ¦ ¦ Input "TIME",T
  55. :¦ ¦ ¦ Input "FINAL AMOUNT",θ
  56. :¦ ¦ ¦ If not(θ
  57. :¦ ¦ ¦ Ne^(RT)→θ
  58. :¦ ¦ ¦ If not(R
  59. :¦ ¦ ¦ ln(θ/N)/T→R
  60. :¦ ¦ ¦ If not(N
  61. :¦ ¦ ¦ θe^(RT)→N
  62. :¦ ¦ ¦ If not(T
  63. :¦ ¦ ¦ ln(θ/N)/R→T
  64. :¦ ¦ ¦ Disp "INITIAL"
  65. :¦ ¦ ¦ Pause N
  66. :¦ ¦ ¦ Disp "FINAL AMOUNT"
  67. :¦ ¦ ¦ Pause ,θ
  68. :¦ ¦ ¦ Disp "RATE"
  69. :¦ ¦ ¦ Pause R
  70. :¦ ¦ ¦ Disp "TIME"
  71. :¦ ¦ ¦ Pause T
  72. :¦ ¦ End
  73. :¦ ¦ If Ans=93
  74. :¦ ¦ Then
  75. :¦ ¦ ¦ Input "INITIAL AMOUNT",N
  76. :¦ ¦ ¦ Input "INTEREST RATE",R
  77. :¦ ¦ ¦ Input "TIME",T
  78. :¦ ¦ ¦ Input "FINAL AMOUNT",θ
  79. :¦ ¦ ¦ If not(θ
  80. :¦ ¦ ¦ N(R+1)^T→θ
  81. :¦ ¦ ¦ If not(N
  82. :¦ ¦ ¦ θ/(R+1)^T→N
  83. :¦ ¦ ¦ If not(T
  84. :¦ ¦ ¦ ln(θ/N)/ln(R+1)→T
  85. :¦ ¦ ¦ If not(R
  86. :¦ ¦ ¦ T<xth root>(θ/N)-1->R
  87. :¦ ¦ ¦ Disp "FINAL AMOUNT",θ
  88. :¦ ¦ ¦ Disp "STARTING AMOUNT"
  89. :¦ ¦ ¦ Pause N
  90. :¦ ¦ ¦ Disp "RATE",R
  91. :¦ ¦ ¦ Disp "TIME"
  92. :¦ ¦ ¦ Pause T
  93. :¦ ¦ End
  94. :¦ End
  95. :¦ If K=93
  96. :¦ Then
  97. :¦ ¦ Text(1,1,"DISTANCE BETWEEN TWO POINTS
  98. :¦ ¦ Input "X1",A
  99. :¦ ¦ Input "X2",B
  100. :¦ ¦ Input "Y1",C
  101. :¦ ¦ Input "Y2",D
  102. :¦ ¦ √(((A-B)2)+((C-D)2))→θ
  103. :¦ ¦ Disp "DISTANCE BETWEEN"
  104. :¦ ¦ Pause θ
  105. :¦ End
  106. :¦ If K=94
  107. :¦ Then
  108. :¦ ¦ ClrDraw
  109. :¦ ¦ Text(1,1,"FIND THE DOUBLING TIME
  110. :¦ ¦ Text(19,1,"PUT ZERO IN FOR UNKNOWN
  111. :¦ ¦ rand(100
  112. :¦ ¦ Input "TIME",T
  113. :¦ ¦ Input "CONSTANT",R
  114. :¦ ¦ Repeat TR
  115. :¦ ¦ ¦ If not(T
  116. :¦ ¦ ¦ Then
  117. :¦ ¦ ¦ ¦ ln(2)/R→T
  118. :¦ ¦ ¦ ¦ Disp "TIME":Pause T
  119. :¦ ¦ ¦ End
  120. :¦ ¦ ¦ If not(R
  121. :¦ ¦ ¦ Then
  122. :¦ ¦ ¦ ¦ ln(2)-T→R
  123. :¦ ¦ ¦ ¦ Disp "CONSTANT":Pause R
  124. :¦ ¦ ¦ End
  125. :¦ ¦ End
  126. :¦ End
  127. :¦ If K=82
  128. :¦ Then
  129. :¦ ¦ ClrDraw
  130. :¦ ¦ Text(1,1,"FIND THE HALF LIFE OF AN OBJECT
  131. :¦ ¦ Text(25,1,"INPUT ZERO FOR UNKNOWN
  132. :¦ ¦ rand(100
  133. :¦ ¦ Input "INITIAL AMOUNT",A
  134. :¦ ¦ Input "AMOUNT TO FIND",B
  135. :¦ ¦ Input "TIME",T
  136. :¦ ¦ Input "RATE",R
  137. :¦ ¦ Repeat ABTR
  138. :¦ ¦ ¦ If X=10
  139. :¦ ¦ ¦ Then
  140. :¦ ¦ ¦ ¦ Disp "ONLY ONE","UKNOWN ALLOWED"
  141. :¦ ¦ ¦ ¦ rand(100)
  142. :¦ ¦ ¦ ¦ 82→K
  143. :¦ ¦ ¦ End
  144. :¦ ¦ ¦ If ABTnot(R
  145. :¦ ¦ ¦ ln(B/A)/T→R
  146. :¦ ¦ ¦ If ARTnot(B
  147. :¦ ¦ ¦ Ae^(RT→B
  148. :¦ ¦ ¦ If BRTnot(A)
  149. :¦ ¦ ¦ e^(RT)-B→A
  150. :¦ ¦ ¦ If ABRnot(T)
  151. :¦ ¦ ¦ ln(B/A)/R→T
  152. :¦ ¦ ¦ X+1→X
  153. :¦ ¦ End
  154. :¦ ¦ Disp "TIME"
  155. :¦ ¦ Pause T
  156. :¦ ¦ Disp "RATE"
  157. :¦ ¦ Pause R
  158. :¦ ¦ Disp "INITIAL AMOUNT"
  159. :¦ ¦ Pause A
  160. :¦ ¦ Disp "AMOUNT TO FIND"
  161. :¦ ¦ Pause B
  162. :¦ End
  163. :¦ If K=84
  164. :¦ Then
  165. :¦ ¦ ClrDraw
  166. :¦ ¦ Text(1,1,"MORE PROGRAMS
  167. :¦ ¦ Text(7,1,"1.MID POINT OF A LINE
  168. :¦ ¦ Text(13,1,"2.QUADRATIC FORMULA
  169. :¦ ¦ Text(19,1,"3.SYNTHETIC DIVISION
  170. :¦ ¦ Text(25,1,"4.BACK
  171. :¦ ¦ Text(31,1,"5.EXIT
  172. :¦ ¦ Text(49,1,Str1
  173. :¦ ¦ Text(55,1,Str2
  174. :¦ ¦ Repeat J
  175. :¦ ¦ ¦ getKey→J
  176. :¦ ¦ End
  177. :¦ End
  178. :¦ If J=83
  179. :¦ Then
  180. :¦ ¦ 72→K
  181. :¦ ¦ DelVar J
  182. :¦ End
  183. :¦ If J=92
  184. :¦ Then
  185. :¦ ¦ Text(1,1,"MIDPOINT OF A LINE
  186. :¦ ¦ Input "X1",A
  187. :¦ ¦ Input "X2",B
  188. :¦ ¦ Input "Y1",C
  189. :¦ ¦ Input "Y2",D
  190. :¦ ¦ (A+B)/2→V
  191. :¦ ¦ (C+D)/2→Z
  192. :¦ ¦ Disp "MIDPOINT",V
  193. :¦ ¦ Pause Z
  194. :¦ End
  195. :¦ If J=93
  196. :¦ Then
  197. :¦ ¦ Disp "QUADRATIC FORMULA
  198. :¦ ¦ Input "AX2",C
  199. :¦ ¦ Input "BX",D
  200. :¦ ¦ Input "C",E
  201. :¦ ¦ Lbl 11
  202. :¦ ¦ (‾D+√(D2-4CE))/(2C)→X
  203. :¦ ¦ (‾D-√(D2-4CE))/(2D)→Y
  204. :¦ ¦ Disp X
  205. :¦ ¦ Pause Y
  206. :¦ End
  207. :¦ If J=94
  208. :¦ Then
  209. :¦ ¦ Disp "SYNTHETIC DIVISION
  210. :¦ ¦ Input "AX^6",A
  211. :¦ ¦ Input "BX^5",B
  212. :¦ ¦ Input "CX^4",C
  213. :¦ ¦ Input "DX^3",D
  214. :¦ ¦ Input "EX^2",E
  215. :¦ ¦ Input "FX",F
  216. :¦ ¦ Input "G",G
  217. :¦ ¦ Disp "OPPOSITE OF H
  218. :¦ ¦ Input "X+H",H
  219. :¦ ¦ AH→T
  220. :¦ ¦ T+B→Z
  221. :¦ ¦ HS→R
  222. :¦ ¦ R+C→B
  223. :¦ ¦ QH→P
  224. :¦ ¦ D+P→C
  225. :¦ ¦ OH→N
  226. :¦ ¦ E+N→D
  227. :¦ ¦ MH→Q
  228. :¦ ¦ F+Q→E
  229. :¦ ¦ JH→X
  230. :¦ ¦ G+X→F
  231. :¦ ¦ Disp Z,A,B,C,D,E,F
  232. :¦ ¦ Pause
  233. :¦ ¦ Z→A
  234. :¦ ¦ If not(F
  235. :¦ ¦ Then
  236. :¦ ¦ ¦ 94→J
  237. :¦ ¦ ¦ 0→K
  238. :¦ ¦ End
  239. :¦ ¦ If not(F)not(E
  240. :¦ ¦ Then
  241. :¦ ¦ ¦ Goto 11
  242. :¦ ¦ ¦ Delvar K
  243. :¦ ¦ End
  244. :¦ End
  245. :End
  246.  
  247.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!