||
参考 http://www3.mpifr-bonn.mpg.de/staff/bparise/gildas_2010.html 我学习了拉平有错位的谱线
LAS> file in demo
I-CONVERT, File is [Native]
I-INPUT, demo.30m successfully opened
LAS> find
I-FIND, 8614 observations found
LAS> get 1826
I-GET, Observation 1826; Vers 4 Scan 9621
LAS> plot
LAS> set unit v f ; 上边标频率,下边标速度
LAS> plot
LAS> define real ty /like ry ;定义一个实数数组ty,让它和ry有一样的维数,ry存储的是谱线的强度
LAS> set window -200 -42.3 -22 0 90 100
LAS> base 2 /pl
W-POLYNO, Baseline extrapolation is hazardous.
I-POLYNO, degree: 2 rms: 0.912 area: -333. v0: -89.02 width: 59.33
LAS> let ty ry /where rx.gt.-42.3 ;速度大于-42.3的部分减过基线,也就是基线拉平到0线,数组ry存储这部分
;将小于-42.3的部分也减基线
LAS> set window -95 -75 -42.3 +200
LAS> base 0 /pl
I-POLYNO, degree: 0 rms: 0.872 area: 693. v0: 47.76 width: 123.8
LAS> let ry ty /where rx.gt.-42.3; 用ty将将大于-42.3的部分替换掉
LAS> plot
LAS>
基线改正后的效果
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-31 09:54
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社