Celli1 Celli1_sub Celli2 Celli2_sub Celli3 Celli3_sub Elli1 Elli1_sub Elli2 Elli2_sub Elli3 Elli3_sub Hlambda Hlambda_sub Jzeta Jzeta_sub Rc Rc_sub Rd Rd_sub Rf Rf_sub Rg Rg_sub Rj Rj_sub

Celli2_sub() Sub Celli2_sub ( Ret As  Double, K As  Double, Optional Info As  Long  ) 第 2 種完全楕円積分 E(k) (サブルーチン版) 目的 第 2 種完全楕円積分 E(k) を求める. E(k) = E(π/2, k) ただし, E(φ, k) は第 2 種不完全楕円積分で, 次のように定義される. E(φ, k) = ∫ sqrt(1 - k^2(sin(t))^2) dt [0, φ] 引数 [out] Ret 第 2 種完全楕円積分 E(k). [in] K 引数 k. (-1 <= K <= 1) [out] Info (省略可) = 0: 正常終了. = -1: パラメータ K の誤り. (K < -1 or K > 1) = 1: 浮動小数点値域エラー. 出典 boost/math/special_functions