肖艟 发表于 2006-4-18 00:23

[求助]哪位大虾帮我把图打出来

我这有一个程序,不过使用时就无法打出,但是cpu暴转!
程序如下,希望哪位大虾帮我把图打出来!
谢谢!xingyutao@163.com 这是我的邮箱!
close all;
x = zeros(1,100);
y = zeros(1,100);
j=-10;
for l=1:100
x(l) = j;
j=j+0.2;
end
j = -10;
for l=1:100
y(l) =j;
j=j+0.2;
end
for l= 1:100
for j= 1:100
m=x(l);
n=y(j);
for k= 1:1000
z=m+n*i;
z=z*(0.25+1.5/(1+(z^4)));
m=real(z);
n=imag(z);
end
if abs(m-1)<0.01
plot(x(l),y(j),'r');
hold on;
end
if abs(m+1)<0.01
plot(x(l),y(j),'y');
hold on;
end
if abs(n-1)<0.01
plot(x(l),y(j),'b');
hold on;
end
if abs(n+1)<0.01
plot(x(l),y(j),'k');
hold on;
end
end
end

肖艟 发表于 2006-4-18 00:25

还有着个
close all;
x = zeros(1,2000);
y = zeros(1,2000);
j=-10;
for l=1:2000
x(l) = j;
j=j+0.01;
end
j = -10;
for l=1:2000
y(l) =j;
j=j+0.01;
end
for l= 1:2000
for j= 1:2000
m=x(l);
n=y(j);
for k= 1:1000
z=m+n*i;
z=z*(0.25+1.5/(1+(z^4)));
m=real(z);
n=imag(z);
end
if abs(m-1)<0.01
plot(x(l),y(j),'r');
hold on;
end
if abs(m+1)<0.01
plot(x(l),y(j),'y');
hold on;
end
if abs(n-1)<0.01
plot(x(l),y(j),'b');
hold on;
end
if abs(n+1)<0.01
plot(x(l),y(j),'k');
hold on;
end
end
end

cdwxg 发表于 2006-4-18 00:36

你这个是不是程序有问题哦?
不可能打出来吧...

happy 发表于 2006-4-18 08:29

回复:(肖艟)求图

你这两个程序应该不是代码本身的问题,而是计算量太大
循环次数就达到了1000万次,是计算的慢你没耐心等待而已
如果你把第一个程序中的100都改成10运行看看
页: [1]
查看完整版本: [求助]哪位大虾帮我把图打出来