参考 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>

基线改正后的效果