学習器を実装しようとすると唐突に逆誤差関数(erf(誤差関数)の逆関数)が必要になったりする。 こんなときに慌てず騒がずコピペできるようにPerlで実装したものをメモしておく。 誤差関数および逆誤差関数は解析的に解が求まらないけれどテイラー展開で近似することができる(参考: http://ja.wikipedia.org/wiki/%E8%AA%A4%E5%B7%AE%E9%96%A2%E6%95%B0)。 #!/usr/bin/perl use strict; use warnings; use Math::Trig qw/pi/; my $num = shift @ARGV; my $pre = 0; for my $n (1..10) { my $order = $n * 10; my $erf_inv = erf_inv($num, $order); my $diff = abs(