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

 

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

       

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

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

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

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

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};