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

Elli3_sub() Sub Elli3_sub ( Ret As  Double, Phi As  Double, N As  Double, K As  Double, Optional Info As  Long  ) 第 3 種不完全楕円積分 P(φ, n, k) (サブルーチン版) 目的 第 3 種不完全楕円積分 P(φ, n, k) を求める. P(φ, n, k) = ∫ 1/((1 - n(sin(t))^2)sqrt(1 - k^2(sin(t))^2)) dt [0, φ] 引数 [out] Ret 第 3 種不完全楕円積分 P(φ, n, k). [in] Phi 引数 φ [rad]. [in] N 引数 n. (N < 1/sin(Phi)^2) [in] K 引数 k. (K^2*sin(Phi)^2 < 1 (ただし, |Phi| > π/2 ならば |K| < 1)) [out] Info (省略可) = 0: 正常終了. = -2: パラメータ N の誤り. (N >= 1/sin(Phi)^2) = -3: パラメータ K の誤り. (K^2*sin(Phi)^2 >= 1 (ただし, |Phi| > π/2 ならば |K| >= 1)) = 1: 浮動小数点値域エラー. 出典 boost/math/special_functions