|
<>本人有如下程序,运行时总是出错误,敬请各位高手指教!</P>
<>function shlr=shijilirun(N)
a=1540;
n=N-40;
n0=20;
A(1)=0;
A(2)=0;
A(3)=0;
A(4)=0;
A(5)=4000;
temp=4000;
for i=6:n
if rem(i,5)~=0
A(i)=0;
else
A(i)=temp+1000;
temp=A(i);
end
end
B(1)=a;
num2str(B);
a=num2str(a);
for i=2:n
if i<21
if rem(i,5)~=0
e=symmul(B(i-1),'1+r');
B(i)=symadd(e,a);
else
B(i)=symsub(symass(symmul(B(i-1),'1+r'),'a'),num2str(A(i)));
end
else
B(i)=symsub(symmul(B(i-1),'1+r'),num2str(A(i)));
end
end
%dedao de qian;
m=0;
for i=1:n
m=m+A(i);
end
u=a*n0;
shr=num2str(m-u)
temp='0';
%qiu genian de lixi zonghe;
for i=1:n
C(i)=symmul(B(i),'r');
temp=temp+C(i);
end
shlr=solve(temp-shr);</P> |
|