srand;
use PDL;
use PDL::Graphics::PGPLOT;
use PGPLOT;
use Exporter;
$id=dev($^O =~ /MSWin32/ ? '/GW' : '/XSERVE');
$ENV{PGPLOT_XW_WIDTH}=0.5;