#!/usr/bin/perl
#　　　　並列効果（α）＝　1 / (( 1 - p) + p / Np)
#　　　　　　p 　：　並列化率（0〜1.0）
#　　　　　　Np ：　プロセッサ数

for($p = 0.5; $p<1;$p+=0.05) {
    print  "$p ",1/((1-$p)+ $p/6),"\n";
}