一个简单的一箭穿心程序

一个简单的一箭穿心程序

其实这个程序也不难，只要专心形线方程（1-ρ×cosθ)来绘图就可以了。

作者：张跃华 学校：云南农业大学

程序如下：

#include<graphics.h>

#include<math.h>

#define FNX(x1) (int)(x+(x1)*sl)

#define FNY(y1) (int)(MAXY-(y+(y1)*sl))

#define R(theta) 1-pow(cos(1*theta),1)

int sl=50,MAXY;

float x1,y1,xs,ys,r,theta;

/*画心*/

void draw(int x,int y)

{

for(theta=0;theta<2*3.14;theta+=0.01)

{r=R(theta);

x1=r*sin(theta);y1=r*cos(theta);

xs=FNX(x1);ys=FNY(y1);

if(theta==0)moveto(xs,ys);else lineto(xs,ys);

}

}

/*画箭头*/

void jian()

{

line(205,235,200,240);

line(200,240,205,245);

line(200,240,214,240);

line(400,240,500,240);

line(485,235,480,240);

line(480,240,485,245);

line(490,235,485,240);

line(485,240,490,245);

line(495,235,490,240);

line(490,240,495,245);

line(500,235,495,240);

line(495,240,500,245);

line(505,235,500,240);

line(500,240,505,245);

line(485,235,505,235);

line(485,245,505,245);

}

/*主程序*/

main()

{int driver=DETECT,mode;

initgraph(&driver,&mode,"");

setbkcolor(1);

setcolor(4);

MAXY=getmaxy();

draw(280,280);/*左心*/

draw(370,280);/*右心*/

jian();

getch();

closegraph();

}