Home, 83+ Games, 83+ Math, 83+ Other, 86 Games, 86 Other, Downloads
Creamer's Rule
Descrim
Length Midpoint
Phytheraon Therom
Quadratic Formula
Slope Calc
Synthitic Divison
C
reamer's Rule
A program solveing systems of equations useing Creamer's Rule. Shows the work of this method.
:ClLCD
:Prompt A,B,C,D,E,F
:ClLCD
:Outpt(1,3,"(X)
:Outpt(2,1,C
:Outpt(2,5,B
:Outpt(3,1,F
:Outpt(4,1,"-----
:Outpt(5,1,A
:Outpt(5,5,B
:Outpt(6,1,D
:Outpt(6,5,E
:Pause
:ClLCD
:Outpt(1,3,"(Y)
:Outpt(2,1,A
:Outpt(2,5,C
:Outpt(3,1,D
:Outpt(3,5,F
:Outpt(4,1,"-----
:Outpt(5,1,A
:Outpt(5,5,B
:Outpt(6,1,D
:Outpt(6,5,E
:Pause
:ClLCD
:A*F->G
:D*C->H
:A*E->I
:D*B->J
:C*E->K
:F*B->L
:Outpt(1,3,"(X)
:Outpt(2,1,K
:Outpt(2,5,"-
:Outpt(2,6,L
:Outpt(3,1,"--------
:Outpt(4,1,I
:Outpt(4,5,"-
:Outpt(4,6,J
:Outpt(5,3,"(Y)
:Outpt(6,1,G
:Outpt(6,5,"-
:Outpt(6,6,H
:Outpt(7,1,"--------
:Outpt(8,1,I
:Outpt(8,5,"-
:Outpt(8,6,J
:Pause
:G-H->W
:I-J->X
:K-L->Y
:Outpt(2,11,Y
:Outpt(3,11,"---
:Outpt(4,11,X
:Outpt(6,11,W
:Outpt(7,11,"---
:Outpt(8,11,X
:Pause
:ClLCD
:W/X->U
:Y/X->V
:Disp "X=
:Outpt(1,3,V
:Disp "Y=
:Outpt(2,3,U
:Outpt(4,3,"INTERSECT IS
:Outpt(5,4,"(
:Outpt(5,5,V
:Outpt(5,9,",
:Outpt(5,10,U
:Outpt(5,14,")
:Pause
:ClLCD
:
Top of Page,
Creamer's Rule,
Descrim,
Length Midpoint,
Phytheraon Therom,
Quadratic Formula,
Slope Calc,
Synthitic Divison
D
escrim
:ClLCD
:Disp "AX^2+BX+C
:Prompt A,B,C
:B*B->D
:D-4*A*C->D
:C/A->E
:(-B)/A->F
:(-B)/2A->G
:ClLCD
:Outpt(1,1,"DESCRIM:
:Outpt(1,9,D
:Outpt(3,1,"PRODUCT:
:Outpt(3,9,E
:Outpt(4,1,"SUM:
:Outpt(4,5,F
:Outpt(6,1,"AXIS OF SYM:
:Outpt(6,13,G
:Pause
:ClLCD
Top of Page, Creamer's Rule, Descrim, Length Midpoint, Phytheraon Therom, Quadratic Formula, Slope Calc, Synthitic Divison
L
ength Midpoint
:ClLCD
:Disp "(X1,Y1)(X2,Y2)
:Input "X1=",A
:Input "Y1=",B
:Input "X2=",C
:Input "Y2=",D
:(C-A)^2->E
:(D-B)^2->F
:E+F->G
:(squareroot)G->H
:round(H,3->H
:A+C->I
:I/2->J
:B+D->K
:K/2->L
:ClLCD
:Disp "DISTANCE=
:Outpt(1,11,H
:Outpt(2,10,"=(squareroot)
:Outpt(2,13,G
:Disp "
:Disp "
:Disp "MID POINT
:Outpt(6,4,"(
:Outpt(6,5,J
:Outpt(6,9,",
:Outpt(6,10,L
:Outpt(6,14,")
:Pause
:ClLCD
:
Top of Page, Creamer's Rule, Descrim, Length Midpoint, Phytheraon Therom, Quadratic Formula, Slope Calc, Synthitic Divison
P
hythag
:ClLCD
:Disp "1.) A^2-C^2=B^2","2.) A^2+B^2=C^2
:Input "1 or 2?",D
:ClLCD
:If D=1
:Then
:Prompt A,B
:A^2+B^2->C
:(squareroot)C->E
:Disp "C=
:Outpt(3,4,E
:Disp "(squareroot)(
:Outpt(4,4,C
:Pause
:ClLCD
:Stop
:Else
:Prompt A,C
:A^2-C^2->B
:(squareroot)B->E
:Disp "B=
:Outpt(3,4,E
:Disp "(squareroot)(
:Outpt(4,4,B
:Pause
:ClLCD
:Stop
:
Top of Page, Creamer's Rule, Descrim, Length Midpoint, Phytheraon Therom, Quadratic Formula, Slope Calc, Synthitic Divison
Q
uadratic Formula
:ClLCD
:Disp "AX^2+BX+C
:Input "A= ",A
:Input "B= ",B
:Input "C= ",C
:(-B+((squareroot)(B^2-(4*A*C))))/(2A)->D
:(-B-((squareroot)(B^2-(4*A*C))))/(2A)->E
:ClLCD
:Disp "X=","","AND","","X=
:Outpt(1,4,D
:Outpt(5,4,E
:Pause
:ClLCD
:
Top of Page, Creamer's Rule, Descrim, Length Midpoint, Phytheraon Therom, Quadratic Formula, Slope Calc, Synthitic Divison
S
lope Calc
:ClLCD
:Disp " Y2-Y1","M=O-----"," X2-X1","
:Input "X1:",A
:Input "Y1:",B
:Input "X2:",C
:Input "Y2:",D
:D-B->E
:C-A->F
:E/F->G
:ClLCD
:Disp "SLOPE IS
:Disp G
:Disp G>Frac
:Pause
:ClLCD
:
Top of Page, Creamer's Rule, Descrim, Length Midpoint, Phytheraon Therom, Quadratic Formula, Slope Calc, Synthitic Divison
S
ynthictic Divison
Does synthictic divison and shows the work.
:AxesOff
:ZStd
:ZInt
:ClDrw
:ClLCD
:
:0->A
:0->B
:0->C
:0->D
:0->E
:0->F
:0->G
:
:Input "DEGREE? ",A
:If A==6:Goto G
:If A==5:Goto F
:If A==4:Goto E
:If A==3:Goto D
:If A==2:Goto C
:
:Lbl G
:Input "X^6 ",G
:Lbl F
:Input "X^5 ",F
:Lbl E
:Input "X^4 ",E
:Lbl D
:Input "X^3 ",D
:Lbl C
:Input "X^2 ",C
:Input "X ",B
:Input "A ",A
:Input "DIVISOR",H
:
:Line(-63,23,-55,23
:Line(-55,23,-55,31
:Line(-50,14,26,14
:Text(0,0,H
:Text(0,15,G
:Text(0,26,F
:Text(0,37,E
:Text(0,48,D
:Text(0,59,C
:Text(0,70,B
:Text(0,81,A
:
:Text(20,15,G
:H*G->G
:Text(10,26,G
:F+G->G
:Text(20,26,G
:H*G->G
:Text(10,37,G
:E+G->G
:Text(20,37,G
:H*G->G
:Text(10,48,G
:D+G->G
:Text(20,48,G
:H*G->G
:Text(10,59,G
:C+G->G
:Text(20,59,G
:H*G->G
:Text(10,70,G
:B+G->G
:Text(20,70,G
:H*G->G
:Text(10,81,G
:A+G->G
:Text(20,81,G
:
:Text(30,55,"REMAINDER
:Text(37,70,G
:
:Pause
:ZStd
:ClDrw
:ClLCD
:
Top of Page, Creamer's Rule, Descrim, Length Midpoint, Phytheraon Therom, Quadratic Formula, Slope Calc, Synthitic Divison
Home, 83+ Games, 83+ Math, 83+ Other, 86 Games, 86 Other, Downloads