step=0.01; a, b, E0; Ex, Ey, Hx, Hy, Ez, vf, vg; AA, BB, lambda_kr, lambda, Lamb; EHx, EHy, x, y, i, kp, d, Ze; m, n; main ()
{clrscr (); << «??????? E0: »; cin >> E0; << «??????? lambda: »; cin >> lambda;
cout << «??????? m: »; cin >> m;
cout << «??????? n: »; cin >> n; << «??????? a: »; cin >> a; << «??????? b: »; cin>>b;dataX(«x.dat»);dataY(«y.dat»);dataZ(«z.dat»);dataL(«l.dat»);= m * M_PI / a;=n * M_PI / b; _kr=2 / (sqrt (m * m / (a ??* a) + n * n / (b * b)));=c / (sqrt (1 -lambda * lambda / (lambda_kr * lambda_kr)));=c * (sqrt (1-lambda * lambda / (lambda_kr * lambda_kr)));=lambda / (sqrt (1-lambda * lambda / (lambda_kr * lambda_kr)) );=Zc * lambda / Lamb;=a * b * b / (Lamb * (a * a + b * b));=a * a * b / (Lamb * (a * a + b * b)) ;=0; (i
{Ex=EHx * f_cs (i, b / 4);=EHx * f_cs (i, b / 4) / Ze;=EHy * f_sc (i, b);=- EHy * f_sc (i, b) / Ze; << i << Ex << Ey << Hx << Hy; +=step;}=0;
{Ex=EHx * f_cs (a, i);=EHx * f_cs (a, i) / Ze;=EHy * f_sc (a / 4, i);=- EHy * f_sc ( a / 4, i) / Ze; << i << Ex << Ey << Hx << Hy; +=step;
} while (i> b);=2 * M_PI / Lamb;=0;
{Ex=EHx * f_c (i);=EHx * f_c (i) / Ze;=EHy * f_s (i);=- EHy * f_s (i) / Ze;=E0 * sin (-kp * i); << i << Ex << Ey << Hx << Hy << Ez; +=step;
} while (i> 50);=0;
{d=sqrt (1-i * i / (lambda_kr * lambda_kr));=3 / d;=3 * d; << i << vf << vg; +=step;
} while (i> lambda_kr); 0;} f_cs (double xx, double yy)
{return cos (AA * xx) * sin (BB * yy);} f_sc (double xx, double yy)
{return sin (AA * xx) * cos (BB * yy);} f_c (double xx)
{return cos (-kp * xx);}
???? -?????
???? -????? ??? ????????? ??????? ????????????????? ????? ? ?????
???? -????? ??? ????????? ??????? ???? ???????????????? ?????
????????? ?? Allbest
