分形--细胞自动装置2

#include "glib.h"
int A=1,B=0,C=1,MAX_COL=4,Y=256;
void main()
{
  int x,y;
  static int f[640],g[640];
  ginit();
  set0(0,72);
  for (x=0;x<640;x++)
  {
 if (320==x)
 {
   f[x]=1;
   putpixel(x,0,f[x]);
 }
 else
   f[x]=0;
  }

  for (y=1;y<Y;y++)
  {
 for (x=0;x<640;x++)
 {
   if (!x || 639==x)
  if (!x)
    g[x]=B*f[x]+C*f[x+1];
  else
    g[x]=A*f[x-1]+B*f[x];
   else
  g[x]=A*f[x-1]+B*f[x]+C*f[x+1];
   if (g[x])
   {
  g[x]=(g[x]-1)%MAX_COL+1;
  putpixel(320+(x-320)/sqrt(3.0),y,g[x]);
   }
 }
 for (x=0;x<640;x++)
   f[x]=g[x];
  }
  gend();
}

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 绘制花草树木的分可以使用L-system方法,L-system是一种基于字符串替换的方法,用于生成自相似的状。以下是使用octave绘制分花草树木的步骤: 1.定义L-system规则 首先,我们需要定义L-system规则。这里我们使用以下规则: - A → B[+A][-A],表示从A开始,向前移动1个单位,转向右侧,绘制B,然后向左转,绘制A的左子代,向右转,绘制A的右子代。 - B → BB,表示将B替换为两个B。 2.生成L-system字符串 接下来,我们使用octave生成指定迭代次数的L-system字符串。例如,我们可以使用以下代码生成迭代2次的字符串: ```octave n = 2; axiom = 'A'; rules = {'A', 'B[+A][-A]', 'B', 'BB'}; lsystem = axiom; for i = 1:n lsystem = strrep(lsystem, rules{1}, rules{2}); lsystem = strrep(lsystem, rules{3}, rules{4}); end disp(lsystem); ``` 输出结果为:`B[+B[+B][-B]][-B[+B][-B]]` 3.解析L-system字符串 接下来,我们需要解析L-system字符串,并根据规则绘制花草树木。我们可以使用以下代码实现: ```octave n = 2; axiom = 'A'; rules = {'A', 'B[+A][-A]', 'B', 'BB'}; lsystem = axiom; for i = 1:n lsystem = strrep(lsystem, rules{1}, rules{2}); lsystem = strrep(lsystem, rules{3}, rules{4}); end disp(lsystem); angle = 25; step = 10; stack = []; pos = [0, 0]; dir = [0, -1]; for i = 1:length(lsystem) switch lsystem(i) case 'F' pos = pos + step * dir; plot([pos(1) pos(1)-step*dir(1)], [pos(2) pos(2)-step*dir(2)], 'k'); case '+' dir = [dir(1)*cosd(angle) - dir(2)*sind(angle), dir(1)*sind(angle) + dir(2)*cosd(angle)]; case '-' dir = [dir(1)*cosd(-angle) - dir(2)*sind(-angle), dir(1)*sind(-angle) + dir(2)*cosd(-angle)]; case '[' stack = [stack; pos dir]; case ']' last = stack(end, :); pos = last(1:2); dir = last(3:4); stack = stack(1:end-1, :); end end ``` 这段代码将生成迭代2次的花草树木分,使用plot函数绘制线条。其中,F表示向前移动一定距离,+表示向右转一定角度,-表示向左转一定角度,[表示保存当前位置和方向,]表示回到最近的[位置,并将方向恢复为之前的方向。 4.调整参数 最后,我们可以调整angle和step参数来改变分状。例如,我们可以将angle设为30,step设为5,生成迭代3次的花草树木分: ```octave n = 3; axiom = 'A'; rules = {'A', 'B[+A][-A]', 'B', 'BB'}; lsystem = axiom; for i = 1:n lsystem = strrep(lsystem, rules{1}, rules{2}); lsystem = strrep(lsystem, rules{3}, rules{4}); end disp(lsystem); angle = 30; step = 5; stack = []; pos = [0, 0]; dir = [0, -1]; for i = 1:length(lsystem) switch lsystem(i) case 'F' pos = pos + step * dir; plot([pos(1) pos(1)-step*dir(1)], [pos(2) pos(2)-step*dir(2)], 'k'); case '+' dir = [dir(1)*cosd(angle) - dir(2)*sind(angle), dir(1)*sind(angle) + dir(2)*cosd(angle)]; case '-' dir = [dir(1)*cosd(-angle) - dir(2)*sind(-angle), dir(1)*sind(-angle) + dir(2)*cosd(-angle)]; case '[' stack = [stack; pos dir]; case ']' last = stack(end, :); pos = last(1:2); dir = last(3:4); stack = stack(1:end-1, :); end end ``` 运行以上代码,将生成迭代3次的花草树木分。 ### 回答2: 要利用Octave绘制花草树木的分,可以使用L-系统(L-system)来生成这些状。L-系统是一种式语法系统,它可以通过迭代规则生成自相似的结构。 首先,我们需要定义一些规则来生成花草树木的状。以下是一个例子: 1. 定义“F”为向前移动一定距离的指令 2. 定义“+”为顺时针旋转的指令 3. 定义“-”为逆时针旋转的指令 4. 定义“[”为保存当前状态的指令 5. 定义“]”为恢复到之前保存的状态的指令 6. 定义“X”为删除的指令(即不绘制线段) 接下来,我们可以创建一个递归函数,该函数将根据这些规则以及一些参数绘制出花草树木的状。以下是一个例子: ```octave function drawTree(length, angle, generations, axiom) if generations == 0 return; endif nextGeneration = ''; for i = 1:length(axiom) currentChar = axiom(i); if currentChar == 'X' nextGeneration = [nextGeneration, currentChar]; elseif currentChar == 'F' line([0, 0], [0, length]); translate([0, length]); elseif currentChar == '+' rotate(angle); elseif currentChar == '-' rotate(-angle); elseif currentChar == '[' saveState(); elseif currentChar == ']' restoreState(); endif endfor drawTree(length * 0.6, angle, generations - 1, nextGeneration); endfunction ``` 通过调用这个函数,我们可以绘制出花草树木的分。例如,以下是一个绘制二叉树的示例: ```octave clf; hold on; drawTree(100, pi/4, 9, 'X'); ``` 使用这些规则和参数,您可以根据自己的需要绘制出各种不同状的花草树木分图。调整绘制函数中的参数以及规则定义,您可以创建出独特的花草树木图。 ### 回答3: 利用Octave绘制花草树木分可以通过递归的方式实现。以下是一种常见的方法: 首先,我们需要确定绘制花草树木所需的参数,如树的高度、分支角度、分支长度和分支的减小比例等。 接下来,我们可以定义一个递归函数,用于在每个分支的末端绘制一个更小分支。该函数可能接受参数,如当前分支的起点坐标、当前分支的角度、当前分支的长度等。 在递归函数中,我们可以绘制当前分支,并计算出下一个分支的起点坐标、角度和长度。然后,我们可以调用递归函数,并将下一个分支的信息作为参数传入,以绘制更小的分支。 我们可以通过迭代调用递归函数,绘制出一个完整的花草树木状。 在Octave中,我们可以使用plot函数进行绘图。我们可以定义一个函数来实现花草树木的绘制,然后在主程序中调用该函数。 最后,我们可以调整绘图窗口的大小、添加坐标轴和标题等元素,以美化我们的花草树木分。 通过上述步骤,我们可以在Octave中使用递归函数和plot函数来绘制花草树木分。这种方法允许我们根据定义的参数来创建不同状的花草树木,并在绘图窗口中进行显示。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值