TI Basic: Math Programs


Here are some programs involving math that I have found online or created on my own.


CHI

Use this program to calculate the Chi-Square value, based on observed and expected values.

:ClrHome
:Input "O:",A
:Input "E:",B
:(A-B)2/B→C
:ClrHome
:Output(1,1,C)

DYDX

I created this while taking Calculus during my junior year of high school. This program asks you to input numbers, then calculates the derivative of the statement it displays based on the numbers you entered.

:ClrHome
:Output(1,1, "AX^B+
:Output(2,1,"CX^D+
:Output(3,1,"EX^F+
:Output(4,1,"GX+
:Output(5,1,"H
:Pause
:ClrHome
:Prompt A,B,C,D,E,F,G,H
:AB→A
:B-1→B
:CD→C
:D-1→D
:EF→E
:F-1→F
:Clrhome
:Output(1,1,"AX^B+CX^D+EX^F+G
:Output(2,1,"A=
:Output(2,4,A
:Output(3,1,"B=
:Output(3,4,B
:Output(4,1,"C=
:Output(4,4,C
:Output(5,1,"D=
:Output(5,4,D
:Output(6,1,"E=
:Output(6,4,E
:Output(7,1,"F=
:Output(7,4,F
:Output(8,1,"G=
:Output(8,4,G
:Pause

ERROR

This program calculates the error between the accepted and measured values.

:ClrHome
:Input "MEASURED?:",A
:Input "ACCEPTED?:",B
:A-B→C
:abs(C)/B→D
:D*100→E
:Pause
:ClrHome
:Output(1,1,"ERROR:
:Fix 2
:Output(1,7,E
:Pause
:Float
:ClrHome

FIB

The Fibonacci sequence is created by adding A and B to get C, then adding B and C to get D, etc. If you divide the larger number by the smaller number in the sequence, you get closer and closer to phi (the golden ratio) as the numbers grow larger. This program generates larger Fibonacci numbers and demonstrates the ratio, which grows closer to phi with every click.

:1->A
:1->B
:Repeat D=25
:A+B->C
:B/A->E
:Pause
:Disp E
:B->A
:C->B
:D+1->D
:End

GRAPH

Although a lengthy program, this one is kind of cool. It allows you to view a normal graph of popular functions, along with some transformations.

:FnOff
:ZStandard
:ClrHome
:AxesOn
:Sequential
:Radian
:Menu("FUNCTIONS","X2",A,"X^3",B,"2^X",C,
 "log(X)",D,"ln(X)",E,"sin(X)",F,"tan(X)",G
:Lbl A
:ClrHome
:Menu("X2","X AXIS",1,"Y AXIS",2,
 "RECIPROCAL",3,"INVERSE",4
:Lbl 1
:"X2"→Y1
:"-(X2)"→Y2
:dispGraph
:Stop
:Lbl 2
:"X2"→Y1
:"(-X)2"→Y2
:dispGraph
:Stop
:Lbl 3
:"X2"→Y1
:"(X2)-1"→Y2
:dispGraph
:Stop
:Lbl 4
:"X2"→Y1
:"√(X)"→Y2
:dispGraph
:Stop
:Stop
:Lbl B
:ClrHome
:Menu("X^3","X AXIS",1,"Y AXIS",2,
 "RECIPROCAL",3,"INVERSE",4
:Lbl 1
:"X^3"→Y1
:"-(X^3)"→Y2
:dispGraph
:Stop
:Lbl 2
:"X^3"→Y1
:"(-X)^3"→Y2
:dispGraph
:Stop
:Lbl 3
:"X^3"→Y1
:"(X^3)-1"→Y2
:dispGraph
:Stop
:Lbl 4
:"X^3"→Y1
:"3√(X)"→Y2
:dispGraph
:Stop
:Stop
:Lbl C
:ClrHome
:Menu("2^X","X AXIS",1,"Y AXIS",2,
 "RECIPROCAL",3,"INVERSE",4
:Lbl 1
:"2^X"→Y1
:"-(2^X)"→Y2
:dispGraph
:Stop
:Lbl 2
:"2^X"→Y1
"2^(-X)"→Y2
:dispGraph
:Stop
:Lbl 3
:"2^X"→Y1
:"(2^X)-1"→Y2
:dispGraph
:Stop
:Lbl 4
:"2^X"→Y1
:"log(X)/log(2)"→Y2
:dispGraph
:Stop
:Stop
:Lbl D
:ClrHome
:Menu("log(X)","X AXIS",1,"Y AXIS",2,
 "RECIPROCAL",3,"INVERSE",4
:Lbl 1
:"log(X)"→Y1
:"-(log(X))"→Y2
:dispGraph
:Stop
:Lbl 2
:"log(X)"→Y1
:"log(-X)"→Y2
:dispGraph
:Stop
:Lbl 3
:"log(X)"→Y1
:"log(X)-1"→Y2
:dispGraph
:Stop
:Lbl 4
:"log(X)"→Y1
:"10^X"→Y2
:dispGraph
:Stop
:Stop
:Lbl E
:ClrHome
:Menu("ln(X)","X AXIS",1,"Y AXIS",2,
 "RECIPROCAL",3,"INVERSE",4
:Lbl 1
:"ln(X)"→Y1
:"-(ln(X))"→Y2
:dispGraph
:Stop
:Lbl 2
:"ln(X)"→Y1
:"ln(-X)"→Y2
:dispGraph
:Stop
:Lbl 3
:"ln(X)"→Y1
:"ln(X)-1"→Y2
:dispGraph
:Stop
:Lbl 4
:"ln(X)"→Y1
:"e^X"→Y2
:dispGraph
:Stop
:Stop
:Lbl F
:ClrHome
:Menu("sin(X)","X AXIS",1,"Y AXIS",2,
 "RECIPROCAL",3,"INVERSE",4
:Lbl 1
:"sin(X)"→Y1
:"-(sin(X))"→Y2
:dispGraph
:Stop
:Lbl 2
:"sin(X)"→Y1
:"sin(-X)"→Y2
:dispGraph
:Stop
:Lbl 3
:"sin(X)"→Y1
:"sin(X)-1"→Y2
:dispGraph
:Stop
:Lbl 4
:"sin(X)"→Y1
:"sin-1(x)"࢐Y2
:dispGraph
:Stop
:Stop
:Lbl G
:ClrHome
:Menu("tan(X)","X AXIS",1,"Y AXIS",2,
 "RECIPROCAL",3,"INVERSE",4
:Lbl 1
:"tan(X)"→Y1
:"-(tan(X))"→Y2
:dispGraph
:Stop
:Lbl 2
:"tan(X)"→Y1
:"tan(-X)"→Y2
:dispGraph
:Stop
:Lbl 3
:"tan(X)"→Y1
:"tan(X)-1"→Y2
:dispGraph
:Stop
:Lbl 4
:"tan(X)"→Y1
:"tan-1(X)"→Y2
:dispGraph
:Stop