Ever since Grote Reber, W9GFZ, produced the first radio map of the Milky Way galaxy in 1937, amateur radio astronomers have delighted in producing visual depictions of the radiation intercepted by their antennas. Here, for example, is a Doppler Shift plot of interstellar hydrogen from the region of the galactic center:
The following listing is a QBASIC program for taking power information from SETIFOX POWRDATA.TXT files and arranging it into a labelled Right Ascension versus Frequency array that can be imported into a spreadsheet. The program listed below opens a POWRDATA.TXT file located in the SETIFOX directory and saves the converted text to a file called GALAXY17.TXT in the same directory. The saved file will have the columns labelled with the frequency and the rows with the right ascension.
fq$ = ""
l$ = ""
flag = 1
OPEN "C:\SETIFOX\POWRDATA.TXT" FOR INPUT AS #1
OPEN "C:\SETIFOX\galaxy17.TXT" FOR OUTPUT AS #2
WHILE (NOT EOF(1))
INPUT #1, a$
INPUT #1, b$
fr$ = MID$(b$, 7, 10)
p$ = MID$(b$, 45, 10)
ra$ = MID$(a$, 67, 12)
IF fr$ = fq$ THEN
IF flag = 1 THEN PRINT #2, f$: flag = 0
PRINT #2, l$
f$ = ""
END IF
IF fq$ = "" THEN fq$ = fr$: f$ = SPACE$(11)
IF fr$ = fq$ THEN l$ = ra$ + " " + p$: f$ = f$ + " " + fr$
IF fr$ <> fq$ THEN l$ = l$ + " " + p$: f$ = f$ + " " + fr$
WEND
PRINT #2, l$
CLOSE #2
CLOSE #1
END
In EXCEL97 rather nice surface or 3D graphs can be made by the following method:
email the Webmaster | entire website copyright © The SETI League, Inc. this page last updated 23 November 2002 |
Top of Page |