User-Friendly Quadratic Program

Program Archives » User-Friendly Quadratic Program

We're glad you came by, but you might find what you're looking for elsewhere.

TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it.

Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

You have not uploaded your program! Please edit the page to upload your program.

Author:	Kydapoot
Download:	QUADRTC.8xpNo Download Available
Version:	1.0
Compatibility:	TI-83/84/+/SE
File Size:	447 Bytes
Genre:	Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc
Rating:

This is a program where you input A,B, and C and it calculates the vertex of the parabola and then the roots (if any). If there are two roots they all be listed, if there is one root, it will be listed twice. If there are no roots, ERR:NONREAL ANS comes up. Simply press enter twice from here to resume the program. As well as calculating these values, it also graphs the equation (stored into Y1). This is not shown in the program, but can be viewed after exiting. The program also includes a list of equation forms and a square root finder for calculating discriminants. It does not require anything other than a few variables to run. They are deleted after the program is finished. The program is not locked, to the best of my knowledge.

What the community thinks:

Hide All Comments Unfold All Fold All

Fold

Trenly 29 Mar 2016 14:58

Lbl A
ClrHome
Menu("QUADRATICS","SOLVER",1,"SQUARE ROOT",4,"EQUATIONS",3,"QUIT",10
Lbl 1
ClrHome
Disp "AX²+BX+C=0
Prompt A,B,C
"AX^2+BX+C"→Y₁
⁻B→Q
2A→R
Q/R→S
AS²+BS+C→V
ClrHome
Disp "VERTEX:",S,V
Pause 
(⁻B+√(B²-4AC))⁄(2A→F
(⁻B-√(B²-4AC))⁄(2A→E
Disp "ROOTS:",F,E
Pause 
Goto A
Lbl 3
ClrHome
Disp "STANDARD FORM:","AX²+BX+C","VERTEX FORM:","A(X-H)²+K","FACTORED/BINOML:","(M+N)(O+P)","SYMMETRY EQTION:
Output(8,1,"⁻B⁄2A
Pause 
Goto A
Lbl 4
ClrHome
Input "√(  ):",W
√(W→W
Disp W
W*⁻1→X
Disp X
Pause 
Goto A
Lbl 10
ClrHome
DelVar ADelVar BDelVar CDelVar XDelVar QDelVar SDelVar RDelVar VDelVar WStop

I used TokenIDE to see the code, and I noticed a few optimizations. Pause can be used the same as Disp, and there was a statement that I simplified by not calculating a value and storing it, just to use that value once. Also, adding the a+bi at the beginning prevents the nonreal answer error. My code comes out to 399 bytes

a+bi
Lbl A
ClrHome
Menu("QUADRATICS","SOLVER",1,"SQUARE ROOT",4,"EQUATIONS",3,"QUIT",10
Lbl 1
ClrHome
Disp "AX²+BX+C=0
Prompt A,B,C
"AX^2+BX+C"→Y₁
⁻B/2A→S
AS²+BS+C→V
ClrHome
Pause "VERTEX:",S,V
Pause "ROOTS:",(⁻B+√(B²-4AC))⁄(2A,(⁻B-√(B²-4AC))⁄(2A
Goto A
Lbl 3
ClrHome
Disp "STANDARD FORM:","AX²+BX+C","VERTEX FORM:","A(X-H)²+K","FACTORED/BINOML:","(M+N)(O+P)","SYMMETRY EQTION:
Output(8,1,"⁻B⁄2A
Pause 
Goto A
Lbl 4
ClrHome
Input "√(  ):",W
√(W→W
Pause W,-W
Goto A
Lbl 10
ClrHome
DelVar ADelVar BDelVar CDelVar SDelVar VDelVar WReturn

Last edited on 29 Mar 2016 14:58 by Trenly Show more

Reply Options

Unfold by

Trenly, 29 Mar 2016 14:58

Fold

Link to Optimized Version