Nachinka

reflect callback

Nov 27th, 2017
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MatLab 1.84 KB | None | 0 0
  1. figure(1);
  2.             epsilon0 = 1/36/pi*10^(-9);
  3.             mu0 = 4*pi*10^(-7);
  4.             Epsilon = app.EpsilonEdit.Value*epsilon0;
  5.             Epsilon1 = app.Epsilon1Edit.Value*epsilon0;
  6.             Epsilon2 = app.Epsilon2Edit.Value*epsilon0;
  7.             Mu = app.MuEdit.Value*mu0;
  8.             Mu1 = app.Mu1Edit.Value*mu0;
  9.             Mu2 = app.Mu2Edit.Value*mu0;
  10.             Sigma = app.SigmaEdit.Value;
  11.             Sigma1 = app.Sigma1Edit.Value;            
  12.             Sigma2 = app.Sigma2Edit.Value;
  13.             Omega = 2*pi*app.FreqEdit.Value;
  14.             phi =0:pi/500:pi/2;
  15.             EpsilonComplex = Epsilon*(1-1i*Sigma/(Omega*Epsilon));
  16.             Epsilon1Complex = Epsilon1*(1-1i*Sigma1/(Omega*Epsilon1));
  17.             Epsilon2Complex = Epsilon2*(1-1i*Sigma2/(Omega*Epsilon2));
  18.             k = Omega*sqrt(EpsilonComplex*Mu);
  19.             k1 = Omega*sqrt(Epsilon1Complex*Mu1);
  20.             k2 = Omega*sqrt(Epsilon2Complex*Mu2);
  21.             phipr1 = asin((k/k1)*sin(phi));
  22.             phipr2 = asin((k/k2)*sin(phi));
  23.             W = sqrt(Mu/EpsilonComplex);
  24.             W1 = sqrt(Mu1/Epsilon1Complex);
  25.             W2 = sqrt(Mu2/Epsilon2Complex);
  26.            
  27.            
  28.             if app.HorizPol.Value %normal
  29.                 R1 = (W1*cos(phi) - W*cos(phipr1)) ./ (W1*cos(phi) + W*cos(phipr1));
  30.                 R2 = (W2*cos(phi) - W*cos(phipr2)) ./ (W2*cos(phi) + W*cos(phipr2))
  31.             end;
  32.             if app.VertPol.Value %parall
  33.                 R1 = (W*cos(phi) - W1*cos(phipr1)) ./ (W*cos(phi) + W1*cos(phipr1));
  34.                 R2 = (W*cos(phi) - W2*cos(phipr2)) ./ (W*cos(phi) + W2*cos(phipr2));
  35.             end;
  36.             figure(1);
  37.             plot(phi, abs(R1), phi, abs(R2), 'LineWidth',2);
  38.             legend('-->1','-->2');
  39.             figure(2);
  40.             plot(phi, abs(angle(R1)), phi, abs(angle(R2)));
Add Comment
Please, Sign In to add comment