frac_tree_plt.m

来自「本人收集的一些有关matlab的代码程序设计 也不知道改选什么分类」· M 代码 · 共 18 行

function h=frac_tree_plt(x0,y0,v,N)
%FRAC_TREE_PLT 将绘图语句也纳入 FRAC_TREE 函数。

%Designed by Prof D Xue (c) 2000
x=[x0; zeros(N-1,1)]; y=[y0; zeros(N-1,1)];
for i=2:N
   vv=v(i);
   if vv<0.05, y(i)=0.5*y(i-1);   
   elseif vv<0.45, 
      x(i)=0.42*(x(i-1)-y(i-1)); y(i)=0.2+0.42*(x(i-1)+y(i-1));
   elseif vv<0.85, 
      x(i)=0.42*(x(i-1)+y(i-1)); y(i)=0.2-0.42*(x(i-1)-y(i-1));   
   else, 
      x(i)=0.1*x(i-1); y(i)=0.1*y(i-1)+0.2;
   end
   h=plot(x,y,'.');
end