API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 21st, 2013
74
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.55 KB | None | 0 0
raw download clone embed print report
  1. :Lbl Z
  2. :ClrText
  3. :Menu "Equations","Alg. Equations",A,"Geo. Equations",B,"Other",C,"Quit",E
  4. :Lbl E
  5. :ClrText
  6. :Stop
  7. :Lbl A
  8. :ClrText
  9. :Menu "Alg. Equations","Slope",20,"Pythagorean T.",21,"Distance",22,"Midpoint",23,"Quadratic",24,"Falling Object",64
  10. :Lbl 20
  11. :"Y1="?→A
  12. :"Y2="?→B
  13. :"X1="?→C
  14. :"X2="?→D
  15. :ClrText
  16. :((B-A)/(D-C))
  17. :While Getkey≠31
  18. :WhileEnd
  19. :ClrText
  20. :Goto Z
  21. :Lbl 21
  22. :ClrText
  23. :Menu "Pythagorean T.","Finding A",25,"Finding B",26,"Finding C",27)
  24. :Lbl 25
  25. :ClrText
  26. :"B="?→B
  27. :"C="?→C
  28. :ClrText
  29. :sqrt(C{^2}-B{^2})
  30. :While Getkey≠31
  31. :WhileEnd
  32. :ClrText
  33. :Goto Z
  34. :Lbl 26
  35. :ClrText
  36. :"A="?→A
  37. :"C="?→C
  38. :ClrText
  39. :sqrt(C{^2}-A{^2})
  40. :While Getkey≠31
  41. :WhileEnd
  42. :ClrText
  43. :Goto Z
  44. :Lbl 27
  45. :ClrText
  46. :"A="?→A
  47. :"B="?→B
  48. :ClrText
  49. :sqrt(A{^2}+B{^2})
  50. :While Getkey≠31
  51. :WhileEnd
  52. :ClrText
  53. :Goto Z
  54. :Lbl 22
  55. :ClrText
  56. :"X1="?→A
  57. :"Y1="?→C
  58. :"X2="?→B
  59. :"Y2="?→D
  60. :ClrText
  61. :sqrt((B-A){^2}+(D-C){^2})
  62. :While Getkey≠31
  63. :WhileEnd
  64. :ClrText
  65. :Goto Z
  66. :Lbl 23
  67. :ClrText
  68. :"X1="?→A
  69. :"Y1="?→B
  70. :"X2="?→C
  71. :"Y2="?→D
  72. :ClrText
  73. :Locate 1,1,((A+C)/2)
  74. :Locate 1,6,",
  75. :Locate 1,8,((B+D)/2)
  76. :While Getkey≠31
  77. :WhileEnd
  78. :ClrText
  79. :Goto Z
  80. :Lbl 24
  81. :ClrText
  82. :Menu "Quadratic","X-Intercept",66,"Vertex",67,"Axis of Symm.",68,"B{^2}-4AC",69,"Factors",70,"All",81)
  83. :Lbl 67
  84. :ClrText
  85. :"A="?→A
  86. :"B="?→B
  87. :"C="?→C
  88. :ClrText
  89. :{-}B/(2A)→X
  90. :AX{^2}+BX+C→Y
  91. :Locate 1,1,"(
  92. :Locate 1,2,X
  93. :Locate 1,8,",
  94. :Locate 1,9,Y
  95. :Locate 1,16,")
  96. :While Getkey≠31
  97. :WhileEnd
  98. :ClrText
  99. :Goto Z
  100. :Lbl 68
  101. :ClrText
  102. :"A="?→A
  103. :"B="?→B
  104. :ClrText
  105. :{-}B/2A→C
  106. :C
  107. :While Getkey≠31
  108. :WhileEnd
  109. :ClrText
  110. :Goto Z
  111. :Lbl 69
  112. :"A="?→A
  113. :"B="?→B
  114. :"C="?→C
  115. :ClrText
  116. :B{^2}-4AC→D
  117. :D
  118. :While Getkey≠31
  119. :WhileEnd
  120. :ClrText
  121. :Goto Z
  122. :Lbl 66
  123. :ClrText
  124. :"A="?→A
  125. :"B="?→B
  126. :"C="?→C
  127. :ClrText
  128. :B{^2}-4AC→H
  129. :If H<0
  130. :"No Solution"
  131. :While Getkey≠31
  132. :WhileEnd
  133. :ClrText
  134. :Goto 90
  135. :End
  136. :If H≥0
  137. :({-}B+sqrt((B{^2}-4AC)))/(2A)→E
  138. :({-}B-sqrt((B{^2}-4AC)))/(2A)→F
  139. :Locate 1,1,"Plus="
  140. :Locate 1,6?→E)
  141. :Locate 4,1,"Minus="
  142. :Locate 4,7?→F)
  143. :While Getkey≠31
  144. :WhileEnd
  145. :ClrText
  146. :Goto 90
  147. :Lbl 90
  148. :ClrText
  149. :Menu "Again?","Yes",66,"No",Z)
  150. :Lbl 81
  151. :"A="?→A
  152. :"B="?→B
  153. :"C="?→C
  154. :ClrText
  155. :{-}B/(2A)→X
  156. :AX{^2}+BX+C→Y
  157. :Locate 1,1,"V=
  158. :Locate 1,3,"(
  159. :Locate 1,4,X
  160. :Locate 1,8,",
  161. :Locate 1,9,Y
  162. :Locate 1,16,")
  163. :Locate 2,1,"AOS=
  164. :Locate 2,5,X
  165. :B{^2}-4AC→H
  166. :Locate 3,1,"B{^2}-4AC=
  167. :Locate 3,8,H
  168. :If H<0
  169. :Locate 4,1,"No Solution"
  170. :While Getkey≠31
  171. :WhileEnd
  172. :ClrText
  173. :Goto Z
  174. :End
  175. :If H≥0
  176. :({-}B+sqrt((B{^2}-4AC)))/(2A)→E
  177. :({-}B-sqrt((B{^2}-4AC)))/(2A)→F
  178. :Locate 4,1,"X-Plus="
  179. :Locate 4,8?→E)
  180. :Locate 5,1,"X-Minus="
  181. :Locate 5,9?→F)
  182. :While Getkey≠31
  183. :WhileEnd
  184. :ClrText
  185. :Goto Z
  186. :Lbl B
  187. :ClrText
  188. :Menu "Geo. Equations","Surface Area",1,"Volume",2,"Area",3,"Perimeter",4,"Circumference",5,"Angles",W)
  189. :Lbl W
  190. :ClrText
  191. :Menu "Angles","Interior Sum",78,"Special Triangle",ST,"Law of Sines",UP,"Law of Cosines",UQ
  192. :Lbl UQ
  193. :ClrText
  194. :Menu "Law of Cosines","Find Side",FI,"Find Angle",FG
  195. :Lbl FI
  196. :"A1="?→A
  197. :"b="?→B
  198. :"c="?→C
  199. :ClrText
  200. :sqrt(((B{^2})+(C{^2})-(2BC)*cos(A)))
  201. :While Getkey≠31
  202. :WhileEnd
  203. :ClrText
  204. :Goto Z
  205. :Lbl FG
  206. :Degree
  207. :"a="?→A
  208. :"b="?→B
  209. :"c="?→C
  210. :ClrText
  211. :cos{^-1}((A{^2}-(B{^2}+C{^2}))/({-}2BC))
  212. :While Getkey≠31
  213. :WhileEnd
  214. :ClrText
  215. :Radian
  216. :Goto Z
  217. :Lbl ST
  218. :ClrText
  219. :Menu "Special Triangle","45-45-90",SU,"30-60-90",SV
  220. :Lbl SU
  221. :ClrText
  222. :Menu "45-45-90","Find Leg",SL,"Find Hypo.",SH
  223. :Lbl SL
  224. :"H="?→A
  225. :ClrText
  226. :A/sqrt(2)
  227. :While Getkey≠31
  228. :WhileEnd
  229. :ClrText
  230. :Goto Z
  231. :Lbl SH
  232. :"L="?→A
  233. :ClrText
  234. :Asqrt(2)
  235. :While Getkey≠31
  236. :WhileEnd
  237. :ClrText
  238. :Goto Z
  239. :Lbl SV
  240. :ClrText
  241. :Menu "30-60-90","Find Short",FS,"Find Long",FL,"Find Hypo.",FH
  242. :Lbl FS
  243. :ClrText
  244. :Menu "USING WHAT?","Long Side",LO,"Hypotenuse",HY
  245. :Lbl LO
  246. :"LS="?→A
  247. :ClrText
  248. :A/sqrt(3)
  249. :While Getkey≠31
  250. :WhileEnd
  251. :ClrText
  252. :Goto Z
  253. :Lbl HY
  254. :"H="?→A
  255. :ClrText
  256. :A/2
  257. :While Getkey≠31
  258. :WhileEnd
  259. :ClrText
  260. :Goto Z
  261. :Lbl FL
  262. :ClrText
  263. :Menu "USING WHAT?","Short Side",SS,"Hypotenuse",HP
  264. :Lbl SS
  265. :"SS="?→A
  266. :ClrText
  267. :Asqrt(3)
  268. :While Getkey≠31
  269. :WhileEnd
  270. :ClrText
  271. :Goto Z
  272. :Lbl HP
  273. :"H="?→A
  274. :ClrText
  275. :(A/2)*sqrt(3)
  276. :While Getkey≠31
  277. :WhileEnd
  278. :ClrText
  279. :Goto Z
  280. :Lbl FH
  281. :ClrText
  282. :Menu "USING WHAT?","Short Side",SD,"Long Side",LD
  283. :Lbl SD
  284. :"SS="?→A
  285. :ClrText
  286. : A*2
  287. :While Getkey≠31
  288. :WhileEnd
  289. :ClrText
  290. :Goto Z
  291. :Lbl LD
  292. :"LS="?→A
  293. :ClrText
  294. :(A/sqrt(3))*2
  295. :While Getkey≠31
  296. :WhileEnd
  297. :ClrText
  298. :Goto Z
  299. :Lbl UP
  300. :ClrText
  301. :Menu "Law of Sines","Find Side",UR,"Find Angle",US
  302. :Lbl UR
  303. :"A1="?→A
  304. :"A2="?→B
  305. :"SA1="?→C
  306. :ClrText
  307. :(sin(Bº)*C)/sin(Aº)
  308. :While Getkey≠31
  309. :WhileEnd
  310. :ClrText
  311. :Goto Z
  312. :Lbl US
  313. :"S1="?→A
  314. :"S2="?→B
  315. :"AS1="?→C
  316. :ClrText
  317. :sin{^-1}((sin(Cº)*B)/A)
  318. :While Getkey≠31
  319. :WhileEnd
  320. :ClrText
  321. :Goto Z
  322. :Lbl 78
  323. :"NoS="?→A
  324. :ClrText
  325. :((A-2)*180)
  326. :While Getkey≠31
  327. :WhileEnd
  328. :ClrText
  329. :Goto Z
  330. :Lbl 1
  331. :ClrText
  332. :Menu "Surface Area","Cylinder",6,"Cube",7,"Rectangular P.",8,"Sphere",9,"Triangular Pr.",10)
  333. :Lbl 6
  334. :ClrText
  335. :"H="?→A
  336. :"R="?→B
  337. :ClrText
  338. :2πB{^2}+2πBA
  339. :While Getkey≠31
  340. :WhileEnd
  341. :ClrText
  342. :Goto Z
  343. :Lbl 7
  344. :ClrText
  345. :"S="?→A
  346. :ClrText
  347. :6A{^2}
  348. :While Getkey≠31
  349. :WhileEnd
  350. :ClrText
  351. :Goto Z
  352. :Lbl 9
  353. :ClrText
  354. :"R="?→A
  355. :ClrText
  356. :4πA{^2}
  357. :While Getkey≠31
  358. :WhileEnd
  359. :ClrText
  360. :Goto Z
  361. :Lbl 8
  362. :ClrText
  363. :"L="?→A
  364. :"W="?→B
  365. :"H="?→C
  366. :ClrText
  367. :((A*B)*2)+((B*C)*2)+((A*C)*2)
  368. :While Getkey≠31
  369. :WhileEnd
  370. :ClrText
  371. :Goto Z
  372. :Lbl 10
  373. :ClrText
  374. :"B="?→A
  375. :"H="?→B
  376. :"S1="?→C
  377. :"S2="?→D
  378. :"S3="?→E
  379. :ClrText
  380. :AB+(C+D+E)B
  381. :While Getkey≠31
  382. :WhileEnd
  383. :ClrText
  384. :Goto Z
  385. :Lbl 2
  386. :ClrText
  387. :Menu "Volume","Cube",11,"Sphere",12,"Rectangular P.",13,"Triangular P.",14,"Cone",16,"Pyramid",15,"Cylinder",17)
  388. :Lbl 11
  389. :ClrText
  390. :"S="?→A
  391. :ClrText
  392. :A{^3}
  393. :While Getkey≠31
  394. :WhileEnd
  395. :ClrText
  396. :Goto Z
  397. :Lbl 12
  398. :ClrText
  399. :"R="?→A
  400. :ClrText
  401. :(4/3)πA{^3}
  402. :While Getkey≠31
  403. :WhileEnd
  404. :ClrText
  405. :Goto Z
  406. :Lbl 13
  407. :ClrText
  408. :"L="?→A
  409. :"W="?→B
  410. :"H="?→C
  411. :ClrText
  412. :A*B*C
  413. :While Getkey≠31
  414. :WhileEnd
  415. :ClrText
  416. :Goto Z
  417. :Lbl 16
  418. :ClrText
  419. :"R="?→A
  420. :"H="?→B
  421. :ClrText
  422. :(1/3)πA{^2}B
  423. :While Getkey≠31
  424. :WhileEnd
  425. :ClrText
  426. :Goto Z
  427. :Lbl 14
  428. :ClrText
  429. :"L="?→A
  430. :"W="?→B
  431. :"H="?→C
  432. :ClrText
  433. :(1/2)ABC
  434. :While Getkey≠31
  435. :WhileEnd
  436. :ClrText
  437. :Goto Z
  438. :Lbl 17
  439. :ClrText
  440. :Menu "CYLINDER","Find Volume"?→FV,"Find Radius"?→FR,"Find Height"?→FQ
  441. :Lbl FR
  442. :ClrText
  443. :"V="?→A
  444. :"H="?→B
  445. :ClrText
  446. :sqrt(A/(πB))
  447. :While Getkey≠31
  448. :WhileEnd
  449. :ClrText
  450. :Goto Z
  451. :Lbl FQ
  452. :ClrText
  453. :"V="?→A
  454. :"R="?→B
  455. :ClrText
  456. :A/(πB{^2})
  457. :While Getkey≠31
  458. :WhileEnd
  459. :ClrText
  460. :Goto Z
  461. :Lbl FV
  462. :ClrText
  463. :"R="?→A
  464. :"H="?→B
  465. :ClrText
  466. :πA{^2}B
  467. :While Getkey≠31
  468. :WhileEnd
  469. :ClrText
  470. :Goto Z
  471. :Lbl 15
  472. :ClrText
  473. :"B="?→A
  474. :"H="?→B
  475. :ClrText
  476. :(1/3)AB
  477. :While Getkey≠31
  478. :WhileEnd
  479. :ClrText
  480. :Goto Z
  481. :Lbl 3
  482. :ClrText
  483. :Menu "Area","Square",28,"Triangle",29,"Rectangle",30,"Trapezoid",31,"Circle",ZY)
  484. :Lbl ZY
  485. :ClrText
  486. :"R="?→A
  487. :ClrText
  488. :πA{^2}
  489. :While Getkey≠31
  490. :WhileEnd
  491. :ClrText
  492. :Goto Z
  493. :Lbl 28
  494. :ClrText
  495. :"S="?→A
  496. :ClrText
  497. :A{^2}
  498. :While Getkey≠31
  499. :WhileEnd
  500. :ClrText
  501. :Goto Z
  502. :Lbl 29
  503. :ClrText
  504. :"B="?→A
  505. :"H="?→B
  506. :ClrText
  507. :(1/2)AB
  508. :While Getkey≠31
  509. :WhileEnd
  510. :ClrText
  511. :Goto Z
  512. :Lbl 30
  513. :ClrText
  514. :"L="?→A
  515. :"W="?→B
  516. :ClrText
  517. :AB
  518. :While Getkey≠31
  519. :WhileEnd
  520. :ClrText
  521. :Goto Z
  522. :Lbl 31
  523. :ClrText
  524. :"H="?→A
  525. :"B1="?→B
  526. :"B2="?→C
  527. :ClrText
  528. :(1/2)A(B+C)
  529. :While Getkey≠31
  530. :WhileEnd
  531. :ClrText
  532. :Goto Z
  533. :Lbl 5
  534. :ClrText
  535. :Menu "****************","Find Circum."?→AA,"Find Radius"?→BB)
  536. :Lbl BB
  537. :ClrText
  538. :"Circum.:"?→A
  539. :ClrText
  540. :A/(2π)
  541. :While Getkey≠31
  542. :WhileEnd
  543. :ClrText
  544. :Goto Z
  545. :Lbl AA
  546. :ClrText
  547. :"R="?→A
  548. :ClrText
  549. :2πA
  550. :While Getkey≠31
  551. :WhileEnd
  552. :ClrText
  553. :Goto Z
  554. :Lbl 4
  555. :ClrText
  556. :"Do it yourself!"
  557. :While Getkey≠31
  558. :WhileEnd
  559. :ClrText
  560. :"You are lazy,","and lazy people","should be","shunned!"
  561. :While Getkey≠31
  562. :WhileEnd
  563. :ClrText
  564. :Goto Z
  565. :Lbl C
  566. :ClrText
  567. :Menu "Other","Average Speed",36,"Intrest",50,"Fibonacci",55)
  568. :Lbl 36
  569. :ClrText
  570. :Menu "................","Finding R",38,"Finding T",39,"Finding D",40)
  571. :Lbl 38
  572. :ClrText
  573. :"D="?→A
  574. :"T="?→B
  575. :ClrText
  576. :A/B
  577. :While Getkey≠31
  578. :WhileEnd
  579. :ClrText
  580. :Goto Z
  581. :Lbl 39
  582. :ClrText
  583. :"D="?→A
  584. :"R="?→B
  585. :ClrText
  586. :A/B
  587. :While Getkey≠31
  588. :WhileEnd
  589. :ClrText
  590. :Goto Z
  591. :Lbl 40
  592. :ClrText
  593. :"R="?→A
  594. :"T="?→B
  595. :ClrText
  596. :A*B
  597. :While Getkey≠31
  598. :WhileEnd
  599. :ClrText
  600. :Goto Z
  601. :Lbl 50
  602. :ClrText
  603. :Menu "****************","Finding I",51,"Finding P",52,"Finding R",53,"Finding T",54)
  604. :Lbl 51
  605. :ClrText
  606. :"P="?→A
  607. :"R(Percent)="?→B
  608. :"T(Years)="?→C
  609. :ClrText
  610. :B/100→B
  611. :ABC
  612. :While Getkey≠31
  613. :WhileEnd
  614. :ClrText
  615. :Goto Z
  616. :Lbl 52
  617. :ClrText
  618. :"I="?→A
  619. :"R(Percent)="?→B
  620. :"T(Years)="?→C
  621. :ClrText
  622. :B/100→B
  623. :A/(B*C)
  624. :While Getkey≠31
  625. :WhileEnd
  626. :ClrText
  627. :Goto Z
  628. :Lbl 53
  629. :ClrText
  630. :"I="?→A
  631. :"P="?→B
  632. :"T(Years)="?→C
  633. :ClrText
  634. :A/(B*C)→D
  635. :D*100
  636. :While Getkey≠31
  637. :WhileEnd
  638. :ClrText
  639. :Goto Z
  640. :Lbl 54
  641. :ClrText
  642. :"I="?→A
  643. :"P="?→B
  644. :"R(Percent)="?→C
  645. :ClrText
  646. :C/100→C
  647. :A/(B*C)
  648. :While Getkey≠31
  649. :WhileEnd
  650. :ClrText
  651. :Goto Z
  652. :Lbl 55
  653. :ClrText
  654. :"N="?→A
  655. :ClrText
  656. :(1.6180339887498948482045868^A/sqrt(5))-(({-}.6180339887498948482045868)^6/sqrt(5))
  657. :If Ans≥10000000000
  658. :Float
  659. :Ans
  660. :While Getkey≠31
  661. :WhileEnd
  662. :ClrText
  663. :Goto Z
  664. :End
  665. :If Ans<10000000000
  666. :Fix 0
  667. :Ans
  668. :While Getkey≠31
  669. :WhileEnd
  670. :ClrText
  671. :Float
  672. :Goto Z
  673. :End
  674. :Lbl 64
  675. :ClrText
  676. :"S="?→A
  677. :ClrText
  678. :0-A→B
  679. :B/{-}16→C
  680. :sqrt(C)→D
  681. :D
  682. :While Getkey≠31
  683. :WhileEnd
  684. :ClrText
  685. :Goto Z
  686. :Lbl 70
  687. :ClrText
  688. :"A="?→A
  689. :"B="?→B
  690. :"C="?→C
  691. :ClrText
  692. :0→G
  693. :If B{^2}-4AC<0
  694. : "No Solution"
  695. :While Getkey≠31
  696. :WhileEnd
  697. :ClrText
  698. :Stop
  699. :End
  700. :If A>0
  701. :A-1→D
  702. :A→I
  703. :A→K
  704. :End
  705. :If A<0
  706. :A-1→D
  707. :A→I
  708. :0→K
  709. :End
  710. :If C>0
  711. :C-1→E
  712. :C→J
  713. :C→L
  714. :End
  715. :If C<0
  716. :C-1→E
  717. :C→J
  718. :0→L
  719. :End
  720. :For(H,{-}5000,5000)
  721. :If D*I=A
  722. :Goto ZZ
  723. :End
  724. :If I=K
  725. :D+1→D
  726. :{-}A-1→I
  727. :End
  728. :I+1→I
  729. :End
  730. :Lbl ZZ
  731. :For(H,{-}5000,5000
  732. :If E*J=C
  733. :Goto YY
  734. :End
  735. :If J=L
  736. :E+1→E
  737. :{-}C-1→J
  738. :End
  739. :J+1→J
  740. :End
  741. :Lbl YY
  742. :Locate 1,2,"(
  743. :Locate 1,3?→D
  744. :Locate 1,5,"X
  745. :Locate 1,6,"+
  746. :Locate 1,8,J
  747. :Locate 1,10,")
  748. :Locate 2,2,"(
  749. :Locate 2,3,I
  750. :Locate 2,5,"X
  751. :If B>0
  752. :Locate 2,6,"+
  753. :End
  754. :If B<0
  755. :Locate 2,6,"-
  756. :End
  757. :Locate 2,8?→E
  758. :Locate 2,10,")
  759. :While Getkey≠31
  760. :WhileEnd
  761. :ClrText
  762. :Goto Z
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!