ClrDraw String►Equ("",Y₁ String►Equ("",Y₂ String►Equ("",Y₃ String►Equ("",Y₄ String►Equ("",Y₅ String►Equ("",Y₆ String►Equ("",Y₇ String►Equ("",Y₈ String►Equ("",Y₉ ZStandard Line(⁻4,⁻4,⁻4,4) Line(⁻4,⁻4,8,⁻4) Line(⁻4,4,8,⁻4) Text(74,68,"OPP") Text(108,136,"ADJ") Text(70,136,"HYP") Text(100,190,"ANG") Text(140,20,"PRESS ENTER TO CONTINUE" DispGraph Pause ClrDraw ClrHome Degree Disp "Input two. Make two Zero." Input "OPP=",B Input "ADJ=",C Input "HYP=",D Input "ANG=",A If A≠0 and B≠0 Then A→E B→F B/tan(A)→G B/sin(A)→H Else:If A≠0 and C≠0 Then A→E tan(A)C→F C→G C/cos(A)→H Else:If A≠0 and D≠0 Then A→E sin(A)D→F cos(A)D→G D→H Else:If B≠0 and C≠0 Then tan⁻¹(B/C)→E B→F C→G √(B²+C²)→H Else:If B≠0 and D≠0 Then sin⁻¹(B/D)→E B→F √(D²-B²)→G D→H Else:If C≠0 and D≠0 Then cos⁻¹(C/D)→E √(D²-C²)→F C→G D→H End End End End End End ClrHome Output(1,1,"OPP=") Output(2,1,"ADJ=") Output(3,1,"HYP=") Output(4,1,"ANG=") Output(5,1,"SIN=") Output(6,1,"COS=") Output(7,1,"TAN=") Output(8,1,"CSC=") Output(9,1,"SEC=") Output(10,1,"COT=") F→T G→U H→V E→W //OUTPUT OPPOSITE T→D 1→F 1→I 0→J While I<20000 and J≠1 If ((D^2)*I*I)=round((D^2)*I*I,0) Then I→F 1→J End I+1→I End round((D*F)^2,0)→R 1→C R→S S→H 1→J 1→I While S≥1 (R/(I*I))→S If S=int(S) Then S→H I→C End I+1→I End H→R Lbl G {C}→L₅ {F}→L₆ 1→I While I≤round(√(C),0)+1 If IfPart(C/I)=0 Then I→L₅(1+dim(L₅)) (C/I)→L₅(1+dim(L₅)) End I+1→I End 1→I While I≤round(√(F),0)+1 If IfPart(F/I)=0 Then I→L₆(1+dim(L₆)) (F/I)→L₆(1+dim(L₆)) End I+1→I End 1→I 1→J 0→K While I