2 files changed, 19 insertions, 0 deletions
diff --git a/25/CH10/EX10.1/10_1.sce b/25/CH10/EX10.1/10_1.sce
new file mode 100755
index 000000000..1a07a1515
--- /dev/null
+++ b/25/CH10/EX10.1/10_1.sce
@@ -0,0 +1,19 @@
+// example:-10.1;page no.-547.
+// problem to calculate and plot the phase and attenuation constants for RHCP & LHCP plane wave.
+M=1800;// M=4*pi*Ms;
+deltaH=75;eo=8.854*10^-12;muo=4*%pi*10^-7;c=3*10^8;
+Ho=3570;er=14;tandelta=0.001;
+fo=(2.8*10^9)/Ho; // IN GHZ.
+wo=2*%pi*fo;
+fm=(2.8*10^9)/M;  // IN GHZ.
+wm=2*%pi*fm;
+mue=muo*(1+(wo*wm)/(wo^2-wm^2));
+e=eo*er*(1-%i*tandelta);
+f=0:1000000:20*10^9;
+w=2*%pi.*f;
+k=muo*((w.*wm)/(wo^2-w^2));
+gama=%i*w*sqrt(e.*(mue-k));
+alpha=abs(real(gama));
+bta=abs(imag(gama));
+plot2d(f,gama,style=3,rect=[0,0,20*10^9,24])
+plot2d(f,bta,style=2,rect=[0,0,20*10^9,24])
+\ No newline at end of file
diff --git a/25/CH10/EX10.1/ex10_1.jpg b/25/CH10/EX10.1/ex10_1.jpg
new file mode 100755
index 000000000..feb477296
--- /dev/null
+++ b/25/CH10/EX10.1/ex10_1.jpg