一个简单的一箭穿心程序

一个简单的一箭穿心程序

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

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

程序如下：

#include

　　#include

#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();

　　}