Pod jakim kątem padaja promienie słoneczne Opcje

[hwao]

Witam :-)

Dostałem jakze ambitne zadanie :-)

Mianowicie mam policzyc pod jakim kątem padaja promienie sloneczne (powiecmy o godzinie 12) w danym punkcjie ziemi (okreslonym N/S W/E).

Ktos moze zna jakies przydatne wzory, badz tez wie pod jakim haslem je szukac... :-) albo spotkal sie z podobna aplikacja (zeby nie byla zbytnio rozudowana ;-) )

[hwao]

Kod

program katpadania;

var
r:integer; {szerokosc geograficzna miejsca obeserwacji}

begin
     writeln( 'Podaj szerokosc geograniczna N: ');
     readln( r );

     Writeln( '1.' );
     Write( '22 czerwca, czyli pierwszy dzien lata: ' );
     {Poniewaz to jest zwrotnika raka(23) to odejmuje od rownika(90) zeby uzyskac kat padania w tym dniu}

     if r > 23 then
        writeln( round( 90-(r-23) ) );
        {jezeli jest nad rakiem}

     if r < 23 then
        writeln( round( 90-(23-r) ) );
        {jezeli jest midzy rakiem a zwrotnikiem}

     Writeln( '2.' );
     Write( '22grudnia, czyli pierwszy dzien zimy: ' );

     writeln( round( 90-(r+23) ) );
     {kat padania promieni 22 grudna]

     readln;

end.

Powstalo cos takiego (IMG:http://forum.php.pl/style_emoticons/default/winksmiley.jpg)
Dziekuje za pomoc (IMG:http://forum.php.pl/style_emoticons/default/smile.gif)
Teraz lekki tuning i bedzie juz lepsza wersja (IMG:http://forum.php.pl/style_emoticons/default/winksmiley.jpg)

Dla fanow kolorowej skladni (IMG:http://forum.php.pl/style_emoticons/default/smile.gif)
http://phpfi.com/111167