Output of file : HOHMAN.BAS contained in archive : HOHMAN.ZIP
10 rem Hohmann transfer program
20 cls
30 print"(1) Hohmann Transfer"
40 print"(2) Bi-elliptical Transfer"
50 input"Enter orbit transfer type";o
60 if o=2 then 1000
70 print"Enter all data in km"
80 u=3.986e+05
90 input"Enter the radius of the inner orbit ";rp
100 input"Enter the radius of the outer orbit ";ra
110 input"Is a plane change required , Y or N ";a\$
120 if a\$="Y" then
130 input"Enter change of inclination required ";dtheta
140 REM end if
150 e=((ra/rp)-1)/(1+(ra/rp))
160 v=sqr(u/ra)
170 dv1=sqr((2*(ra/rp))/(1+(ra/rp)))
180 dv1=dv1-1
190 dv1=sqr(u/rp)*dv1
200 dv2=sqr(2/(1+(ra/rp)))
210 dv2=1-dv2
220 dv2=sqr(u/ra)*dv2
230 dvt=dv1+dv2
240 a=(ra+rp)/2.0
250 tof=3.14159*sqr(a^3/u)
260 tof=tof/3600.00
270 cls
280 print"Initial Parameters of Transfer Problem"
290 print"--------------------------------------"
300 print
310 print" Rp Ra "
320 print tab(4);rp;tab(26);ra
330 print
340 print"Hohmann Transfer Requirements"
350 print"-----------------------------"
360 print
370 print" delta v1 delta v2 delta vtotal eccentricity"
380 print tab(4);dv1;tab(17);dv2;tab(30);dvt;tab(46);e
390 print
400 print"Time of Flight in Transfer is ";tof;" hours"
410 if a\$="Y" then
420 dvi=2*v*sin((dtheta/2.)/57.295)
430 print:print"Delta-vee required for plane change is ";dvi
440 rem end if
450 stop
1000 print
1010 print"Enter all data in km"
1020 u=3.986e+05
1030 input"Enter periapsis of the inner elliptical orbit ";rp1
1040 input"Enter apoapsis of the outer elliptical orbit ";ra2
1050 input"Enter eccentricity of the inner orbit ";e1
1060 input"Enter eccentricity of the outer orbit ";e2
1070 vp1=(u/rp1)*(1+e1)
1080 vp1=sqr(vp1)
1090 vpt=(2*(ra2/rp1))/(1+(ra2/rp1))
1100 vpt=(u/rp1)*vpt
1110 vpt=sqr(vpt)
1120 dvp1=vpt-vp1
1130 vat=(rp1/ra2)*vpt
1140 va2=(u/ra2)*(1-e2)
1150 va2=sqr(va2)
1160 dva2=va2-vat
1170 dvt=dvp1+dva2
1180 print
1190 print"Initial Transfer Parameters of Elliptical Orbits"
1200 print"------------------------------------------------"
1210 print
1220 print" Rp1 Ra2 e1 e2 "
1230 print tab(4);rp1;tab(15);ra2;tab(27);e1;tab(38);e2
1240 print
1250 print"Bi-elliptical Transfer Requirements"
1260 print
1270 print" delta Vp1 delta Va2 delta Vtotal"
1280 print tab(3);dvp1;tab(17);dva2;tab(31);dvt
1290 end

...-....1200 N81N ......................... ... ...-....

### 3 Responses to “Category : Science and EducationArchive   : HOHMAN.ZIPFilename : HOHMAN.BAS”

1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/