Derivazioni: Space for communication by TANAKA Sigeto
[About] [Author] [Archive] [Mobile] [RSS]

« 政府が本気で出生力増大に取り組んだら何が起きるのか? 普遍的児童給付政策の規範的制約 «  | |  » 「現代日本論論文講読」(金4) 聴講者募集 »

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

○ 解釈:

あとで書く


Related articles




Trackback:

http://blog.tsigeto.jp/tb.php/284-00a1186c


Recent

Articles

Comments

Trackbacks


Archive

Monthly

Categories [Explanation]

| News:0 || Research:61 || Education:3 || School:260 || School/readu:3 || School/writing:17 || School/family:18 || School/occ:16 || School/quesu:3 || School/statu:3 || School/readg:18 || School/quesg:13 || School/statg:25 || School/kiso:5 || School/study:22 || School/intv:12 || Profile:2 || WWW:7 || WWW/this:4 |