一寸先は闇

perl で特殊関数 40 対数積分 li(x) (Logarithmic Integral li: LOGARITHMICINTEGRALLI)

perl で特殊関数 40 対数積分 li(x) (Logarithmic Integral li: LOGARITHMICINTEGRALLI): 一寸先は闇 # 対数積分 li(x) Logarithmic Integral li# 引数 変数 ($X)# 戻り値 対数積分 En(x) ($LogarithmicIntegralli)sub LOGARITHMICINTEGRALLI{ my ($X) = @_; my $LogarithmicIntegralli = 0; # 変数の確認 if($X < 0){ return

2010/09/11 13:18

perl で特殊関数 39 指数積分 Ei(x) (Exponential Integral Ei: EXPONENTIALINTEGRALEI)

perl で特殊関数 39 指数積分 Ei(x) (Exponential Integral Ei: EXPONENTIALINTEGRALEI): 一寸先は闇 # 指数積分 Ei(x) Exponential Integral Ei# 引数 変数 ($X)# 戻り値 指数積分 En(x) ($ExponentialIntegralEi)sub EXPONENTIALINTEGRALEI{ my ($X) = @_; my $ExponentialIntegralEi = 0; my $EulersConstant = 0.577215665; my $SimpsonsRule = 0; my $h = 0.1; my $i = 1; my $Sum = 0; my $SumA = 0; my $SumB = 0; my $PrevSum = 0; my $Factorial = 1; my $Limit = 100; my $Epsilon = 1.0e-20; if($X == 0){ # 指数積分 E...

2010/09/04 20:04

perl で特殊関数 38 指数積分 En(x) (Exponential Integral En: EXPONENTIALINTEGRALEN)

perl で特殊関数 38 指数積分 En(x) (Exponential Integral En: EXPONENTIALINTEGRALEN): 一寸先は闇 # 指数積分 En(x) Exponential Integral En# 引数 変数 変数 ($N, $X)# 戻り値 指数積分 En(x) ($ExponentialIntegralEn)sub EXPONENTIALINTEGRALEN{ my ($N, $X) = @_; my $ExponentialIntegralEn = 0; my $SimpsonsRule = 0; my $h = 0.1; my $i = 1; my $Sum = 0; my $SumA = 0; my $SumB = 0; my $PrevSum = 0; my $Epsilon = 1.0e-20; if($X == 0){ my $Temp = 0; if($N <= 1){ $Temp =

2010/09/03 12:15

perlで統計 34 ロジスティック分布 (逆関数) (Logistic Distribution (Inverse Function): LOGISTICDISTRIBUTIONINVERSE)

perlで統計 34 ロジスティック分布 (逆関数) (Logistic Distribution (Inverse Function): LOGISTICDISTRIBUTIONINVERSE): 一寸先は闇 # ロジスティック分布 (逆関数) Logistic Distribution (Inverse Function)# 引数 # 引数 変数 変数 変数 ($X, $A, $B)# 戻り値 ロジスティック分布 (逆関数) (@InverseFunction)sub LOGISTICDISTRIBUTIONINVERSE{ my ($X, $A, $B) = @_; my @InverseFunction = (); # 累積確率 変数の確認 if(($X < 0) (1 < $X) ($B <= 0)){ return

2010/09/02 19:36

perlで統計 33 コーシー分布 (逆関数) (Cauchy Distribution (Inverse Function): CAUCHYDISTRIBUTIONINVERSE)

perlで統計 33 コーシー分布 (逆関数) (Cauchy Distribution (Inverse Function): CAUCHYDISTRIBUTIONINVERSE): 一寸先は闇 # コーシー分布 (逆関数) Cauchy Distribution (Inverse Function)# 引数 # 引数 変数 変数 変数 ($X, $A, $B)# 戻り値 コーシー分布 (逆関数) (@InverseFunction)sub CAUCHYDISTRIBUTIONINVERSE{ my ($X, $A, $B) = @_; my @InverseFunction = (); # 累積確率 変数の確認 if(($X < 0) (1 < $X) ($B <= 0)){ return

2010/09/02 19:10