1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{
$datastyle = ($P->datastyle eq 'solid') ? 'lines' : 'points';
$xmin = ($S->space =~ m{[ck]}) ? $S->xmin-1 : $S->e0 + $S->xmin-10;
$xmax = ($S->space =~ m{[ck]}) ? $S->xmax+1 : $S->e0 + $S->xmax+10;
$data = $P->tempfile;
$S->points(file => $data,
space => 'x',
suffix => $D->group,
);
q{};
}
## gnuplot script
set title "\{/*1.6 PCA data stack\}"
set xlabel "\{/*1.4 Energy&\{aa\}(eV)\}"
set ylabel "\{/*1.4 {$S->ylabel}\}"
set xrange [ {$xmin} : {$xmax} ]
plot '{$data}' using 1:2 with {$C->default("gnuplot", "datastyle")} ls {$P->increm+1} title "{$D->name}"
|
