function [e]=mlf(alf,bet,c,fi)
%
% MLF -- Mittag-Leffler function.
% MLF (alpha,beta,Z,P) is the Mittag-Leffler function E_{alpha,beta}(Z)
% evaluated with accuracy 10^(-P) for each element of Z.
% alpha and beta are scalars, P is integer, Z can be a vector or
% a two-dimensional array. The output is of the same size as Z.
% (C) 2001-2012 Igor Podlubny, Martin Kacenak
% Last update: 2012-09-07
[cRows, cCols] = size(c);
c=m2v(c);
if nargin<4 , fi=6; end
if nargin<3 || alf<=0 || fi<=0
else
[r,s]=size(c); [r1,s1]=size(alf); [r2,s2]=size(bet);
mx=max([r,s]); mx1=max([r1,s1]); mx2=max([r2,s2]);
if (r>1 && s>1) || (r1>1 && s1>1) || (r2>1 && s2>1) || (mx1>1 && mx2>1)
sprintf('wrong number of input parameters')
else
if mx1>mx2 , mxx=mx1; e=zeros(mx,mx1);
else mxx=mx2; e=zeros(mx,mx2);end;
for i1= 1:mx
for i2=1:mxx
if r>s , z=c(i1,1); else z=c(1,i1); end
if mx1>mx2 , if r1>s1 , alfa=alf(i2,1); else alfa=alf(1,i2);end, beta=bet;
else if r2>s2 ,beta=bet(i2,1); else beta=bet(1,i2); end, alfa=alf; end
if beta<0 , rc=(-2*log(10^(-fi)*pi/(6*(abs(beta)+2)*(2*abs(beta))^(abs(beta)))))^alfa;
else rc=(-2*log(10^(-fi)*pi/6))^alfa; end
r0=max([1,2*abs(z),rc]);
if (alfa==1 && beta==1)
e(i1,i2)=exp(z);
else
if (alfa<1 && abs(z)<=1) || ( (1<=alfa && alfa <2) && abs(z)<=floor(20/(2.1-alfa)^(5.5-2*alfa))) || (alfa>=2 && abs(z)<=50)
oldsum=0;
k=0;
while (alfa*k+beta)<=0
k=k+1;
end
newsum=z^k/gamma(alfa*k+beta);
while newsum~=oldsum
oldsum=newsum;
k=k+1;
term=z^k/gamma(alfa*k+beta);
newsum=newsum+term;
k=k+1;
term=z^k/gamma(alfa*k+beta);
newsum=newsum+term;
end
e(i1,i2)=newsum;
else
if (alfa<=1 && abs(z)<=fix(5*alfa+10))
if ((abs(angle(z))>pi*alfa) && (abs(abs(angle(z))-(pi*alfa))>10^(-fi)))
if beta<=1
e(i1,i2)=rombint('K',0,r0,fi,alfa,beta,z);
else
eps=1;
e(i1,i2)=rombint('K',eps,r0,fi,alfa,beta,z)+ ...
rombint('P',-pi*alfa,pi*alfa,fi,alfa,beta,z,eps);
end
elseif (abs(angle(z))<pi*alfa && abs(abs(angle(z))-(pi*alfa))>10^(-fi))
if beta<=1
e(i1,i2)=rombint('K',0,r0,fi,alfa,beta,z)+ ...
(z^((1-beta)/alfa))*(exp(z^(1/alfa))/alfa);
else
eps=abs(z)/2;
e(i1,i2)=rombint('K',eps,r0,fi,alfa,beta,z)+ ...
rombint('P',-pi*alfa,pi*alfa,fi,alfa,beta,z,eps)+ ...
(z^((1-beta)/alfa))*(exp(z^(1/alfa))/alfa);
end
else
eps=abs(z)+0.5;
e(i1,i2)=rombint('K',eps,r0,fi,alfa,beta,z)+ ...
rombint('P',-pi*alfa,pi*alfa,fi,alfa,beta,z,eps);
end
else
if alfa<=1
if (abs(angle(z))<(pi*alfa/2+min(pi,pi*alfa))/2)
% alfa
newsum=(z^((1-beta)/alfa))*exp(z^(1/alfa))/alfa;
for k=1:floor(fi/log10(abs(z)))
newsum=newsum-((z^(-k))/gamma(beta-alfa*k));
% k
end
e(i1,i2)=newsum;
else
newsum=0;
for k=1:floor(fi/log10(abs(z)))
newsum=newsum-((z^-k)/gamma(beta-alfa*k));
end
e(i1,i2)=newsum;
end
else
if alfa>=2
m=floor(alfa/2);
sum=0;
for h=0:m
zn=(z^(1/(m+1)))*exp((2*pi*1i*h)/(m+1));
sum=sum+mlf(alfa/(m+1),beta,zn,fi);
end
e(i1,i2)=(1/(m+1))*sum;
else
e(i1,i2)=(mlf(alfa/2,beta,z^(1/2),fi)+mlf(alfa/2,beta,-z^(1/2),fi))/2;
end
end
end
end
end
end
end
end
end
if isreal(c)
e = real(e);
end
e = v2m(e,cRows,cCols);
