Information: Math from pre-algebra through calculus. Includes: complete the square, direct/indirect variation, number of solutions, midpoint, prime numbers, Pythagorean theorem, quadratic formula, slope, distance, vertex, area, volume, surface area, y intercept, Fibonacci sequence, circumference, average, simplified square roots, proportions, system of equations, distance of point to line, types of quadrilateral
Author: Josh Lien (calcpro95@yahoo.com)


      Menu 1
1 COMPLETING THE SQUARE
2 DIRCT/INDRCT VARITION
3 NUM OF SOLTION+DSCRMNT
4 INFINITE SEQUENCE SUM
5 FRACTION EQUATION Q
6 MIDPOINT FORMULA U
7 SEQUENCES Clear-I
8 PRIME NUMBER TESTER T
9 PYTHAGOREAN THEAROM
10 QUADRATIC FORMULA
      Menu 2
 11 SLOPE
 12 DISTANCE OF TWO POINTS
 13 VERTEX
 14 AREA
 15 VOLUME
 16 SURFACE AREA
 17 Y INTERCEPT
 18 BINOMIAL EXPANER
 19 CIRCUMFERENCE
 20 MEAN/MEDIAN
      Menu 3
 21 SIMPLYFING sqrt(X)
 22 MODULUS
 23 CRAMER'S RULE FOR A 3X4
 24 PROPORTIONS
 25 SYSTEM OF EQUATIONS
 
 27 DISTANCE OF PT. TO LINE
 28 SCIENTIFIC NOTATION
 29 CRAMER'S RULE FOR A 2X3
 30 EQUATION SOLVER
      Menu 4
 31 FACTORING
 32 LAW OF SINES/COSINES
 
 34 GEOMETRIC MEAN
 35 CIRCLE EQUATION MAKER
 36 PT IN RELTION 2 CIRCLE
 37 LATERAL AREA
 38 APOTHEM FINDER
 39 PT-SLPE->Y INTRCPT
 40 FRUSTUMS
      Menu 5
 41 GRAPH W/O Y= FORMAT
 42 VCTR MGNTDE + DRCTION
 
 44 3D DISTACE
 45 TEST FOR COLINEAR PTS
 46 3D MIDPOINT
 47 SPHERE EQUATION MAKER
 48 TWO POINTS -> EQUATION
 49 DIST OF PARRALEL LINES
 50 3 VAR SYSTM OF EQUTONS
      Menu 6
 51 STNRD FRM->Y-INTRCPT
 52 3PT->EQUATN 4 PARABOL
 53 GRPHING INQUALITIES
 54 ALL ABOUT CONICS
 55 LOGARITHMS - BASE OF X
 56 SUM OF A SERIES
 
 REFERENCE
 EXAMPLES
 SCREENSHOTS


 
SquareRectangleCircleTriangleParallelogramTrapezoid     Figure
 A = S² A = LW A = πR² A = 1/2(bh) A = bh  A = ((b+d)h)/2   Area
 P = 4S P = 2(l+w) C = 2πR P = B+C+D P = 2(a+b)     Perimeter
 
PrismCylinderSphereConePyramidTorus Figure
V = L*W*H V = A*B*H/3 V = 4/3*π*R³ V = π*R²*H V = S²*H/3V = 2*π²*R*r² Volume
S = 2(LH+HW+WL) S = 2πR(R+H)  S = 4πR² S = 2πR(R+H)  S = W√[h²+(L/2)²]+ L√[h²+(W/2²]+WLS = 4*π²*R*r Surface Area

Ultimate Math Suite :"Vrsn 7.10 (20,536 bytes - 2195 lines of code)
1. Ans->Str1
2. If C/Y<1 or C/Y>60
3. 100->C/Y
4. Float
5. Normal
6. a+bi
7. Degree
8. FnOff
9. PlotsOff
10. AxesOff
11. ZStandard
12. 1->dim(ιALM
13. 8.4->ιALM(1
14. If FV=5
15. Goto 1B
16. For(A,1,31,2
17. Text(0,A," (C)2008
18. End
19. For(A,94,24,¯2
20. Text(¯1,10,A,"ALL MATH
21. End
22. Text(22,27,Str1
23. Text(32,23,"JOSH LIEN
24. Text(42,27,"2nd Fr Hlp
25. Text(48,30,"Or Optins
26. Text(57,26,"Prss Any Ky
27. For(Z,¯10,¯5.5,.212
28. If getKey≠0 and Z≠¯10
29. Goto 1B
30. Vertical Z
31. Vertical ¯Z
32. End
33. For(Z,10,¯10,¯.32
34. If getKey≠0
35. Goto 1B
36. Line(10,10,¯10,Z,0
37. End
38. For(Z,10,¯10,¯.32
39. If getKey≠0
40. Goto 1B
41. Line(¯10,10,10,Z,0
42. End
43. For(Z,0,¯10,¯.32
44. If getKey≠0
45. Goto 1B
46. Line(¯10,Z,10,Z,0
47. End
48. Lbl 1B
49. ClrDraw
50. For(B,10,¯10,¯.64
51. Line(9,B,9.8,B-1.3
52. End
53. For(A,8.7,10,.32
54. Line(10,A,8.7,A,0
55. Line(10,¯A,8.7,¯A,0
56. End
57. Line(10,¯10,9,¯10
58. Line(8.7,¯10,8.7,10
59. Line(8.7,10,10,10
60. Line(10,10,10,¯10
61. Line(8.7,8.4,10,8.4
62. Line(8.7,¯8.4,10,¯8.4
63. Pxl-On(2,91
64. Pxl-On(3,90
65. Pxl-On(3,92
66. Pxl-On(60,91
67. Pxl-On(59,90
68. Pxl-On(59,92
69. StorePic 1
70. 8.4->P
71. Line(9,P,10,P
72. Line(9,P¯1.3,10,P¯1.3
73. For(A,P-.3,P-1,¯.32
74. Line(9,A,9.7,A,0
75. End
76. Lbl 3J
77. 1->θ            Menu 1
78. Text(0,0,"1 COMPLETING THE SQUARE
79. Text(6,0,"2 DIRCT/INDRCT VARITION
80. Text(12,0,"3 NUM OF SOLTION+DSCRMNT
81. Text(18,0,"4 INFINITE SEQUENCE SUM
82. Text(24,0,"5 FRACTION EQUATION         Q
83. Text(30,0,"6 MIDPOINT FORMULA U
84. Text(36,0,"7 SEQUENCES         Clear-I
85. Text(42,0,"8 PRIME NUMBER TESTER         T
86. Text(48,0,"9 PYTHAGOREAN THEAROM
87. Text(54,0,"10 QUADRATIC FORMULA
88. Goto PQ
89. Lbl A2
90. 2->θ            Menu 2
91. Text(0,0,"11 SLOPE
92. Text(6,0,"12 DISTANCE OF TWO POINTS
93. Text(12,0,"13 VERTEX
94. Text(18,0,"14 AREA
95. Text(24,0,"15 VOLUME
96. Text(30,0,"16 SURFACE AREA
97. Text(36,0,"17 Y INTERCEPT
98. Text(42,0,"18 BINOMIAL EXPANER
99. Text(48,0,"19 CIRCUMFERENCE
100. Text(54,0,"20 MEAN/MEDIAN
101. Goto PQ
102. Lbl A3
103. 3->θ            Menu 3
104. Text(0,0,"21 SIMPLYFING sqrt(X)
105. Text(6,0,"22 MODULUS
106. Text(12,0,"23 CRAMER'S RULE FOR A 3X4
107. Text(18,0,"24 PROPORTIONS
108. Text(24,0,"25 SYSTEM OF EQUATIONS
109. Text(30,0,"26
110. Text(36,0,"27 DISTANCE OF PT. TO LINE
111. Text(42,0,"28 SCIENTIFIC NOTATION
112. Text(48,0,"29 CRAMER'S RULE FOR A 2X3
113. Text(54,0,"30 EQUATION SOLVER
114. Goto PQ
115. Lbl A4
116. 4->θ            Menu 4
117. Text(0,0,"31 FACTORING
118. Text(6,0,"32 LAW OF SINES/COSINES
119. Text(12,0,"33
120. Text(18,0,"34 GEOMETRIC MEAN
121. Text(24,0,"35 CIRCLE EQUATION MAKER
122. Text(30,0,"36 PT IN RELTION 2 CIRCLE
123. Text(36,0,"37 LATERAL AREA
124. Text(42,0,"38 APOTHEM FINDER
125. Text(48,0,"39 PT-SLPE->Y INTRCPT
126. Text(54,0,"40 FRUSTUMS
127. Goto PQ
128. Lbl A5
129. 5->θ            Menu 5
130. Text(0,0,"41 GRAPH W/O Y= FORMAT
131. Text(6,0,"42 VCTR MGNTDE + DRCTION
132. Text(12,0,"43 VECTOR ADDITION
133. Text(18,0,"44 3D DISTACE
134. Text(24,0,"45 TEST FOR COLINEAR PTS.
135. Text(30,0,"46 3D MIDPOINT
136. Text(36,0,"47 SPHERE EQUATION MAKER
137. Text(42,0,"48 TWO POINTS -> EQUATION
138. Text(48,0,"49 DIST OF PARRALEL LINES
139. Text(54,0,"50 3 VAR SYSTM OF EQUTONS
140. Goto PQ
141. Lbl A6
142. 6->θ            Menu 6
143. Text(0,0,"51 STNRD FRM->Y-INTRCPT
144. Text(6,0,"52 3PT->EQUATN 4 PARABOL
145. Text(12,0,"53 GRPHING INQUALITIES
146. Text(18,0,"54 ALL ABOUT CONICS
147. Text(24,0,"55 LOGARITHMS - BASE OF X
148. Text(30,0,"56 SUM OF A SERIES
149. Lbl PQ
150. 1->B
151. ¯1->A
152. Lbl 7Q
153. For(J,0,750
154. If J=750
155. Goto SV
156. If J>100 and B=0
157. Goto A1
158. getKey->K
159. If K=0
160. End
161. 0->J
162. If K=25 or K=34
163. Goto 2Q
164. If K=105 and C/Y≠100 and B=1
165. Goto KN
166. If K=105 and B=0
167. Then
168. C->K
169. Goto JU
170. End
171. If K=21
172. Goto OJ
173. If K=45
174. Goto Q5
175. If K=102 and B=0
176. 0->A
177. If K=92
178. 1->A
179. If K=93
180. 2->A
181. If K=94
182. 3->A
183. If K=82
184. 4->A
185. If K=83
186. 5->A
187. If K=84
188. 6->A
189. If K=72
190. 7->A
191. If K=73
192. 8->A
193. If K=74
194. 9->A
195. If A=¯1 and B=1
196. Goto PQ
197. If A=¯1 and B=0
198. Goto 7Q
199. If B=1
200. Then
201. A->C
202. ¯1->A
203. 0->B
204. Text(0,0,"
205. Text(0,0,C,"?
206. Goto 7Q
207. End
208. C10+A->K
209. If K>60 or K<1
210. Goto A1
211. Goto IM
212. Lbl OJ
213. ClrDraw
214. Text(0,0,"TO GO TO A SUBPROGRAM TYPE
215. Text(6,0,"IN THE NUMBER THEN PRESS
216. Text(12,0,"ENTER. USE UP AND DOWN
217. Text(18,0,"ARROWS TO GO TO DIFFERENT
218. Text(24,0,"MENUS. Car TO QUIT
219. Text(36,0,"QUESTION,SUGGESTION, BUG-
220. Text(42,0,"OPxl-On(45,19
221. Pxl-On(46,19
222. Pxl-Off(47,21
223. Pxl-On(45,59
224. Pxl-On(46,59
225. For(A,61,64
226. Pxl-Off(43,A
227. End
228. Text(49,12,"(C)2008 LIFESOFT
229. Text(57,0,"Md FOR OPTIONS"
230. 0->K
231. While K=0
232. getKey->K
233. If K=22
234. Goto KJ
235. End
236. Goto A1
237. Lbl KJ
238. ClrDraw
239. Text(¯1,0,0," -OPTIONS-
240. Text(15,0,"1 WELCOME SCREEN ON-
241. Text(22,0,"2 PUT AXES ON AFTER CLOSE-
242. Text(35,0,"Y = YES N = NO
243. Text(51,0,"PRESS NUMBER TO
244. Text(57,0,"CHANGE OR Cear TO EXIT
245. If FV=0
246. Text(15,90,"Y
247. If FV≠0
248. Text(15,90,"N
249. If P/Y=1
250. Text(22,90,"Y
251. If P/Y≠1
252. Text(22,90,"N
253. Repeat K=45
254. getKey->K
255. If K=92
256. Then
257. If FV≠0
258. Then
259. 0->FV
260. Goto KJ
261. End
262. If FV=0
263. Then
264. 5->FV
265. Goto KJ
266. End
267. End
268. If K=93
269. Then
270. If P/Y=1
271. Then
272. 5->P/Y
273. Goto KJ
274. End
275. If P/Y≠1
276. Then
277. 1->P/Y
278. Goto KJ
279. End
280. End
281. End
282. Goto A1
283. Lbl Q5
284. ClrDraw
285. If P/Y=1
286. AxesOn
287. ClrHome
288. DelVar Pic1
289. DelVar Str1
290. DelVar ιALM
291. Output(1,1,"
292. Stop
293. Lbl SV
294. 1->T
295. 1->A
296. 1->B
297. 1->C
298. 1->D
299. While 1
300. If A=8
301. ¯1->C
302. If A=1
303. 1->C
304. If B=9
305. ¯1->D
306. If B=1
307. 1->D
308. ClrHome
309. Output(A,B,"A MatH
310. A+C->A
311. B+D->B
312. If getKey≠0
313. Goto A1
314. End
315. Lbl 2Q
316. If K=25
317. Then
318. θ-1->θ
319. P+3.09->P
320. End
321. If θ=0
322. Then
323. 6->θ
324. ¯7->P
325. End
326. If K=34
327. Then
328. θ+1->θ
329. P-3.09->P
330. End
331. If θ=7
332. Then
333. 1->θ
334. 8.4->P
335. End
336. P->ιALM(1
337. Lbl A1
338. ιALM(1->P
339. ClrDraw
340. RecallPic 1
341. Line(8.7,P,10,P
342. For(A,P-.32,P-1,¯.32
343. Line(9,A,9.7,A,0
344. End
345. Line(8.7,P-1.3,10,P-1.3
346. If θ=1
347. Goto 3J
348. If θ=2
349. Goto A2
350. If θ=3
351. Goto A3
352. If θ=4
353. Goto A4
354. If θ=5
355. Goto A5
356. If =6
357. Goto A6
358. Lbl KN
359. C/Y->K
360. Lbl IM
361. Text(0,0,"
362. Text(0,0,K,"?
363. For(X,1,130
364. getKey->W
365. If W=105
366. Goto JU
367. If W/=0
368. Goto A1
369. End
370. Goto A1
371. Lbl JU
372. ClrHome
373. K->C/Y
374. If K=1            COMPLETING THE SQUARE
375. Goto P1
376. If K=2            DIRCT/INDRCT VARITION
377. Goto P2
378. If K=3            NUM OF SOLTION+DSCRMNT
389. Goto P3
390. If K=4            INFINITE SEQUENCE SUM
391. Goto P4
392. If K=5            FRACTION EQUATION
393. Goto P5
394. If K=6            MIDPOINT FORMULA
395. Goto P6
396. If K=7            SEQUENCES
397. Goto P7
398. If K=8            PRIME NUMBER TESTER
399. Goto P8
400. If K=9            PYTHAGOREAN THEAROM
401. Goto P9
402. If K=10            QUADRATIC FORMULA
403. Goto P0
404. If K=11            SLOPE
405. Goto R1
406. If K=12            DISTANCE OF TWO POINTS
407. Goto R2
408. If K=13            VERTEX
409. Goto R3
410. If K=14            AREA
411. Goto R4
412. If K=15            VOLUME
413. Goto R5
414. If K=16            SURFACE AREA
415. Goto R6
416. If K=17            Y INTERCEPT
417. Goto R7
418. If K=18            BINOMIAL EXPANER
419. Goto R8
420. If K=19            CIRCUMFERENCE
421. Goto O4
422. If K=20            MEAN/MEDIAN
423. Goto G2
424. If K=21            SIMPLYFING sqrt(X)
425. Goto G0
426. If K=22            MODULUS
427. Goto M1
428. If K=23            CRAMER'S RULE FOR A 3X4
429. Goto M2
430. If K=24            PROPORTIONS
431. Goto M7
432. If K=25            SYSTEM OF EQUATIONS
433. Goto I4
434. If K=26
435. Goto I5
436. If K=27            DISTANCE OF PT. TO LINE
437. Goto I6
438. If K=28            SCIENTIFIC NOTATION
439. Goto I8
440. If K=29            CRAMER'S RULE FOR A 2X3
441. Goto I9
442. If K=30            EQUATION SOLVER
443. Goto N0
444. If K=31            FACTORING
445. Goto N1
446. If K=32            LAW OF SINES/COSINES
447. Goto N5
448. If K=33
449. Goto N6
450. If K=34            GEOMETRIC MEAN
451. Goto N7
452. If K=35            CIRCLE EQUATION MAKER
453. Goto N8
454. If K=36            PT IN RELTION 2 CIRCLE
455. Goto N9
456. If K=37            LATERAL AREA
457. Goto G3
458. If K=38            APOTHEM FINDER
459. Goto G4
460. If K=39            PT-SLPE->Y INTRCPT
461. Goto G5
462. If K=40            FRUSTUMS
463. Goto G6
464. If K=41            GRAPH W/O Y= FORMAT
465. Goto G7
466. If K=42            VCTR MGNTDE + DRCTION
467. Goto G9
468. If K=43            VECTOR ADDITION
469. Goto F0
470. If K=44            3D DISTACE
471. Goto F1
472. If K=45            TEST FOR COLINEAR PTS.
473. Goto F2
474. If K=46            3D MIDPOINT
475. Goto F3
476. If K=47            SPHERE EQUATION MAKER
477. Goto F4
478. If K=48            TWO POINTS -> EQUATION
479. Goto F5
480. If K=49            DIST OF PARRALEL LINES
481. Goto F6
482. If K=50            3 VAR SYSTM OF EQUTONS
483. Goto F7
484. If K=51            STNRD FRM->Y-INTRCPT
485. Goto F8
486. If K=52            3PT->EQUATN 4 PARABOL
487. Goto F9
488. If K=53            GRPHING INQUALITIES
489. Goto J0
490. If K=54            ALL ABOUT CONICS
491. Goto J1
492. If K=55            LOGARITHMS - BASE OF X
493. Goto J2
494. If K=56            SUM OF A SERIES
495. Goto J3
496. If K=57            
497. Goto J4
498. Goto 8Q
499. Lbl P1            COMPLETING THE SQUARE
500. ClrHome
501. Disp "SOLVE WHATE?
502. Disp "AX²+BX=C
503. Prompt A,B,C
504. B/A->B
505. C/A->C
506. (B/2)²->D
507. B/2->E
508. ClrDraw
509. Text(¯1,0,0,"(X+",round(E,3),")²=",D+C
510. Text(¯1,15,0,"X=",¯E,"+/-√("
511. Text(¯1,24,0,D+C,")
512. Text(¯1,35,0,"OR
513. If D+C<0
514. Then
515. Text(¯1,45,0,"X=",¯E,"+",√(¯(D+C
516. Text(¯1,55,0,"X=",¯E,"-",√(¯(D+C
517. Else
518. Text(¯1,45,0,"X=",¯E+√(D+C
519. Text(¯1,55,0,"X=",¯E-√(D+C
520. End
521. Pause
522. Goto A1
523. Lbl P2            DIRCT/INDRCT VARITION
524.
Menu("VARIATION","INVERSE",A,"DIRECT",B
525. Lbl A            INVERSE
526. Prompt Y,X
527. ClrHome
528. Output(4,3,"Y=
529. Output(4,5,YX
530. Output(4,13,"/X
531. Pause
532. Goto A1
533. Lbl B            DIRECT
534. Prompt Y,X
535. round(Y/X,3->A
536. Output(4,3,"Y=
537. Output(4,5,A
538. iPart(A)+8->A
539. Output(4,A,"X
540. Pause
541. Goto A1
542.
Lbl P3            NUM OF SOLTION+DSCRMNT
543. Prompt A,B,C
544. B²-4AC->D
545. If D>0
546. Disp "TWO SOLUTIONS
547. If D=0
548. Disp "ONE SOLUTION
549. If D<0
550. Disp "NO SOLUTION
551. Disp "DISCRIMINANT:",D,"B²-4AC
552. Pause
553. Goto A1
554.
Lbl P4            INFINITE SEQUENCE SUM
555. Input "A1? ",A
556. Input "r? ",R
557. Disp A/(1-R)Frac
558. Pause
559. Goto A1
560. Lbl P5            FRACTION EQUATION
561. ClrHome
562. Output(5,1,"AX +/- BX
563. Output(6,1,"-- -- = C
564. Output(7,1,"D E
565. Prompt A,B,C,D,E
566. Input "PUT 1,¯1 FOR +/-",F
567. A/D->I
568. B/E->J
569. If F=¯1
570. I-J->K
571. If F=1
572. I+J->K
573. C/K->L
574. Disp "ANSWER=",L
575. Pause
576. Goto A1
577. Lbl P6            MIDPOINT FORMULA
578. Input "x? ",A
579. Input "y? ",B
580. Input "x? ",C
581. Input "y? ",D
582. (A+C)/2->E
583. (B+D)/2->F
584. ClrDraw
585. Text(¯1,0,0,"(",E,",",F,")
586. Text(¯1,16,0,"(x+x)/2
587. Text(¯1,24,0,"(y+y)/2
588. Pause
589. Goto A1
590.
Lbl P7            SEQUENCES
591. Menu("SEQUENCES","SEQUENCE MAKER",BB,"ITERATES",GB,"EXIT",A1
592. Lbl BB            SEQUENCE MAKER
593. 20->dim(L
594. Fill(0,L
595. Disp "HOW MANY NUMBERS","ARE GIVEN TO BEG","IN WITH?
596. 0->A
597. While A<1
598. Input A
599. End
600. ClrHome
601. Disp "WHAT ARE THEY?","
602. For(I,1,A
603. Output(2,1,"NUMBER
604. Output(2,8,I
605. Input B
606. B->L(I
607. End
608. ClrHome
609. Disp "EQUATION?
610. Disp "USE N FOR VARBLE
611. Disp "An=S","An+1=T","An+^2=U","An+^3=V","An+4=W
612. Input Str1
613. ClrHome
614. Disp "CLEAR TO EXIT
615. For(K,1,A
616. Disp L(K
617. End
618. 1->G
619. If inString(Str1,"T")/=0
620. Then
621. 2->G
622. If A<2
623. Goto DO
624. End
625. If inString(Str1,"U")/=0
626. Then
627. 3->G
628. If A<3
629. Goto DO
630. End
631. If inString(Str1,"V")/=0
632. Then
633. 4->G
634. If A<4
635. Goto DO
636. End
637. If inString(Str1,"W")/=0
638. Then
639. 5->G
640. If A<5
641. Goto DO
642. End
643. For(N,1,999
644. L(N->S
645. If G>1
646. L(N+1->T
647. If G>2
648. L(N+2->U
649. If G>3
650. L(N+3->V
651. If G>4
652. L(N+4->W
653. expr(Str1->L(N+G
654. Disp L(N+G
655. 0->K
656. While K/=105
657. getKey->K
658. If K=45
659. Then
670. DelVar L
671. Goto A1
672. End
673. End
674. End
675. Lbl DO
676. ClrHome
677. Output(1,1,"TRYIN TO GET A LIST POSIT WITH NO VALUE!!!!!
678. Pause
679. DelVar L
680. Stop
681. Lbl GB            ITERATES
682. Input "INITIAL VALUE?",X
683. Disp "USE X FOR VARBLE"
684. Input "EQUATION?",Str1
685. While 1
686. expr(Str1->X
687. Disp X
688. 0->K
689. While K/=105
690. getKey->K
691. If K=45
692. Goto A1
693. End
694. End
695.
Lbl P8            PRIME NUMBER TESTER
696. Input "NUMBER? ",A
697. abs(A->A
698. If A=1
699. Goto SZ
700. 2->C
701. Lbl TM            
702. For(B,C,iPart(A/2)+1
703. If A/B=iPart(A/B
704. Goto RN
705. End
706. Lbl SZ            
707. If C=2
708. Disp "PRIME
709. If C/=2
710. Disp "THATS IT
711. Pause
712. Goto A1
713. Lbl RN            
714. If C=2
715. Disp "COMPOSITE
716. Disp B,A/B
717. Pause
718. Menu("PRIME TESTER","FIND NEXT NUM.",TV,"EXIT",A1
719. Lbl TV            FIND NEXT NUM.
720. Disp "
721. B+1->C
722. Goto TM
723.
Lbl P9            PYTHAGOREAN THEAROM
724. ClrHome
725. ¯PiPi^-1->X
726. Disp "PUT X FOR THE","UNKNOWN, OR ALL","NUMS FOR TESTING","A TRAINGLE
727. Input "LEG1? ",A
728. Input "LEG2? ",B
729. Input "HYPOT.? ",C
730. ClrHome
731. If A=X
732. √(¯B²+C²->E
733. If B=X
734. √(C²-A²->E
735. If C=X
736. √(A²+B²->E
737. If A/=X and B/=X and C/=X
738. Goto TR
739. ClrHome
740. Disp E
741. Output(2,1,"√(
742. Output(2,3,E²
743. Pause
744. Goto A1
745. Lbl TR            
746. If A²+B²=C²
747. Then
748. Disp "IT'S GOOD
749. Else
750. Disp "NO GOOD
751. End
752. Disp "A²+B²=C²
753. Pause
754. Goto A1
755.
Lbl P0            QUADRATIC FORMULA
756. Prompt A,B,C
757. Disp "FIRST
758. Pause (¯B+√(B²-4AC))/(2A
759. Disp "SECOND
760. Pause (¯B-√(B²-4AC))/(2A
761. ClrDraw
762. Text(¯1,0,0,"¯B +/- sqrt(B²-4AC)
763. Text(¯1,8,0,"----------------
764. Text(¯1,16,0," 2A
765. Pause
766. Goto A1
767.
Lbl R1            SLOPE
768. Disp "(A,B),(C,D)
769. Prompt A,B,C,D
770. ClrHome
771. Disp "SLOPE IS",(D-B)/(C-A),"(y2-y1)/(x2-x1)
772. Pause
773. Goto A1
774.
Lbl R2            DISTANCE OF TWO POINTS
775. Input "x? ",A
776. Input "y? ",B
777. Input "x? ",C
778. Input "y? ",D
779. (C-A)²+(D-B)²->A
780. ClrHome
781. Output(1,1,"√(
782. Output(1,3,A
783. Output(3,3,round(√(A),3
784. Pause
785. ClrDraw
786. Text(0,0,"√((x-x)²+(y-y)²)
787. Pause
788. Goto A1
789.
Lbl R3            VERTEX
790. Disp "AX²+BX+C
791. Prompt A,B,C
792. Disp "VERTEX IS
793. ¯B/(2A->X
794. A(X)²+B(X)+C->Y
795. Disp "X=",X,"Y=",Y
796. Pause
797. Goto A1
798.
Lbl R4            AREA
799. Menu( "AREA", "CIRCLE",GR, "RECTANGLE",KS, "SQUARE",QI, "TRAPEZOID",NP, "TRIANGLE",DU, "PARALLELOGRAM",BR,"MORE-->",ZS
800. Lbl ZS            MORE
801. Menu("AREA CONT.","RHOMBUS",NZ, "ANY POLYGON",UF,"<-- BACK",R4
802. Lbl UF            ANY POLYGON
803. Disp "DISTANCE OF THE","APOTHEM (RADIUS)
804. Input A
805. Input "NUMB OF SIDES? ",B
806. Pause BA²tan(180/B
807. ClrHome
808. Output(1,1,"NUM OF SIDES*APOTHEM^2tan(180/NUM SIDES
809. Pause
810. Goto A1
811. Lbl NZ            RHOMBUS
___.Disp "  RHOMBUS 812. Input "DIAGONAL1?",A
813. Input "DIAGONAL2?",B
814. Disp AB/2,"D1*D2*.5
815. Pause
816. Goto A1
817. Lbl GR            CIRCLE
___.Disp "  CIRCLE 818. Input "RADIUS?",R
819. Disp "AREA =",πR²,"πR²
820. Pause
821. Goto A1
822. Lbl KS            RECTANGLE
___. Disp "  RECTASNGLE 823. Input "LENGTH=",A
824. Input "WIDTH=",B
825. Disp "AREA =",AB,"LENGTH*WIDTH
826. Pause AB
827. Goto A1
828. Lbl QI            SQUARE
___. Disp "  SQUARE 829. Input "SIDE=",S
830. Disp "AREA =",S²,"S²
831. Pause
832. Goto A1
833. Lbl NP            TRAPEZOID
___. Disp "  TRAPEZOID 834. Input "BOTTOM BASE=",A
835. Input "TOP BASE=",B
836. Input "HEIGHT=",H
837. Disp "AREA =",.5(A+B)H=",.5(A+B)H
838. Pause
839. Goto A1
840. Lbl DU            TRIANGLE
___. Disp "  TRIANGLE 841. Input "BASE?",B
842. Menu("WHAT DO YOU KNOW","HEIGHT",KH,"OTHER TWO SIDE",GC
843. Lbl KH            HEIGHT
844. Input "HEIGHT?",H
845. Goto RD
846. Lbl GC            OTHER TWO SIDE
847. Input "ANOTHER SIDE? ",A
848. Input "LAST SIDE? ",C
849. cos^-1((B²+C²-A²)/(2BC->D
850. Csin(D->H
851. Lbl RD            BASE, HEIGHT
852. Disp "AREA =",BH/2=",BH/2
853. Pause
854. Goto A1
855. Lbl BR            PARALLELOGRAM
___. Disp "  PARALLELOGRAM 856. Input "BASE=",B
857. Input "HEIGHT=",H
858. Disp "AREA =",BH=",BH
859. Pause
860. Goto A1
861. Lbl R5            VOLUME
862. Menu("VOLUME","CONE",PA, "CYLINDER",OP, "PYRAMID",JT, "RECT. PRISM",PY, "SPHERE",HU, "CUBE",LX, "ANY RT. PRISM",VN
863. Lbl PA            CONE
___. Disp "CONE 864. Input "RADIUS=",R
865. Input "HEIGHT=",H
866. Disp "VOLUME =",.333πR²H=",(1/3)πR²H
867. Pause
868. Goto A1
869.
Lbl OP            CYLINDER
___. Disp "CYLINDER 870. Input "RADIUS=",R
871. Input "HEIGHT=",H
872. Disp "VOLUME I=",πR²H=",πR²H
873. Pause
874. Goto A1
875. Lbl JT            PYRAMID
876. Input "AREA OF BASE? ",A
877. Input "HEIGHT? ",B
878. Disp AB/3,"AREA OF BASE*H/3
879. Pause
880. Goto A1
881. Lbl PY            RECT. PRISM
___. Disp "RECT. PRISM 882. Input "LENGTH=",L
883. Input "WIDTH=",W
884. Input "HEIGHT=",H
885. Disp "VOLUME =",LHW=",LHW
886. Pause
887. Goto A1
888. Lbl HU            SPHERE
___. Disp "SPHERE 889. Input "RADIUS=",R
890. Disp "VOLUME =",(4/3)πR³=",(4/3)πR³
891. Pause
892. Goto A1
893. Lbl LX            CUBE
___. Disp "CUBE 894. Input "SIDE=",S
895. Disp "VOLUME =,S3=",S³
896. Pause
897. Goto A1
898. Lbl VN            ANY RT. PRISM
899. Disp "AREA OF ONE BASE
900. Input "? ",A
901. Input "HEIGHT? ",B
902. Disp AB,"AREA OF BASE*HEI","GHT
903. Pause
904. Goto A1
905. Lbl R6            SURFACE AREA
906. Menu("SURFACE AREA","CONE",LJ, "CYLINDER",HK, "CUBE",RX, "SPHERE",XR, "RECT. PRISM",FY, "PYRAMID",PX, "ANY PRISM",IS
907. Lbl PX            PYRAMID
908. Input "SLANT HEIGHT= ",A
909. Input "PERIM. OF BASE= ",B
910. Input "AREA OF BASE= ",C
911. Disp .5BA+C
912. Pause
913. ClrHome
914. 1,1,"(.5PERIM OF BASE*SLANT)+AREA OF BASE
915. Pause
916. Goto A1
917. Lbl LJ            CONE
___. Disp "CONE 918. Input "RADIUS= ",A
919. Input "SLANT HEIGHT= ",B
920. Disp πAB+πA²
921. Pause
922. ClrHome
923. Output(1,1,"πRADIUS*SLANT+πRADIUS²
924. Pause
925. Goto A1
926. Lbl HH            CYLINDER
___. Disp "CYLINDER 927. Input "RADIUS=",R
928. Input "HEIGHT=",H
929. Disp 2πRH+2πR²,"2πRH+2πR²
930. Pause
931. Goto A1
932. Lbl RX            CUBE
___. Disp "CUBE 933. Input "SIDE=",S
934. Disp "TOTAL SURFACE","AREA =",6S²,"6S²
935. Pause
936. Goto A1
937.
Lbl XR            SPHERE
___. Disp "SPHERE 938. Input "RADIUS=",R
939. Disp "TOTAL SURFACE","AREA =",4πR²,"4π*RADIUS²
940. Pause
941. Goto A1
942.
Lbl FY            RECT. PRISM
943. Input "LENGTH?",L
944. Input "WIDTH",W
945. Input "HEIGHT?",H
946. 2LW+2WH+2LH->A
947. Disp "TOTAL SURFACE","AREA IS",A,"2LW+2WH+2LH
948. Pause
949. Goto A1
950.
Lbl IS            ANY PRISM
951. Disp "AREA OF ONE BASE
952. Input "? ",A
953. Input "PERIM. OF BASE? ",B
954. Input "HEIGHT? ",C
955. Pause BCC2A
956. ClrHome
957. Output(1,1,,(PERIM OF BASE*HEIGHT)+2(AREA OF BASE)
958. Pause
959. Goto A1
960.
Lbl R7            Y INTERCEPT
961. Disp "WHATS THE SLOPE
962. Prompt S
963. Disp "WHATS A QUARDINATE
964. Prompt X
965. Prompt Y
966. Y-SX->B
967. Disp "Y INTERCCPT IS",B,"Y-SX
968. Pause
969. Goto A1
970.
Lbl R8            BINOMIAL EXPANER
971. ClrDraw
972. ClrHome
973. 0->U
974. Output(1,1,"VARIABLES
975. Output(2,1," ! !
976. Output(3,1,"(A*X+B*Y)^N
977. Output(4,1," ! !
978. Output(5,1,"CONSTANTS
979. Disp "","","","","","
980. Prompt N,A,B
981. A->X
982. B->Y
983. Disp "VARIABLES TO USE","(PUT 1 IF NO VAR"
984. Input "X?",Str1
985. Input "Y?",Str2
986. Y->T
987. seq(N!/(K!(N-K)!),K,0,N)->L
988. For(A,0,N
989. If U>57
990. Then
991. Pause
992. ClrDraw
993. 0->U
994. End
995. Text(U,0,L(A+1)*(X^(N-A))*(T^A),"(",Str1,"^",N-A,"*",Str2,"^",A,")+
996. U+6->U
997. End
998. Pause
999. Goto A1
1000.
Lbl O4            CIRCUMFERENCE
1001. Input "RADIUS? ",R
1002. Disp "CIRCUMFERRNCE IS
1003. Disp "2π*RADIUS
1004. Pause 2πR
1005. Goto A1
1006.
Lbl G2            MEAN/MEDIAN
1007. Disp "{LISS, FORM}
1008. Input L
1009. Disp "",""EAN:",mean(L),"","MEDIAN:",median(L
1010. Pause
1011. Goto A1
1012.
Lbl G0            SIMPLYFING sqrt(X)
1013. 1->dim(¯A
1014. {4,9,16,25,36,49,64,81,100,121,144,169,196,225,256}->¯A
1015. Input "√(? ",A
1016. 0->B
1017. 1->W
1018. If fPart(√(A))=0
1019. Then
1020. ClrDraw
1021. Text(¯1,0,0,"√(",√(A),")
1022. Pause
1023. Goto A1
1024. End
1025. Lbl MF            
1026. For(Z,15,1,1
minus 1 1027. If fPart(A/A(Z))=0
sm cap L 1028. Goto MO
1029. End
1030. If W=1
1031. Goto QR
1032. Goto VW
1033. Lbl MO            
1034. ¯1->W
1035. B+1->B
1036. A/ιA(Z)->A
1037. √(A(Z))->ιB(B
1038. Goto MF
1039. Lbl QR            
1040. ClrDraw
1041. Text(¯1,0,0,"sqrt(",A,")
1042. Pause
1043. Goto A1
1044. Lbl VW            
1045. ClrDraw
1046. Text(¯1,0,0,prod(ιB),"√(",A,")
1047. Pause
1048. Goto A1
1049.
Lbl M1            MODULUS
1050. ClrHome
1051. Disp "","
1052. Output(1,1," I%
1053. Output(1,1,"A
1054. Output(1,5,"B
1055. Prompt A,B
1056. Pause A-iPart(A/B)*B
1057.
Goto A1
1058. Lbl M2            CRAMER'S RULE FOR A 3X4
1059. Disp "x+y+Z1=A","x2+y2+Z2=B","x3+y3+Z3=C"
1060. Input "x?",A
1061. Input "y?",B
1062. Input "Z1?",C
1063. Input "A?",D
1064. Input "x2?",E
1065. Input "y2?",F
1066. Input "Z2?",G
1067. Input "B?",H
1068. Input "x3?",I
1069. Input "y3?",J
1070. Input "Z3?",K
1071. Input "C?",L
1072. [[A,B,C][E,F,G][I,J,K->[A]
1073. [[D,B,C][H,F,G][L,J,K->[B]
1074. [[A,D,C][E,H,G][I,L,K->[C]
1075. [[A,B,D][E,F,H][I,J,L->[D]
1076. ClrHome
1077. Disp "DETERMINANTS OF:
1078. Pause "X:
1079. Disp [B],"DIVIDED BY:",[A]
1080. Pause
1081. Pause "Y:
1082. Disp [C],"DIVIDED BY:",[A]
1083. Pause
1084. Pause "Z:
1085. Disp [D],"DIVIDED BY:",[A]
1086. Pause
1087. ClrHome
1088. det([A]->V
1089. Disp "X:",det([B])/V,"Y:",det([C])/V,"Z:",det([D])/V
1090. Pause
1091. Goto A1
1092.
Lbl M7            PROPORTIONS
1093. ClrHome
1094. Disp "","","","
1095. Output(1,1,"A C
1096. Output(2,1,"- = -
1097. Output(3,1,"B ?
1098. Prompt A,B,C
1099. C/(A/B->D
1100. Disp "ANSWER IS:",D
1101. Pause
1102. Goto A1
1103.
Lbl I4            SYSTEM OF EQUATIONS
1104. Disp "AX+BY=C","DX+EY=F","X+Y ARE VARIABLS
1105. Prompt A,B,C,D,E,F
1106. If AE-BD=0
1107. Then
1108. If CE-BF=0 or AF-CD=0
1109. Then
1110. Disp "INFINITE SOLUT'S
1111. Else
1112. Disp "NO SOLUTION
1113. End
1114. Pause
1115. Goto A1
1116. End
1117. (CE-BF)/(AE-BD)->X
1118. (AF-CD)/(AE-BD)->Y
1119. Disp "X=",X,"Y=",Y
1120. Pause
1121. Goto A1
1122. Lbl I5            
1123. Pause
1124. Goto A1
1125.
Lbl I6            DISTANCE OF PT. TO LINE
1126. Input "X POINT?",X
1127. Input "Y POINT?",Y
1128. Disp "AX+BY+C=0
1129. Prompt A,B,C
1130. abs(AX+BY+C->D
1131. A²+B²->E
1132. ClrHome
1133. Disp "","","
1134. Output(1,1,D
1135. Output(2,1,"--
1136. Output(3,1,"√(
1137. Output(3,3,E
1138. Disp "OR",D/(√(E
1139. Pause
1140. Goto A1
1141.
Lbl I8            SCIENTIFIC NOTATION
1142. Input "NUMBER? ",Str1
1143. If expr(Str1)<1
1144. Goto VI
1145. length(Str1)->B
1146. expr(Str1)->A
1147. A/(10^(B-1))->C
1148. ClrHome
1149. Output(1,1,C
1150. Output(1,11,"*10^
1151. Output(1,15,B-1
1152. Pause
1153. Goto A1
1154. Lbl VI            
1155. For(A,1,length(Str1
1156. sub(Str1,A,1)->Str2
1157. If Str2"0" and Str2".
/= 1158. Goto IG
1159. End
1160. Lbl IG            
1161. 1->C
1162. For(B,3,length(Str1
1163. C+1->C
1164. If sub(Str1,B,1)"0
1165. Goto IW
1166. End
1167. Lbl IW            
1168. expr(Str1)10^C->D
1169. ClrHome
1170. abs(C->C
1171. ¯C->C
1172. Output(1,1,D
1173. Output(1,11,"*10^
1174. Output(1,15,C
1175. Pause
1176.
Goto A1
1177. Lbl I9            CRAMER'S RULE FOR A 2X3
1178. Disp "AX+BY=E
1179. Disp "CX+DY=F
1180. Prompt A,B,E,C,D,F
1181. ClrHome
1182. [[E,B][F,D]->[A]
1183. [[A,B][C,D]->[C]
1184. [[A,E][C,F]->[B]
1185. Pause "FOR X:
1186. Disp round([A],3
1187. Pause "DIVIDED BY:
1188. Pause round([C],3
1189. ClrHome
1190. Pause "FOR Y:
1191. Disp round([B],3
1192. Pause "DIVIDED BY:
1193. Pause round([C],3
1194. ClrDraw
1195. det([A])->N
1196. det([C])->O
1197. det([B])->P
1198. N/O->S
1199. P/O->T
1200. round(N,3)->N
1201. round(O,3)->O
1202. round(P,3)->P
1203. Text(0,0,"X=",N,"/",O," =",S
1204. Text(10,0,"Y=",P,"/",O," =",T
1205. Pause
1206. DelVar [A]
1207. DelVar [B]
1208. DelVar [C]
1209. Goto A1
1210.
Lbl N0            EQUATION SOLVER
1211. Disp "TYPE WHOLE THING","EQUAL TO 0 DON'T","PUT 0= PART","USE X AS VARIABL"
1212. Input Str1
1213. For(A,¯50,50,50
1214. solve(expr(Str1),X,A,{¯99999,99999}->B
1215. If A=¯50
1216. B->C
1217. End
1218. If B=C
1219. Disp B
1220. If B/=C
1221. Disp B," or ",C
1222. Pause
1223. Goto A1
1224.
Lbl N1            FACTORING
1225. ClrHome
1226. Disp "THIS FORMAT ONLY"
1227. Disp "AX²+BX+C"
1228. Input "A? ",L
1229. Input "B? ",M
1230. Input "C? ",U
1231. gcd(abs(L),abs(M->E
1232. gcd(abs(M),abs(U->F
1233. gcd(E,F->E
1234. L/E->A
1235. M/E->W
1236. U/E->B
1237. 1->I
1238. DelVar L1
1239. DelVar L2
1240. DelVar L3
1241. DelVar L4
1242. 0->C
1243. 1->Z
1244. If A<0
1245. Then
1246. ¯1->Z
1247. ¯A->I
1248. End
1249. For(O,I,A,Z
1250. For(P,I,A,Z
1251. If O*P=A
1252. Then
1253. C+1->C
1254. O->L(C
1255. P->L(C
1256. End
1257. End
1258. End
1259. 0->C
1260. 1->Z
1261. 1->I
1262. If B<0
1263. Then
1264. ¯1->Z
1265. ¯B->I
1266. End
1267. For(O,I,B,Z
1268. For(P,I,B,Z
1269. If O*P=B
1270. Then
1271. C+1->C
1272. O->L(C
1273. P->L(C
1274. End
1275. End
1276. End
1277. 0->N
1278. For(S,1,dim(L
1279. L(S)->Q
1280. L(S)->R
1281. For(T,1,dim(L
1282. L(T)->J
1283. L(T)->K
1284. If QK+JR=W
1285. 1->N
1286. If QK-JR=W
1287. Then
1288. 1->N
1289. ¯J->J
1290. End
1291. If ¯QK+JR=W
1292. Then
1293. 1->N
1294. ¯K->K
1295. End
1296. If ¯QK-JR=W
1297. Then
1298. ¯K->K
1299. ¯J->J
1300. 1->N
1301. End
1302. If N=1
1303. Goto CW
1304. End
1305. End
1306. Disp "PRIME
1307. Pause
1308. Goto A1
1309. Lbl CW
1310. ClrDraw
1311. If ERQL or ERJ+EKQM or EKJU
1312. Then
1313. Disp "PRIME
1314. Pause
1315. Goto A1
1316. End
1317. If R<0 and K<0
1318. Then
1319. ¯R->R
1320. ¯K->K
1321. ¯E->E
1322. End
1323. If Q<0 and J<0
1324. Then
1325. ¯Q->Q
1326. ¯J->J
1327. ¯E->E
1328. End
1329. Text(0,0,E,"(",R,"X+",K,")(",Q,"X+",J,")
1330. Pause
1331. Goto A1
1332.
Lbl N5            LAW OF SINES/COSINES
1333. 0->N
1334. 0->O
1335. 0->P
1336. 0->Q
1337. 0->R
1338. 0->S
1339. ClrDraw
1340. Line(¯10,¯10,10,¯10
1341. Line(¯10,¯10,0,0
1342. Line(10,¯10,0,0
1343. Text(56,10,"A
1344. Text(56,81,"C
1345. Text(33,46,"B
1346. Text(56,46,"b
1347. Text(38,25,"c
1348. Text(38,67,"a
1349. Text(0,0,"A=1
1350. Text(6,0,"B=2
1351. Text(12,0,"C=3
1352. Text(18,0,"a=4
1353. Text(24,0,"b=5
1354. Text(30,0,"c=6
1355. Text(0,30,"WHICH 3 THINGS
1356. Text(6,30,"DO YOU KNOW?
1357. {0,0,0->ιA
1358. 0->A
1359. 1->P
1360. 0->Z
1361. While Z=0
1362. getKey->K
1363. If K=0
1364. End
1365. If K=92
1366. 1->A
1367. If K=93
1368. 2->A
1369. If K=94
1370. 3->A
1371. If K=82
1372. 4->A
1373. If K=83
1374. 5->A
1375. If K=84
1376. 6->A
1377. If A0
1378. Then
1379. Text(15,10P+20,A
1380. A->ιA(P
1381. 0->A
1382. P+1->P
1383. End
1384. If P=4
1385. 1->Z
1386. End
1387. For(Z,0,50
1388. End
1389. SortA(ιA
1390. ιA(1->A
1391. ιA(2->B
1392. ιA(3->C
1393. If A=1
1394. Input "A?",N
1395. If A=2 or B=2
1396. Input "B?",O
1397. If A=3 or B=3 or C=3
1398. Input "C?",P
1399. If A=4 or B=4 or C=4
1400. Input "a?",Q
1401. If B=5 or C=5
1402. Input "b?",R
1403. If C=6 or B=6
1404. Input "c?",S
1405. Lbl WI            
1406. If A=1 and B=2
1407. Then
1408. 180-O-N->P
1409. If C=4
1410. Then
1411. Qsin(O)/sin(N->R
1412. Qsin(P)/sin(N->S
1413. End
1414. If C=5
1415. Then
1416. Rsin(N)/sin(O->Q
1417. Rsin(P)/sin(O->S
1418. End
1419. If C=6
1420. Then
1421. Ssin(N)/sin(P->Q
1422. Ssin(O)/sin(P->R
1423. End
1424. End
1425. If A=1 and B=3
1426. Then
1427. 180-N-P->O
1428. If C=4
1429. Then
1430. Qsin(P)/sin(N->S
1431. Qsin(O)/sin(N->R
1432. End
1433. If C=5
1434. Then
1435. Rsin(N)/sin(O->Q
1436. Rsin(P)/sin(O->S
1437. End
1438. If C=6
1439. Then
1440. Ssin(N)/sin(P->Q
1441. Ssin(O)/sin(P->R
1442. End
1443. End
1444. If A=2 and B=3
1445. Then
1446. 180-P-O->N
1447. If C=4
1448. Then
1449. Qsin(P)/sin(N->S
1450. Qsin(O)/sin(N->R
1451. End
1452. If C=5
1453. Then
1454. Rsin(P)/sin(O->S
1455. Rsin(N)/sin(O->Q
1456. End
1457. If C=6
1458. Then
1459. Ssin(N)/sin(P->Q
1460. Ssin(O)/sin(P->R
1461. End
1462. End
1463. If B=4 and C=5
1464. Then
1465. If A=1
1466. Then
1467. sin(Rsin(N)/Q->O
1468. 180-O-N->P
1469. Qsin(P)/sin(N->S
1470. End
1471. If A=2
1472. Then
1473. sin(Qsin(O)/R->N
1474. 180-N-O->P
1475. Rsin(P)/sin(O->S
1476. End
1477. If A=3
1478. Then
1479. sqrt(Q^2+R²-2QRcos(P->S
1480. 3->A
1481. 5->B
1482. 6->C
1483. DelVar NDelVar QDelVar O
1484. Goto WI
1485. End
1486. End
1487. If B=5 and C=6
1488. Then
1489. If A=1
1490. Then
1491. sqrt(R²+S²-2RScos(N->Q
1492. 1->A
1493. 4->B
1494. 5->C
1495. DelVar PDelVar SDelVar O
1496. Goto WI
1497. End
1498. If A=2
1499. Then
1500. sin(Ssin(O)/R->P
1501. 180-P-O->N
1502. Rsin(N)/sin(O->Q
1503. End
1504. If A=3
1506. Then
1507. sin(Rsin(P)/S->O
1508. 180-O-P->N
1509. Ssin(N)/sin(P->Q
1510. End
1511. If A=4
1512. Then
1513. cos((R²+S²-Q²)/(2RS->N
1514. 1->A
1515. 4->B
1516. 6->C
1517. DelVar PDelVar RDelVar O
1518. Goto WI
1519. End
1520. End
1521. If B=4 and C=6
1522. Then
1523. If A=1
1524. Then
1525. sin(Ssin(N)/Q->P
1526. 180-P-N->O
1527. Qsin(O)/sin(N->R
1528. End
1529. If A=2
1530. Then
1531. √(Q²+S²-2QScos(O->R
1532. 2->A
1533. 4->B
1534. 5->C
1535. DelVar NDelVar PDelVar S
1536. Goto WI
1537. End
1538. If A=3
1539. Then
1540. sin(Qsin(P)/S->N
1541. 180-N-P->O
1542. Qsin(O)/sin(N->R
1543. End
1544. End
1545. ClrDraw
1546. Line(¯10,¯10,10,¯10
1547. Line(¯10,¯10,0,0
1548. Line(10,¯10,0,0
1549. Text(56,10,int(N
1550. Text(56,77,int(P
1551. Text(36,45,int(O
1552. Text(56,40,round(R,4
1553. Text(38,5,round(S,4
1554. Text(38,67,round(Q,4
1555. Pause
1556. ClrDraw
1557. Text(0,0,"EXACT ANSWERS:
1558. Text(12,0,"A= ",iPart(N),"",iPart(fPart(N)60),"'",fPart(fPart(N*60))60,"''
1559. Text(18,0,"B= ",iPart(O),"",iPart(fPart(O)60),"'",fPart(fPart(O60))60,"''
1560. Text(24,0,"C= ",iPart(P),"",iPart(fPart(P)60),"'",fPart(fPart(P60))60,"''
1561. Text(30,0,"a= ",Q
1562. Text(36,0,"b= ",R
1563. Text(42,0,"c= ",S
1564. Pause
1565. Goto A1
1566. Lbl N6            
1567. Pause
1568. Goto A1
1569.
Lbl N7            GEOMETRIC MEAN
1570. ->X
1571. Disp "C=sqrt(A*B)","PUT X FOR ONE YOU","DON'T KNOW
1572. Prompt A,B,C
1573. If A=X
1574. C²-B->O
1575. If B=X
1576. C²-A->O
1577. If C=X
1578. sqrt(AB->O
1579. Disp O
1580. Pause
1581. Goto A1
1582.
Lbl N8            CIRCLE EQUATION MAKER
1583. Input "RADIUS?",R
1584. Disp "CENTER
1585. Prompt X,Y
1586. ClrDraw
1587. Text(0,0,R²,"=(X-",X,")²+(Y-",Y,")²
1588. Pause
1589. Goto A1
1590.
Lbl N9            PT IN RELTION 2 CIRCLE
1591. Disp "DO YOU KNOW THE","RADIUS?1=YA,2=NO
1592. Input A
1593. If A=1
1594. Input "RADIUS?",R
1595. If A=2
1596. Then
1597. Disp "PT ON CIRCLE
1598. Prompt X,Y
1599. End
1600. Disp "CENTER PT
1601. Prompt X,Y
1602. X->I
1603. Y->J
1604. Disp "PT TO TEST
1605. Prompt X,Y
1606. X->M
1607. Y->N
1608. If A=2
1609. √((J-Y)²+(I-X)²->R
1610. √((N-J)²+(M-I)²->A
1611. If A>R
1612. Disp "ON THE OUTSIDE
1613. If A=R
1614. Disp "ON THE CIRCLE
1615. If A 1616. Disp "ON THE INSIDE
1617. Pause
1618. Goto A1
1619.
Lbl G3            LATERAL AREA
1620. Menu("LATERAL AREA","OF ANY PRISM",LG,"PYRAMID",QP,"CONE",QS
1621. Lbl QS            CONE
1622. Input "RADIUS? ",A
1623. Input "SLANT HEIGHT? ",B
1624. Disp πAB,"πRAD*SLANT
1625. Pause
1626. Goto A1
1627. Lbl QP            PYRAMID
1628. Input "SLANT HEIGHT? ",A
1629. Input "PERIM. OF BASE? ",B
1630. Disp .5AB,".5SLANT*PERIM
1631. Pause
1632. Goto A1
1633. Lbl LG            OF ANY PRISM
1634. Disp "PERIMETER OF ","ONE BASE?
1635. Input "? ",A
1636. Input "HEIGHT? ",B
1637. Disp A*B,"PERIM*HEIGHT
1638. Pause
1639. Goto A1
1640.
Lbl G4            APOTHEM FINDER
1641. Input "SIDE LENGTH? ",A
1642. Input "NUM. OF SIDES? ",B
1643. Pause A/2/tan(180/B
1644. Goto A1
1645.
Lbl G5            PT-SLPE->Y INTRCPT
1646. Input "SLOPE? ",A
1647. Disp "A QUARDINATE
1648. Prompt X,Y
1649. A¯X+Y->B
1650. ClrDraw
1651. Text(¯1,0,0,"Y=",round(A,3),"X+",B
1652. Pause
1653. Goto A1
1654.
Lbl G6            FRUSTUMS
1655. Menu("FRUSTUMS","VOLUME",VF,"SURFACE AREA",FS,"LATERAL AREA",GS
1656. Lbl VF            VOLUME
1657. Menu("VOLUME OF FRUST.","PYRAMIDAL FRUS",FP,"CONE FRUST.",CF
1658. Lbl FP            PYRAMIDAL FRUS
1659. Disp "HOW MANY SIDES","DOES THE BASE
1660. Input "HAVE? ",A
1661. Input "BOTTOM EDGE? ",B
1662. Input "TOP EDGE? ",C
1663. Input "SLANT HEIGHT? ",D
1664. B-C->E
1665. E/D->F
1666. C/F->G
1667. G+D->H
1668. 180/A->I
1669. B/2/tan(I->J
1670. .5BAJ->M
1671. sqrt(H²-J²->L
1672. 1/3ML->N
1673. C/2/tan(I->O
1674. .5CAO->P
1675. sqrt(G²-O²->R
1676. 1/3PR->S
1677. N-S->T
1678. Disp "VOLUME IS:",T
1679. Pause
1680. Goto A1
1681. Lbl CF            CONE FRUST.
1682. Input "BOTTOM RADIUS? ",A
1683. Input "TOP RADIUS? ",B
1684. Input "SLANT HEIGHT? ",C
1685. C/(A-B)B+C->D
1686. √(C²-(A-B)²->E
1687. √(D^2-A²->F
1688. 1/3FπA²->G
1689. F-E->H
1690. 1/3HπB²->I
1691. G-I->J
1692. Disp "VOLUME IS:",J
1693. Pause
1694. Goto A1
1695.
Lbl FS            SURFACE AREA
1696. Menu("FRUST SURF. AREA","PYRAMID",SG,"CONE",WN
1697. Lbl SG            PYRAMID
1698. Disp "NUMBER OF SIDES
1699. Input "ON BASE? ",D
1700. Input "BOTTOM EDGE? ",A
1701. Input "TOP EDGE? ",B
1702. Input "SLANT HEIGHT? ",C
1703. (A+B)/2CD->N
1704. 180/D->E
1705. B/2/tan(E->O
1706. A/2/tan(E->P
1707. O.5BD->O
1708. P.5AD->P
1709. Disp "SURFACE AREA IS:",N+O+P
1710. Pause
1711. Goto A1
1712. Lbl WN            CONE
1713. 0->U
1714. Lbl BL            
1715. Input "BOTTOM RADIUS? ",A
1716. Input "TOP RADIUS? ",B
1717. Input "SLANT HEIGHT? ",C
1718. B/((A-B)/C->D
1719. πBD->I
1720. Api(C+D->J
1721. J-I->H
1722. If U=1
1723. Goto KE
1724. H+πA²+πB²->I
1725. Disp "SURFACE AREA IS:",I
1726. Pause
1727. Goto A1
1728. Lbl GS            
1729.
Menu("LATER AREA-FRUST","PYRAMID",LT,"CONE",RU
1730. Lbl LT            PYRAMID
1731. Disp "NUMBER OF SIDES
1732. Input "ON BASE? ",D
1733. Input "BOTTOM EDGE? ",A
1734. Input "TOP EDGE? ",B
1735. Input "SLANT HEIGHT? ",C
1736. .5(A+B)/2CD->D
1738. Disp "LATERAL AREA IS:",D
1739. Pause
1740. Goto A1
1741. Lbl RU            CONE
1742. 1->U
1743. Goto BL
1744. Lbl KE            
1745. Disp "LATERAL AREA IS:",H
1746. Pause
1747. Goto A1
1748. Lbl G7            
1749. ZStandard
1750. AxesOn
1751. Output(1,1,"THIS PROGRAM WILL LET YOU GRAPH AN EQUATION WITHOUT HAVING TO SET IT EQUAL TO Y
1752. Pause
1753. ClrHome
1754. Disp "","","","","
1755. Output(1,1,"TYPE WHOLE THING EVEN THE = FOUND IN TEST MENU. EX: 3X=4Y-8
1756. AxesOn
1757. ZStandard
1758. Input Str1
1759. inString(Str1,"="->A
1760. "("+sub(Str1,A+1,length(Str1)-A)+")-("+sub(Str1,1,A-1)+")"->Str1
1761. ¯10->X
1762. Lbl WJ            
1763. solve(expr(Str1),Y,0,{9999,99999}->Y
1764. If X=¯10
1765. Then
1766. Y->Q
1767. ¯9.79->X
1768. Goto WJ
1769. End
1770. Y-Q->F
1771. For(X,¯10,10,.212
1772. Pt-On(X,Y
1773. Y+F->Y
1774. End
1775. Pause
1776. AxesOff
1777. Goto A1
1778. Lbl G9            
1779. Disp "QUARDINATE 1
1780. Input "X? ",A
1781. Input "Y? ",B
1782. Disp "QUARDINATE 2
1783. Input "X? ",C
1784. Input "Y? ",D
1785. √((D-B)^2+(C-A)²->M
1786. 0-A->N
1787. 0-B->O
1788. N+C->X
1789. O+D->Y
1790. If X=0
1791. Goto UJ
1792. tan(abs(Y)/abs(X->T
1793. Lbl UJ            
1794. If X>0 and Y>0
1795. "NE->Str1
1796. If X<0 and Y>0
1797. "NW->Str1
1798. If X>0 and Y<0
1799. "SE->Str1
1800. If X<0 and Y<0
1801. "SW->Str1
1802. If X=0 and Y>0
1803. Then
1804. "N->Str1
1805. 0->T
1806. End
1807. If X=0 and Y<0
1808. Then
1809. "S->Str1
1810. 0->T
1811. End
1812. If X>0 and Y=0
1813. "E->Str1
1814. If X<0 and Y=0
1815. "W->Str1
1816. ClrDraw
1817. AxesOn
1818. Line(0,0,X,Y
1819. Line(A,B,C,D
1820. Text(57,0,"DIRECTION: ",round(T,3)," ",Str1
1821. Text(0,0,"MAGNITDE: ",round(M,3)," OR sqrt(",M^2,")
1822. Pause
1823. AxesOff
1824. Goto A1
1825. Lbl F0            
1826. Disp " AND ARE VECT","A+B
1827. Prompt A,B
1828. Disp " QUARDINATES
1829. Input "X? ",C
1830. Input "Y? ",D
1831. Disp " QUARDINATES
1832. Input "X? ",E
1833. Input "Y? ",F
1834. AC+BE->X
1835. AD+BF->Y
1836. ClrDraw
1837. Text(¯1,0,0,"(",X,",",Y,")
1838. Pause
1839. Goto A1
1840. Lbl F1            
1841. Disp "PT ONE
1842. Input "X? ",A
1843. Input "Y? ",B
1844. Input "Z? ",C
1845. Disp "PT TWO
1846. Input "X? ",D
1847. Input "Y? ",E
1848. Input "Z? ",F
1849. sqrt((D-A)²+(E-B)²+(F-C)²->A
1850. ClrDraw
1851. Text(¯1,0,0,"DISTANCE IS:
1852. Text(¯1,8,0,A," OR
1853. Text(¯1,16,0,"sqrt(",A²,")
1854. Text(¯1,32,0,"sqrt((x-x)²+(y-
1855. Text(¯1,40,0,"y)²+(z²-z))
1856. Pause
1857. Goto A1
1858. Lbl F2            
1859. Disp "PT. ONE
1860. Input "X? ",A
1861. Input "Y? ",B
1862. Disp "PT. TWO
1863. Input "X? ",C
1864. Input "Y? ",D
1865. Disp "PT. THREE
1866. Input "X? ",E
1867. Input "Y? ",F
1868. (D-B)/(C-A->I
1869. (F-D)/(E-C->J
1870. (F-B)/(E-A->K
1871. If I=J and J=K and I=K
1872. Then
1873. Disp "COLLINEAR
1874. Else
1875. Disp "NON COLLINEAR
1876. End
1877. Disp " ","","SLOPES:",I,J,K
1878. Pause
1879. Goto A1
1880. Lbl F3            
1881. Disp "PT ONE
1882. Input "X? ",A
1883. Input "Y? ",B
1884. Input "Z? ",C
1885. Disp "PT TWO
1886. Input "X? ",D
1887. Input "Y? ",E
1888. Input "Z? ",F
1889. ClrDraw
1890. Text(¯1,0,0,"(",(A+D)/2,",",(B+E)/2,",",(C+F)/2,")
1891. Text(¯1,16,0,"x+x y+y z+z²
1892. Text(¯1,24,0,"-----,-----,-----
1893. Text(¯1,32,0," 2 2 2
1894. Pause
1895. Goto A1
1896. Lbl F4            
1897. Disp "CENTER POINT
1898. Input "X? ",A
1899. Input "Y? ",B
1900. Input "Z? ",C
1901. Input "RADIUS? ",D
1902. ClrDraw
1903. Text(0,0,D^2,"=","(X-",A,")²+(Y-",B,")²+(Z-",C,")²
1904. Pause
1905. Goto A1
1906. Lbl F5            
1907. Disp "PT. 1"
1908. Prompt X,Y
1909. X->A
1910. Y->B
1911. Disp "PT. 2"
1912. Prompt X,Y
1913. (Y-B)/(X-A)->C
1914. ¯AC+B->D
1915. ClrDraw
1916. Text(¯1,0,0,"Y=",round(C,3),"X+",D
1917. Pause
1918. Goto A1
1919. Lbl F6            
1920. Disp "Y=AX+B","Y=AX+D"
1921. Prompt A,B,D
1922. ¯1/A->E
1923. E-A->F
1924. B/F->I
1925. AI+B->J
1926. E-A->F
1927. D/F->N
1928. NA+D->O
1929. Disp sqrt((J-O)^2+(I-N)²
1930. Pause
1931. Goto A1
1932. Lbl F7            
1033. Disp "AX+BY+CZ=D
1934. Disp "EX+FY+GZ=H
1935. Disp "IX+JY+KZ=L
1936. Prompt A,B,C,D,E,F,G,H,I,J,K,L
1937. [[A,B,C][E,F,G][I,J,K]]->[A]
1938. [[D][H][L]]->[B]
1939. [A]*[B]->[C]
1940. 3->dim(L
1941. Matrlist([C],L
1942. Disp "X=",L(1),"Y=",L(2),"Z=",L(3
1943. Pause
1944. Goto A1
1945. Lbl F8            
1946. Disp "AX+BY=C
1947. Prompt A,B,C
1948. ClrDraw
1949. Text(0,0,"Y=",¯round(A/B,3),"X+",round(C/B,3
1950. Pause
1951. Goto A1
1952. Lbl F9            
1953. Disp "(A,B)(C,D)(E,F)
1954. Prompt A,B,C,D,E,F
1955. [[A²,A,1][C²,C,1][E²,E,1->[A]
1956. [[B][D][F->[B]
1957. [A][B]->[C]
1958. ClrDraw
1959. Text(0,0,"Y=",round([C](1,1),2),"X^2+",round([C](2,1),2),"X+",[C](3,1
1960. Pause
1961. Goto A1
1962. Lbl J0            
1963. DelVar Y
1964. AxesOn
1965. Input "Y=",Str1
1966. StringEqu(Str1,Y
1967. Disp "1) Y> or
1968. Disp "2) Y< or
1969. 0->K
1970. While K92 and K93
1971. getKey->K
1972. End
1973. If K=92
1974. "Y"+Str1->Str2
1975. If K=93
1976. "Y"+Str1->Str2
1977. 0->X:99.2->Y
1978. expr(Str2->U
1979. ¯99.2->Y
1980. expr(Str2->L
1981. If L=1
1982. Shade(Ymin,Y
1983. If U=1
1984. Shade(Y,Ymax
1985. Trace
1986. FnOff
1987. AxesOff
1988. Goto A1
1989. Lbl J1            
1990. ClrHome
1991. AxesOn
1992. Menu("--CONICS--","PARABOLA",GF,"ELLIPSE",BK,"HYPERBOLA",CC,"ALL EQAUATIONS",EQ,"QUIT",A1
1993. Lbl EQ            ALL EQAUATIONS
1994. AxesOff
1995. Text(0,0,"-----HYPERBOLAS-----
1996. Text(6,0,"LFT+RT:(X²/A²)-(Y²/B²)=1
1997. Text(12,0,"ASYMPT:Y=+/-(B/A)X
1998. Text(18,0,"UP+DN:(Y²/A²)-(X²/B²)=1
1999. Text(24,0,"ASYMT:Y=+/-(A/B)X
2000. Text(30,0,"C²=A²+B²
2001. Text(36,0,"VERTEX:A+/-(H or K)
2002. Text(42,0,"FOCI:C+/-(H or K)
2003. Text(48,0,"TRAVERSE:2A
2004. Text(54,0,"CONJUGATE:2B
2005. Pause
2006. ClrDraw
2007. Text(0,0,"-----ELLIPSES-----
2008. Text(6,0,"B²=A²-C²
2009. Text(12,0,"MAJOR:2A
2010. Text(18,0,"MINOR:2B
2011. Text(24,0,"A>B ALWAYS
2012. Text(30,0,"(X²/A)+(Y²/B)=1
2013. Pause
2014. Goto A1
2015. Lbl GF            PARABOLA
2016. FnOff
2017. Disp "1)Y=A(X-H)²+K
2018. Disp "2)X=A(Y-K)²+H
2019. Disp "3)FOCS+DIRCX->
2020. Disp "EQUATION
2021. Disp "4)VRTX+FOCUS->
2022. Disp "EQUATION
2923. 0->K
2024. While K92 and K93 and K94 and K82
2025. getKey->K
2026. End
2027. ClrHome
2028. If K=92
2029. Then
2030. Disp "Y=A(X-H)²+K
2031. Prompt A,H,K
2032. ClrDraw
2033. Text(0,0,"AOS: X=",H
2034. Text(6,0,"VERTEX:(",H,",",K,")
2035. Text(12,0,"FOCUS:(",H,",",K+(1/(4A)),")
2036. Text(18,0,"DIRECTIX:Y=",K-(1/(4A
2037. If A>0
2038. Text(24,0,"DIRECTION: UPWARDS
2039. If A<0
2040. Text(24,0,"DIRECTION: DOWNWARDS
2041. Text(30,0,"LATUS RECTUM:",abs(1/A
2042. Pause
2043. "A(X-H)²+K->Y
2044. AxesOn
2045. Pause
2046. Goto A1
2047. End
2048. If K=93
2049. Then
2050. Disp "X=A(Y-K)²+H
2051. Prompt A,K,H
2052. ClrDraw
2053. Text(0,0,"AOS: Y=",K
2054. Text(6,0,"VERTEX:(",H,",",K,")
2055. Text(12,0,"FOCUS:(",H+(1/(4A)),",",K,")
2056. Text(18,0,"DIRECTIX:X=",H-(1/(4(A
2057. If A>0
2058. Text(24,0,"DIRECTION: RIGHT
2059. If A<0
2060. Text(24,0,"DIRECTION: LEFT
2061. Text(30,0,"LATUS RECTUM:",abs(1/A
2062. Pause
2063. AxesOn
2064. "√(A(X-H))+K->Y
2065. "√(A(X-H))+K->Y
2066. Pause
2067. Goto A1
2068. End
2069. If K=94
2070. Then
2071. ClrHome
2072. Disp "FOCUS:
2073. Prompt X,Y
2074. Disp "1) Y=
2075. Disp "2) X=
2076. 0->L
2077. While L92 and L93
2078. getKey->L
2079. End
2080. Input "=?",A
2081. X->H
2082. If L=92
2083. Then
2084. (A+Y)/2->K
2085. 1/(4(Y-K->A
2086. ClrDraw
2087. Text(0,0,"Y=",A,"(X-",H,")²+",K
2088. Pause
2089. Goto A1
2090. End
2091. If L=93
2092. Then
2093. Y->K
2094. (A+X)/2->H
2095. 1/(4(X-H->A
2096. ClrDraw
2097. Text(0,0,"X=",A,"(Y-",K,")²+",H
2098. Pause
2099. Goto A1
2100. End
2101. End
2102. If K=82
2103. Then
2104. Disp "VERTEX
2105. Input "X? ",H
2106. Input "Y? ",K
2107. Disp "FOCUS
2108. Input "X? ",M
2109. Input "Y? ",P
2110. If H=M
2111. Then
2112. 1/(4(P-K->A
2113. ClrDraw
2114. Text(0,0,"Y=",A,"(X-",H,")²+",K
2115. Pause
2116. Goto A1
2117. Else
2118. 1/(4(M-H->A
2119. ClrDraw
2120. Text(0,0,"X=",A,"(Y-",K,")²+",H
2121. Pause
2122. Goto A1
2123. End
2124. End
2125. Lbl BK            ELLIPSE
2126. Disp "(X+A)² + (Y+C)²
2127. Disp "------ -----=1
2128. Disp " B D
2129. Prompt A,B,C,D
2130. ClrDraw
2131. Text(0,0,"CENTER: (",¯A,",",¯C,")
2132. If B 2133. Then
2134. Text(6,0,"FOCI: (",¯A,",",¯C,"+/-sqrt(",¯(B-D),"))
2135. B->L
2136. D->B
2137. L->D
2138. Else
2139. Text(6,0,"FOCI: (",¯A,"+/-sqrt(",¯(B-D),"),",¯C,")
2140. End
2141. Text(12,0,"MAJOR:",2√(B
2142. Text(18,0,"MINOR:",2√(D
2143. Pause
2144. Goto A1
2145. Lbl CC            HYPERBOLA
2146. 1->U
2147. Menu("PICK? ","(X+A)² -(Y+B)²",FJ,"(Y+B)² -(X+A)²",NF
2148. Lbl NF            
2149. 0->U
2150. Lbl FJ            
2151. If U=1
2152. Disp "(X+A)² - (Y+C)²
2153. If U=0
2154. Disp "(Y+A)² - (X+C)²
2155. Disp "------ -----=1
2156. Disp " B D
2157. Disp
2158. Prompt A,B,C,D
2159. ClrDraw
2160. If U=1
2161. Then
2162. Text(0,0,"CENTER: (",¯A,",",¯C,")
2163. Text(6,0,"VERTECIES: (",¯A,"+/-sqrt(",B,"),",¯C,")
2164. Text(12,0,"FOCI: (",¯A,"+/-sqrt(",B+D,"),",¯C,")
2165. Text(18,0,"ASYMPT: Y=+/-(",sqrt(D),"/",sqrt(B),")
2166. Text(24,0,"TRANSVERSE: ",2sqrt(B
2167. Text(30,0,"CONJUGATE: ",2sqrt(D
2168. Else
2169. Text(0,0,"CENTER: (",¯C,",",¯A,")
2170. Text(6,0,"VERTECIES: (",¯C,",",¯A,"+/-sqrt(",B,")
2171. Text(12,0,"FOCI: (",¯C,",",¯A,"+/-sqrt(",B+D,"))
2172. Text(18,0,"ASYMPT: Y=+/-(",sqrt(B),"/",sqrt(D),")
2173. Text(24,0,"TRANSVERSAL: ",2sqrt(B
2174. Text(30,0,"CONJUGATE: ",2sqrt(D
2175. End
2176. Pause
2177. Goto A1
2178. Lbl J2            
2179. Disp "LOGι(A)"
2180. Prompt L,A
2181. solve(L^X-A,X,0,{999999,999999}
2182. Disp round(Ans,4
2183. Pause
2184. Goto A1
2185. Disp "USE N FOR VARIAB
2186. Input "EXPRESSION?",Str1
2187. Input "FIRST?",A
2188. Input "MAX?",B
2189. Disp sum(seq(expr(Str1),N,A,B,1))
2190. Pause
2191. Goto A1
2192. Lbl J4            
2193. Lbl J5            
2194. Pause
2195. Goto A1
2196.
2197.
REFERENCE
   
AREA
Circle
Area enclosed by a circle
   Three (3) different ways to calculate the area of a circle are given below, with a formula for each.
Circle Formulas
   Drexel University School of Education
Standard Mathematical Tables and Formulae
With more than 6,000 entries, CRC Standard Mathematical Tables and Formulae, proceeds to supply important formulas, tables, figures, and descriptions.

Rectangle
Area of a rectangle
Rectangle Formulas
Rectangle Area Formulas
A=LW
   L=3
   W=4
A=L*W   A=3*4=12
A=1/2sqrt(a^2+c^2)(b^2+d^2)   =1/2sqrt(3^2+3^2)(4^2+4^2)=1/2sqrt(9+9)(16+16)=1/2sqrt(18*32)=1/2sqrt(576)=1/2*24=12
A=1/4 (a+c)(b+d)=   [(3+3)*(4+4)]/4=(6*8)/4=48/4=12
Square
Area of a Square
   Two (2) different ways to calculate the area of a square are given below, with a formula for each.
The square is defined as having all sides equal, and its interior angles all right angles (90). From this it follows that the opposite sides are also parallel.

Trapezoid
Area of a trapezoid
A quadrilateral which has at least one pair of parallel sides

Triangle
Area of a triangle
   Five (5) different ways to calculate the area of a triangle are given below, with a formula for each.

Parallelogram
Area of a parallelogram
A quadrilateral with both pairs of opposite sides parallel.

Rhombus
Area of a rhombus
   Three (3) different ways to calculate the area of a rhombus are given below, with a formula for each.
A quadrilateral with all four sides equal in length.

Polygon
Area of a regular polygon
   Three (3) different ways to calculate the area of a regular polygon are given below, with a formula for each.

VOLUME
Cone
Volume of a cone
Cylinder
Volume enclosed by a cylinder
Pyramid
Volume of a pyramid
Volume of a Pyramid
Pyramid (geometry)
Rectangular Pyramid
A pyramid is a solid figure with a polygonal base and triangular faces that meet at a common point, called the apex. A pyramid is described by the shape of its base.
Prism Rectangular
Sphere
Volume of a sphere
Cube
Volume enclosed by a cube
Prism Right

Volume and Surface of some Common Solids
Resources, Tools and Basic Information
Volume Formulas
Volume and Surface Area Calculator
cube, barrel, cone, sphere, torus, cylinder, pyramid, parallelepiped, hexagonal prism
CLEP MATH TEST PREP
EXAMPLES:
   
Area
   Volume
   Surface Area
SCREENSHOTS   Screenshots
 
picture from AnVisionWebTemplates.com
FREE TUTORIALS © copyright 2000-2013 @ Cadet Career Counseling all rights reserved
"Cadet Career Counseling" helping cadets make exceptional students.
Contact Webmaster at:(navyfalcon) e-mail
Solutions Manual for the GRE Mathematics Subject Test GR0568 (Corrected Version) --Author: Eric Flaten
This manual contains a solution for each of the 66 problems for the ETSs practice test GR0568, which is a retired GRE mathematics subject test

Student Solutions Manual for Freitag's Mathematics for Elementary School Teachers: A Process Approach, 1s --Author: Freitag

Student Solution Manual for Foundation Mathematics for the Physical Sciences
This Student Solution Manual provides complete solutions to all the odd-numbered problems in Foundation Mathematics for the Physical Sciences. It takes students through each problem step-by-step, so they can clearly see how the solution is reached, and understand any mistakes in their own working.

A Student Solutions Manual for Introduction to Mathematical Statistics and Its Applications, 4th edition
Mathematical Proofs: A Transition to Advanced Mathematics
Basic mathematics skills
Basic mathematics is what this website will teach you. It is designed for anyone who needs a basic understanding of mathematics concepts and operations. Instruction is carefully sequenced to follow a logical order.

Khan Academy: Over 700 Free Math Instruction Videos
Khan Academy has "over 700 videos covering everything from basic arithmetic and algebra to differential equations, physics, and finance

Introduction to Mathematics and Algebra
Provides a review of basic arithmetic and elementary algebra; includes fractions, decimals, percentages, exponents, radicals, logarithms; exercises in factoring polynomials, linear equations, ratio, proportion, variation, complex numbers and quadratic equations; presents brief introduction to plane figures, geometric construction, and trigonometry.

Pre-Calculus and Intro to Probability
Contains information on the following subjects: straight lines, conic sections, tangents, normals, slopes; introduction to differential and integral calculus; combinations and permutations; and introduction to probability.

Mathematical Formula Handbook pdf
Speigel, M.R., Mathematical Handbook of Formulas and Tables. (Schaums Outline Series, McGraw-Hill, 1968). Physical Constants
Handbook of Mathematical Functions: With Formulas, Graphs, and Mathematical Tables
Students and professionals in the fields of mathematics, physics, engineering, and economics will find this reference work invaluable. A classic resource for working with special functions, standard trig, and exponential logarithmic definitions and extensions
Math Handbook of Formulas, Processes and Tricks Geometry
This study guide was prepared to be a companion to most books on the subject of High School Geometry