Directory of image this file is from
This file as a plain text file
:=COS (EKL);SE:=SIN (EKL); PY:=H1*CE-H2*SE; PZ:=H2*CE+H1*SE; QY:=H3*CE-H4*SE; QZ:=H4*CE+H3*SE; WRITELN("PX=",PX:10:6); WRITELN("PY=",PY:10:6); WRITELN("PZ=",PZ:10:6); WRITELN("QX=",QX:10:6); WRITELN("QY=",QY:10:6); WRITELN("QZ=",QZ:10:6); W:=Q*2*V;V:=Q*(1-SQR (V)); S1:=PX*V+W*QX+X; S2:=PY*V+W*QY+Y; S3:=PZ*V+W*QZ+Z; (*-----Berechnung von RA und Dec-----*) DELTA:=SQRT (SQR (S1)+SQR (S2)+SQR (S3)); DEC:=S3/DELTA; DEC:=ARCSIN (DEC); RA:=2*ARCTAN ((DELTA*COS (DEC)-S1)/S2); RA:=RA*12/PI; WHILE (RA>24) DO RA:=RA-24; WHILE (RA<0) DO RA:=RA+24; RA:=TRUNC (RA)+TRUNC (RA-TRUNC (RA))*0.6; WRITELN("DEC=",DEC:10:4," *"); WRITELN("RA=",RA:11:4," H"); END.