Liren Large Software Subsidy 10/10.iso/l/l460/2.ddi/SPECFUN.DI$/ELLIPK.M

Text File | 1993-03-07 | 354 b | 12 lines

function k = ellipk(kind,m)
%ELLIPK    Complete elliptic integrals.

%    Copyright (c) 1984-93 by The MathWorks, Inc.

if kind ~= 1
    error('Use ellipke for elliptic integrals of the second kind.')
end
disp('This usage of ellipk(kind,m) is obsolete and will be eliminated')
disp('in future versions. Please use ellipke(m) instead.')
k = ellipke(m);