|
AM_INIT_AUTOMAKE(libiter,2.0,notdef)
-rw-r--r-- 1 root wheel 17640 Oct 13 14:30 /usr/local/lib/libiter.a -rwxr-xr-x 1 root wheel 639 Oct 13 14:30 /usr/local/lib/libiter.la* lrwxr-xr-x 1 root wheel 12 Oct 13 14:30 /usr/local/lib/libiter.so@ -> libiter.so.2 -rwxr-xr-x 1 root wheel 19485 Aug 1 16:55 /usr/local/lib/libiter.so.1* -rwxr-xr-x 1 root wheel 18028 Oct 13 14:30 /usr/local/lib/libiter.so.2*
2001年10月
#!/usr/bin/perl
# utility to merge many files in arguments and print to stdout
Copyright (C) 1997-2018, Kengo Ichiki
# $Id: merge-files.pl,v 1.1 2001/10/06 13:32:50 ichiki Exp $
$argc = $#ARGV;
## open files
for ($i = 0; $i <= $argc; $i ++) {
open (fh.$i, $ARGV [$i]) || die "cannot open ".$ARGV [$i];
}
## read files and write line-by-line
while (1) {
$line = '';
for ($i = 0; $i <= $argc; $i ++) {
$fh = 'fh'.$i;
$line = $line.<$fh>;
}
$line =~ s/\n/ /g;
print $line."\n";
for ($i = 0; $i <= $argc; $i ++) {
if (eof (fh.$i)) {
print "# EOF of ".$ARGV [$i]."\n";
exit ();
}
}
}
200 5.0e-02 5.0e-02 5.0e-02 5.0e-06 0 3.9e-03 -6.6e-03 -7.0e-04 -1.2e-02 2.1e-02 2.2e-03 6.5e-06 1 1.5e-02 1.7e-04 2.0e-03 -5.5e-03 -1.5e-05 -7.8e-04 5.1e-06 …
set data style linespoints
set logscale y
set grid
set key bottom right
set xlabel 'steps'
set ylabel 'difference [m]'
set term png medium color
set output '20011006-dr-n96.png'
plot \
"< /usr/bin/perl merge-files.pl res.euler res.cvode | awk '($1==96&&NR>3) \
{print sqrt(($2-$10)*($2-$10)+($3-$11)*($3-$11)+($4-$12)*($4-$12))}'" \
t 'EULAR-CVODE N=96',\
"< /usr/bin/perl merge-files.pl res.bsstep res.cvode | awk '($1==96&&NR>3) \
{print sqrt(($2-$10)*($2-$10)+($3-$11)*($3-$11)+($4-$12)*($4-$12))}'" \
t 'BSSTEP-CVODE N=96',\
"< /usr/bin/perl merge-files.pl res.rkqs res.cvode | awk '($1==96&&NR>3) \
{print sqrt(($2-$10)*($2-$10)+($3-$11)*($3-$11)+($4-$12)*($4-$12))}'" \
t 'RK-CVODE N=96',\
"< /usr/bin/perl merge-files.pl res.rkqs res.bsstep | awk '($1==96&&NR>3) \
{print sqrt(($2-$10)*($2-$10)+($3-$11)*($3-$11)+($4-$12)*($4-$12))}'" \
t 'RK-BSSTEP N=96'
|
Copyright (C) 1997-2018, Kengo Ichiki
twitter: @ichiki_k |