电磁波传播的仿真，我费老大劲才搞好的

用C++编程计算出电磁波的传播路径！主要是利用射线追迹法，准光的知识

# define F  219
# define D  45
# define R1 153.9784
# define R2 715.6293
# define K  -0.4264484
# include 
# include 

void main（）
{
	FILE *fp[5];
	fp[0]=fopen（“glt0.dat““w“）;
	fp[1]=fopen（“glt1.dat““w“）;
	fp[2]=fopen（“glt2.dat““w“）;
	fp[3]=fopen（“glt3.dat““w“）;
	fp[4]=fopen（“glt4.dat““w“）;

	double n1 = 1.944;
	double x[5]y[5]z[5]xx[5]yy[5]zz[5]xo[5]yo[5]zo[5];
	double tx[5]ty[5]tz[5]sx[5]sy[5]sz[5]sox[5]soy[5]soz[5];
	double nxnynz;
	double anglepi = 3.1415927theta;
	double leeuua0b0c0ttt2;
	int nn;
	angle = 0;
	theta = angle*pi/180;
	for（nn=0;nn<5;nn++）
	{
		tx[nn] = -sin（theta）;
		ty[nn] = 0;
		tz[nn] = cos（theta）;
		
		x[nn] = -60+30*nn;
		y[nn] = 0;
		z[nn] = （x[nn]*x[nn]+y[nn]*y[nn]）/（R1+sqrt（R1*R1-（1

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       4252  2010-05-19 16:52  经过单透镜\dan\dan.dsp

     文件        514  2010-05-19 16:48  经过单透镜\dan\dan.dsw

     文件      41984  2010-05-21 09:20  经过单透镜\dan\dan.ncb

     文件      48640  2010-05-21 09:20  经过单透镜\dan\dan.opt

     文件        874  2010-05-20 09:26  经过单透镜\dan\dan.plg

     文件     221299  2010-05-20 09:26  经过单透镜\dan\Debug\dan.exe

     文件     226476  2010-05-20 09:26  经过单透镜\dan\Debug\dan.ilk

     文件     221684  2010-05-20 09:22  经过单透镜\dan\Debug\dan.pch

     文件     484352  2010-05-20 09:26  经过单透镜\dan\Debug\dan.pdb

     文件       9803  2010-05-20 09:26  经过单透镜\dan\Debug\guanglu.obj

     文件      41984  2010-05-20 09:26  经过单透镜\dan\Debug\vc60.idb

     文件      53248  2010-05-20 09:26  经过单透镜\dan\Debug\vc60.pdb

     文件         65  2010-05-20 09:26  经过单透镜\dan\glt0.dat

     文件         64  2010-05-20 09:26  经过单透镜\dan\glt1.dat

     文件         60  2010-05-20 09:26  经过单透镜\dan\glt2.dat

     文件         63  2010-05-20 09:26  经过单透镜\dan\glt3.dat

     文件         64  2010-05-20 09:26  经过单透镜\dan\glt4.dat

     文件       2505  2010-05-20 09:26  经过单透镜\dan\guanglu.cpp

     目录          0  2010-05-23 19:23  经过单透镜\dan\Debug

     目录          0  2010-05-23 19:23  经过单透镜\dan

     目录          0  2010-05-23 19:23  经过单透镜

----------- ---------  ---------- -----  ----

              1357931                    21