|
|
|
|
递归方法实现4层8卫星圆图 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-5-13 月光软件站 |
|
/*
* Copyleft,PenFe Inc.
* All rights unreserved.
*
* 文件名称：8secplanet.c
* 摘 要：递归方法实现4层8卫星圆图
* 当前版本：0.5
* 作 者：PerFect
* 完成日期：2004-9-18 20:31
*
*替换版本：Beta
*作者：PerFect
*完成日期：2004-9-18 9:06
*/
#include
#include
#include
#include
#define distance 7.0
#define zoom 0.5
#define level 4
int levels;
void secplanet(int x,int y,int r);
main()
{
/*data segment*/
int gdriver=DETECT;
int gmode;
int mx;
int my;
int mr;
/*data initialization*/
initgraph( &gdriver,&gmode,"");
setbkcolor(0);
setcolor(4);
levels=0;
mx=getmaxx()/2;
my=getmaxy()/2;
mr=getmaxy()/25;
/*code segment*/
circle(mx,my,mr);
secplanet(mx,my,mr);
getch();
closegraph();
}
void secplanet(int x,int y,int r)
{
int i;
int tempx;
int tempy;
int tempr;
double angle;
angle=3.1415/8;
levels=levels+1;
if(levels < level-1)
{
while(angle<2*3.14)
{
tempx=x+distance*r*sin(angle);
tempy=y-distance*r*cos(angle);
tempr=r*zoom;
circle(tempx,tempy,tempr);
delay(5000);
secplanet(tempx,tempy,tempr);
angle=angle+3.1415/4;
}
}
else
{
while(angle<2*3.14)
{
tempx=x+distance*r*sin(angle);
tempy=y-distance*r*cos(angle);
tempr=r*zoom;
circle(tempx,tempy,tempr);
delay(5000);
angle=angle+3.1415/4;
}
}
}
|
|
相关文章：相关软件： |
|
本类阅读TOP10