hyperfine spectra

!Hyperfine spectra
define int n x
let x
let name spect-'x'
!
file in 'name'.bas
find
get 3
set mod x a
set unit v
modify FREQUENCY 93173.780
pl
set mod x
pl
file out 'name'.bas
method hfs n2hp.hfs
let n
line n
min
vis
w

==========================

1 set plot histo
2 set format brief
3 clear
4 clear alpha
5 file in prov.30m
6 find
7 get f
8 modify source TOTO
9 set unit v c
10 method hfs hfs-n2hp.lin
11 minimize
12 set viewport 0.2 0.9 0.4 0.8
13 set mode x 0 30
14 box n o i p
15 spec
16 title
17 pen /c 0 /w 2 /das 2
18 visualize /pen
19 pen /def
20 display 1.5
21 set viewport 0.2 0.9 0.2 0.4
22 box p o i n /unit v upper
23 residual
24 spectr
25 define real rms
26 compute rms RMS ry
27 greg1\draw test 1 -0.5 "\gs = "'nint(rms*100)/100.'" K" 6 0 /box 7

========================

7
-0.7951 1.00000
6.6004 1.00000
7.2113 2.33333
8.1673 1.66667
12.7565 1.00000
13.1955 1.66667
14.1473 0.33334

将以上数据保存为hcop.hfs文件。