<% dim mConnectString, sql, ap, fl ap=203.2 fl=2032 LatD=39 LatM=57 LatS=50 LonD=-82 LonM=55 LonS=13 TZ = -5 if request.cookies("DblChallenge")("LatD")<>"" then LatD = request.cookies("DblChallenge")("LatD") if request.cookies("DblChallenge")("LatM")<>"" then LatM = request.cookies("DblChallenge")("LatM") if request.cookies("DblChallenge")("LatS")<>"" then LatS = request.cookies("DblChallenge")("LatS") if request.cookies("DblChallenge")("LonD")<>"" then LonD = request.cookies("DblChallenge")("LonD") if request.cookies("DblChallenge")("LonM")<>"" then LonM = request.cookies("DblChallenge")("LonM") if request.cookies("DblChallenge")("LonS")<>"" then LonS = request.cookies("DblChallenge")("LonS") if request.cookies("DblChallenge")("ap")<>"" then ap = request.cookies("DblChallenge")("ap") if request.cookies("DblChallenge")("FL")<>"" then FL = request.cookies("DblChallenge")("FL") if request.cookies("DblChallenge")("TZ")<>"" then TZ = request.cookies("DblChallenge")("TZ") mConnectString="driver={SQL Server};Server=tomato;Database=web;UID=sa;pwd=crackwhore;dsn=;" if request("submit") <>"" then if request("txtApp")<>"" then ap = request("txtapp") if request("txtFl") <> "" then fl = request("txtfl") if request("LatD")<>"" then LatD = request("LatD") if request("LatM")<>"" then LatM = request("LatM") if request("LatS")<>"" then LatS = request("LatS") if request("LonD")<>"" then LonD = request("LonD") if request("LonM")<>"" then LonM = request("LonM") if request("LonS")<>"" then LonS = request("LonS") if request("North")="South" then LatD = abs(LatD)*-1 else LatD = abs(LatD) if request("West")="West" then LonD = abs(Lond)*-1 else LonD = abs(LonD) if request("TZ")<>"" then TZ = request("TZ") response.cookies("DblChallenge")("LatD")=LatD response.cookies("DblChallenge")("LatM")=LatM response.cookies("DblChallenge")("LatS")=LatS response.cookies("DblChallenge")("LonD")=LonD response.cookies("DblChallenge")("LonM")=LonM response.cookies("DblChallenge")("LonS")=LonS response.cookies("DblChallenge")("ap")=ap response.cookies("DblChallenge")("FL")=FL response.cookies("DblChallenge").expires = cdate("01/01/2010 00:00:00") else if request("ap")<>"" then ap = request("ap") if request("FL")<> "" then fl = request("FL") end if p = formatnumber(400/(ap/25.4*50),1) ep = formatnumber(FL/(ap/25.4*50),0) d = formatnumber(4.56/(ap/25.4),2) dp = formatnumber(ap/25.4*50*p/d,0) r = formatnumber(0.0252*560/(ap)*10,2) rp = formatnumber(ap/25.4*50*p/r,0) select case request("Criterion") case "" s1 = d-.05 s2 = d+.05 Case "0" s1 = d-.05 s2 = d+.05 case "1" s1 = r-.05 s2 = r+.05 case "2" s1 = p-.05 s2 = p+.05 end select sql = "select Icon='Stars', StarName as [Star Name],Sep,PA, Mag, MagDiff, BV, MK, 'Unknown' as Alt, 'Unknown' Az, Ra2000, Dec2000, SAO, HD, WDS from closedoubles where sep between " & s1 & " and " & s2 select case request("MagDiff") case "" case else sql = sql & " and magdiff < " & request("MagDiff") end select select case request("MK") case "" case "0" sql = sql & " and Substring(MK,1,1) in ('A','F')" case "1" sql = sql & " and Substring(MK,1,1) in ('A','F', 'G', 'B')" end select if request("Debug")<>"" then response.write request.form response.write request.querystring response.write sql end if qstring = "Ap=" & ap & "&FL=" & FL & "&MK=" & request("MK") & "&MagDiff=" & request("MagDiff") & "&Criterion=" & Request("Criterion") %> Digital Camera Astrophotography - Double Star Challenge
Digital Camera Astrophotography
Double Star Challenge (ongoing)
Markus Ridder and Gregory Pruden
Digital_Astro
the digital camera astrophotography list
  Telescope Aperture (mm) size="20">


 

Telescope Focal Length (mm)

size="20">
  Limit
  Magnitude Difference
  Color of Primary
  Latitude º ' "
<%if latD >= 0 then lonO = "checked" else lonO=""%> > North <%if latD < 0 then lonO = "checked" else lonO=""%> > South
  Longitude º ' "
<%if lonD >= 0 then lonO = "checked" else lonO=""%> > East <%if lonD < 0 then lonO = "checked" else lonO=""%> > West
  UTC Offset Input the information above and choose a criterion for doubles to list below, then hit submit. You can select criterion to see additional doubles.

Dawes Criterion is only valid for white stars both mag 6.
 
 
Practical Limit = <%=p%>" Visual Power: <%=formatnumber(ap/25.4*50,0)%>x Sug. Eyepiece: <%=ep%>mm (<%=ep*2%>mm with 2x barlow)
Rayleigh Criterion = <%=r%>" Visual Power: <%=rp%>x Sug. Eyepiece: <%=formatnumber(FL/rp,0)%>mm (<%=formatnumber(FL/rp,0)*2%>mm with 2x barlow)
Dawes Criterion = <%=d%>" Visual Power: <%=dp%>x Sug. Eyepiece: <%=formatnumber(FL/dp,0)%>mm (<%=formatnumber(FL/dp,0)*2%>mm with 2x barlow)

<% set s = new zxSite s.Latitude = LatD+LatM/60+LatS/3600 s.Longitude = LonD+LonM/60+LonS/3600 s.UTC = int(now()) s.UTC = dateadd("h",20,s.UTC) s.UTC = dateadd("h", -1*TZ, s.UTC) set g = new zxGeo set g.site = s %> Doubles are listed which are above the horizon at 20:00 (8:00pm) local time or <%=formatdatetime(s.UTC,0)%> UTC <% set s = nothing %>