diff --git a/DiffractionGratings/grating3D.pro b/DiffractionGratings/grating3D.pro index 1bc873bd94b2a0dc9929046ec2871f5b863e3d75..4dde9ddb017ce164afd2bf1c8f0e474baaa33eec 100644 --- a/DiffractionGratings/grating3D.pro +++ b/DiffractionGratings/grating3D.pro @@ -165,7 +165,7 @@ Function{ ts[] = 2.*k1z[] /(k1z[]+k2z[]); rp[] = (k1z[]*epsr2[]-k2z[]*epsr1[])/(k1z[]*epsr2[]+k2z[]*epsr1[]); tp[] = (2.*k1z[]*epsr2[])/(k1z[]*epsr2[]+k2z[]*epsr1[]); - + spol[] = Vector[Sin[phi0],-Cos[phi0],0]; AmplEis[] = spol[]; AmplErs[] = rs[]*spol[];