[adsense:responsibe:9545213979]
\begin{verbatim} Sage: var('z w t') Sage:k1=2*pi/(6*10^(-2)) Sage:k2=2*pi/(2*10^(-2)) Sage:u1=4*pi*10^(-7) Sage:u2=4*pi*10^(-7) Sage:w=2*pi*6*10^10 Sage:t1=real(t) Sage:z1=real(z)
Sage:n1=(w*u1)/k1 Sage:n2=(w*u2)/k2 cr=(n2-n1)/(n2+n1) ct=(2*n2)/(n2+n1) Sage:srw=(1+abs(cr))/(1-abs(cr)) Sage:b1=k1 Sage:b2=k2 Sage: Eio=100*10^(-3) Sage:Ero=cr*Eio Sage:Eto=ct*Eio Sage:vEi=vector([Eio*e^(-i*b1*z1),0,0]) Sage:vHi=vector([0,(Eio/n1)*e^(-i*b1*z1),0]) Sage:vEr=vector([Ero*e^(i*b1*z1),0,0]) Sage:vHr=vector([0,-(Ero/n1)*e^(i*b1*z1),0]) Sage:vEt=vector([Eto*e^(-i*b2*z1),0,0]) Sage:vHt=vector([0,(Eto/n2)*e^(-i*b2*z1),0]) Sage:rvEi=vector([real(vEi[0]*e^(i*w*t1)),0,0]) Sage:rvHi=vector([0,real(vHi[1]*e^(i*w*t1)),0])
Añadir nuevo comentario