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

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

分形几何

开发平台：

Visual C++

fractus4_02.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "fractus4_02.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. #include "glib.h"
  12. const int KL=100;
  13. const double BOX=0.01;
  14. const int UX=4;
  15. int d=160;
  16. double x_min=-2.0,x_max=2.0;
  17. double xc,yc,x0,y0;
  18. double delta=0.0001;TRect rect;
  19. int colors[16]={0x00000000,0x00FF0000,0x0000FF00,0x00FF8C00,
  20.                 0x000000FF,0x00FF00FF,0x0000FFFF,0x00A0A0A0,
  21.                 0x009BFFFF,0x009BFFFF,0x00A0FF00,0x00FFFF00,
  22.                 0x006E6EFF,0x00FF9BFF,0x009BFFFF,0x00FFFFFF};
  23. //---------------------------------------------------------------------------
  24. __fastcall TForm1::TForm1(TComponent* Owner)
  25.         : TForm(Owner)
  26. {
  27. }
  28. //---------------------------------------------------------------------------
  29. //坐标的变动
  30. void __fastcall TForm1::FormCreate(TObject *Sender)
  31. {
  32.   Image1->Height=0;Image1->Top=0;
  33.   Image1->Width=Screen->Width;Image1->Height=Screen->Height;
  34.   rect=Rect(0,0,Image1->Width,Image1->Height);//清屏
  35.   Image1->Canvas->CopyMode=cmBlackness;
  36.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  37. }
  38. //---------------------------------------------------------------------------
  40. void __fastcall TForm1::N1Click(TObject *Sender)
  41. {
  42.   int sx,sy,i,j,k,k_max,prd,col;
  43.   double a1,b1;
  44.   double xx[20],yy[20],x[KL+1],y[KL+1];
  45.   Image1->Canvas->CopyRect(rect,Image1->Canvas,rect);
  46.   set0(120.0,200.0);
  48.   a1=2*(double)d/(x_max-x_min);
  49.   b1=-(double)d*(x_max+x_min)/(x_max-x_min);
  51.   Image1->Canvas->Pen->Color=colors[7];
  52.   Image1->Canvas->Brush->Style=bsSolid;
  53.   Image1->Canvas->Brush->Color=clBlack;
  54.   for(sx=0;sx<=KL*UX;sx+=KL*UX/10)
  55.    {if(sx==0||sx==KL*UX)
  56.       Image1->Canvas->Pen->Style=psSolid;
  57.     else
  58.       Image1->Canvas->Pen->Style=psDot;
  59.     Form1->Image1->Canvas->MoveTo(sx,-d);
  60.     Form1->Image1->Canvas->LineTo(sx,d);
  61.    }
  62.   for(sy=-d;sy<=d;sy+=d/4)
  63.    {if(sy==-d||sy==0||sy==d)
  64.       Image1->Canvas->Pen->Style=psSolid;
  65.     else
  66.       Image1->Canvas->Pen->Style=psDot;
  67.     Form1->Image1->Canvas->MoveTo(0,sy);
  68.     Form1->Image1->Canvas->LineTo(KL*UX,sy);
  69.    }
  70.   x[0]=x0;y[0]=y0;
  71.   for(k=1;k<=KL;k++)
  72.    {x[k]=x[k-1]*x[k-1]-y[k-1]*y[k-1]+xc;
  73.     y[k]=2*x[k-1]*y[k-1]+yc;
  74.     if((x[k]*x[k]+y[k]*y[k])>=4.0)
  75.      {k_max=k;prd=0;goto BR;}
  76.    }
  77.   k_max=KL;
  78.   for(k=1;k<=13;k++)
  79.    {if(fabs(x[k_max]-x[k_max-k])<BOX
  80.      &&fabs(y[k_max]-y[k_max-k])<BOX)
  81.      {prd=k;goto BR;}
  82.    }
  83.   prd=0;
  84.   BR:for(k=0;k<=k_max;k++)
  85.    {sx=a1*x[k]+b1;
  86.     col=(prd)?(1+k%prd):15;
  87.     Image1->Canvas->Pen->Color=colors[col];
  88.     Image1->Canvas->Brush->Color=colors[col];
  89.     Image1->Canvas->Ellipse(k*UX-2,-sx-2,k*UX+2,-sx+2);
  90.    }
  92.   for(k=0;k<prd;k++)
  93.    {xx[k]=x[k_max-k];
  94.     yy[k]=y[k_max-k];
  95.    }
  96.   for(i=0;i<prd-1;i++)
  97.    {double s;
  98.     for(j=i+1;j<prd;j++)
  99.       if(xx[i]<xx[j])
  100.        {s=xx[i];xx[i]=xx[j];xx[j]=s;
  101.         s=yy[i];yy[i]=yy[j];yy[j]=s;
  102.        }
  103.    }
  104. }
  105. //---------------------------------------------------------------------------
  107. void __fastcall TForm1::N2Click(TObject *Sender)
  108. {
  109.   if(SavePictureDialog1->Execute())
  110.     Image1->Picture->SaveToFile(SavePictureDialog1->FileName);
  111. }
  112. //---------------------------------------------------------------------------
  114. void __fastcall TForm1::N3Click(TObject *Sender)
  115. {
  116.   Close();        
  117. }
  118. //---------------------------------------------------------------------------
  120. void __fastcall TForm1::N4_1Click(TObject *Sender)
  121. {
  122.   xc=-0.6;yc=0;x0=0.2;y0=0.5;
  123. }
  124. //---------------------------------------------------------------------------
  126. void __fastcall TForm1::N4_2Click(TObject *Sender)
  127. {
  128.   xc=-1.1;yc=0;x0=0.2;y0=0.2;
  129. }
  130. //---------------------------------------------------------------------------
  132. void __fastcall TForm1::N4_3Click(TObject *Sender)
  133. {
  134.   xc=-1.35;yc=0;x0=0.2;y0=0.05;
  135. }
  136. //---------------------------------------------------------------------------
  138. void __fastcall TForm1::N4_4Click(TObject *Sender)
  139. {
  140.   xc=-1.39;yc=0;x0=0.05;y0=0.02;
  141. }
  142. //---------------------------------------------------------------------------
  144. void __fastcall TForm1::N4_5Click(TObject *Sender)
  145. {
  146.   xc=-1.65;yc=0;x0=0.2;y0=0;
  147. }
  148. //---------------------------------------------------------------------------
  150. void __fastcall TForm1::N4_6Click(TObject *Sender)
  151. {
  152.   xc=-1.76;yc=0;x0=0.1;y0=0.04;
  153. }
  154. //---------------------------------------------------------------------------