昔、実験で、振り子がゆらゆら、とかあったなぁ、とか思い出して探してみた。 3nen/jikken1/j7/s1/とかいうとこにあった。*1 set xrange [-11:11] set yrange [-11:11] set size 0.75, 1 set nokey plot 0 0 set arrow 1 from 0,0.000000 to 0.993896,9.7494…

perl -ne'next if/^#/;($x,$y)=/^(\S+)\t(\S+)$/ or die;$mix=$x if($mix>$x);$max=$x if($max<$x);$miy=$y if($miy>$y);$may=$y if($may<$y);' -e'END{print "x[${mix}:${max}]\ny[${miy}:${may}]\n"}' dataEND{}で囲まないと、最後に実行してくれない。*1 …

眠い。