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