say 'r%head%gen%cdobs' ! 谱线观测时间
sic version !查看class版本
for......./ while .true. !强制执行循环,不管中间是否报错
map /gr ! 信号 range 范围
set view x1 x2 y1 y2 ! help set box
go where
base 5 ! 可消除驻波
sta ! 查看所有find到的谱线
pop ! 查看谱线序号
查看pv图:
find /off 0 * 固定某一方向
set mod x* *
map /gr 画出PV谱线图
输出高斯拟合速度值:
set var gau
draw; mini; vis
say 'int(nfit[2]*100)/100'
say 'int(nfit[1]/nfit[3]/(sqrt(pi/4/log(2)))*100)/100'