非常漂亮的分形树

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

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;
if nargin<1
% For initial call, get user input for parameters
 branchFac = [ 1 -1 0 ];
 fprintf('\n Fractal Trees\n\n'); angle=pi*(input('Enter angle (0 - 180, zero for random) : ')/180); distFactor=input('Enter distance factor (0 - 1, zero for random) : '); if angle==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([X newX],[Y newY],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

我怎么画不出来？ 总是出现错误 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

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

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

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

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

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

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

我也没画出来啊[em03]

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

确实非常漂亮；

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

不错

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

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

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

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

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

beautiful![em07][em07][em07][em07]

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

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

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

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

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

very good

账号		自动登录	找回密码
密码			我要加入

[共享资源] 非常漂亮的分形树

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐:

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

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

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

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

yeah

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

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

[共享资源] 非常漂亮的分形树

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐:

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

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

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

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

yeah

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

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

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