Hi
Wie stelle ich ein Abbild eines Himmelsausschnittes auf einer 2d oberfläche dar ? nach der Formel die ich http://www.astro.uni-jena.de/T…ikum/pra2002/node195.html hier gefunden habe müsste man doch damit ein Abbild eines ausschnitts erstellen können oder?!
Ich will in Delphi ne procedure schreiben, die mir das automatisch umwandelt (nein soll kein Sternkartenprogramm geben [:o)]) aber irgendwie kommen da nur unbrauchbare ergebnisse raus...
ich bin mir nie sicher ob der das jetzt in Bogenmaß brauch oder in Grad, hab aber eigentlich alles ausprobiert... oder is der algo ganz falsch ?!
wäre um jede hilfe dankbar...
clear Sky
Julian
procedure XYausRADEC(ra_u, dec_u, ra, dec:double; var x,y:integer);
begin
ra_u :=DegToRad(ra_u*15);
dec_u :=DegToRad(dec_u);
ra :=DegToRad(ra*15);
dec :=DegToRad(dec);
x:=(round(RadToDeg(-((cos(dec_u)*sin(ra_u-sin(ra))) / (cos(dec_u)*cos(dec)*cos(ra_u-ra)+sin(dec_u)*sin(dec))))));
y:=(round(RadToDeg(-(((sin(dec)*cos(dec_u)*cos(ra_u-ra))-(cos(dec)*sin(dec_u)))/((cos(dec)*cos(dec_u)*cos(ra_u-ra))+(sin(dec)*sin(dec_u)))))));
end;