42/CH10/EX10.4/sadiku_10_4.sce


1
2
3
4
5

clear;
clc;
c=3,w=10^8,Ur=20,Eo=10^-9 /(36*%pi),Er=1,Uo=4*%pi*10^-7;
a=sqrt(Uo*Ur*w*c/2);
disp(a,'alpha = beta =');//as c/w*E>>1