13 files changed, 213 insertions, 0 deletions
diff --git a/1823/CH1/EX1.11/SoluEx1_11.sce b/1823/CH1/EX1.11/SoluEx1_11.sce
new file mode 100755
index 000000000..55e9e28d8
--- /dev/null
+++ b/1823/CH1/EX1.11/SoluEx1_11.sce
@@ -0,0 +1,15 @@
+//Solved Example 1.11 Page no 14
+//Find the half-cycle average value of the current through a resistance R 
+clear
+clc
+printf("\n Find the Norton equivalent current IN and admittance YN")
+Va=4.0//V
+a=0.25//A/V
+R1=2//ohm
+R2=3//ohm
+I=2
+Zth=5
+Ia=(Va/(R1+R2))+((R1*I)/(R1+R2))
+Yn=1/Zth
+printf("\n Norton equivalent current IN  is = %.2f V",Ia)
+printf("\n admittance YN is = %.2f Ohm",Yn)
diff --git a/1823/CH1/EX1.12/SolEx1_12.sce b/1823/CH1/EX1.12/SolEx1_12.sce
new file mode 100755
index 000000000..5bf5afeb7
--- /dev/null
+++ b/1823/CH1/EX1.12/SolEx1_12.sce
@@ -0,0 +1,21 @@
+//Solve Problem 1.11 using a SPICE method
+//Solved Example 1.12 page no 21
+clear
+clc
+printf("\nSolve Problem 1.11 using a SPICE method")
+V1=1.231*(10^-2)    //V
+I1=1*(10^-3)        //A
+Z11=V1/I1         //Ohm
+printf("\n The value of Z11=%0.2f Ohm",Z11)
+V1=2.308*(10^-3)    //V
+I2=1*(10^-3)        //A
+Z12=V1/I2         //Ohm
+printf("\n The value of Z12=%0.3f Ohm",Z12)
+V2=4.615*(10^-3)    //V
+I1=1*(10^-3)        //A
+Z21=V2/I1           //Ohm
+printf("\n The value of Z21=%0.3f Ohm",Z21)
+V2=4.615*(10^-3)      //V
+I2=1*(10^-3)          //A
+Z22=V2/I2             //Ohm
+printf("\n The value of Z22=%0.3f Ohm",Z22)
diff --git a/1823/CH1/EX1.13/SolEx1_13.sce b/1823/CH1/EX1.13/SolEx1_13.sce
new file mode 100755
index 000000000..2ac946972
--- /dev/null
+++ b/1823/CH1/EX1.13/SolEx1_13.sce
@@ -0,0 +1,22 @@
+//Determine the h parameters for the two-port network
+//Solved Example 1.13 page no 22
+clear
+clc
+printf("\nDetermine the h parameters for the two-port network")
+V2=0        //V
+Ia=0        //A
+//h11=V1/I1
+h11=10      //ohm
+//Here I2=-I1
+//Therefor h21=I2/I1 h21=-1
+h21=-1 //ohm
+Ia=V2/6    //A
+I1=0        //A
+V1=V2-10*(0.3)  //V
+//h12=V1/V2
+h12=0.5 //Ohm
+I2=1.3  //A
+V2=6    //V
+h22=I2/V2   //Ohm
+printf("\nThe value of h11=%1.3f ohm h21=%1.3f ohm h12=%1.3f ohm h22=%1.3f",h11,h21,h12,h22)
+
diff --git a/1823/CH1/EX1.15/SolEx1_15.sce b/1823/CH1/EX1.15/SolEx1_15.sce
new file mode 100755
index 000000000..cc50505dd
--- /dev/null
+++ b/1823/CH1/EX1.15/SolEx1_15.sce
@@ -0,0 +1,13 @@
+//Find the voltage-gain ratio V2/V1
+//Solved Example 1.15 page no 23
+clear
+clc
+printf("\nFind the voltage-gain ratio V2/V1")
+//Let V=V2/V1
+RL=2000
+h11=100 //ohm
+h12=0.0025 //ohm
+h21=20 //ohm
+h22=0.001 //mS
+V=1/(h12-(h11/h21)*((1/RL)+h22))
+printf("\n The value of V2/V1=%0.1f",V)
diff --git a/1823/CH1/EX1.19/SolEx1_19.sce b/1823/CH1/EX1.19/SolEx1_19.sce
new file mode 100755
index 000000000..3017f1c18
--- /dev/null
+++ b/1823/CH1/EX1.19/SolEx1_19.sce
@@ -0,0 +1,11 @@
+
+//Find (a) the average value of the current and (b) the rms value of the current..
+//Solved Example 1.19 page no 25
+clear
+clc
+printf("\nFind (a) the average value of the current and (b) the rms value of the current.")
+T=1
+I0=(1/T)*(4*(T/2)+1*(T/2))//A
+printf("\nI0=%0.1f A",I0)
+I=(2*(1/T)*((4^2)*(T/2)+(1^2)*(T/2)))^(1/2)//A
+printf("\nI=%0.2f A",I)
diff --git a/1823/CH1/EX1.2/SoluEx1_2.sce b/1823/CH1/EX1.2/SoluEx1_2.sce
new file mode 100755
index 000000000..28692cf71
--- /dev/null
+++ b/1823/CH1/EX1.2/SoluEx1_2.sce
@@ -0,0 +1,21 @@
+//Solved Example 1.2 
+//Page no 4
+//Find the current i2 by superposition theorem
+clear
+clc
+printf("\n Find the current i2 by superposition theorem")
+R1=1            //ohm
+R2=1            //ohm
+R3=1            //ohm
+Vs=10           //simWtv
+Vb=10              //v
+a=0
+V21=1/3*Vs//simWtv
+i21=V21/R2
+Is=3//A
+temp=R1*R2/(R1+R2)//Temp=R1||R2
+i32=Vb/(R3+temp)
+i22=(R1/(R1+R2))*i32
+i2=i21+i22
+i1=(Vs/(R1+R2))
+printf("\n the current i2 by superposition theorem = %1.2f A",i2)
diff --git a/1823/CH1/EX1.3/SoluEx1_3.sce b/1823/CH1/EX1.3/SoluEx1_3.sce
new file mode 100755
index 000000000..d596443fc
--- /dev/null
+++ b/1823/CH1/EX1.3/SoluEx1_3.sce
@@ -0,0 +1,13 @@
+//Solved Example 1.3 Page no 5
+//Find the Thevenin equivalent voltage VTh and impedance ZTh
+clear
+clc
+printf("\n Find the Thevenin equivalent voltage VTh and impedance ZTh")
+Va=4//V
+Ia=2//A
+R1=2//ohm
+R2=3//ohm
+Vth=Va+Ia*R1
+Zth=R1+R2
+printf("\n Thevenin equivalent voltage VTh  is = %.2f V",Vth)
+printf("\n Impedance ZTh is = %1.1f Ohm",Zth)
diff --git a/1823/CH1/EX1.4/SoluEx1_4.sce b/1823/CH1/EX1.4/SoluEx1_4.sce
new file mode 100755
index 000000000..b5639ebd4
--- /dev/null
+++ b/1823/CH1/EX1.4/SoluEx1_4.sce
@@ -0,0 +1,16 @@
+//Solved Example 1.4 
+//Page no 6
+//Findthe Thevenin equivalent voltage VTh and impedance ZTh
+clear
+clc
+printf("\n Find the Thevenin equivalent voltage VTh and impedance ZTh")
+Va=4//V
+a=0.25//A/V
+R1=2//ohm
+R2=3//ohm
+Vth=Va/(1-a*R1)
+Vdp=R1+R2
+Idp=1-a*R1
+Zth=Vdp/Idp
+printf("\n Thevenin equivalent voltage VTh  is = %.f V",Vth)
+printf("\n Impedance ZTh is = %.f Ohm",Zth)
diff --git a/1823/CH1/EX1.5/SolEx1_5.sce b/1823/CH1/EX1.5/SolEx1_5.sce
new file mode 100755
index 000000000..3cd841567
--- /dev/null
+++ b/1823/CH1/EX1.5/SolEx1_5.sce
@@ -0,0 +1,10 @@
+//For the circuit find vab
+//Solved Example 1.5 page no 17
+clear
+clc
+printf("\n For the circuit find vab")
+printf("\n The SPICE netlist code for k 0:001 follows")
+printf("\n vab=V(3)=-101 V")
+printf("\n The SPICE netlist code for k  0:05 follows")
+printf("\ nvab=V(3)=-200 V")
+
diff --git a/1823/CH1/EX1.6/SoluEx1_6.sce b/1823/CH1/EX1.6/SoluEx1_6.sce
new file mode 100755
index 000000000..3d7f2cb78
--- /dev/null
+++ b/1823/CH1/EX1.6/SoluEx1_6.sce
@@ -0,0 +1,16 @@
+//Solved Example 1.6 
+//Page no 7
+//Find the Norton equivalent current IN and admittance YN
+clear
+clc
+printf("\n Find the Norton equivalent current IN and admittance YN")
+Va=4.0//V
+a=0.25//A/V
+R1=2//ohm
+R2=3//ohm
+I=2
+Zth=5
+Ia=(Va/(R1+R2))+((R1*I)/(R1+R2))
+Yn=1/Zth
+printf("\n Norton equivalent current IN  is = %.2f V",Ia)
+printf("\n admittance YN is = %.2f Ohm",Yn)
diff --git a/1823/CH1/EX1.7/SolEx1_7.sce b/1823/CH1/EX1.7/SolEx1_7.sce
new file mode 100755
index 000000000..9249f1491
--- /dev/null
+++ b/1823/CH1/EX1.7/SolEx1_7.sce
@@ -0,0 +1,17 @@
+
+//find the Thevenin equivalent for the network to the left of terminals a; b.
+//Solved Example 1.7 
+//page no 19
+clear
+clc
+printf("\n find the The´venin equivalent for the network to the left of terminals a; b.")
+V1=10//V
+V2=15//V
+R1=4//ohm
+R2=6//ohm
+I=(V1-V2)/(R1+R2)
+printf("\n The value of I is =%0.2f A",I)
+Vth=V1-I*R1
+printf("\n The value of Thevenin Equivalent voltage=%0.2f V",Vth)
+Zth=(R1*R2)/(R1+R2)
+printf("\n The value of Thevenin Impedance =%0.2f  ohm",Zth)
diff --git a/1823/CH1/EX1.8/SolEx1_8.sce b/1823/CH1/EX1.8/SolEx1_8.sce
new file mode 100755
index 000000000..4f531741f
--- /dev/null
+++ b/1823/CH1/EX1.8/SolEx1_8.sce
@@ -0,0 +1,18 @@
+
+//find the Norton equivalent for the network to the left of terminals a; b.
+//Solved Example 1.8 page no 19
+clear
+clc
+printf("\n find the Norton equivalent for the network to the left of termin")
+V1=10//V
+V2=15//V
+R1=4//ohm
+R2=6//ohm
+Iab1=V1/R1
+Iab2=V2/R2
+printf("\n Then by superpostion ")
+In=Iab1+Iab2
+Zth=(R1*R2)/(R1+R2)
+Yn=1/Zth//Rth=Zth
+printf("\n The value of In =%0.2f A and Yn= %0.4f A",In,Yn)
+
diff --git a/1823/CH1/EX1.9/SolEx1_9.sce b/1823/CH1/EX1.9/SolEx1_9.sce
new file mode 100755
index 000000000..2fde04ab5
--- /dev/null
+++ b/1823/CH1/EX1.9/SolEx1_9.sce
@@ -0,0 +1,20 @@
+
+//find the The´venin impedance as the ratio of open-circuit voltage to short-circuit current
+//Solved Example 1.9 page no 20
+clear
+clc
+printf("\n find the The´venin impedance as the ratio of open-circuit voltage to short-circuit current")
+V1=10//V
+V2=15//V
+R1=4//ohm
+R2=6//ohm
+I=(V1-V2)/(R1+R2)
+printf("\n The value of I is =%0.2f A",I)
+Vth=V1-I*R1
+Iab1=V1/R1
+Iab2=V2/R2
+printf("\n Then by superpostion ")
+In=Iab1+Iab2
+Zth=Vth/In
+printf("\n The value of Zth is =%0.2f ohm",Zth)
+