pro6.c

TC 下的物理程序

#include<d:\ccbp\ccbp.h>
#define PI 3.1415926
void *pp;
void boat()
{
	int xy[]={100,100,100,93,100,75,113,85,100,93,100,100};
	setfillstle(1,5);
	filllipse(105,100,10,5);
	setfillstle(1,3);
	fillpoly(6,xy);
	pp=malloc(imagesize(97,75,115,104);
	getimage(97,75,115,104,pp);
}



void back()
{
	setfillstle(1,7);
	bar(0,280,630,480);
	setcolor(4);
	arrowh(5,475,5,280);
	outhzxyl(7,227,"Sx/m",4);
	arrowh(5,475,100,475);
	outhzxyl(90,460,"T/s",4);
	asrrowh(110,475,110,280);
	outhzxyl(113,277,"Sy/m",4);
	asrrowh(110,475,205,475);
	outhzxyl(195,460,"T/s",4);
	asrrowh(215,475,215,280);
	outhzxyl(217,277,"Vx_yellow",4);
	outhzxyl(217,285,"Vy_liblue",4);
	arrowh(215,475,300,475,);
	outhzxyl(290,460,"T/s",4);
}

void main()
{
	int N,i,d=240;
	double p=0.00065,m,t=0.01,temp,sx,sy,vx,vy=8,v,k=0.01;
	int gd=DETECT,gm;
	initgraph(&gd,&gm,"");
	boat();
	setbkcolor(15);
	setfillstyle(1,9);
	bar(5,30,630,270);
	outhzxyl(170,8,"***小船",4);
	outhzxyl(385,8,"过河***",4);
	do
	{
		back();
		outhzxy3(315,300,"说明：按esc键退出，按其他键继续，",1,0,14);
		outhzxy3(315,320,"    且可以增加Vy的值，水速成抛",1,0,14);
		outhzxy3(315,340,"    物线分布。",1,0,14);
		sx=0;
		N=d/vy/t;
		for(i=0;i<=N;i++)
		{
			m=2*p*(d/2)*(d/2);
			sy=vy*i*t;
			vx=m-2*p*(sy-d/2)*(sy-d/2);
			sx=sx+t*vx;
			temp=vx*vx+vy*vy;
			
			v=sqrt(temp);
			putpixel(10+sx,270-sy,4);
			putpixel(5+3*i*t,475-0.5*sx,5);
			putpixel(110+3*i*t,475-0.5*sy,5);
			putpixel(215+3*i*t,475-5*vy,11);
			putpixel(215+3*i*t,475-5*vx,14);
			putimage(10+sx,240-sy,pp,1);
			putimage(10+sx,240-sy,pp,1);
			gotoxy(41,24);
			printf("vy=%lf,vx=%lf,v=%lf",vy,vx,v);
			gotoxy(41,25);
			printf("sx=%lf,sy=%lf",sx,sy);
		}
		putimage(10+sx,240-sy,pp,1);
		vy++;
	}while(getch()!=27);
	free(pp);
	closegraph();
}