---

Diagonal Size in the Newtonian Telescope

A HotPaw Basic Program for Your Palm

Copy this program and paste it into a notepad file. Save the file, then use the Palm Desktop application to IMPORT the file into a memo. Then hotsync it into your palm. Since the program is a memo, you can easily beam it to other users.

---

#newtdiag.bas
# calculates diagonal size and offset
# for a nutonion telescope
# Assumptions:
# (1) Light travels in a straight line
# (2) The mirror is parabolic.
#
n$="Richard Schwartz 2002 Jan 29"
for i=0 to 17: s$(i)="": next i
s$(0)="by "+n$
s$(1)=" richas@earthlink.net"
s$(2)="Focal Length"
s$(3)=48
s$(4)="Aperture"
s$(5)=6
s$(6)="F. P. to Diag."
s$(7)=9
s$(8)="F. P. Diam."
s$(9)=1.25
while (1)
j = form(12,0,"Newt Diagonal Calc")
if j=0 then end
f=val(s$(3))
dd=val(s$(5))/2
a=val(s$(7))
b=val(s$(9))
s=dd^2/16/f
c=(dd-b)/(f-s)/2
d1=sqr(2)*(dd/2-c*(f-a-s))/(1+c)
d2=sqr(2)*(dd/2-c*(f-a-s))/(1-c)
a$=str$(a,6,2)
s$(12)="major axis"
s$(13)=str$(d1+d2,5,2)
s$(14)="center offset"
s$(15)=str$((d2-d1)/2,5,3)
wend
end

Home

---