TI Basic Optimization - In the field of TI calculator programming, optimization refers to improving code to use less memory, or to run faster.
Related Articles:- Figure Algebra Solutions
AreaVol Math Master
Geometric shapes
| Line | Command or Statement | Comments |
| 1. | ClrHome | |
| 2. | Output(3,3,"MATH PROGRAM" | |
| 3. | Output(5,2,"BY: LARS WEBB" | |
| 4. | Pause | |
| 5. | ClrHome | |
| 6. | Lbl Z | |
| 7. | ClrHome | |
| 8. | Menu("MATH PROG","3-D",1,"2-D",2,"QUIT",4 | |
| 9. | Lbl 4 | |
| 10. | Output(4,3,"ENJOY CLASS" | |
| 11. | Pause | |
| 12. | ClrHome | |
| 13. | Stop | |
| 14. | End | |
| 15. | Lbl 1 | |
| 16. | Menu("3-D","CUBE",1A,"BOX",1B,"PYRAMID",1C,"CYLINDER",1D, "SPHERE",1E,"CONE",1F,"MORE",5 | |
| 17. | Lbl 5 | |
| 18. | Menu("MORE 3-D","SPHERICAL SECTOR",1G,"1 BASE SEGMENT OF SPHERE",1H,"2 BASE SEGMENT OF SPHERE",1I,"TOPLESS CONE",1J,"PRISM",1K,"FRUSTUM(PYRAMID)",1L,"BACK",6 | |
| 19. | Lbl 6 | |
| 20. | Goto 1 | |
| 21. | Lbl 1A | CUBE |
| 22. | Menu("CUBE","SURFACE AREA",A,"VOLUME",B | |
| 23. | Lbl B | |
| 24. | Input "SIDE LENGTH=",S | |
| 25. | S^3->Z | |
| 26. | Disp "VOLUME IS",Z | |
| 27. | Pause | |
| 28. | Goto Z | |
| 29. | Lbl A | |
| 30. | Input "SIDE=",S | |
| 31. | 6S^2->Z | |
| 32. | Disp "SURFACE AREA IS",Z | |
| 33. | Pause | |
| 34. | Goto Z | |
| 35. | Lbl 1B | BOX |
| 36. | Menu("BOX","SURFACE AREA",C,"VOLUME",D | |
| 37. | Lbl D | |
| 38. | Prompt A,B,C | |
| 39. | ABC->Z | |
| 40. | Disp "VOLUME IS",Z | |
| 41. | Pause | |
| 42. | Goto Z | |
| 43. | Lbl C | |
| 44. | Prompt A,B,C | |
| 45. | 2(AB+BC+AC)->Z | |
| 46. | Disp "SURFACE AREA IS",Z | |
| 47. | Pause | |
| 48. | Goto Z | |
| 49. | Lbl 1C | PYRAMID |
| 50. | Menu("PYRAMID","AREA (SQUARE)",E,"AREA (TRIANGLEL",W,"VOLUME",F | |
| 51. | Lbl F | |
| 52. | Input "AREA OF BASE=",B | |
| 53. | Input "ALTITUDE=",A | |
| 54. | AB/3->Z | |
| 55. | Disp "VOLUME IS",Z | |
| 56. | Pause | |
| 57. | Goto Z | |
| 58. | Lbl E | |
| 59. | Input "LATERAL HEIGHT",A | |
| 60. | Input "SIDE OF BASE=",C | |
| 61. | C^2->V | |
| 62. | 4CA/2->R | |
| 63. | V+R->Z | |
| 64. | Disp "SURFACE AREA IS",Z | |
| 65. | Pause | |
| 66. | Goto Z | |
| 67. | Lbl W | |
| 68. | Input "LATERAL HEIGHT",A | |
| 69. | Input "SIDE OF BASE=",C | |
| 70. | sqrt(3)C)/4->L | |
| 71. | (C3A)/2->M | |
| 72. | L+M->Z | |
| 73. | Disp "SURFACE AREA",Z | |
| 74. | Pause | |
| 75. | Goto Z | |
| 76. | Lbl 1D | CYLINDER |
| 77. | Menu("CYLINDER","SURFACE AREA",G,"VOLUME",H | |
| 78. | Lbl H | |
| 79. | Input "RADIUS=",R | |
| 80. | Input "HEIGTH=",H | |
| 81. | piR^2H->Z | |
| 82. | Disp "VOLUME IS",Z | |
| 83. | Pause | |
| 84. | Goto Z | |
| 85. | Lbl G | |
| 86. | Input "RADIUS=",R | |
| 87. | Input "HEIGHT=",H | |
| 88. | 2piR(R+H)->Z | |
| 89. | Disp "SURFACE AREA IS",Z | |
| 90. | Pause | |
| 91. | Goto Z | |
| 92. | Lbl 1E | SPHERE |
| 93. | Menu("SPHERE","SURFACE AREA",I,"VOLUME",J | |
| 94. | Lbl J | |
| 95. | Input "RADIUS=",R | |
| 96. | (4/3)*(piR^3))->Z | |
| 97. | Disp "VOLUME IS",Z | |
| 98. | Pause | |
| 99. | Goto Z | |
| 100. | Lbl I | |
| 101. | Input "RADIUS=",R | |
| 102. | 4piR^2->Z | |
| 103. | Disp "SURFACE AREA IS",Z | |
| 104. | Pause | |
| 105. | Goto Z | |
| 106. | Lbl 1F | CONE |
| 107. | Menu("CONE","SURFACE AREA",K,"VOLUME",L | |
| 108. | Lbl L | |
| 109. | Input "AREA OF BASE=",A | |
| 110. | Input "HEIGHT=",H | |
| 111. | AH/3->Z | |
| 112. | Disp "VOLUME IS",Z | |
| 113. | Pause | |
| 114. | Goto Z | |
| 115. | Lbl K | |
| 116. | Input "RADIUS=",R | |
| 117. | Input "HEIGHT=",H | |
| 118. | piR^2+piRH->Z | |
| 119. | Disp "SURFACE AREA IS",Z | |
| 120. | Pause | |
| 121. | Goto Z | |
| 122. | Lbl 1G | |
| 123. | Input "RADIUS=",R | |
| 124. | Input "HEIGHT=",H | |
| 125. | (piR^2H)*(2/3)->Z | |
| 126. | Disp "VOLUME IS",Z | |
| 127. | Pause | |
| 128. | Goto Z | |
| 129. | Lbl 1H | |
| 130. | Menu("1 BASE SEGMENT OF A SPHERE","SURFACE AREA",M,"VOLUME IS",N | SPHERE 1 BASE SEGMENT |
| 131. | Lbl N | |
| 132. | Input "RADIUS=",R | |
| 133. | Input "HEIGHT=",H | |
| 134. | (πH²(3R-H))/3->Z | |
| 135. | Disp "VOLUME IS",Z | |
| 136. | Pause | |
| 137. | Goto Z | |
| 138. | Lbl M | |
| 139. | Input "RADIUS=",R | |
| 140. | Input "HEIGHT=",H | |
| 141. | 2πRH->Z | |
| 142. | Disp "SURFACE AREA IS",Z | |
| 143. | Pause | |
| 144. | Goto Z | |
| 145. | Lbl 1I | |
| 146. | Menu("2 SEGMENTBASE OF A SPHERE","SURFACE AREA",O,"VOLUME",P | SPHERE 2 BASE SEGMENT |
| 147. | Lbl P | |
| 148. | Prompt A,B,H | |
| 149. | (πH(3A²+3B²+H²))/6->Z | |
| 150. | Disp "VOLUME IS",Z | |
| 151. | Pause | |
| 152. | Goto Z | |
| 153. | Lbl O | |
| 154. | Input "RADIUS=",R | |
| 155. | Input "HEIGHT=",H | |
| 156. | 2πRH->Z | |
| 157. | Disp "SURFACE AREA IS",Z | |
| 158. | Pause | |
| 159. | Goto Z | |
| 160. | Lbl 1J | |
| 161. | Menu("TOPLESS CONE","SURFACE AREA",Q,"VOLUME",R | TOPLESS CONE |
| 162. | Lbl R | |
| 163. | Input "RADIUS ONE=",R | |
| 164. | Input "RADIUS TWO=",A | |
| 165. | Input "HEIGHT=",H | |
| 166. | (H/3)((πR²)²+(πA²)²+sqrt((πR²)(πA²)->Z | |
| 167. | Disp "VOLUME IS",Z | |
| 168. | Pause | |
| 169. | Goto Z | |
| 170. | Lbl Q | |
| 171. | Input "RADIUS 1=",R | |
| 172. | Input "RADIUS 2=",A | |
| 173. | Input "HEIGHT=",H | |
| 174. | π(R²+A²+(R+A)sqrt(R-A)²+H))->Z | |
| 175. | Disp "SURFACE AREA IS",Z | |
| 176. | Pause | |
| 177. | Goto Z | |
| 178. | Lbl 1K | |
| 179. | Menu("PRISM","SURFACE AREA",U,"VOLUME",T | PRISM |
| 180. | Lbl T | |
| 181. | Input "AREA OF BASE=",B | |
| 182. | Input "ALTITUDE=",A | |
| 183. | AB->Z | |
| 184. | Disp "VOLUME IS",Z | |
| 185. | Pause | |
| 186. | Goto Z | |
| 187. | Lbl U | |
| 188. | Input "AREA OF BASE=",A | |
| 189. | Input "NUMBER OF SIDES=",N | |
| 190. | Input "AREA OF SIDE=",S | |
| 191. | 2A+SN->Z | |
| 192. | Disp "SURFACE AREA IS",Z | |
| 193. | Pause | |
| 194. | Goto Z | |
| 195. | Lbl 1L | |
| 196. | Menu("FRUSTUM(PYRIMAD)","SURFACE AREA",8A,"VOLUME",8B | TOPLESS PYRAMID |
| 197. | Lbl 8A | |
| 198. | Input "BASE 1 LENGTH",A | |
| 199. | Input "BASE 1 WIDTH",B | |
| 200. | Input "BASE 2 LENGTH",C | |
| 201. | Input "BASE 2 WIDTH",D | |
| 202. | Input "HEIGHT",H | |
| 203. | AB+CD->V | |
| 204. | (A+C)H/2->U | |
| 205. | (B+D)H/H->T | |
| 206. | 2U+2T+V->Z | |
| 207. | Disp "SURFACE AREA IS",Z | |
| 208. | Pause | |
| 209. | Goto Z | |
| 210. | Lbl 8B | |
| 211. | Input "AREA OF BASE 1=",A | |
| 212. | Input "AREA OF BASE 2=",B | |
| 213. | Input "HEIGHT=",H | |
| 214. | (H/3)(A+B+\sqrt(AB)->Z | |
| 215. | Disp "VOLUME IS",Z | |
| 216. | Pause | |
| 217. | Goto Z | |
| 218. | Lbl 2 | |
| 219. | Menu("2-D","RIGHT TRI",2A,"EQUAL TRI",2B,"TRIANGLE",2C, "DIAGNOL PERP",2D,"RECTANGLE",2E,"RHOMBUS",2F,"MORE",7 | |
| 220. | Lbl 7 | |
| 221. | Menu("MORE 2-D","TRAPEZIOD",2G,"QUAD",2H, "POLYGON",2I,"CIRCLE",2J,"BACK",8 | |
| 222. | Lbl 8 | |
| 223. | Goto 2 | |
| 224. | Lbl 2A | |
| 225. | Prompt A,B | |
| 226. | (AB)->Z | |
| 227. | Disp "AREA IS",Z | |
| 228. | Pause | |
| 229. | Goto Z | |
| 230. | Lbl 2B | |
| 231. | Input "SIDE",S | |
| 232. | sqrt(3S)/4->Z | |
| 233. | Disp "AREA IS",Z | |
| 234. | Pause | |
| 235. | Goto Z | |
| 236. | Lbl 2C | |
| 237. | Prompt A,B,C | |
| 238. | (A+B+C)/2->S | |
| 239. | sqrt(S(S-A)(S-B)(S-C))->Z | |
| 240. | Disp "AREA IS",Z | |
| 241. | Pause | |
| 242. | Goto Z | |
| 243. | Lbl 2D | |
| 244. | Input "DIAGNOL 1=",D | |
| 245. | Input "DIAGNOL 2=",A | |
| 246. | (DA)/2->Z | |
| 247. | Disp "AREA IS",Z | |
| 248. | Pause | |
| 249. | Goto Z | |
| 250. | Lbl 2E | |
| 251. | Prompt B,H | |
| 252. | BH->Z | |
| 253. | Disp "AREA IS",Z | |
| 254. | Pause | |
| 255. | Goto Z | |
| 256. | Lbl 2F | |
| 257. | Input "DIAGONAL ONE=",D | |
| 258. | Input "DIAGONAL TWO=",A | |
| 259. | (AD)/2->Z | |
| 260. | Disp "AREA IS",Z | |
| 261. | Pause | |
| 262. | Goto Z | |
| 263. | Lbl 2G | |
| 264. | Prompt A,B,H | |
| 265. | ((A+B)H)/2->Z | |
| 266. | Disp "AREA IS",Z | |
| 267. | Pause | |
| 268. | Goto Z | |
| 269. | Lbl 2H | |
| 270. | Prompt A,B,C,D | |
| 271. | Input "DIAGNOL ONE=",E | |
| 272. | Input "DIAGNOL TWO=",F | |
| 273. | (√(4E²F²-(B²+D²-A²-C²)²))/4->Z | |
| 274. | Disp "AREA IS",Z | |
| 275. | Pause | |
| 276. | Goto Z | |
| 277. | Lbl 2I | |
| 278. | Input "RADIUS=",R | |
| 279. | Input "NUMBER OF SIDES=",N | |
| 280. | ((NR^2)(sin(360/N))/2->Z | |
| 281. | Disp "AREA IS",Z | |
| 282. | Pause | |
| 283. | Goto Z | |
| 284. | Lbl 2J | |
| 285. | Input "RADIUS=",R | |
| 286. | piR^2->Z | |
| 287. | Disp "AREA IS",Z | |
| 288. | Pause | |
| 289. | Goto Z |