home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 April
/
64er_Magazin_89-04_1989_Markt__Technik_de.d64
/
sonnentag
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
18 lines
1 l0=15:poke53280,7:poke53281,7:print""chr$(14):c=(NULL)/180:u$=" uhr":g$="grad"
2 print"[147]*** [193]uf- und [213]ntergang der [211]onne *** ":rem udo koenig / 64'er
3 input"[205]onat ";m:input"[212]ag ";t:input"[194]reite";l:gosub14:b=l:input"[204]aenge";l
4 gosub14:dl=l0-l:deffnac(x)=(NULL)/2-atn(x/sqr(1-x*x)):t=((m-1)*30.3+t-1)*.9863+10
5 e=cos(c*t)*23.5:g=t+77:f=sin(c*e)/cos(c*b):ifabs(f)=>1then16
6 x=fnac(f):y1=cos(c*g)*.123-sin(2*c*t)/6:h3=int(90-b-e+.5):ifb<0thenx=(NULL)-x
7 x=x/c:x=int(x+.5):print"[193]zimut =";x;g$:ifh3>90thenh3=180-h3
8 print"[211]onnenhoehe =";h3;g$;"":x=sin(c*b)/(cos(c*e)/f):x=fnac(x):y=x/c
9 x=y+180:y3=x:x=(180-y+dl)/15:x=x-y1-.08:y=x:ifx>24then16
10 gosub15:print"[211]onnenaufgang = ";h$;u$:x=(y3+dl)/15-y1+.08:tl=x-y:gosub15
11 print"[211]onnenuntergang =";h$;u$:x=tl:gosub15:print"[212]ageslaenge =";
12 printh$;s$;" std:min":x=y+tl/2:gosub15:print"[205]eridiandurchgang =";h$;u$
13 print"[210]echenfehler etwa +/- 5 [205]inuten.":end
14 p=100*l:q=p:p=(p-int(p))/36:q=int(q)/100:q=(q-int(q))/.6:l=int(l)+p+q:return
15 h=int(x):m=int((x-h)*60):h$=str$(h):m$=str$(m):h$=h$+":"+right$(m$,2):return
16 print"[208]olarregion. [211]onne dauernd ueber oder unter dem [200]orizont."
17 end