分形c程序

分形图案
分形图是一种较为流行的艺术图形。

所谓分形，就是指组成部分与整体以某种方式相似，局部放大后可以在某种程度上再现整体，如图25所示，为一颗树的分形图，该树是由一些分支构成的，就其中某个分支来看，它具有与整颗树相似的形状。

绘制的原则是，先按某一方向画一条直线，然后在此线段上找到一系列节点，在每一个节点处向左、右偏转60度各画一条分支。

节点位置和节点处所画分支的长度比值按0.618分割。

/*分形图案1 QW41.C*/
#define g 0.618
#define PAI 3.14
#include <graphics.h>
#include<math.h>
#include<stdio.h>
#include<conio.h>
float thita=60.0;
void grow(int x,int y,float lenth,float fai);
void main()
{
int gm,gd;
detectgraph(&gd,&gm);
initgraph(&gd,&gm,"\\tc\\bgi");
grow(300,300,280.0,90.0);
getch();
closegraph();
}
void grow(int x,int y,float lenth,float fai)
{
int x1,y1;
int nx,ny,count;
float nlenth;
x1=x+lenth*cos(fai*PAI/180.0);
y1=y-lenth*sin(fai*PAI/180.0);
line(x,y,x1,y1);
if(lenth<10)return;
nlenth=lenth;
nx=x;
ny=y;
for(count=0;count<7;count++)
{
nx=nx+nlenth*(1-g)*cos(fai*PAI/180.0);
ny=ny-nlenth*(1-g)*sin(fai*PAI/180.0);
grow(nx,ny,nlenth*(1-g),fai+thita);
grow(nx,ny,nlenth*(1-g),fai-thita);
nlenth*=g;
}
}
运行结果如下：
------------------------------------------------------------------------------------
2、分形图案2
此例中也是一个分形图案。

给出的方法是：先画一个大三角形，连接三角形的三条边的中点，得到四个较小的三角形，然后将外围的三个小三角形经过与大三角形相同的处理，得到一系列更小的三角形。

以此类推，将三角形不断地分割下去，直到最小的三角形的边长小于某个值时停止分割。

/*分形图案 2 QW42.C*/
#include<stdio.h>
#include<graphics.h>
void draw(int x1,int y1,int x2,int y2,int x3,int y3);
void main()
{
int gm,gd;
int x1=360,y1=100,x2=260,y2=273,x3=460,y3=273;
detectgraph(&gd,&gm);
initgraph(&gd,&gm,"\\tc\\bgi");
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x1,y1);
draw(x1,y1,x2,y2,x3,y3);
getch();
closegraph();
}
void draw(int x1,int y1,int x2,int y2,int x3,int y3) {
int xm1,ym1,xm2,ym2,xm3,ym3,fx,fy;
xm1=(x1+x2)/2;
ym1=(y1+y2)/2;
xm2=(x2+x3)/2;
ym2=(y2+y3)/2;
xm3=(x3+x1)/2;
ym3=(y3+y1)/2;
line(xm1,ym1,xm2,ym2);
line(xm2,ym2,xm3,ym3);
line(xm3,ym3,xm1,ym1);
fx=xm1-xm2;
fy=ym1-ym2;
if((fx*fx+fy*fy)<150) return;
draw(x1,y1,xm1,ym1,xm3,ym3);
draw(xm1,ym1,x2,y2,xm2,ym2);
draw(xm3,ym3,xm2,ym2,x3,y3);
}。