Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
71 lines (64 sloc) 1.06 KB
Lbl M
ClrHome
Menu(" Which Method? ","Find Slope",A,"Find Distance",B,"Find Midpoint",C,"Point Slope Form",D,"Program Info",I,"Quit",Q
Lbl A
Input "X1 > ",A
Input "Y1 > ",B
Input "X2 > ",D
Input "Y2 > ",E
(E-B)/(D-A)→C
Disp "","Slope is: "+eval(C)
Goto Q
Lbl B
Input "X1 > ",A
Input "Y1 > ",B
Input "X2 > ",C
Input "Y2 > ",D
(C-A)²+(D-B)²→E
√(E)→G
round(G,0)→F
"Distance: "→Str6
If G=F
Then
Str6+eval(G)→Str6
Else
Str6+"√("+eval(E)+")"→Str6
End
Disp "",Str6
Goto Q
Lbl C
Input "X1 > ",A
Input "Y1 > ",D
Input "X2 > ",B
Input "Y2 > ",E
(A+B)/2→⌊MDPT(1)
(D+E)/2→⌊MDPT(2)
Disp "","Midpoint: ("+eval(⌊MDPT(1))+","+eval(⌊MDPT(2))+")"
Goto Q
Lbl D
ClrHome
Input "Slope > ",S
Input "X-Value > ",A
Input "Y-Value > ",B
S*­(A)→C
B+C→E
0→R
0→V
Repeat S=T
V+1→V
remainder(S,10^V)→T
End
Disp ""
Disp "y="+eval(S)+"x+"+eval(E)
Goto Q
Lbl I
Output(1,1,"Math Utilities"
Output(2,1,"Made by: Chewsterchew"
Output(3,1,"http://ti84.chew.pw
Output(4,1,"Version: 1.2
Output(10,1,"Press Any Key to Continue"
Repeat K≠0
getKey→K
End
Goto M
Lbl Q