6 files changed, 80 insertions, 0 deletions
diff --git a/2207/CH1/EX1.11.1/ex_1_11_1.sce b/2207/CH1/EX1.11.1/ex_1_11_1.sce
new file mode 100755
index 000000000..d7dd60c6e
--- /dev/null
+++ b/2207/CH1/EX1.11.1/ex_1_11_1.sce
@@ -0,0 +1,9 @@
+//Example 1.11.1: peak reverse recovery current
+clc;
+clear;
+close;
+//given data :
+itt=10;// time in micro seconds
+qtt=150;//charge in micro colums
+prrc=((2*qtt)/itt);//peak reverse recovery current in amperes
+disp(prrc,"peak reverse recovery current in amperes")
diff --git a/2207/CH1/EX1.18.1/ex_1_18_1.sce b/2207/CH1/EX1.18.1/ex_1_18_1.sce
new file mode 100755
index 000000000..63d77567d
--- /dev/null
+++ b/2207/CH1/EX1.18.1/ex_1_18_1.sce
@@ -0,0 +1,13 @@
+//Example 1.18.1: voltage of the capacitor
+clc;
+clear;
+close;
+format('v',7)
+r=10;//in ohms
+l=10;///inductance in mH
+c=10;//capacitance in micro farads
+v=100;//in volts
+t=((%pi)/(sqrt((1/(l*10^-3*c*10^-6))-(r^2/(4*(l*10^-3)^2)))));// time in seconds
+vc= v*(1-cosd(t/(sqrt(l*10^-3*c*10^-6))));//in volts
+disp(vc,"the capacitor voltage in volts is")
+//answer is wrong in the textbook
diff --git a/2207/CH1/EX1.18.2/ex_1_18_2.sce b/2207/CH1/EX1.18.2/ex_1_18_2.sce
new file mode 100755
index 000000000..ee10a7007
--- /dev/null
+++ b/2207/CH1/EX1.18.2/ex_1_18_2.sce
@@ -0,0 +1,13 @@
+//Example 1.18.2: voltage of the capacitor
+clc;
+clear;
+close;
+format('v',7)
+r=15;//in ohms
+l=12;///inductance in mH
+c=8;//capacitance in micro farads
+v=100;//in volts
+t=((%pi)/(sqrt((1/(l*10^-3*c*10^-6))-(r^2/(4*(l*10^-3)^2)))));// time in seconds
+vc= v*(1-cosd(t/(sqrt(l*10^-3*c*10^-6))));//in volts
+disp(vc,"the capacitor voltage in volts is")
+//this question is not solved in the textbook
diff --git a/2207/CH1/EX1.20.1/ex_1_20_1.sce b/2207/CH1/EX1.20.1/ex_1_20_1.sce
new file mode 100755
index 000000000..1ea47211b
--- /dev/null
+++ b/2207/CH1/EX1.20.1/ex_1_20_1.sce
@@ -0,0 +1,12 @@
+//Example 1.20.1: Turn Off Time
+clc;
+clear;
+close;
+//given data :
+format('v',6)
+Vs=200;//in volts
+R1=10;// in ohm
+R2=R1;
+C=5;// in micro-farad
+Tc=(R1*C)/1.44;
+disp(Tc,"The Circuit Turn Off Time,Tc(micro-sec) = ")
diff --git a/2207/CH1/EX1.20.2/ex_1_20_2.sce b/2207/CH1/EX1.20.2/ex_1_20_2.sce
new file mode 100755
index 000000000..a4f3c85f0
--- /dev/null
+++ b/2207/CH1/EX1.20.2/ex_1_20_2.sce
@@ -0,0 +1,17 @@
+//Example 1.20.2: Peak Current and turn off time
+clc;
+clear;
+close;
+format('v',6)
+//given data :
+Vs=200;//in volts
+R1=10;// in ohm
+R2=R1;
+Vc=200;//in volts
+C=10;// in micro-farad
+I1=Vs/R1;
+I2=(Vs+Vc)/R2;
+It1=I1+I2;
+disp(It1,"Peak Current,It1(A) = ")
+Tc=(R1*C)/1.44;
+disp(Tc,"The Circuit Turn Off Time,Tc(micro-sec) = ")
diff --git a/2207/CH1/EX1.21.1/ex_1_21_1.sce b/2207/CH1/EX1.21.1/ex_1_21_1.sce
new file mode 100755
index 000000000..278092856
--- /dev/null
+++ b/2207/CH1/EX1.21.1/ex_1_21_1.sce
@@ -0,0 +1,16 @@
+//Example 1.21.1: L and C
+clc;
+clear;
+close;
+//given data :
+V=100;// in volts
+Irm=40;// in A
+tq=40;// in micro-sec
+Del_t=(50/100)*tq;// in micro-sec
+C=(Irm*(tq+Del_t))/V;
+disp(C,"capacitance,C(micro-farad) = ")
+L_min=(V/Irm)^2*C;
+disp(L_min,"minimum inductance,L_min(micro-Henry) = ")
+T=2.5;// assume one cycle period in ms
+L_max=((0.01*(T*10^-3)^2)/(%pi^2*C*10^-6))*10^6;
+disp(L_max,"Maximum inductance,L_max(micro-Henry) = ")