Geometry: Trigonomic Law

Law of Sines, Law of Cosines, who cares. You're too lazy to type the whole equation in.

Use this program. Pick the kind of triangle information you have.

-- Trig Law --

:Menu("Trigonomic Law","SAS",1,"SSS",2,"SAA",3,"SSA",4,"ASA",5

:Input "TYPE:  ",Str1

:Lbl 1

:Disp "USED WITH ANGLE"

:Disp "SAS"

:Prompt B,C,θ

:(B²+C²-((2(B)(C)(cos(θ))))→D

:√(D)üA

:Disp "SIDE LENGTH",A

:"prgmCOSINE1"

:Goto 99

:Lbl 2

:Disp "USED WITH SIDES"

:Disp "SSS"

:Prompt A,B,C

:(A²-B²-C²)/(-2(BC))→G

:cos^-1(G)üX

:Disp "ANGLE OP A",X

:(B²-A²-C²)/(-2(AC))→G

:cos^-1(G)→X

:Disp "ANGLE OP B",X

:(C²-A²-B²)/(-2(AB))→G

:cos^-1(G)→X

:Disp "ANGLE OP C",X

:"prgmCOSINE"

:Goto 99

:Lbl 3

:Disp "S IS THE SIDE","OPPOSITE OF <A"

:Prompt A,S,B

:((S*sin(B))/(sin(A)))→C

:Disp "SIDE OP B",C

:"prgmSINEANGL"

:Goto 99

:Lbl 4

:Disp "θ IS THE ANGLE","OPPOSITE OF A"

:Prompt A,θ,B

:((B*sin(θ))/A)→M

:Disp M

:sin^-1(M)→N

:Disp "ANGLE OP B",N

:"prgmSINESIDE"

:Goto 99

:Lbl 5

:Disp "S IS THE SIDE","OPPOSITE OF <A"

:Prompt A,S,B

:((S*sin(B))/(sin(A)))→C

:Disp "SIDE OP B",C

:"prgmSINEANGL"

:Lbl 99