分形图形龙曲线的实现

以前做过龙曲线的算法课程设计,那时候啥对这可视化什么的啥也不了解,不过最近学到python中的海归绘图,学到了一点。偶然间想起以前的分形图形龙曲线。大致写了一下,但是它画得那叫一个慢啊。

from turtle import *
import turtle
s="FX"
n=input()
n=int(n)
ss=""
def Dragon(s,n):
    global ss
    if(n==0):
        ss=ss+s
        return
    for i in s:
        if i=='X':
            Dragon('X+YF',n-1)
        elif i=='Y':
            Dragon("FX-Y",n-1)
        else:
            ss=ss+i
Dragon(s,n)
print(ss)
turtle.screensize(800,600,)
colormode(255)
penup()
lt(90)
lv=10
penup()
pendown()
pencolor("green")
seth(0)
speed(10)
for i in ss:
    if i=='F':
        fd(5)
    elif i=='+':
        lt(90)
    elif i=='-':
        right(90)
    elif i=='Y':
        continue
    elif i=='X':
        continue
done()

在这里插入图片描述

  • 3
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
好的,我可以帮你回答这个问题。以下是两个常见的分形图形,你可以用Octave程序绘制它们: 1. Barnsley fern(巴恩斯利蕨) Barnsley fern是一种类似于蕨类植物的分形图形,它由四个不同的变换组成。下面是一个简单的Octave程序,用于绘制Barnsley fern: ``` % 绘制Barnsley fern % 定义初始点 x = 0; y = 0; % 定义四个变换 f1 = @(x, y) [0, 0; 0, 0.16] * [x; y]; f2 = @(x, y) [0.85, 0.04; -0.04, 0.85] * [x; y] + [0; 1.6]; f3 = @(x, y) [0.2, -0.26; 0.23, 0.22] * [x; y] + [0; 1.6]; f4 = @(x, y) [-0.15, 0.28; 0.26, 0.24] * [x; y] + [0; 0.44]; % 定义每个变换的概率 p = [0.01, 0.85, 0.07, 0.07]; % 绘制Barnsley fern for i = 1:100000 % 随机选择一个变换 r = rand(); if r < p(1) xy = f1(x, y); elseif r < p(1) + p(2) xy = f2(x, y); elseif r < p(1) + p(2) + p(3) xy = f3(x, y); else xy = f4(x, y); end % 绘制点 plot(xy(1), xy(2), '.', 'MarkerSize', 1, 'Color', [0, 0.6, 0]); % 更新坐标 x = xy(1); y = xy(2); end % 设置坐标轴范围 axis([-3, 3, 0, 10]); ``` 2. Mandelbrot set(曼德博集合) Mandelbrot set是一种复数集合,它由一系列复平面上的点组成。下面是一个简单的Octave程序,用于绘制Mandelbrot set: ``` % 绘制Mandelbrot set % 定义绘图范围 xmin = -2; xmax = 1; ymin = -1.5; ymax = 1.5; % 定义绘图参数 maxiter = 100; eps = 1e-6; % 定义网格 nx = 1000; ny = 1000; x = linspace(xmin, xmax, nx); y = linspace(ymin, ymax, ny); % 初始化绘图矩阵 M = zeros(ny, nx); % 计算Mandelbrot set for i = 1:nx for j = 1:ny c = x(i) + 1i * y(j); z = 0; for k = 1:maxiter z = z^2 + c; if abs(z) > 2 M(j, i) = k; break; end end end end % 绘制Mandelbrot set imagesc(x, y, M); set(gca, 'YDir', 'normal'); colormap(hot); axis equal; ``` 希望这些程序能够帮到你!

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值