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