U - CALCULATES PREDICTED MINIMA FOR VARIABLE STARS - 10/6/89 - JEFF A. BORDEAUX %:I1:MZ50:V$(MZ),VE(MZ),MN(MZ),MX(MZ),RA$(MZ),DE$(MZ),PV(MZ),T$(MZ),FV(MZ),S$(MZ)V$(I):V$(I)"END"NVI1:100 VE(I),MN(I),MX(I),RA$(I),DE$(I),PV(I),T$(I),FV(I),S$(I):II1:20)dI1:A$""2n""ix"#","STAR NAME";30);"MIN","MAX","PERIOD(DAYS)":I,V$(I);30);MN(I),MX(I),PV(I)II1:INV180I20(I20)180130:"RETURN = MORE SELECT BY ENTERING STAR #";A$ A$""200INV100!110>ZV(A$):ZV1ZVNV100V$V$(ZV):VEVE(ZV):MNMN(ZV):MXMX(ZV):RA$RA$(ZV):DE$DE$(ZV):PVPV(ZV):T$T$(ZV):FVFV(ZV):S$S$(ZV)"""DATA ON SELECTED STAR:":"STAR NAME = "V$:"EPOCH ="VE;:JOVE:1190J(DA);("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",(M1)31,3);Y;W$;XDA(DA):XX24:(X);":";:XX(X):XX60:(X);":";:XX(X):XX60:(X)"MIN/MAX VISUAL MAGNITUDE ="MN;"/";MX"RIGHT ASCENSION/DECLINATION =";RA$;" / ";DE$o "PERIOD =";PV;"DAYS";:(PV);"/";:XPV(PV):XX24:(X);":";:XX(X):XX60:(X);":";:XX(X):XX60:(X) "TYPE = ";T$ "(T$,1)"E""TIME SPENT IN ECLIPSE =";:310 ,"RISE TIME FOR MINIMUM TO MAXIMUM =";P!6FVPV;"DAYS";:XFVPV:(X);"/";:XX(X):XX24:(X);":";:XX(X):XX60:(X);":";:XX(X):XX60:(X)k!@"SPECTRAL TYPE = ";S$w!J:1070!TRA((RA$,2))(((RA$,4))60):RARA15!^DE((DE$,2,2))(((DE$,2))60):(DE$,1)"-"DEDE "hXJTVE:XXPV:CY(X0.5):XCYPV:JXVE;"r"":Z1:"DATE AND TIME FOR NEXT MINIMA"E"|1020"JT0;:JOJT0:1190:(DA);("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",(M1)31,3);Y;W$;"XDA(DA):XX24:(X);":";:XX(X):XX60:(X);":";:XX(X):XX60:(X)#ZZ1:Z20(Z20)440-#CYCY1:JVE(CYPV):380n#:"PRESS 'N' FOR NEW PROBLEM - ANY OTHER KEY TO CONTINUE":#A$:A$"N"#430# ------------------------------------------------------------$ -- CALCULATE GEOCENTRIC MINIMA -----------------------------------$T(J2451545)36525:L280.465935999.371946T:ML282.94050.322204T:DLL1.9148(M(180))0.0200((2M)(180)):VDLLM%R0.99972(10.01671(V(180))):L0(DE(180))(RA(180)):M00.91748(DE(180))(RA(180))0.39778(DE(180))U%T00.005775R(L0(DL(180))M0(DL(180))):% ------------------------------------------------------------%$ -- CONVERT WANTED CALENDAR DATE TO ASTRONOMICAL JULIAN DATE -----&."ENTER A TARGET DATE":"YEAR (ALL DIGITS)";Y:&8"MONTH (1-12)";M:M1M12:1080`&B"DAY (1-31)";D:D1D31:1090&LM1M:Y1Y:M3Y1Y11:M1M112&VY15821150&`M101150&jD151150&tB0:1160&~A(Y1100):B2A(A4)'C(365.25Y1):DD(30.6001(M11)):JTBCDDD1720994.5:a' ------------------------------------------------------------' -- CONVERT ASTRONOMICAL JULIAN DATE TO CALENDAR DATE --------------'XJO0.5:I(X):FXI:I2299160AI:B0:1210(A((I1867216.25)36524.25):BI1A(A4)S(CB1524:D((C122.1)365.25):E(365.25D):G((CE)30.6001)(DACEF(30.6001G):G13.5MG13:MG1(M2.5YD4716:YD4715( ------------------------------------------------------------') -- CALCULATE DAY OF WEEK -----------------------------------a)X(JO):XX0.5:A((X1.5)7):AA(A):X((A7)0.5))W$("SUNMONTUEWEDTHUFRISAT",X31,3):)  ------------------------------------------------------------ * "NAME",EPOCH,MIN,MAX,"RA","DEC",PERIOD,"TYPE",FRACTION/ECLIPSE,"SPECTRUM"*"ALGOL (BET PER)",2440953.4657,3.4,2.12,"03:08.2","+40:57",2.8673075,"EA(X)",0.14,"B8V+G5IV+AM"*"LAM TAU",2435089.204,3.8,3.3,"04:00.7","+12:29",3.952955,"EA",0.15,"B3V+A4IV"=+"POLARIS (ALP UMI)",2439253.01,2.07,1.92,"02:31.8","+89:16",3.969778,"C DELTA",0.5,"F7:IB-IIV"+"MEKBUDA (ZET GEM)",2436791.922,4.16,3.66,"07:04.1","+20:34",10.15082,"C DELTA",0.5,"F7IB-G3IB"+"SHELIAK (BET LYR)",2445342.39,4.34,3.34,"18:50.1","+33:22",12.93578,"EB",1,"B7VE+A8P"R, "RR LYR",2442995.405,8.12,7.06,"19:25.5","+42:47",0.566867,"RRAB",0.19,"A8-F7","DEL CEP",2436075.445,4.37,3.48,"22:29.2","+58:25",5.366341,"C DELTA",0.25,"F5IB-G1IB", "END"