δΊ 2014/6/27 16:26, xuhaida ει:
> Hi:
> I'm trying to install the PDL 2.007 in my Window7 (64 bit) desktop,
> after installing PDL successfully.I use " cpan PDL::Graphics::Simple" to
> install the module. But test fails for the imag subroutine .I can't see
> any image in my desktop, Any suggestion?
>
> # Image & circles plot
> eval { $w->plot(with=>'image', rvals(11,11),
> with=>'circle', xvals(15), xvals(15)*1.5,
> sin(xvals(15))**2 * 4,
> {title=>"PDL: $engine engine, image & circle plots (not
> justified)"}
> );
> };
> ok(!$@, "plot succeeded\n");
> print $@ if($@);
> print STDERR qq{
> Testing $engine engine: You should see a radial 11x11 "target" image
> and some superimposed "circles". Since the plot is not justified, the
> pixels in the target image should be oblong and the "circles" should
> be ellipses. OK? (Y/n) > };
> $a = get_yn();
> ok( $a !~ m/^n/i,
> "image and circles plot looks ok");
>
> ##############################
> # Image & circles plot (justified)
> eval { $w->plot(with=>'image', rvals(11,11),
> with=>'circle', xvals(15), xvals(15)*1.5,
> sin(xvals(15))**2 * 4,
> {title=>"PDL: $engine engine, image & circle plots
> (justified)", j=>1}
> );
> };
> ok(!$@, "justified image and circles plot succeeded"); print($@) if($@);
> print STDERR qq{
> Testing $engine engine: You should see the same plot as before, but
> justified. superimposed "circles". Since the plot is justified,
> the pixels in the target image should be square and the "circles" should
> really be circles. OK? (Y/n) > };
>
> $a = get_yn();
> ok( $a !~ m/^n/i,
> "justified image and circles plot looks ok");
>
> ##############################
> # Log scaling
>
> eval { $w->plot(with=>'line',xvals(500)+1,{log=>'y',title=>"PDL:
> $engine engine, Y=X (semilog)"}); };
> ok(!$@, "log scaling succeeded");
> print STDERR qq{
> Testing $engine engine: You should see a simple logarithmically scaled plot,
> with appropriate title. OK? (Y/n) > };
>
> $a = get_yn();
> ok( $a !~ m/^n/i,
> "log scaled plot looks OK");
>
>
> ##############################
> # Text
>
> eval { $w->plot(with=>'labels',
> xvals(5), xvals(5),
> ["<left-justified","< left-with-spaces",
> "|centered","|>start with '>'",">right-justified"],
> {title=>"PDL: $engine engine, text on graph",
> yrange=>[-1,5] }
> );
> };
> ok( !$@, "labels plot succeeded" );
> print STDERR qq{
> Testing $engine engine: You should see "left-justified" text left
> aligned on x=0, "left-with-spaces" just right of x=1, "centered"
> centered on x=2, ">start with '>'" centered on x=3, and
> "right-justified" right-aligned on x=4. OK? (Y/n) > };
> $a = get_yn();
> ok( $a !~ m/^n/i,
> "labels plot looks OK");
>
>
> ##############################
> # Multiplot
> eval { $w=new PDL::Graphics::Simple(engine=>$engine, multi=>[2,2]); };
> ok(!$@, "Multiplot declaration was OK");
>
> $w->image( rvals(9,9),{wedge=>1} ); $w->image(
> -rvals(9,9),{wedge=>1} );
> $w->image( sequence(9,9) ); $w->image(
> pdl(xvals(9,9),yvals(9,9),rvals(9,9)) );
>
> print STDERR qq{
> Testing $engine engine: You should see two bullseyes across the top (one in
> negative print), a gradient at bottom left, and an RGB blur (if supported
> by the engine - otherwise a modified gradient) at bottom right. The top two
> panels should have colorbar wedges to the right of the image.
> OK? (Y/n) > };
>
> $a = get_yn();
> ok($a !~ m/^n/i,
> "multiplot OK");
>
>
> }
>
> }
>
>
> ##############################
> # Try the simple engine and convenience interfaces...
>
> print STDERR<<'FOO';
>
> ##############################
> Convenience interface tests...
> FOO
>
> ok( !defined($PDL::Graphics::Simple::global_object), "Global convenience
> object not defined" );
>
> eval q: $a = xvals(50); lines $a sin($a/3) :;
> ok(!$@, "simple lines plot succeeded");
>
> ok( defined($PDL::Graphics::Simple::global_object), "Global convenience
> object got spontaneously set" );
>
> print STDERR q{
> test> $a = xvals(50); lines $a sin($a/3);
> You should see a sine wave... OK? (Y/n) > };
>
>
> $a = get_yn();
> ok($a !~ m/^n/i, "convenience plot OK");
>
> eval q: erase :;
> ok(!$@, 'erase worked');
> ok(!defined($PDL::Graphics::Simple::global_object), 'erase erased the global
> object');
>
> ##############################
> # Test imag
> $im = 0; # shut up the typo detector
> $im = 1000 * sin(rvals(100,100)/3) / (rvals(100,100)+30);
>
> eval q{ imag $im };
> ok(!$@, "imag worked with no additional arguments" );
>
> print STDERR q{
> test> $im = 1000 * sin(rvals(100,100)/3) / (rvals(100,100)+30);
> test> imag $im;
> You should see a bullseye pattern with a brighter inner ring. OK? (Y/n) > };
>
>
> $a=get_yn();
> ok($a !~ m/^n/i, "bullseye OK");
>
> eval q{ imag $im, {wedge=>1, title=>"Bullseye!"} };
> ok(!$@, "imag worked with plot options");
>
> print STDERR q{
> test> imag $im, {wedge=>1, title=>"Bullseye!", j=>1};
> You should see the same image, but with a colorbar wedge on the right; a title
> up top; and a justified aspect ratio (circular rings). The color scale may be
> slightly less contrasty than the last frame, because some engines extend the
> colorbar wedge to round numbers. Ok? (Y/n) > };
>
> $a = get_yn();
> ok($a !~ m/^n/i, "justified bullseye and wedge OK");
>
>
> eval q{ imag $im, 0, 30, {wedge=>1, j=>1} };
> ok(!$@, "imag worked with bounds");
>
> print STDERR q{
> test> imag $im, 0, 30, {wedge=>1, j=>1};
> You should see the same image, but with no title and with a tighter
> dynamic range that cuts off the low values (black rings instead of
> the fainter parts of the bullseye). Ok? (Y/n) > };
>
> $a = get_yn();
> ok($a !~ m/^n/i, "crange shortcut is OK");
>
> eval q{ erase };
> ok(!$@, "erase executed");
>
> print STDERR qq{
> test> erase
> The window should have disappeared. Ok? (Y/n) > };
>
> $a = get_yn();
> ok($a !~ m/^n/i, "erase worked");
>
> print "End of tests\n";
>
>
>
I tried PDL::Graphics::Prima, it works fine. Then I installed
PDL::Graphics::Simple again and saw the images, all tests passed . But
failed in the installattion because of the following information:
Running make install
Installing C:\strawberry\perl\site\lib\PDL\Graphics\Simple.pm
Installing C:\strawberry\perl\site\lib\PDL\Graphics\Simple\Gnuplot
Installing C:\strawberry\perl\site\lib\PDL\Graphics\Simple\PGPLOT.
Installing C:\strawberry\perl\site\lib\PDL\Graphics\Simple\PLplot.
Installing C:\strawberry\perl\site\lib\PDL\Graphics\Simple\Prima.p
Appending installation info to C:\strawberry\perl\lib/perllocal.po
"Updating PDL documentation database...";
Can't find string terminator "'" anywhere before EOF at -e line 1.
dmake.exe: Error code 255, while making 'install'
ZOWIE/PDL-Graphics-Simple-1.005.tar.gz
C:\strawberry\c\bin\dmake.exe install UNINST=1 -- NOT OK
Stopping: 'install' failed for 'PDL::Graphics::Simple'.
Failed during this command:
ZOWIE/PDL-Graphics-Simple-1.005.tar.gz : install NO
Any more suggestion?
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
