FORMULAS

gistfile1.txt

ClrHome
Menu("WHAT FORMULA<S>?","SLOPE",A,"PYTHAGOREAN",B,"QUADRATIC",C,"DIST./MAGNIT.",D,"MIDPOINT",E,"AREAS/OTHER",F,"EXIT",G
Lbl A
ClrHome
Disp "((ENTER COORDS))"
Disp "","-X1-"
Input A
Disp "","-Y1-"
Input B
Disp "","-X2-"
Input C
Disp "","-Y2-"
Input D
(D-B)->Y
(C-A)->X
(Y/X)->S
ClrHome
Disp "THE SLOPE IS..\.",S>Frac
Pause 
ClrHome
prgmFORMULAS
Lbl B
ClrHome
Disp "((ENTER COORDS))"
Disp ""
Prompt A
Disp ""
Prompt B
(A^^2+B^^2)->C
ClrHome
Disp "THE HYPOTENUSE","IS:",sqrt(C)
Pause 
ClrHome
prgmFORMULAS
Lbl C
Menu("<<<QUAD. FORM.>>>","QUAD. SOLVER",P,"VERTEX SOLVER",Q,"DISCRIMINANT",R,"EXIT",G
Lbl P
Disp "ENTER VARIABLES",""
Prompt A
Disp ""
Prompt B
Disp ""
Prompt C
~(B)+sqrt(B^^2-4AC)->D
~(B)-sqrt(B^^2-4AC)->E
((D)/(2A))->F
((E)/(2A))->G
ClrHome
Disp "THE SOLUTION:","X=",F>Frac," and ",G>Frac
Pause 
ClrHome
prgmFORMULAS
Lbl Q
Disp "ENTER VARIABLES",""
Prompt A
Disp ""
Prompt B
Disp ""
Prompt C
((~B)/(2A))->D
(AD^^2+BD+C)->E
ClrHome
If A>0
Then
	Disp "THE VERTEX:","X=",D>Frac,"Y=",E>Frac
	Disp "THE VERTEX","OPENS UP"
	Pause 
	ClrHome
	prgmFORMULAS
Else
	If A<0
	Then
		Disp "THE VERTEX:","X=",D>Frac,"Y=",E>Frac
		Disp "THE VERTEX","OPENS DOWN"
		Pause 
		ClrHome
		prgmFORMULAS
		Lbl R
		ClrHome
		Disp "ENTER VARIABLES",""
		Prompt A
		Disp ""
		Prompt B
		Disp ""
		Prompt C
		(B^^2-4AC)->D
		ClrHome
		If D>0
		Then
			Disp "THE DISCRIMINANT","IS:",D
			Disp "THE EQUATION","HAS 2 REAL","SOLUTIONS"
			Pause 
			ClrHome
			prgmFORMULAS
		Else
			If D=0
			Then
				Disp "THE DISCRIMINANT","IS:",D
				Disp "THE EQUATION","HAS 1 REAL","SOLUTION"
				Pause 
				ClrHome
				prgmFORMULAS
			Else
				If D<0
				Disp "THE DISCRIMINANT","IS:",D
				Disp "THE EQUATION","HAS NO REAL","SOLUTIONS"
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl D
				Disp "((ENTER COORDS))"
				Disp "","-X1-"
				Input A
				Disp "","-Y1-"
				Input B
				Disp "","-X2-"
				Input C
				Disp "","-Y2-"
				Input D
				sqrt((C-A)^^2+(D-B)^^2)->E
				ClrHome
				Disp "THE","DISTANCE (OR","MAGNITUDE)","BETWEEN THE","TWO POINTS","IS:",E
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl E
				Disp "((ENTER COORDS))"
				Disp "","-X1-"
				Input A
				Disp "","-Y1-"
				Input B
				Disp "","-X2-"
				Input C
				Disp "","-Y2-"
				Input D
				((A+C)/(2)->X
				((B+D)/(2)->Y
				ClrHome
				Disp "THE MIDPOINT","IS:","X=",X>Frac,"Y=",Y>Frac
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl G
				ClrHome
				Stop
				Lbl F
				ClrHome
				Menu("<<AREA/VOL/ETC>>","TRIANGLE",H,"TRAPEZOID",I,"CIRCLE",J,"CIRCUMFERENCE",K,"VOLUME",T,"PHYSICS",L,"EXIT",G
				Lbl H
				ClrHome
				Disp "((ENTER SIDES)))"
				Disp "","-\>BASE"
				Input A
				Disp "","-\>HEIGHT"
				Input B
				.5(A*B)->C
				ClrHome
				Disp "THE AREA","OF THE","TRIANGLE IS:",C
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl I
				ClrHome
				Disp "((ENTER SIDES)))"
				Disp "","-\>BASE ONE"
				Input A
				Disp "","-\>BASE TWO"
				Input B
				Disp "","-\>HEIGHT"
				Input C
				(1/2)C->F
				F(A+B)->D
				ClrHome
				Disp "THE AREA","OF THE","TRAPEZOID","IS:",D
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl J
				ClrHome
				Disp "((ENTER RADIUS))"
				Disp "","-\>RADIUS"
				Input R
				(piR^^2)->A
				ClrHome
				Disp "THE AREA","OF THE","CIRCLE","IS:",A
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl K
				ClrHome
				Disp "((ENTER RADIUS))"
				Disp "","-\>RADIUS"
				Input R
				(2piR)->C
				ClrHome
				Disp "THE","CIRCUMFERENCE","OF THE CIRCLE","IS:",C
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl T
				Menu("<VOLUME FORMULA>","SPHERE",U,"CYLINDER",V,"CONE",W,"PYRAMID",X,"EXIT",G
				Lbl U
				ClrHome
				Disp "((ENTER RADIUS))"
				Disp "","-\>RADIUS"
				Input R
				((4piR^^3)/3)->A
				ClrHome
				Disp "THE VOLUME","OF THE SPHERE","IS:",A
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl V
				Disp "ENTER DIMENSIONS"
				Disp "","-\>RADIUS"
				Input R
				Disp "","-\>HEIGHT"
				Input H
				(piR^^2H)->A
				ClrHome
				Disp "THE VOLUME","OF THE CYLINDER","IS:",A
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl W
				ClrHome
				Disp "ENTER DIMENSIONS"
				Disp "","-\>RADIUS"
				Input R
				Disp "","-\>HEIGHT"
				Input H
				((piR^^2H)/3)->A
				ClrHome
				Disp "THE VOLUME","OF THE CONE","IS:",A
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl X
				Disp "ENTER DIMENSIONS"
				Disp "","-\>LENGTH OF BASE"
				Input L
				Disp "","-\>WIDTH OF BASE"
				Input W
				Disp "","-\>HEIGHT"
				Input H
				(LW)->B
				(1/3)HB->A
				ClrHome
				Disp "THE VOLUME","OF THE PYRAMID","IS:",A
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl L
				ClrHome
				Menu("<<PHYS FORMULA>>>","RANGE",M,"MAX. HEIGHT",N,"TIME AT APEX",O,"EXIT",G
				Lbl M
				ClrHome
				Disp "ENTER VARIABLES",""
				Prompt V
				Disp ""
				Prompt theta
				Disp ""
				Prompt G
				(~V^^2sin(2theta)/G)->R
				ClrHome
				Disp "THE RANGE","OF THE","PROJECTILE","IS:",R
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl N
				ClrHome
				Disp "ENTER VARIABLES",""
				Prompt V
				Disp ""
				Prompt theta
				Disp ""
				Prompt G
				Disp ""
				(~V^^2(sin(theta)^^2))/(2G)->A
				ClrHome
				Disp "THE MAX. HEIGHT","OF THE","PROJECTILE","IS:",A
				Pause 
				ClrHome
				prgmFORMULAS
				Lbl O
				ClrHome
				Disp "ENTER VARIABLES",""
				Prompt V
				Disp ""
				Prompt theta
				Disp ""
				Prompt G
				Disp ""
				(~Vsin(theta)/G)->T
				ClrHome
				Disp "THE TIME","AT THE APEX IS:",T,"TOTAL TIME IS:",2T
				Pause 
				ClrHome
				prgmFORMULAS