\START\
\COMMENT=Program file dated 11/18/99, 07:27
\NAME=\UC-Delta\2
\FILE=dreieck2.85P
If A2\<>\0 and B2\<>\0 and \LC-gamma\==90 or A2\<>\0 and C2\<>\0 and \LC-gamma\\#\
==90 or B2\<>\0 and C2\<>\0 and \LC-gamma\==90
Then
If A2==0
Then
\sqrt\(C2\^2\-B2\^2\)\->\A2
Else
If B2==0
Then
\sqrt\(C2\^2\-A2\^2\)\->\B2
Else
\sqrt\(A2\^2\+B2\^2\)\->\C2
End
End
End

If P2\<>\0 and Q2\<>\0:Then:If C2==0
Then
Q2+P2\->\C2
End:End
If C2\<>\0 and Q2\<>\0:Then:If P2==0:Then
(C2-Q2)\->\P2
End:End
If C2\<>\0 and P2\<>\0:Then:If Q2==0:Then
(C2-P2)\->\Q2
End:End

If \LC-alpha\\<>\0 and \LC-beta\\<>\0:Then:If \LC-gamma\==0:Then
(180-(\LC-alpha\+\LC-beta\))\->\\LC-gamma\:End:End

If Q2\<>\0 and Hc2\<>\0:Then:If B2==0:Then
\sqrt\(Hc2\^2\+Q2\^2\)\->\B2:End:End

If Q2\<>\0 and B2\<>\0:Then:If Hc2==0:Then
\sqrt\(B2\^2\-Q2\^2\)\->\Hc2:End:End

If Hc2\<>\0 and B2\<>\0:Then:If Q2==0:Then
\sqrt\(B2\^2\-Hc2\^2\)\->\Q2:End:End

If P2\<>\0 and Hc2\<>\0:Then:If A2==0:Then
\sqrt\(Hc2\^2\+P2\^2\)\->\A2:End:End

If P2\<>\0 and A2\<>\0:Then:If Hc2==0:Then
\sqrt\(A2\^2\-P2\^2\)\->\Hc2:End:End

If Hc2\<>\0 and A2\<>\0:Then:If P2==0:Then
\sqrt\(A2\^2\-Hc2\^2\)\->\P2:End:End

If \LC-gamma\==90 and P2\<>\0 and Q2\<>\0:Then:If Hc2==0
Then
\sqrt\(P2*Q2)\->\Hc2:End:End

If \LC-gamma\==90 and A2\<>\0 and C2\<>\0:Then:If \LC-alpha\==0:Then:(\sin^-1\\#\
 (A2/C2))\->\\LC-alpha\:End:End

If \LC-gamma\==90 and B2\<>\0 and C2\<>\0:Then:If \LC-alpha\==0:Then:(\cos^-1\\#\
 (B2/C2))\->\\LC-alpha\:End:End

If \LC-gamma\==90 and A2\<>\0 and B2\<>\0:Then:If \LC-alpha\==0:Then:(\tan^-1\\#\
 (A2/B2))\->\\LC-alpha\:End:End

If \LC-gamma\==90 and B2\<>\0 and C2\<>\0:Then:If \LC-beta\==0:Then:(\sin^-1\\#\
 (B2/C2))\->\\LC-beta\:End:End

If \LC-gamma\==90 and A2\<>\0 and C2\<>\0:Then:If \LC-beta\==0:Then:(\cos^-1\\#\
 (A2/C2))\->\\LC-beta\:End:End

If \LC-gamma\==90 and B2\<>\0 and A2\<>\0:Then:If \LC-beta\==0:Then:(\tan^-1\\#\
 (B2/A2))\->\\LC-beta\:End:End

If \LC-beta\\<>\0 and Hc2\<>\0:Then:If A2==0:Then
(Hc2/(sin \LC-beta\))\->\A2:End:End

If \LC-beta\\<>\0 and A2\<>\0:Then:If Hc2==0:Then
((sin \LC-beta\)*A2)\->\Hc2:End:End

If \LC-alpha\\<>\0 and Hc2\<>\0:Then:If B2==0:Then
(Hc2/(sin \LC-alpha\))\->\B2:End:End

If \LC-alpha\\<>\0 and B2\<>\0:Then:If Hc2==0:Then
((sin \LC-alpha\)*A2)\->\Hc2:End:End

If \LC-beta\\<>\0 and P2\<>\0:Then:If A2==0:Then
(P2/(cos \LC-beta\))\->\A2:End:End

If \LC-beta\\<>\0 and A2\<>\0:Then:If P2==0:Then
((cos \LC-beta\)*A2)\->\P2:End:End

If \LC-alpha\\<>\0 and Q2\<>\0:Then:If B2==0:Then
(Q2/(cos \LC-alpha\))\->\B2:End:End

If \LC-alpha\\<>\0 and B2\<>\0:Then:If Q2==0:Then
((cos \LC-alpha\)*B2)\->\Q2:End:End

If C2\<>\0 and Hc2\<>\0:Then
0.5*C2*Hc2\->\AA2:End
If AA2\<>\0 and C2\<>\0:Then:If Hc2==0:Then:(AA2/(0.5*C2))\->\Hc2:End:E\#\
nd
If AA2\<>\0 and Hc2\<>\0:Then:
If C2==0:Then:(AA2/(0.5*Hc2))\->\C2:End:End:

If \LC-gamma\==90 and AA2\<>\0 and A2\<>\0:Then:If B2==0:Then:((2*AA2)/\#\
A2)\->\B2:End:End
If \LC-gamma\==90 and AA2\<>\0 and B2\<>\0:Then:If A2==0:Then:((2*AA2)/\#\
B2)\->\A2:End:End
If \LC-gamma\==90 and A2\<>\0 and B2\<>\0:Then:If AA2==0:Then:(0.5*A2*B\#\
2)\->\AA2:End:End

If \LC-gamma\==90 and A2\<>\0 and C2\<>\0:Then:If P2==0:Then:(A2\^2\/C2\#\
)\->\P2:End:End
If \LC-gamma\==90 and A2\<>\0 and P2\<>\0:Then:If C2==0:Then:(A2\^2\/P2\#\
)\->\C2:End:End
If \LC-gamma\==90 and P2\<>\0 and C2\<>\0:Then:If A2==0:Then:\sqrt\(C2*\#\
P2)\->\A2:End:End

If \LC-gamma\==90 and B2\<>\0 and C2\<>\0:Then:If Q2==0:Then:(B2\^2\/C2\#\
)\->\Q2:End:End
If \LC-gamma\==90 and B2\<>\0 and Q2\<>\0:Then:If C2==0:Then:(B2\^2\/Q2\#\
)\->\C2:End:End
If \LC-gamma\==90 and Q2\<>\0 and C2\<>\0:Then:If B2==0:Then:\sqrt\(C2*\#\
Q2)\->\B2:End:End

If \LC-gamma\==90 and B2\<>\0 and \LC-alpha\\<>\0:Then:If C2==0:Then:(B\#\
2/(cos \LC-alpha\))\->\C2:End:End

If \LC-gamma\==90 and C2\<>\0 and \LC-alpha\\<>\0:Then:If B2==0:Then:((\#\
cos \LC-alpha\)*C2)\->\B2:End:End

If \LC-gamma\==90 and B2\<>\0 and \LC-alpha\\<>\0:Then:If A2==0:Then:((\#\
tan \LC-alpha\)*B2)\->\A2:End:End

If \LC-gamma\==90 and A2\<>\0 and \LC-alpha\\<>\0:Then:If B2==0:Then:(A\#\
2/(tan \LC-alpha\))\->\B2:End:End:

If \LC-gamma\==90 and C2\<>\0 and \LC-alpha\\<>\0:Then:If A2==0:Then:((\#\
sin \LC-alpha\)*C2)\->\A2:End:End

If \LC-gamma\==90 and A2\<>\0 and \LC-alpha\\<>\0:Then:If C2==0:Then:(A\#\
2/(sin \LC-alpha\))\->\C2:End:End

If \LC-gamma\==90 and A2\<>\0 and \LC-beta\\<>\0:Then:If C2==0:Then:(A2\#\
/(cos \LC-beta\))\->\C2:End:End

If \LC-gamma\==90 and C2\<>\0 and \LC-beta\\<>\0:Then:If A2==0:Then:((c\#\
os \LC-beta\)*C2)\->\A2:End:End

If \LC-gamma\==90 and A2\<>\0 and \LC-beta\\<>\0:Then:If B2==0:Then:((t\#\
an \LC-beta\)*A2)\->\B2:End:End

If \LC-gamma\==90 and B2\<>\0 and \LC-beta\\<>\0:Then:If A2==0:Then:(B2\#\
/(tan \LC-beta\))\->\A2:End:End:

If \LC-gamma\==90 and C2\<>\0 and \LC-beta\\<>\0:Then:If B2==0:Then:((s\#\
in \LC-beta\)*C2)\->\B2:End:End

If \LC-gamma\==90 and B2\<>\0 and \LC-beta\\<>\0:Then:If C2==0:Then:(B2\#\
/(sin \LC-beta\))\->\C2:End:End

If 3==DA:Then:(\LC-gamma\/2)\->\\LC-gamma\1:End
If \LC-gamma\1\<>\0 and \LC-beta\==0:Then:(90-\LC-gamma\1)\->\\LC-beta\\#\
:End

If \LC-beta\\<>\0 and \LC-gamma\\<>\0:Then:If \LC-alpha\==0:Then
(180-(\LC-beta\+\LC-gamma\))\->\\LC-alpha\:End:End

If \LC-alpha\\<>\0 and \LC-gamma\\<>\0:Then:If \LC-beta\==0:Then
(180-(\LC-alpha\+\LC-gamma\))\->\\LC-beta\:End:End

If Hc2\<>\0 and A2\<>\0:Then:If \LC-beta\==0:Then
(\sin^-1\ (Hc2/A2))\->\\LC-beta\
End:End

If P2\<>\0 and Hc2\<>\0:Then:If \LC-beta\==0:Then
(\tan^-1\ (Hc2/P2))\->\\LC-beta\:End:End

If P2\<>\0 and A2\<>\0:Then:If \LC-beta\==0:Then
(\cos^-1\ (P2/A2))\->\\LC-beta\:End:End

If Hc2\<>\0 and B2\<>\0:Then:If \LC-alpha\==0:Then
(\sin^-1\ (Hc2/B2))\->\\LC-alpha\
End:End

If Q2\<>\0 and Hc2\<>\0:Then:If \LC-alpha\==0:Then
(\tan^-1\ (Hc2/Q2))\->\\LC-alpha\:End:End

If Q2\<>\0 and B2\<>\0:Then:If \LC-alpha\==0:Then
(\cos^-1\ (Q2/B2))\->\\LC-alpha\:End:End

If \LC-alpha\\<>\0 and \LC-beta\\<>\0 and A2\<>\0:Then:If B2==0:Then:((\#\
A2*(sin \LC-beta\))/sin \LC-alpha\)\->\B2:End:End
If \LC-alpha\\<>\0 and \LC-beta\\<>\0 and B2\<>\0:Then:If A2==0:Then:
((B2*(sin \LC-alpha\))/sin \LC-beta\)\->\B2:End:End
If \LC-alpha\\<>\0 and A2\<>\0 and B2\<>\0:Then:If \LC-beta\==0:Then:
(\sin^-1\ (((sin \LC-alpha\)*B2)/A2))\->\\LC-beta\:End:End
If \LC-beta\\<>\0 and A2\<>\0 and B2\<>\0:Then:If \LC-alpha\==0:Then:
(\sin^-1\ (((sin \LC-beta\)*A2)/B2))\->\\LC-alpha\:End:End

Return
\STOP\