#! /bin/tcsh -f
set file=pswiggle
set data=indata2
set psfile=$file.ps
set range=0/100/-5/5
set scale=X10/10
##
#正の値を赤く塗る
pswiggle $data -J$scale -R$range -Z1 -G255/0/0 -T1/0/0/0 -P -K -Bf10/f1:."pswiggle":nWeS -V -Y10 -X5 >! $psfile

#今はyのrangeが -5/5 なので 幅は10。その10分の1の値(1)を -Z に与える。
# -10/10 なので 幅は20。その10分の1の値(2)を -Z に与える。
#-Gは塗りつぶす色の指定。
#-Tはベースラインの太さと色を指定。

#負の値を青く塗る
pswiggle $data -J$scale -R$zrange -Z1 -G0/0/255 -P -O -B:."":nWeS -V -N -W1 >> $psfile

# -Nは負の値を塗りつぶす。(-Nをいれなければ正の値を塗りつぶす)
# -Wは線をデータに沿って描く。

gs $psfile

データとしては、 x軸、ベースライン(基準値)、データ値となる。
以下がその例。

1 0 -0.173561051
2 0 -0.341853857
3 0 -0.499770105
4 0 -0.642516494
5 0 -0.765760005
6 0 -0.86575985
7 0 -0.939480603
8 0 -0.984684587
9 0 -0.999999702
10 0 -0.984960973
11 0 -0.940025032
12 0 -0.86655575
13 0 -0.766783237
14 0 -0.643736005
15 0 -0.50114888
16 0 -0.343350023
17 0 -0.175129205
18 0 -0.00159254798
19 0 0.171992451
20 0 0.340356827
21 0 0.498390079
22 0 0.641295314
23 0 0.764734864





モドリマスカ？