X-Git-Url: http://gitweb.scilab.org/?p=scilab.git;a=blobdiff_plain;f=scilab%2Fmodules%2Foverloading%2Fmacros%2F%25p_j_s.sci;h=12b0ab108d981147aa9aa0a91bbc62d48e250ae8;hp=a031c9580ddf909dcf9c080fa12ee17c918f0dc4;hb=64d17479c515f1b07ab0407b920b00c78d2b0170;hpb=cffed18127bb7d83e46979b1a68b07e106783f82 diff --git a/scilab/modules/overloading/macros/%p_j_s.sci b/scilab/modules/overloading/macros/%p_j_s.sci index a031c95..12b0ab1 100644 --- a/scilab/modules/overloading/macros/%p_j_s.sci +++ b/scilab/modules/overloading/macros/%p_j_s.sci @@ -20,7 +20,7 @@ if ms==1&ns==1 then if or(abs(coeff(p(:)))*ones(max(degree(p))+1,1)==0) then error(27) end - f=tlist(['r','num','den','dt'],ones(p),p.^(-s),[]) + f=rlist(ones(p),p.^(-s),[]) else // this case is in fact hard coded f=p.^s end @@ -33,7 +33,7 @@ elseif m==1&n==1 then // Element wise exponentiation p.^s with p "scalar" p=1/p num(kn)=p(2).^(-s(kn)) den(kn)=p(3).^(-s(kn)) - f=tlist(['r','num','den','dt'],num,den,[]) + f=rlist(num,den,[]) elseif ms==m&ns==n then // Element wise exponentiation p=p(:);s=s(:); kp=find(s>=0) @@ -46,7 +46,7 @@ elseif ms==m&ns==n then // Element wise exponentiation end num(kn)=ones(p(kn)) den(kn)=p(kn).^(-s(kn)) - f=tlist(['r','num','den','dt'],matrix(num,n,m),matrix(den,n,m),[]) + f = rlist(matrix(num,n,m),matrix(den,n,m),[]) else error(30) end