MY PROGRAMS Naphold 2.3a PROGRAM Ez a program az albbi informcikat szolgltatja: -A hsvti s karcsonyi idszak dtumai -Teleholdak s jholdak dtumai egy egsz vre (brmely hnaptl kezdve) -A Nap s a Hold kelte s nyugta a Fld brmely pontjn, tetszleges napon -Holdfzis egy adott napon Alaprtelmezsben a program Pcs fldrajzi koordintival s az OZ-ban trolt dtummal indul, de ezek a programon bell vltoztathatk, st az j hely a flash memriba is elmenthet. (A hasznlt file neve "E:geo1".) Forrsaim: - BASIC programok az "Astronomical Computing, Sky and Telescope" c. folyiratbl, a www.skypub.com/resources/ software/basic/basic.html cmrl. -A telehold szmtsokat visszaellenriztem (s javtottam) Jean Meeus "Astronomical Formulae for Calculators" c. knyvbl. -Peter Meyers kalendriumokrl szl rsai a serendipity.magnet.ch/ hermetic/cal_stud.htm cmen. -Peter Baum dtumalgoritmusai home.capecod.net/~pbaum/info3.htm cmen. -A Hsvt dtumt szmol formula a sciastro.astronomy.net/ sci.astro.3.FAQ cmen tallhat. -A holdfzis brzolsok Totka Istvn (totka@freemail.hu) mvei. Hetyei Gbor ghetyei@uncc.edu BIN_PROG_1 PFILE:BI49YFW2.BAS    = E = E =   0A(2),D(2):0M(3,3) 2Y9=((,4)):M9=((,5,2)):D9=((,2))  U+20 !"E:geo1"Was#1 &a#1,B9:a#1,L9:a#1,H9:"#1:+100 B9=35:L9=-80:H9=5 dP nAQ2,0:`"[1] Hsvttal s karcsonnyal kapcsolatos dtumok" x:Q2,1:`"[2] Teleholdak s jholdak egy adott vben" /Q2,2:`"[3] Nap s Hold kelte s nyugta" Q2,3:`"[4] Holdhatsok" Q2,5:`"[B] Belltsok" Q121,5:`"[S] Segtsg" Q2,6:`"[Esc] Kilp" Q121,6:`"[F] Forrsok" XA$=(1) V(A$)=27TZ VA$="1"T1000 VA$="2"T2000 VA$="3"T I3000 VA$="4"T)L10000 VA$="b"A$="B"T$|8000 VA$="s"A$="S"T!7500 VA$="f"A$="F"T"7800 " +200 Y %P:a"Krek egy 1582 utni vet: ";Y VY<1583T1010  C=(Y/100)  N=Y-19*(Y/19):K=((C-17)/25)  I=C-(C/4)-((C-K)/3)+19*N+15 $I=I-30*(I/30) .5I=I-(I/28)*(1-(I/28)*(29/(I+1))*((21-N)/11)) 8.J=Y+(Y/4)+I+2-C+(C/4):J=J-7*(J/7):L=I-J B$M=3+((L+40)/44):D=L+28-31*(M/4) L0Y2=Y:M2=M:D2=D:b 86000:J=J+FJ-46:b5000:Y V2P:Q2,0:`"Hamvazszerda:":Q121,0:b/11000:Y `@Y=Y2:M=M2:D=D2:Q2,1:`"Hsvt vasrnap:":Q121,1:b/11000:Y jJ=J+95:b5000:Y t)Q2,2:`"Pnksd:":Q121,2:b/11000:Y ~EJ1=J:M=12:D=25:b 86000:W=J-J1-7*((J-J1)/7):J=J-W-21:b5000:Y 8Q2,3:`"Advent els vasrnapja:":Q121,3:b/11000:Y ;M=12:D=25:Q2,4:`"Karcsony napja:":Q121,4:b/11000:Y b(9000:+100 Y 3P:b $2990:a"v=";Y:a"Hnap=";M:XY=Y+(M-1)/12 Db $2990:S1=0:U=0 HY JK0=((Y-1900)*12.3685) LT=(Y-1900)/100 NT2=T*T:T3=T*T*T PJ0=2415020+29*K0 RF0=.0001178*T2-.000000155*T3 TF0=F0+.75933+.53058868*K0 V.F0=F0+0.00033*(166.56+132.87*T-0.009173*T2) XJ0=J0+(F0):F0=F0-(F0) ZM0=K0*29.10535608 \M0=M0-(M0/360)*360+359.2242 ^M0=M0-.0000333*T2 `M0=M0-.00000347*T3 bM1=K0*385.81691806 dM1=M1-(M1/360)*360+306.0253 fM1=M1+.0107306*T2 hM1=M1+.00001236*T3 jB1=K0*390.67050646 lB1=B1-(B1/360)*360+21.2964 nB1=B1-.0016528*T2 pB1=B1-.00000239*T3 r WK9=0R28 tJ=J0+14*K9:F=F0+.76529434*K9 vK=K9/2 xM5=M0+K*29.10535608 yM6=M1+K*385.81691806 zB6=B1+K*390.67050646 {0T73570 V0=S*(D0)+C*(D0)*(H0)-Z V2=S*(D2)+C*(D2)*(H2)-Z V(V0)=(V2)T3800 V1=S*(D1)+C*(D1)*(H1)-Z  A=2*V2-4*V1+2*V0:B=4*V1-3*V0-V2 D=B*B-4*A*V0:VD<0T3800 $D=(D) .VV0<0V2>0T`"Napkelte: "; 8VV0<0V2>0TM8=1 BVV0>0V2<0T`"Napnyugta: "; LVV0>0V2<0TW8=1 VE=(-B+D)/(2*A) `VE>1E<0TE=(-B-D)/(2*A) jT3=C0+E+1/120:' tH3=(T3):M3=((T3-H3)*60) ~UU1=(H3/10):U2=H3-10*U1:U3=(M3/10):U4=M3-10*U3:`(U1);(U2);":";(U3);(U4); H7=H0+E*(H2-H0) N7=-(D1)*(H7) D7=C*(D1)-S*(D1)*(H7)  AZ=(N7/D7) VD7<0TAZ=AZ+180 VAZ<0TAZ=AZ+360 VAZ>360TAZ=AZ-360 ,`/"####.#";", szaktl ";AZ;" fokra.":/ e ' ' VM8=0W8=0TF3870 VM8=0T`"Nincs napkelte."  VW8=0T`"Nincs napnyugta"  +3890 VV2<0T`"Folyamatos jjel." (VV2>0T`"Folyamatos nappal." 2e F' H' J' LL=.779072+.00273790931*T NG=.993126+.0027377785*T PL=L-(L):G=G-(G) RL=L*360:G=G*360 TV=.39785*(L) VV=V-.01*(L-G) XV=V+.00333*(L+G) ZV=V-.00021*TT*(L) \U=1-.03349*(G) ^U=U-.00014*(2*L) `U=U+.00008*(L) bW=-.0001-.04129*(2*L) dW=W+.03211*(G) fW=W+.00104*(2*L-G) hW=W-.00035*(2*L+G) jW=W-.00008*TT*(G) n' pS=W/(U-V*V) rA5=L+(S/(1-S*S)) tS=V/(U):D5=(S/(1-S*S)) vR5=1.00021*(U) xe Y T=(J-2451545)+FJ b! 6500:T=T+Z0 Y Y  WI=1R3 b4495:M(I,1)=A5 M(I,2)=D5:M(I,3)=R5:T=T+.5 [ VM(2,1)>M(1,1)T4085 M(2,1)=M(2,1)+360 VM(3,1)>M(2,1)TP4095 M(3,1)=M(3,1)+360 Z1=90.567-41.685/M(2,3) S=(B5):C=(B5)  Z=(Z1):M8=0:W8=0 A0=M(1,1):D0=M(1,2)  WC0=0R23  P=(C0+1)/24 F0=M(1,1):F1=M(2,1):F2=M(3,1) "b{4225:A2=F 'F0=M(1,2):F1=M(2,2):F2=M(3,2) ,b{4225:D2=F 1b4280:A0=A2:D0=D2:V0=V2 6[ ; b4450:Y @b(9000:+100 Y A=F1-F0:B=F2-F1-A F=F0+P*(2*A+B*(2*P-1)) e Y L0=T0+C0*K1:L2=L0+K1 VA20TY4325 V0=S*(D0)+C*(D0)*(H0)-Z V2=S*(D2)+C*(D2)*(H2)-Z V(V0)=(V2)T4440 V1=S*(D1)+C*(D1)*(H1)-Z  A=2*V2-4*V1+2*V0:B=4*V1-3*V0-V2 D=B*B-4*A*V0:VD<0T4440 D=(D) VV0<0V2>0T`"Holdkelte: "; VV0<0V2>0TM8=1  VV0>0V2<0T`"Holdnyugta: "; VV0>0V2<0TW8=1 E=(-B+D)/(2*A) VE>1E<0TE=(-B-D)/(2*A) !T3=C0+E+1/120:Y &H3=(T3):M3=((T3-H3)*60) +UU1=(H3/10):U2=H3-10*U1:U3=(M3/10):U4=M3-10*U3:`(U1);(U2);":";(U3);(U4); 0H7=H0+E*(H2-H0) 5N7=-(D1)*(H7) :D7=C*(D1)-S*(D1)*(H7) ? A7=(N7/D7) DVD7<0TA7=A7+180 IVA7<0TA7=A7+360 NVA7>360TA7=A7-360 S,`/"####.#";", szaktl ";A7;" fokra.":/ Xe ]Y bY gVM8=0W8=0Tp4475 lVM8=0T`"Nincs holdkelte." qVW8=0T`"Nincs holdnyugta." v +4485 {)VV2<0T`"Hold egyltaln nem lthat." $VV2>0T`"Hold egsz nap lthat." e Y Y L=.606434+.03660110129*T M=.374897+.03629164709*T F=.259091+.0367481952*T D=.827362+.03386319198*T N=.347343-.00014709391*T G=.993126+.0027377785*T L=L-(L):M=M-(M) F=F-(F):D=D-(D) N=N-(N):G=G-(G) L=L*360:M=M*360:F=F*360 D=D*360:N=N*360:G=G*360 V=.39558*(F+N) V=V+.082*(F) V=V+.03257*(M-F-N) V=V+.01092*(M+F+N) V=V+.00666*(M-F) V=V-.00644*(M+F-2*D+N) V=V-.00331*(F-2*D+N) V=V-.00304*(F-2*D) V=V-.0024*(M-F-2*D-N) V=V+.00226*(M+F) V=V-.00108*(M+F-2*D) V=V-.00079*(F-N) V=V+.00078*(F+2*D+N)  U=1-.10828*(M) U=U-.0188*(M-2*D) U=U-.01479*(2*D) U=U+.00181*(2*M-2*D)  U=U-.00147*(2*M) %U=U-.00105*(2*D-G) *U=U-.00075*(M-2*D+G) /W=.10478*(M) 4W=W-.04105*(2*F+2*N) 9W=W-.0213*(M-2*D) >W=W-.01779*(2*F+N) CW=W+.01774*(N) HW=W+.00987*(2*D) MW=W-.00338*(M-2*F-2*N) RW=W-.00309*(G) WW=W-.0019*(2*F) \W=W-.00144*(M+N) aW=W-.00144*(M-2*F-N) fW=W-.00113*(M+2*F+2*N) kW=W-.00094*(M-2*D+G) pW=W-.00092*(2*M-2*D) uY zY S=W/(U-V*V) A5=L+(S/(1-S*S)) S=V/(U):D5=(S/(1-S*S)) R5=60.40974*(U) e ' TG=0:VJ>2299160TTG=1 0ND=J-1721116.5-TG*2:FJ=ND-(ND):ND=(ND):TY=0 8T1=((ND-1)/146097):TY=TY+TG*T1*400:ND=ND-TG*T1*146097 4T1=(ND/36524.3):TY=TY+TG*T1*100:ND=ND-T1*TG*36524 ,T1=((ND-1)/1461):TY=TY+T1*4:ND=ND-T1*1461 &T1=(ND/365.3):TY=TY+T1:ND=ND-T1*365 #TM=(((5*ND-3)/153))*(5*ND-3) D=ND-TM*30-(0.6*(TM-1)+1)VTM>9TXT1=1vXT1=0 Y=TY+T1:M=TM+3-T1*12 e pY z&TG=0:V10000*Y+100*M+D>15821014TTG=1 VM<3TXT1=1vXT1=0 TY=Y-T1:TM=M-3+T1*12 TJ=TY*365+(TY/4)-TG*(TY/100)+TG*(TY/400)+30*TM+(0.6*(TM-1))+D+1721117.5+2*TG FJ=J-(J):J=(J) e dY i T0=T/36525 nS=24110.5+8640184.813*T0 sS=S+86636.6*Z0+86400*L5 xS=S/86400:S=S-(S) } T0=S*360 e XY b#B5=B9:L5=L9:H=H9:Y=Y9:M=M9:D=D9:e LP V&`"Els futtatskor a helyszn Pcs." `0`"j helyszn is elmenthet a flash memriba" j)`"a <> [3]-mas pontjval." t0`"A dtumok formtuma a szoksos (v-H-Nap)," ~%`"I.e. 1 a 0. v, I.e. 2 a -1. v." )`"A program mindig a mai nappal indul." b(9000:+100 xP:`"Forrsok:" 7`"www.skypub.com/resources/software/basic/basic.html" 0`"serendipity.magnet.ch/hermetic/cal_stud.htm" &`"home.capecod.net/~pbaum/info3.htm" +`"sciastro.astronomy.net/sci.astro.3.FAQ" 6`"Jean Meeus: Astronomical Formulae for Calculators" #b(9100:VA$="M"A$="m"T100 9P:`"Holdfzis kpek: Totka Istvn (totka@freemail.hu)" $b)9200:VA$="V"A$="v"T"7800  +100 @Y JP:`"Belltsok" T@Q2,1:`"[1] j helyszn s idzna (csak erre a szesszira)" ^2Q2,2:`"[2] j dtum (csak erre a szesszira)" h:Q2,3:`"[3] Pillanatnyi helyszn s idzna elmentse" r7Q2,4:`"[4] Vissza Pcsre! (memriaadatok trlse)" |Q2,6:`"[V] Vissza" Q121,6:`"[ESC] Kilp"  XA$=(1) V(A$)=27TZ VA$="v"A$="V"T100 VA$="1"T&\8500 VA$="2"T'8600 VA$="3"T'8700 VA$="4"T'8800  +%8080 !46P:`"Szlessg (fok, szak pozitv) [";B9;"]=";:aB9 !>3`"Hosszsg (fok, Kelet pozitv) [";L9;"]=";:aL9 !H>`"Ennyi rval tbb a helyi id a GMT-nl [";-H9;"] =";:aH9 !R +100 !P:`"v [";(Y9);"]=";:aY9 !`"H [";(M9);"]=";:aM9 !`"Nap [";(D9);"]=";:aD9 ! +100 !P:`"Mentem ..."; "!"E:geo1"Wqs#1 "`#1,B9:`#1,L9:`#1,H9:"#1 "`"Ksz!":b(9000:+100 "`%P:`"Elmentett adatok trlse... "; "j3<"E:geo1":`"Alaprtelmezs visszalltsa ... "; "tB9=35:L9=-80:H9=5 "~`"Ksz!":b(9000:+100 #(!Q0,6:`"[Nyomj meg egy gombot]" #2XA$=(1):e #8Q1,6:`"[M] Megszakt":Q121,6:`"[Brmi ms] Folytat" #XA$=(1):e #5Q1,6:`"[V] Vissza":Q121,6:`"[Brmi ms] Folytat" #XA$=(1):e '' '8P:b!7000:`"Holdhatsok":`"Dtum: ";:b/11000:` 'tb 86000:J=J+1 '' '-V=(J-2451550.1)/29.530588853:b,10400:IP=V 'AG=IP*29.53:' ' IP=IP*360:' '' ',V=(J-2451562.2)/27.55454988:b,10400:DP=V ' DP=DP*360:' '.DI=60.4-3.3*(DP)-.6*(2*IP-DP)-.5*(2*IP) (' ( -V=(J-2451565.2)/27.212220817:b,10400:NP=V ( NP=NP*360:' (LA=5.1*(NP) (2' (<-V=(J-2451555.8)/27.321582241:b,10400:RP=V (F1LO=360*RP+6.3*(DP)+1.3*(2*IP-DP)+.7*(2*IP) (P' (Z)`/"####";"jhold ta eltelt napok:";AG (d4`/"####";"Hold tvolsga (Fldsugrban): ";DI (n,`/"####";"Ekliptikus szlessg (fok):";LA (x/`/"####";"Ekliptikus hosszsg (fok):";LO:/ (}b,.10500:Y (b(9000:+100 (' ( V=V-(V) (e )' ) h(206,37):3"FFFFFFFFFFFFFFFF" ) h(214,37):3"FFFFFFFFFFFFFFFF" ) h(222,37):3"FFFFFFFFFFFFFFFF" ) h(230,37):3"FFFFFFFFFFFFFFFF" ) h(206,45):3"FFFFFFFFFFFFFFFF" ) h(214,45):3"FFFFFFFFFFFFFFFF" ) h(230,45):3"FFFFFFFFFFFFFFFF" ) h(206,53):3"FFFFFFFFFFFEFCF9" ) h(214,53):3"FFFFFFFF7F3393C3" ) h(222,53):3"FFFFFFFFFFFFFFFF" ) h(230,53):3"FFFFFFFFFFFFFFFF" ) h(206,61):3"F3E7CF9FD8D8D8DF" ) h(214,61):3"E3F3F9FCFDFDFDFD" ) h(222,61):3"FFFFFFFFFFFFFFFF" ) h(230,61):3"FFFFFFFFFFFFFFFF" )fK=(1+8*AG/29):UK+/g10532,/10534,/10536,/10528,/A10530,/g10532,/10534,/10536,/10538 )#h(222,45):3"FBFDFEFEFEFEFDFB":e )#h(222,45):3"F3F9FCFCFCFCF9F3":e )#h(222,45):3"F3F1F0F0F0F0F1F3":e ) #h(222,45):3"E3C1C0C0C0C0C1E3":e )"#h(222,45):3"C3810000000081C3":e )$#h(222,45):3"F1E0C0C0C0C0E0F1":e )&#h(222,45):3"F3E3C3C3C3C3E3F3":e )(#h(222,45):3"F3E7CFCFCFCFE7F3":e )*#h(222,45):3"F7EFDFDFDFDFEFF7":e *' +.MA=(M/10):MB=M-10*MA:DA=(D/10):DB=D-10*DA + 0`(Y);"-";(MA);(MB);"-";(DA);(DB);:e u1Z