libf2c とか

■この問題
何度も書いている気がする．
ちゃんと解決していないのだろうか．
symbol lookup error: s_cat
とか言われた．
とりあえず，
setenv LD_PRELOAD libg2c.so.0
としたら逃げられた．
http://www.linux-m32r.org/pipermail/linux-m32r-ja/2006-June/000228.html

■PGPLOT.pm
で contour を描く．サンプルがなくて苦労した・・・
#!/usr/bin5/perl

use PGPLOT;
@tr=(0,1,0,0,0,1);
$step=20;

pgbegin(0,"/xserve",1,1);
pgpap(10,1);
pgenv(0,41,0,41,0,0);
pglabel('X','Y','My contour plot');

$pi=4*atan2(1,1);
for($i=0;$i<40;$i++) {
for($j=0;$j<40;$j++) {
$f[$i][$j]=cos(0.3*sqrt($i*2)-0.4*$j/3)*cos(0.4*$i/3)+($i-$j)/40;
$max=$f[$i][$j] if $max<$f[$i][$j];
$min=$f[$i][$j] if $min>$f[$i][$j];
}
}

pgbbuf;
for($i=0;$i<$step;$i++) {
@lev=($min+($max-$min)*$i/$step);
pgsci($i);
pgcont(\@f,40,40,1,40,1,40,\@lev,$#lev+1,\@tr);
}
pgebuf;

pgend;