From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1697/CH1/EX1.1/Exa1_1.sce   | 10 ++++++++++
 1697/CH1/EX1.10/Exa1_10.sce | 17 +++++++++++++++++
 1697/CH1/EX1.11/Exa1_11.sce | 10 ++++++++++
 1697/CH1/EX1.12/Exa1_12.sce | 13 +++++++++++++
 1697/CH1/EX1.13/Exa1_13.sce | 16 ++++++++++++++++
 1697/CH1/EX1.14/Exa1_14.sce | 15 +++++++++++++++
 1697/CH1/EX1.15/Exa1_15.sce | 12 ++++++++++++
 1697/CH1/EX1.16/Exa1_16.sce | 10 ++++++++++
 1697/CH1/EX1.17/Exa1_17.sce | 11 +++++++++++
 1697/CH1/EX1.18/Exa1_18.sce | 12 ++++++++++++
 1697/CH1/EX1.19/Exa1_19.sce | 27 +++++++++++++++++++++++++++
 1697/CH1/EX1.2/Exa1_2.sce   | 10 ++++++++++
 1697/CH1/EX1.20/Exa1_20.sce | 10 ++++++++++
 1697/CH1/EX1.3/Exa1_3.sce   | 10 ++++++++++
 1697/CH1/EX1.4/Exa1_4.sce   |  9 +++++++++
 1697/CH1/EX1.5/Exa1_5.sce   | 15 +++++++++++++++
 1697/CH1/EX1.6/Exa1_6.sce   | 11 +++++++++++
 1697/CH1/EX1.7/Exa1_7.sce   | 15 +++++++++++++++
 1697/CH1/EX1.8/Exa1_8.sce   | 13 +++++++++++++
 1697/CH1/EX1.9/Exa1_9.sce   |  9 +++++++++
 20 files changed, 255 insertions(+)
 create mode 100755 1697/CH1/EX1.1/Exa1_1.sce
 create mode 100755 1697/CH1/EX1.10/Exa1_10.sce
 create mode 100755 1697/CH1/EX1.11/Exa1_11.sce
 create mode 100755 1697/CH1/EX1.12/Exa1_12.sce
 create mode 100755 1697/CH1/EX1.13/Exa1_13.sce
 create mode 100755 1697/CH1/EX1.14/Exa1_14.sce
 create mode 100755 1697/CH1/EX1.15/Exa1_15.sce
 create mode 100755 1697/CH1/EX1.16/Exa1_16.sce
 create mode 100755 1697/CH1/EX1.17/Exa1_17.sce
 create mode 100755 1697/CH1/EX1.18/Exa1_18.sce
 create mode 100755 1697/CH1/EX1.19/Exa1_19.sce
 create mode 100755 1697/CH1/EX1.2/Exa1_2.sce
 create mode 100755 1697/CH1/EX1.20/Exa1_20.sce
 create mode 100755 1697/CH1/EX1.3/Exa1_3.sce
 create mode 100755 1697/CH1/EX1.4/Exa1_4.sce
 create mode 100755 1697/CH1/EX1.5/Exa1_5.sce
 create mode 100755 1697/CH1/EX1.6/Exa1_6.sce
 create mode 100755 1697/CH1/EX1.7/Exa1_7.sce
 create mode 100755 1697/CH1/EX1.8/Exa1_8.sce
 create mode 100755 1697/CH1/EX1.9/Exa1_9.sce

(limited to '1697/CH1')

diff --git a/1697/CH1/EX1.1/Exa1_1.sce b/1697/CH1/EX1.1/Exa1_1.sce
new file mode 100755
index 000000000..c34b53874
--- /dev/null
+++ b/1697/CH1/EX1.1/Exa1_1.sce
@@ -0,0 +1,10 @@
+//Exa 1.1
+clc;
+clear;
+close;
+//given data :
+E=4;//in V/m
+Eta=120*%pi;//constant
+//Formula : E/H=Eta
+H=E/Eta;//in A/m
+disp(H,"Strength of magnetic field in free space in A/m : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.10/Exa1_10.sce b/1697/CH1/EX1.10/Exa1_10.sce
new file mode 100755
index 000000000..5ce022faa
--- /dev/null
+++ b/1697/CH1/EX1.10/Exa1_10.sce
@@ -0,0 +1,17 @@
+//Exa 1.10
+clc;
+clear;
+close;
+//given data :
+le=200;//in m
+Irms=200;//in A
+f=300;//in KHz
+r=10;//in Km
+c=3*10^8;//speed of light i m/s
+lambda=c/(f*1000);//in m
+Erms=120*%pi*le*Irms/(lambda*r*10^3);//in V/m
+disp(Erms,"Field strength at 10Km distace in V/m: ");
+Rr=(160*(%pi)^2)*(le/lambda)^2;//in Ohm
+W=Irms^2*Rr;//in Watts
+disp(W/10^6,"Radiated Power in MWatts : ");
+//Note : Answer is wrong in the book. Unit of answer in the book is written mW instead of MW by mistake.
\ No newline at end of file
diff --git a/1697/CH1/EX1.11/Exa1_11.sce b/1697/CH1/EX1.11/Exa1_11.sce
new file mode 100755
index 000000000..e41807cf0
--- /dev/null
+++ b/1697/CH1/EX1.11/Exa1_11.sce
@@ -0,0 +1,10 @@
+//Exa 1.11
+clc;
+clear;
+close;
+//given data :
+//Formula : Rr=80*%pi^2*(l/lambda)^2
+//Given l=lambda/60
+//l/lambda=1/60
+Rr=80*%pi^2*(1/60)^2;//in Ohm
+disp(Rr,"Radiation resistance in Ohm: ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.12/Exa1_12.sce b/1697/CH1/EX1.12/Exa1_12.sce
new file mode 100755
index 000000000..16d780f42
--- /dev/null
+++ b/1697/CH1/EX1.12/Exa1_12.sce
@@ -0,0 +1,13 @@
+//Exa 1.12
+clc;
+clear;
+close;
+//given data :
+r=10;//in Km
+Erms=10;//in mV/m
+r1=20;//in Km
+//Formula : Erms=sqrt(90*W)/r;//in V/m
+//Let swrt(90*W)=a
+a=Erms*r;
+Erms1=a/r1;//in mV/m
+disp(Erms1,"Field strength at 20Km distace in mV/m: ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.13/Exa1_13.sce b/1697/CH1/EX1.13/Exa1_13.sce
new file mode 100755
index 000000000..66ae1b7f5
--- /dev/null
+++ b/1697/CH1/EX1.13/Exa1_13.sce
@@ -0,0 +1,16 @@
+//Exa 1.13
+clc;
+clear;
+close;
+//given data :
+r=1;//in Km
+r=1*10^3;//in m
+l=1;//in m
+Irms=10;//in A
+f=5;//in MHz
+c=3*10^8;//speed of light i m/s
+lambda=c/(f*10^6);//in m
+le=2*l/%pi;//in m
+Erms=120*%pi*le*Irms/(lambda*r);//in V/m
+disp(Erms,"Field strength at 10Km distace in V/m: ");
+//Note : Answer in the book is wrong. Mistake during value putting.
\ No newline at end of file
diff --git a/1697/CH1/EX1.14/Exa1_14.sce b/1697/CH1/EX1.14/Exa1_14.sce
new file mode 100755
index 000000000..12510c1b7
--- /dev/null
+++ b/1697/CH1/EX1.14/Exa1_14.sce
@@ -0,0 +1,15 @@
+//Exa 1.14
+clc;
+clear;
+close;
+//given data :
+Irms=30;//in A
+f=1;//in MHz
+Erms=10;//in mV/m
+Erms=Erms*10^-3;//in V/m
+r=50;//in Km
+r=r*10^3;//in m
+c=3*10^8;//speed of light i m/s
+lambda=c/(f*10^6);//in m
+le=Erms*lambda*r/(120*%pi*Irms);//in m
+disp(le,"Effetive height of Antenna in meter : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.15/Exa1_15.sce b/1697/CH1/EX1.15/Exa1_15.sce
new file mode 100755
index 000000000..c3616ecef
--- /dev/null
+++ b/1697/CH1/EX1.15/Exa1_15.sce
@@ -0,0 +1,12 @@
+//Exa 1.15
+clc;
+clear;
+close;
+//given data :
+disp("Erms^2 = 30*Wt/r^2");
+disp("Wt = Erms^2*r^2/30");
+disp("Given : E = 10*I/r");
+disp("Wt = (10*I/r)^2*r^2/30")
+disp("Wt = 100*I^2/30")
+disp("Rr = Wt/I^2 = 100/30");
+disp(100/30,"Radiation resistance in Ohm : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.16/Exa1_16.sce b/1697/CH1/EX1.16/Exa1_16.sce
new file mode 100755
index 000000000..631bed969
--- /dev/null
+++ b/1697/CH1/EX1.16/Exa1_16.sce
@@ -0,0 +1,10 @@
+//Exa 1.16
+clc;
+clear;
+close;
+//given data :
+format('v',8);
+lambda=300/(50*10^-6);//in m
+r=round(lambda)/(2*%pi);//in m
+disp(r,"Distance in meter : ");
+//Note : Answer in the book is wrong.
\ No newline at end of file
diff --git a/1697/CH1/EX1.17/Exa1_17.sce b/1697/CH1/EX1.17/Exa1_17.sce
new file mode 100755
index 000000000..7e98a6a92
--- /dev/null
+++ b/1697/CH1/EX1.17/Exa1_17.sce
@@ -0,0 +1,11 @@
+//Exa 1.17
+clc;
+clear;
+close;
+//given data :
+r=2;//in Km
+r=r*10^3;//in m
+Wt=1;//in KW
+Wt=Wt*10^3;//in Watt
+Erms=sqrt(30*Wt)/r;//in V/m
+disp(Erms*10^3,"Field strength at 2Km distace in mV/m: ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.18/Exa1_18.sce b/1697/CH1/EX1.18/Exa1_18.sce
new file mode 100755
index 000000000..47e5f18e1
--- /dev/null
+++ b/1697/CH1/EX1.18/Exa1_18.sce
@@ -0,0 +1,12 @@
+//Exa 1.18
+clc;
+clear;
+close;
+//given data :
+f=20;//in MHz
+f=f*10^6;//in Hz
+le=100;//in m
+c=3*10^8;//speed of light in m/s
+lambda=c/f;//in m
+Rr=160*(%pi*le/lambda)^2;//in ohm
+disp(Rr/1000,"Radiation Resistance in KOhm : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.19/Exa1_19.sce b/1697/CH1/EX1.19/Exa1_19.sce
new file mode 100755
index 000000000..fdef53ec0
--- /dev/null
+++ b/1697/CH1/EX1.19/Exa1_19.sce
@@ -0,0 +1,27 @@
+//Exa 1.19
+clc;
+clear;
+close;
+//given data :
+P=10;//in W/m^2
+f=40;//in MHz
+f=f*10^6;//in Hz
+mu_r=4;//constant
+epsilon_r=5;//constant
+//Velocity of propagation
+//formula : v=(1/sqrt(mu_o*epsilon_o))*(1/sqrt(mu_r*epsilon_r));//in m/s
+//1/sqrt(mu_o*epsilon_o)=c=speed of light=3*10^8 m/s
+c=3*10^8;//speed of light in m/s
+v=c*(1/sqrt(mu_r*epsilon_r));//in m/s
+disp(v,"Velocity of propagation in m/s : ");
+//Wavelength
+lambda=v/f;//in meter
+disp(lambda,"Wavelength in Meter : ");
+//rms electric field
+//Formula : E=P*sqrt(mu_o/epsilon_o)*sqrt(mu_r/epsilon_r);//in V/m
+E=sqrt(1200*%pi*sqrt(4/5));//in V/m
+Erms=sqrt(E^2/sqrt(2));//in V/m
+disp(Erms,"rms Electric Field in V/m: ");
+//Impedence of medium
+Eta=(sqrt(2)*Erms)^2/P;//in Ohm
+disp(Eta,"Impedence of medium in ohm : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.2/Exa1_2.sce b/1697/CH1/EX1.2/Exa1_2.sce
new file mode 100755
index 000000000..e91d77b30
--- /dev/null
+++ b/1697/CH1/EX1.2/Exa1_2.sce
@@ -0,0 +1,10 @@
+//Exa 1.2
+clc;
+clear;
+close;
+//given data :
+H=5.2;//in mA/m
+Eta=120*%pi;//constant
+//Formula : E/H=Eta
+E=H*10^-3*Eta;//in V/m
+disp(round(E),"Strength of Electric field in free space in V/m : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.20/Exa1_20.sce b/1697/CH1/EX1.20/Exa1_20.sce
new file mode 100755
index 000000000..5e53522a2
--- /dev/null
+++ b/1697/CH1/EX1.20/Exa1_20.sce
@@ -0,0 +1,10 @@
+//Exa 1.20
+clc;
+clear;
+close;
+//given data :
+disp("Hfi = (Im*dlsin(theta)/(4*%pi))*[cos(omega*t1)/r-omega*sin(omega*t1)/(c*r)]");
+disp("200(Im*dlsin(theta)/(4*%pi))*(sin(omega*t1)/r^2)=(Im*dlsin(theta)/(4*%pi))*(-omega*sin(omega*t1)/(c*r))");
+disp("200*cos(omega*t1)/r^2 = -omega*sin(omega*t1)/(c*r)");
+disp("r=200*lambda/(2*%pi);//in Meter")
+disp("r = "+string(200/(2*%pi))+"lambda");
\ No newline at end of file
diff --git a/1697/CH1/EX1.3/Exa1_3.sce b/1697/CH1/EX1.3/Exa1_3.sce
new file mode 100755
index 000000000..80b9e748a
--- /dev/null
+++ b/1697/CH1/EX1.3/Exa1_3.sce
@@ -0,0 +1,10 @@
+//Exa 1.3
+clc;
+clear;
+close;
+//given data :
+I=20;//in A
+Rr=100;//in Ohm
+//Formula : Wr=I^2*R
+Wr=I^2*Rr;//in W
+disp(Wr/1000,"Radiated power in KW : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.4/Exa1_4.sce b/1697/CH1/EX1.4/Exa1_4.sce
new file mode 100755
index 000000000..d30a601be
--- /dev/null
+++ b/1697/CH1/EX1.4/Exa1_4.sce
@@ -0,0 +1,9 @@
+//Exa 1.4
+clc;
+clear;
+close;
+//given data :
+W=625;//in KW
+r=30;//in Km
+Erms=sqrt(90*W*1000)/(r*1000);//in V/m
+disp(Erms*1000,"Strength of Electric field at 30Km away in mV/m : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.5/Exa1_5.sce b/1697/CH1/EX1.5/Exa1_5.sce
new file mode 100755
index 000000000..886e64ad4
--- /dev/null
+++ b/1697/CH1/EX1.5/Exa1_5.sce
@@ -0,0 +1,15 @@
+//Exa 1.5
+clc;
+clear;
+close;
+//given data :
+le=10;//in m
+Irms=450;//in A
+f=50;//in KHz
+R=1.5;//in Ohm
+lambda=300/(f/1000);//in m
+Rr=160*(%pi)^2*(le/lambda)^2;//in Ohm
+Wr=Irms^2*Rr;//in W
+disp(Wr,"Radiated power in Watts : ");
+Eta=(Rr/(Rr+R))*100;//efficiency in %
+disp(Eta,"Efficiency of antenna in % : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.6/Exa1_6.sce b/1697/CH1/EX1.6/Exa1_6.sce
new file mode 100755
index 000000000..a32b473c2
--- /dev/null
+++ b/1697/CH1/EX1.6/Exa1_6.sce
@@ -0,0 +1,11 @@
+//Exa 1.6
+clc;
+clear;
+close;
+//given data :
+le=50;//in m
+f=100;//in MHz
+lambda=300/(f);//in m
+Rr=(160*(%pi)^2)*(le/lambda)^2;//in Ohm
+disp(Rr/10^6,"Radiation Resistance in Mohm: ");
+//Note : Answer in the book is wrong
\ No newline at end of file
diff --git a/1697/CH1/EX1.7/Exa1_7.sce b/1697/CH1/EX1.7/Exa1_7.sce
new file mode 100755
index 000000000..bb5f3ccb9
--- /dev/null
+++ b/1697/CH1/EX1.7/Exa1_7.sce
@@ -0,0 +1,15 @@
+//Exa 1.7
+clc;
+clear;
+close;
+//given data :
+l=30;//in m
+Irms=20;//in A
+f=1;//in MHz
+r=10;//in Km
+r=r*1000;//in m
+le=2*l/%pi;//in m
+lambda=300/(f);//in m
+Erms=120*%pi*le*Irms/(lambda*r);//in V/m
+disp(Erms,"Field strength at 10Km distace in V/m: ");
+//Note : Answer in the book is wrong
\ No newline at end of file
diff --git a/1697/CH1/EX1.8/Exa1_8.sce b/1697/CH1/EX1.8/Exa1_8.sce
new file mode 100755
index 000000000..b28ed4afd
--- /dev/null
+++ b/1697/CH1/EX1.8/Exa1_8.sce
@@ -0,0 +1,13 @@
+//Exa 1.8
+clc;
+clear;
+close;
+//given data :
+Rl=1;//in ohm
+//Formula : Rr=80*%pi^2*(l/lambda)^2
+//Given l=lambda/10
+//l/lambda=1/10
+Rr=80*%pi^2*(1/10)^2;//in Ohm
+disp(Rr,"Radiation resistance in Ohm: ");
+Eta=Rr/(Rr+Rl);//Unitless
+disp(Eta*100,"Antenna Efficiency in % : ");
\ No newline at end of file
diff --git a/1697/CH1/EX1.9/Exa1_9.sce b/1697/CH1/EX1.9/Exa1_9.sce
new file mode 100755
index 000000000..9ac23e215
--- /dev/null
+++ b/1697/CH1/EX1.9/Exa1_9.sce
@@ -0,0 +1,9 @@
+//Exa 1.9
+clc;
+clear;
+close;
+//given data :
+r=100;//in Km
+W=100;//in KW
+Erms=sqrt(90*W*1000)/(r*1000);//in V/m
+disp(Erms,"Strength of Electric Field in V/m : ");
\ No newline at end of file
-- 
cgit