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

这样类型的叶子,在学校的后山上也经常的见到。每一次打照面的时候,都会为它的优雅而感动……
在学校的东区,化石林内,草地上也可以见到这般的身影的……可虽是在地质大学,又对地质一窍不通,在化石林漫步的时候,就会想,这些古森的化石,曾经的是多么美啊。却都随时间飘逝而去了……
因为爱慕它的美,所以会感动,会神伤;而分形,却在自己的空间里把其美所含有的“序”保留下来……爱美的人们啊,如果您可以使它重新摇曳起来,您怎么肯不动起手来呢?
这是代码(算法参照了有关分形的书),我却希望有一天我可以自己写一个完整的,也包括算法在内;因为我觉得它们就象被关在古堡的公主,我要营救自己的那个:):
using System; using System.Drawing; using System.Collections; using System.ComponentModel; using System.Windows.Forms; using System.Data;
namespace Barnsley { /// <summary> /// Form1 的摘要说明。 /// </summary> public class Form1 : System.Windows.Forms.Form { /// <summary> /// 必需的设计器变量。 /// </summary> 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 调用后添加任何构造函数代码 // }
/// <summary> /// 清理所有正在使用的资源。 /// </summary> protected override void Dispose( bool disposing ) { if( disposing ) { if (components != null) { components.Dispose(); } } base.Dispose( disposing ); }
#region Windows Form Designer generated code /// <summary> /// 设计器支持所需的方法 - 不要使用代码编辑器修改 /// 此方法的内容。 /// </summary> 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
/// <summary> /// 应用程序的主入口点。 /// </summary> [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<Itn) { TempX=X; if(CurP<P[0]) { 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};


|