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.