1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ # -*- ifm -*-
# template for overplot of chi(q)
# {$D->group} returns the ifeffit group name
# {$D->parameter} returns the value of that parameter
# {$P->parameter} returns the value of a Plot parameter
}
{
## this code fragment chooses the correct array
my %suffixes = ('m'=>"chiq_mag", e=>"chiq_mag", r=>"chiq_re", i=>"chiq_im", p=>"chiq_pha");
my $part = lc($P->q_pl);
$suffix = $suffixes{$part};
q{}
}
plot({$D->group}.q, "{$D->plot_multiplier}*{$D->group}.{$suffix}+{$D->y_offset}",
style={$P->datastyle}, color="{$P->color}", key="{$D->plotkey || $P->key}")
|
