Matlab讨论区 - 声振论坛 - 振动,动力学,声学,信号处理,故障诊断

brianlei 发表于 2005-10-16 21:28

非常漂亮的分形树

function fractree(X,Y,length,direction)
%Script draws a fractal tree for a specified % number of branches, angle & distance factor ... % % Each branch is 'distance-factor' times the last in length %and leans off to the left/right at the given angle. The depth %of the tree limits the total number of branches drawn. % Random trees can be generated from an integer seed. 
 global angle distFactor branches minLen branchFac;
ifnargin<1
%For initial call, get user input for parameters
branchFac = [ 1 -1 0 ];
fprintf('\nFractal Trees\n\n'); angle=pi*(input('Enter angle (0 - 180, zero for random) : ')/180); distFactor=input('Enter distance factor (0 - 1, zero for random) : '); ifangle==0|distFactor==0 seed=input('Enter the random number seed (integer) : '); rand('seed',seed); end branches=input('Enter the number of branches (2 or 3) : '); maxDepth=input('Enter the maximum depth of the tree : ');
%Thanks to Ken Crounse for the stopping criterium if distFactor~=0 minLen=distFactor.^(maxDepth-0.5); else minLen=0.5.^(maxDepth-0.5); end
%Declare figure window for output figure(1); axis('square','equal','off'); hold on fractree(0,0,1,0); hold off disp('');
else
%Calculate end position of the branch newX=X+(length*sin(direction)); newY=Y+(length*cos(direction));
%Set the colour for a branch, twig or leaf colStr='r-'; if length<0.25 colStr='g-'; end if length<0.03125 colStr='w-'; end
%Draw the branch plot(,,colStr);
 %If the branch is reasonably long... if length>minLen
%extend new branches to it for brNo=1:branches
%Calculate length and direction of the next branch if distFactor==0 newLength=length*( (rand(1)*.5) + .25 ); else newLength=length*distFactor; end
 if angle==0 newDir=direction+( ((rand(1)*1.7453)+0.1745) * branchFac(brNo) ); else newDir=direction+(angle*branchFac(brNo)); end
%Call the routine again to draw next branch fractree(newX,newY,newLength,newDir);
 end
end
end

NASA 发表于 2005-10-16 21:33

回复：（brianlei）非常漂亮的分形树

我怎么画不出来？ 总是出现错误 Error in ==> D:\MATLAB6p5\work\abc.m On line 41==> fractree(0,0,1,0);

mantou 发表于 2005-10-17 18:22

我也老是有错,画不出来

brianlei 发表于 2005-10-21 12:45

回复：（mantou）我也老是有错,画不出来

在命令窗口输入:fractree回车后 就有提示.按提示输入,就可以. 不过,建议树深不要取过大值!否则将花费很多时间.

woainiQQ 发表于 2005-10-26 20:44

回复：（brianlei）非常漂亮的分形树

我也画不出非常漂亮的分形树 出现这样的错误呀 ??? Undefined function or variable 'fractree'.

brianlei 发表于 2005-10-26 22:34

回复：（woainiQQ）回复：（brianlei）非常漂亮的分形...

确定其M文件放在MATLAB安装目录下的work文件夹里?

laogao 发表于 2005-10-27 22:40

我也没画出来啊

chen1124 发表于 2006-1-5 16:30

yeah

确实非常漂亮；

sffei 发表于 2006-1-5 22:37

不错

maorain 发表于 2006-1-6 08:48

回复：（brianlei）回复：（woainiQQ）回复：（brianl...

是放在那个文件夹里，没有用，出现了同样的错误报告!请问这是怎么回事？

maorain 发表于 2006-1-6 09:02

不好意思，确实可以，很漂亮！ M文件的文件名要和函数名一样才行！惭愧呀！

wangtianyi 发表于 2006-1-7 14:46

beautiful!

66666yy 发表于 2006-1-8 11:02

差点搞到我死机。。。。厉害的，哈哈

happy 发表于 2006-1-8 12:22

回复：（66666yy）差点搞到我死机。。。。厉害的，...

<DIV class=quote>以下是引用66666yy在2006-1-8 11:02:48的发言： 差点搞到我死机。。。。厉害的，哈哈</DIV>
 选的分叉数太多了吧

zhangchuan 发表于 2006-4-1 19:22

very good

页: [1] 2

声振论坛's Archiver

非常漂亮的分形树

回复：（brianlei）非常漂亮的分形树

回复：（mantou）我也老是有错,画不出来

回复：（brianlei）非常漂亮的分形树

回复：（woainiQQ）回复：（brianlei）非常漂亮的分形...

yeah

回复：（brianlei）回复：（woainiQQ）回复：（brianl...

回复：（66666yy） 差点搞到我死机。。。。 厉害的，...

回复：（66666yy）差点搞到我死机。。。。厉害的，...