| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 544 人关注过本帖
标题:谢谢,用DELPHIC改一个非常简单分形图,我是个新手,怎么也改不出来,都改了一天 ...
只看楼主 加入收藏
peace1985
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-5-15
收藏
 问题点数:0 回复次数:0 
谢谢,用DELPHIC改一个非常简单分形图,我是个新手,怎么也改不出来,都改了一天了5

急~~~用DELPHIC改一个简单分形图,怎么也改不出来,改了一天了还是没改出
改的要求是:按一下按钮画出一条直线,再按一下那条直线下平均分成三段,去掉中间那段,依次类推,就这样一直 递归下去,这是一个递归算法
下面这个原程序
unit contor;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;

procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a, b, c, d :real;
n , m , r , p, q ,k: Integer;
x , y , x0 , y0 :real;
implementation

{$R *.dfm}
procedure cantor(ax :real;ay : real; bx :real; by :real);
var
c: Integer; //c 为判断小量,当(bx - ax) < c 时,堆栈释放
d : Integer; //d为两层线段之间的距离
cx,cy,dx,dy :real;
begin
c := 1;
d := 20;
If (bx - ax) < c Then
begin
Form1.Canvas.MoveTo(Round(ax),Round(ay));
Form1.Canvas.LineTo(Round(bx),Round(by));
end
Else
begin
Form1.Canvas.MoveTo(Round(ax),Round(ay));
Form1.Canvas.LineTo(Round(bx),Round(by));
cx := ax + (bx - ax) / 3;
cy := ay + d;
dx := bx - (bx - ax) / 3;
dy := by + d;
ay := ay + d;
by := by + d;
cantor(ax, ay, cx, cy);
cantor(dx, dy, bx, by);
end;
End ;

procedure TForm1.Button1Click(Sender: TObject);
begin

cantor(100, 40, 500, 40);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;
搜索更多相关主题的帖子: DELPHIC 分形 
2006-05-16 08:19
快速回复:谢谢,用DELPHIC改一个非常简单分形图,我是个新手,怎么也改不出来,都改 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.045118 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved