屑俺日記

☆ ping 100 連発

<embed name="R Graph ping" 
  src="/misc/dust/screenshots/ubuntu/ping100/ping_all.swf"
  alt="ping -c 100" title="ping -c 100"
  pluginspage="http://www.macromedia.com/go/getflashplayer"
  type="application/x-shockwave-flash" height="400" width="640">

ping した結果をグラフにしてみた。

$ ping -c 100 www.kuzuore.com | \
  grep icmp | \
  awk '{print $6, $8}' | \
  sed 's/[^=0-9 ]*=//g' | \
  tee foo.txt

1 319
2 259
3 269
4 249
5 239
(ry

といったデータを作り、グラフ化などを R にさせる。

> p100 = read.table("foo.txt")
> png(filename="ping100.png", width=640, height=400)
> plot(p100, type="h", main='ping www.kuzuore.com', 
+ xlab='times', ylab='ms')
> dev.off()
> sp100 = spline(p100)
> png(filename="ping200.png", width=640, height=400)
> plot(sp100, type="h", main='ping www.kuzuore.com(spline)',
+ xlab='times', ylab='ms')
> dev.off()

ヒストグラムとスプラインのヒストグラムにする。
空っぽの枠も type="n" で作れたかもしれないが、 gimp で線を消して、適当な文字を入れた。

$ png2swf -o ping_all.swf ping000.png ping100.png ping200.png

よく指弾される y軸のおかしなグラフ になったが このあたりで飽きたので、 y軸の根元がゼロでないことと y軸が幾分ズレていること を明記するに留める。
作成したデータなど。

<追記>
これもmpeg4に変える。
</追記>