分形图形.羊齿叶(图，评，代码） (转)[@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<(P[0]+P[1]))
 {
 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<(P[0]+P[1]+P[2]))
 {
 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};