分形图形.羊齿叶(图，评，代码） (转)

最新推荐文章于 2023-02-11 09:39:34 发布

ciya3282

最新推荐文章于 2023-02-11 09:39:34 发布

阅读量472

点赞数

分形图形.羊齿叶(图，评，代码） (转)[@more@]

程序实现的羊齿叶的图形：

.NET/develop/article/images羊齿叶.gif" align=baseline border=0>

这样类型的叶子，在学校的后山上也经常的见到。每一次打照面的时候，都会为它的优雅而感动……

在学校的东区，化石林内，草地上也可以见到这般的身影的……可虽是在地质大学，又对地质一窍不通，在化石林漫步的时候，就会想，这些古森的化石，曾经的是多么美啊。却都随时间飘逝而去了……

因为爱慕它的美，所以会感动，会神伤；而分形，却在自己的空间里把其美所含有的“序”保留下来……爱美的人们啊，如果您可以使它重新摇曳起来，您怎么肯不动起手来呢？

这是代码（算法参照了有关分形的书），我却希望有一天我可以自己写一个完整的，也包括算法在内；因为我觉得它们就象被关在古堡的公主，我要营救自己的那个：）：

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.windows.Forms;
using System.Data;

namespace Barnsley
{
///
/// Form1 的摘要说明。
///
public class Form1 : System.Windows.Forms.Form
{
///
/// 必需的设计器变量。
///
private System.ComponentModel.Container components = null;
private Pen greenPen=new Pen(Color.Green,0);
private Random randNum=new Random(unchecked((int)DateTime.Now.Ticks));

public Form1()
{
//
// Windows 窗体设计器支持所必需的
//
InitializeComponent();

//
// TODO: 在 InitializeComponent 调用后添加任何构造函数代码
//
}

///
/// 清理所有正在使用的资源。
///
protected override void Dispose( bool disposing )
{
if( disposing )
{
if (components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}

#region Windows FoRM Designer generated code
///
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。
///
private void InitializeComponent()
{
//
// Form1
//
this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);
this.BackColor = System.Drawing.SystemColors.Info;
this.ClientSize = new System.Drawing.Size(488, 365);
this.Name = "Form1";
this.Text = "羊齿叶";
this.WindowState = System.Windows.Forms.FormWindowState.Maximized;

}
#endregion

///
/// 应用程序的主入口点。
///
[STAThread]
static void Main()
{
Application.Run(new Form1());
}

protected override void OnPaint(PaintEventArgs e)
{
Barnsley(e);
base.OnPaint(e);
}
private void Barnsley(PaintEventArgs e)
{
Graphics dc= e.Graphics;

int Itn=500000,i=0;
double X=0,Y=0,TempX=0,CurP=0;
double []A={ 0.0,0.85,0.2,-0.15};
double []B={ 0.0,0.04,-0.26,0.28};
double []C={ 0.0,-0.04,0.23,0.26};
double []D={ 0.16,0.85,0.22,0.24};
double []E={ 0.0,0.0,0.0,0.0};
double []F={ 0.0,80.0,80.0,20.0};
double []P={ 0.01,0.85,0.07,0.07};

CurP=randNum.NextDouble();

while(i {
TempX=X;
if(CurP

{
X=A[0]*X+B[0]*Y+E[0];
Y=C[0]*TempX+D[0]*Y+F[0];
}
else if(CurP>P[0]&&CurP {
X=A[1]*X+B[1]*Y+E[1];
Y=C[1]*TempX+D[1]*Y+F[1];
}
else if(CurP>(P[0]+P[1])&&CurP {
X=A[2]*X+B[2]*Y+E[2];
Y=C[2]*TempX+D[2]*Y+F[2];
}
else
{
X=A[3]*X+B[3]*Y+E[3];
Y=C[3]*TempX+D[3]*Y+F[3];
}

dc.DrawEllipse(greenPen,400+(int)X,540-(int)Y,1,1);
CurP=randNum.NextDouble();
i++;
}
}

}
}

下面是两个变形的图形：）：

图形1：

double []A={ 0.0,-0.85,0.2,-0.15};
double []B={ 0.0,0.04,-0.26,0.28};
double []C={ 0.0,-0.04,0.23,0.26};
double []D={ 0.16,0.85,0.22,0.24};
double []E={ 0.0,0.0,0.0,0.0};
double []F={ 0.0,80.0,80.0,20.0};
double []P={ 0.01,0.85,0.07,0.07};

图形2：

double []A={ 0.0,-0.95,0.2,-0.15};

double []B={ 0.0,0.04,-0.26,0.28};
double []C={ 0.0,-0.04,0.23,0.26};
double []D={ 0.16,0.85,0.22,0.24};
double []E={ 0.0,0.0,0.0,0.0};
double []F={ 0.0,80.0,80.0,20.0};
double []P={ 0.01,0.85,0.07,0.07};