initial commit / add all books

8 files changed, 83 insertions, 0 deletions

diff --git a/339/CH1/EX1.1/ex1_1.sce b/339/CH1/EX1.1/ex1_1.sce
new file mode 100755
index 000000000..7aa6c9829
--- /dev/null
+++ b/339/CH1/EX1.1/ex1_1.sce
@@ -0,0 +1,11 @@
+mu0=4*%pi*10^-7;// defining permeability of free space

+epsilon0=8.85*10^-12;// defining permittivity of free space

+z0=sqrt(mu0/epsilon0);// calculating intrinsic impedance

+epsilonr=4.6;// defining relative permittivity

+vp=1/sqrt(mu0*epsilon0*epsilonr);// calculating phase velocity

+f1=30*10^6;

+f2=3*10^9;

+lambda1=vp/(f1);

+lambda2=vp/(f2);

+disp('metre',lambda1,'Wavelength corresponding to f1');//displaying wavelengths

+disp('metre',lambda2,"Wavelength corresponding to f2");//displaying wavelengths
\ No newline at end of file
diff --git a/339/CH1/EX1.2/ex1_2.sce b/339/CH1/EX1.2/ex1_2.sce
new file mode 100755
index 000000000..ba6f7974a
--- /dev/null
+++ b/339/CH1/EX1.2/ex1_2.sce
@@ -0,0 +1,23 @@
+mu0=4*%pi*10^-7;

+a=8*2.54*10^-5; //radius of copper wire

+sigmac=64.5*10^6; //conductivity of copper

+l=2*10^-2; //length of wire

+rdc=l/(%pi*a*a*sigmac);

+f1=100*10^6;

+f2=2*10^9;

+f3=5*10^9;

+skindepth1=1/sqrt(%pi*mu0*f1*sigmac);

+skindepth2=1/sqrt(%pi*mu0*f2*sigmac);

+skindepth3=1/sqrt(%pi*mu0*f3*sigmac);

+Lin1=(a*rdc)/(2*skindepth1*2*%pi*f1); //internal inductance

+Lin2=(a*rdc)/(2*skindepth2*2*%pi*f2); //internal inductance

+Lin3=(a*rdc)/(2*skindepth3*2*%pi*f3); //internal inductance

+temp=log(2*l/a)/log(%e);

+Lex=mu0*l*(temp-1)/(2*%pi); //external inductance

+disp("metre",skindepth1,"Skin depth at f1");

+disp("metre",skindepth2,"Skin depth at f2");

+disp("metre",skindepth3,"Skin depth at f3");

+disp("Henry",Lin1,"Internal inductance at f1");

+disp("Henry",Lin2,"Internal inductance at f2");

+disp("Henry",Lin3,"Internal inductance at f3");

+disp("Henry",Lex,"External inductance");
\ No newline at end of file
diff --git a/339/CH1/EX1.3/ex1_3.JPG b/339/CH1/EX1.3/ex1_3.JPG
new file mode 100755
index 000000000..b0fad406d
--- /dev/null
+++ b/339/CH1/EX1.3/ex1_3.JPG
diff --git a/339/CH1/EX1.3/ex1_3.sce b/339/CH1/EX1.3/ex1_3.sce
new file mode 100755
index 000000000..c67cfe62f
--- /dev/null
+++ b/339/CH1/EX1.3/ex1_3.sce
@@ -0,0 +1,14 @@
+f=10^4:10^5:10^10;

+w=2*%pi.*f;

+mu0=4*%pi*10^-7;

+l=2*2.5*10^-2;

+a=2.032*10^-4;

+temp=log(2*l/a)/log(%e);

+lex=mu0*l*(temp-1)/(2*%pi); //external inductance

+r=2*10^3;                   // resistance

+c=5*10^-12;                 //capacitance

+z=w*lex*%i+1 ./(w*c*%i+1/r); //impedance

+plot2d("gll",f,abs(z));

+title("High frequency impedance behaviour of a 2k ohm metal film resistor ");

+xlabel('Frequency  (f) in Hz');

+ylabel('Absolute Impedance (|Z|) in ohms');
\ No newline at end of file
diff --git a/339/CH1/EX1.4/ex1_4.JPG b/339/CH1/EX1.4/ex1_4.JPG
new file mode 100755
index 000000000..501f6fb08
--- /dev/null
+++ b/339/CH1/EX1.4/ex1_4.JPG
diff --git a/339/CH1/EX1.4/ex1_4.sce b/339/CH1/EX1.4/ex1_4.sce
new file mode 100755
index 000000000..58784b047
--- /dev/null
+++ b/339/CH1/EX1.4/ex1_4.sce
@@ -0,0 +1,16 @@
+f=10^6:10^7:10^10;

+rs=(4.8*10^-6).*sqrt(f);

+re=(33.9*10^12) ./f;

+c=47*10^-12;

+w=2*%pi.*f;

+l=2*1.25*10^-2;

+a=2.032*10^-4;

+temp=log(2*l/a)/log(%e);

+lex=mu0*l*(temp-1)/(2*%pi);          //external inductance

+z=1 ./(1 ./re +w*c*%i)+rs+w.*lex*%i; // impedance of frequency dependent capacitor

+zideal=1 ./(w*c*%i);    //impedance of an ideal capacitor

+plot2d("gll",f,abs(z));

+plot2d(f,abs(zideal));

+title("Frequency responce of a high frequency capacitor");

+xlabel('Frequency  (f) in  Hz');

+ylabel('Absolute impedance  (|Z|) in ohms');
\ No newline at end of file
diff --git a/339/CH1/EX1.5/ex1_5.JPG b/339/CH1/EX1.5/ex1_5.JPG
new file mode 100755
index 000000000..9be74701c
--- /dev/null
+++ b/339/CH1/EX1.5/ex1_5.JPG
diff --git a/339/CH1/EX1.5/ex1_5.sce b/339/CH1/EX1.5/ex1_5.sce
new file mode 100755
index 000000000..7a618d3d2
--- /dev/null
+++ b/339/CH1/EX1.5/ex1_5.sce
@@ -0,0 +1,19 @@
+f=10^7:10^8:10^10;

+w=2*%pi.*f;

+N=3.5;       //number of turns

+rad=0.05*0.0254;

+len=0.05*0.0254;      //length of wire

+a=(5*0.0254*10^-3)/2;

+u0=4*%pi*10^-7;

+sig_cu=64.516*10^6;

+e0=8.854*10^-12;

+l=(%pi*rad^2*u0*(N^2))/len;

+c=(e0*4*%pi*rad*(N^2)*a)/len;

+r=(2*rad*N)/(sig_cu*(a^2));

+z=1 ./((1 ./(r+w*%i*l))+w*%i*c); //impedance

+zideal=w*%i.*l;                  //impedance of an ideal inductor

+plot2d("gll",f,abs(z));

+plot2d(f,abs(zideal));

+title("Frequency response of the impedance of an RFC");

+xlabel('Frequency (f) in Hz');

+ylabel('Absolute Impedance (|Z|)  in  ohms');
\ No newline at end of file