www.gusucode.com > elfun18工具箱matlab源码程序 > elfun18/elfun18v1_3/elfun18v1_2/elfun18/elC.m

    function result = elC( k)
%ELC Evaluates the complete elliptic integral C.
%
%            1
%           | |  
%           |            t^2*(1 - t^2) dt
%   C(k) =  |  --------------------------------- = ((2 - k^2)*K - 2*E)/k^4
%           |  sqrt(1 - t^2)*sqrt(1 - k^2*t^2)^3 
%         | | 
%          0
%
%   Result:
%       C(k) -- real scalar or NaN if argument is invalid or convergenece
%           failed.
%
%   Arguments:
%       k    -- real scalar, modulus |k|<= 1
%
%   Functions called:
%       melC
%
%   Matlab functions called:
%       NONE

    result = melC( k^2);
    
end