\START\
\COMMENT=Program file dated 11/18/99, 07:28
\NAME=\UC-Delta\3
\FILE=dreieck3.85P
If \LC-alpha\\<>\0 and \LC-gamma\\<>\0 and A2\<>\0:Then:If C2==0:Then
(((A2*(sin \LC-gamma\))/(sin \LC-alpha\))\->\C2:End:End
If \LC-alpha\\<>\0 and \LC-gamma\\<>\0 and C2\<>\0:Then:If A2==0:Then
(((C2*(sin \LC-alpha\))/(sin \LC-gamma\))\->\A2:End:End
If \LC-alpha\\<>\0 and A2\<>\0 and C2\<>\0:Then:If \LC-gamma\==0:Then
(\sin^-1\ (((sin \LC-alpha\)*C2)/A2))\->\\LC-gamma\:End:End
If \LC-gamma\\<>\0 and A2\<>\0 and C2\<>\0:Then:If \LC-alpha\==0:Then
(\sin^-1\ (((sin \LC-gamma\)*A2)/C2))\->\\LC-alpha\:End:End

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

If \LC-alpha\\<>\0 and \LC-beta\\<>\0 and \LC-gamma\\<>\0 and AA2==0:Th\#\
en:If A2\<>\0:Then
((0.5*(sin \LC-beta\)*(sin \LC-gamma\)*A2\^2\)/(sin \LC-alpha\))\->\AA2\#\
:Else:If B2\<>\0:Then
((0.5*(sin \LC-alpha\)*(sin \LC-gamma\)*B2\^2\)/(sin \LC-beta\))\->\AA2\#\
:Else:If C2\<>\0:Then
((0.5*(sin \LC-alpha\)*(sin \LC-beta\)*C2\^2\)/(sin \LC-gamma\))\->\AA2\#\
:End:End:End:End

If B2\<>\0 and C2\<>\0 and \LC-alpha\\<>\0:Then:If A2==0
Then:\sqrt\(B2\^2\+C2\^2\-2*B2*C2*(cos \LC-alpha\))\->\A2
End:End

If A2\<>\0 and C2\<>\0 and \LC-beta\\<>\0:Then:If B2==0
Then:\sqrt\(A2\^2\+C2\^2\-2*A2*C2*(cos \LC-beta\))\->\B2
End:End

If A2\<>\0 and B2\<>\0 and \LC-gamma\\<>\0:Then:If C2==0
Then:\sqrt\(A2\^2\+B2\^2\-2*A2*B2*(cos \LC-gamma\))\->\C2
End:End

If A2\<>\0 and B2\<>\0 and C2\<>\0:Then:If \LC-alpha\==0
Then
(\cos^-1\ ((\(-)\A2\^2\+B2\^2\+C2\^2\)/(2*B2*C2)))\->\\LC-alpha\
End:End

If A2\<>\0 and B2\<>\0 and C2\<>\0:Then:If \LC-beta\==0
Then
(\cos^-1\ ((\(-)\B2\^2\+A2\^2\+C2\^2\)/(2*A2*C2)))\->\\LC-beta\
End:End

If A2\<>\0 and B2\<>\0 and C2\<>\0:Then:If \LC-gamma\==0
Then
(\cos^-1\ ((\(-)\C2\^2\+A2\^2\+B2\^2\)/(2*A2*B2)))\->\\LC-gamma\
End:End
Return
\STOP\