[求助]！！！！！救命！！！！

xiaozhi_8207

<>谁来帮我解决这个程序的错误？？？！！！！</P>
<>感激万分！！！！！</P>
<>function p_out=pollution(p_in,year)
L=1E15;
speed=1.9E14;
%p_clean=0.02/50;
p_lake=0.03;
plot(1,p_lake,'*');
hold on;
k=0;
year=0:1:50;
for i=2:year+1
temp=p_lake;
p_lake=(p_lake*L+p_in*speed-k*p_lake*L)/(L+speed);
%k=clean_coe(p_in,p_lake,temp*L,p_lake*L,1);
k=clean_coe(speed,speed,p_in,p_lake);
%p_lake=
%subplot(2,1,1);
plot(i,p_lake,'*');
hold on;
%subplot(2,1,2);
plot(i+1,k,'or');
hold on;
end
hold off;
p_out=p_lake;
k
grid</P><IMG src="http://www.shumo.com/bbs/Skins/Default/emot/em06.gif" align=middle border=0><IMG src="http://www.shumo.com/bbs/Skins/Default/emot/em06.gif" align=middle border=0><IMG src="http://www.shumo.com/bbs/Skins/Default/emot/em06.gif" align=middle border=0>