WLBと児童給付の経済的効果のシミュレーション

前記事 {blog:283} のグラフのためのPerlスクリプト。

変数の意味はつぎのとおり：

$a: 家庭責任がなければ稼げる所得 (任意の実数)

$b: 児童給付額 (ひとりあたり定額) (任意の実数)

$w: WLB政策の効果 (0から1の範囲の実数)

@x: 子供数 (非負の整数) のベクトル

sub eqinc {
    my ($a,$b,$w,@x) =@_;
    my @ret;
    foreach (@x) {
        if($_){
            push @ret, ( (1+$w)*$a + ($b*$_) ) / sqrt(2+$_) 
        }
        else{
            push @ret, $a 
        }
    } 
    @ret
}

sub tb_eq {
    my($head, $b, $w ) = @_;
    print $head ,  "$b,$w"  , map {sprintf('%6.2f',$_) } eqinc( 100, $b, $w, 0..10 );
}

$"  = $, = "\t";
$\  = "\n" ;

print 'Setting' , 'Parm' ,  0..10 ;

tb_eq( 'WLB' ,  0,  1);
tb_eq( 'UCB' ,  17, 0);
tb_eq( 'Both',   7, 1);
tb_eq( 'Both',  17, 1);
tb_eq( 'Both',  35, 1);
tb_eq( 'UCB' ,  41, 0);
tb_eq( 'UCB' ,  50, 0);
tb_eq( 'UCB' ,  73, 0);

○ 結果：

Setting Parm    0       1       2       3       4       5       6       7       8       9       10
WLB     0,1     100.00  115.47  100.00   89.44   81.65   75.59   70.71   66.67   63.25   60.30   57.74
UCB     17,0    100.00   67.55   67.00   67.53   68.59   69.92   71.42   73.00   74.63   76.28   77.94
Both    7,1     100.00  119.51  107.00   98.83   93.08   88.82   85.56   83.00   80.95   79.30   77.94
Both    17,1    100.00  125.29  117.00  112.25  109.41  107.72  106.77  106.33  106.25  106.43  106.81
Both    35,1    100.00  135.68  135.00  136.40  138.80  141.74  144.96  148.33  151.79  155.28  158.77
UCB     41,0    100.00   81.41   91.00   99.73  107.78  115.28  122.33  129.00  135.35  141.41  147.22
UCB     50,0    100.00   86.60  100.00  111.80  122.47  132.29  141.42  150.00  158.11  165.83  173.21
UCB     73,0    100.00   99.88  123.00  142.66  160.03  175.75  190.21  203.67  216.30  228.24  239.60

○ 解釈：

あとで書く