分形几何

开发平台：

Visual C++

koch.cpp：源码内容

							//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "koch.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#include "glib.h"
int N=5;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall koch(double leng,int n)
{
  if(n>=N)
    move(leng);
  else
   {koch(leng/3,n+1);
    turn(60.0);
    koch(leng/3,n+1);
    turn(-120.0);
    koch(leng/3,n+1);
    turn(60.0);
    koch(leng/3,n+1);
   }
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Image1->Height=0;Image1->Top=0;
  Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  Image1->Canvas->Pen->Color=clGreen;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
  setlp(120.0,240.0);
  setangle(0.0);
  koch(400.0,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
  if(SavePictureDialog1->Execute())
    Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

						