blob: 8aa6e228968a5647fab075e83438209c46ccf1f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
# see do.sh for usage
d=$(dirname `readlink -f $0`)
. $d/lib.sh
plboth() {
local o=$1
local oarg="-landscape"
[ "$portrait" ] && oarg=
shift
set -x
pl -png -o $o.png "$@"
set +x
pl -ps -o $o.ps $oarg "$@"
ps2pdf $o.ps $o.pdf
}
graph3() {
local y=$1
local ylbl="$2"
local y2=$3
local ylbl2="$4"
local y3=$5
local ylbl3="$6"
local ylbldistance=${7:-'0.7"'}
local name=${name:-$data}
local obase=${obase:-$opre$name.x_`filename_from $xlbl`.$y.`filename_from $ylbl`.$y2.`filename_from $ylbl2`.$y3.`filename_from $ylbl3`}
local of=$obase.png
local ops=$obase.ps
#yrange=0
local yrange_arg
[ "$ymin" ] && yrange_arg="yrange=$ymin $ymax"
#pointsym=none pointsym2=none
title=${title:-$ylbl $ylbl2 $ylbl3 vs. $xlbl}
xlbl=${xlbl:=x}
showvars_required obase xlbl ylbl ylbl2 ylbl3
showvars_optional yrange yrange_arg
require_files $data
plboth $obase -prefab lines data=$data x=1 "$yrange_arg" y=$y name="$ylbl" y2=$y2 name2="$ylbl2" y3=$y3 name3="$ylbl3" ylbldistance=$ylbldistance xlbl="$xlbl" title="$title" ystubfmt '%4g' ystubdet="size=6" linedet2="style=1" linedet3="style=3" -scale ${scale:-1.4}
echo $of
}
pre() {
local pre=$1
shift
local f
for f in "$@"; do
echo $pre$f
done
}
main() {
files=( $(pre "$@") )
data=${data:-compare.$(filename_from $*)}
xlbl=${xlbl:-space}
showvars_required files data xlbl
require_files ${files[*]}
$d/merge-columns.pl ${files[*]} > $data
preview $data
graph3 2 "${n2:-$2}" 3 "${n3:-$3}" 4 "${n4:-$4}"
exit
}
if ! [ "$nomain" ] ; then
main "$@";exit
fi
|
