开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 分形几何 > 查看源码
fractus2_03.cpp
资源名称：fenxin.rar　[点击查看]
上传用户：hzcygd
上传日期：2022-04-30
资源大小：109k
文件大小：4k
源码类别：

分形几何

开发平台：

Visual C++

fractus2_03.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus2_03.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. #include "glib.h"
  12. double a=0.0,s,t;//1/a为缩小率
  13. int n_gene;double *gene;
  14. int N;
  15. double sx,sy;
  16. double leng0;
  17. double gene_1[]={0.0,90.0,-150.0,90.0,END};
  18. double gene_2[]={90.0,-90.0,END};
  19. double gene_3[]={0.0,90.0,-90.0,-90.0,90.0,-90.0,90.0,90.0,-90.0,END};
  20. double gene_4[]={0.0,120.0,-150.0,120.0,-150.0,120.0,END};
  21. double gene_5[]={22.5,45.0,-180.0,112.5,-45.0,-180.0,-112.5,END};
  22. double delta=0.0001;TRect rect;
  23. //---------------------------------------------------------------------------
  24. __fastcall TForm1::TForm1(TComponent* Owner)
  25.         : TForm(Owner)
  26. {
  27. }
  28. //---------------------------------------------------------------------------
  30. void __fastcall fractal(double leng,int n)
  31. {
  32.   int i;
  33.   if(n>=N) move(leng);
  34.   else
  35.    {turn(-180*t/PI);
  36.     for(i=0;i<n_gene;i++)
  37.      {turn(gene[i]);
  38.       if((gene[i]+180.0)>delta||(gene[i]+180.0)<-delta)
  39.         fractal(leng/a,n+1);
  40.       else warp(leng/a);
  41.      }
  42.     turn(-s+180*t/PI);
  43.    }
  44. }
  47. void __fastcall TForm1::FormCreate(TObject *Sender)
  48. {
  49.   Image1->Height=0;Image1->Top=0;
  50.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  51.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  52.   Image1->Canvas->CopyMode=cmBlackness;
  53.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  54.   Image1->Canvas->Pen->Color=clGreen;
  55.   Image1->Canvas->Brush->Style=bsClear;
  56.   Image1->Canvas->Font->Color=clRed;
  57. }
  58. //---------------------------------------------------------------------------
  60. void __fastcall TForm1::N1Click(TObject *Sender)
  61. {
  62.   char str[10];
  63.   int b=0,i=0;
  64.   double c=0.0,D;
  65.   a=0;ANGLE=0;StrCopy(str,"D=");
  66.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  67.   while((gene[i]-END)>delta||(gene[i]-END)<-delta)
  68.    {turn(gene[i]);
  69.     a+=cos(RADIAN);c+=sin(RADIAN);
  70.     if((gene[i]+180.0)>delta||(gene[i]+180.0)<-delta)
  71.       b++;
  72.     i++;
  73.    }
  74.   n_gene=i;
  75.   s=ANGLE;
  76.   t=atan(c/a);a/=cos(t);
  77.   D=log10((double)b)/log10(a);
  78.   Image1->Canvas->Rectangle(0,0,99,79);
  79.   setlp(10.0,sy/5);
  80.   setangle(0.0);
  81.   turn(-180*t/PI);
  82.   for(i=0;i<n_gene;i++)
  83.    {turn(gene[i]);
  84.     if((gene[i]-180.0)>delta||(gene[i]-180.0)<-delta)
  85.       move(80/a);
  86.     else warp(80/a);
  87.    }
  88.   StrPCopy(str+2,FloatToStrF(D,ffGeneral,5,1));
  89.   Image1->Canvas->TextOut(18,90,str);
  90.   setlp(sx,sy);
  91.   setangle(0.0);
  92.   fractal(leng0,0);
  93. }
  94. //---------------------------------------------------------------------------
  96. void __fastcall TForm1::N2Click(TObject *Sender)
  97. {
  98.   if(SavePictureDialog1->Execute())
  99.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  100. }
  101. //---------------------------------------------------------------------------
  103. void __fastcall TForm1::N4_1Click(TObject *Sender)
  104. {
  105.   N=6;
  106.   sx=120.0;sy=240.0;
  107.   leng0=400.0;
  108.   gene=gene_1;
  109. }
  110. //---------------------------------------------------------------------------
  112. void __fastcall TForm1::N4_2Click(TObject *Sender)
  113. {
  114.   N=16;
  115.   sx=220.0;sy=300.0;
  116.   leng0=200.0;
  117.   gene=gene_2;
  118. }
  119. //---------------------------------------------------------------------------
  121. void __fastcall TForm1::N4_3Click(TObject *Sender)
  122. {
  123.   N=4;
  124.   sx=120.0;sy=200.0;
  125.   leng0=400.0;
  126.   gene=gene_3;
  127. }
  128. //---------------------------------------------------------------------------
  130. void __fastcall TForm1::N4_4Click(TObject *Sender)
  131. {
  132.   N=5;
  133.   sx=120.0;sy=200.0;
  134.   leng0=400.0;
  135.   gene=gene_4;
  136. }
  137. //---------------------------------------------------------------------------
  139. void __fastcall TForm1::N4_5Click(TObject *Sender)
  140. {
  141.   N=5;
  142.   sx=120.0;sy=200.0;
  143.   leng0=400.0;
  144.   gene=gene_5;
  145. }
  146. //---------------------------------------------------------------------------
  148. void __fastcall TForm1::N3Click(TObject *Sender)
  149. {
  150.   Close();        
  151. }
  152. //---------------------------------------------------------------------------