Chemistry-PeriodicTable
view release on metacpan or search on metacpan
eg/element-property.pl view on Meta::CPAN
111213141516171819202122232425262728293031my
$property
=
shift
||
'weight'
;
my
$pt
= Chemistry::PeriodicTable->new;
my
$width
=
shift
|| 800;
my
$height
=
shift
|| 400;
my
$chart
= Chart::Lines->new(
$width
,
$height
);
$chart
->set(
legend
=>
'none'
,
title
=>
"$property per element"
,
x_label
=>
'Element'
,
y_label
=>
'Value'
,
include_zero
=>
'true'
,
precision
=> 2,
skip_x_ticks
=> 4,
brush_size
=> 2,
pt_size
=> 4,
y_grid_lines
=>
'true'
,
);
( run in 0.350 second using v1.01-cache-2.11-cpan-0d8aa00de5b )