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;
$temp = $P->tempfile;
$S->points(file => $temp,
space => 'x',
suffix => 'ev'.$component,
);
q{};
}
## gnuplot script
set title "\{/*1.6 PCA components\}"
set xlabel "\{/*1.4 Energy&\{aa\}(eV)\}"
set ylabel "\{/*1.4 PCA component\}"
set xrange [ {$xmin} : {$xmax} ]
plot '{$temp}' using 1:2 with {$C->default("gnuplot", "datastyle")} ls {$P->increm+1} title "Component {$component+1}"
|
