11 files changed, 158 insertions, 0 deletions
diff --git a/1430/CH10/EX10.1/exa10_1.sce b/1430/CH10/EX10.1/exa10_1.sce
new file mode 100644
index 000000000..e72853269
--- /dev/null
+++ b/1430/CH10/EX10.1/exa10_1.sce
@@ -0,0 +1,16 @@
+// Example 10.1
+// A complex-Frequency Waveform
+// we want the complex frequency waveform representation of 
+// i(t)=200*exp(-5*t).*cos(30*t+60)mA
+// Examining the above expression 
+I_m=200*10^-3;
+sigma=-5;
+omega=30;
+phase_i=60; // In degree
+x_I=I_m*cos(phase_i*(%pi/180));
+y_I=I_m*sin(phase_i*(%pi/180));
+I=complex(x_I,y_I); // Current Phasor
+s=complex(sigma,omega);
+disp("Complex-frequency representation")
+disp(I,"Current phasor(Amps)=")
+disp(s,"Complex-frequency")
diff --git a/1430/CH10/EX10.1/exa10_1.txt b/1430/CH10/EX10.1/exa10_1.txt
new file mode 100644
index 000000000..6e6a54efe
--- /dev/null
+++ b/1430/CH10/EX10.1/exa10_1.txt
@@ -0,0 +1,15 @@
+ 
+ 
+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 10\exa10_1.sce', -1)
+ 
+ Complex-frequency representation   
+ 
+ Current phasor(Amps)=   
+ 
+    0.1 + 0.1732051i  
+ 
+ Complex-frequency   
+ 
+  - 5. + 30.i  
+ 
+
diff --git a/1430/CH10/EX10.11/exa10_11.sce b/1430/CH10/EX10.11/exa10_11.sce
new file mode 100644
index 000000000..d30c60cf0
--- /dev/null
+++ b/1430/CH10/EX10.11/exa10_11.sce
@@ -0,0 +1,32 @@
+//Example 10.11
+// Scaling Calculations
+C=25*10^-9;
+R=2000;
+L=40*10^-3;
+s=%s;
+Z=s*L+1/(s*C+1/R);
+// H=I_L/V_s =1/Z ; // Required Network function
+H=1/Z;
+// since resistance is affected only by the magnitude of scale factor k_m is choosen such that R_cap will be a small integer value
+k_m=0.005;
+R_cap=0.005*(2000);// Scaled Resistance
+// L_cap=(k_m/k_f)*L , this equation is suggesting to choose k_f= k_m*L
+k_f=k_m*L;
+L_cap=(k_m*L)/k_f; // Scaled inductance
+C_cap=C/(k_m*k_f); // Scaled Capacitance
+// Network function for the scaled network calculated on the same base as above
+s_c=poly(0,'s_c')
+num=(s_c+4);
+den=(s_c^2+4*s_c+40);
+H_cap=num/den;
+K_cap=1;
+z_cap=roots(num);
+p_cap=roots(den);
+//hence poles and zeros for original network function will be
+z_1=z_cap/k_f;
+p_1=p_cap/k_f;
+// Gain factor is given by 
+K=k_m/k_f;
+disp(K,"Gain for original tranfer function=")
+disp(z_1,"Zeros for original transfer function=")
+disp(p_1,"Poles for original transfer function=")
diff --git a/1430/CH10/EX10.11/exa10_11.txt b/1430/CH10/EX10.11/exa10_11.txt
new file mode 100644
index 000000000..fa6b9e399
--- /dev/null
+++ b/1430/CH10/EX10.11/exa10_11.txt
@@ -0,0 +1,18 @@
+  
+ 
+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 10\exa10_11.sce', -1)
+ 
+ Gain for original tranfer function=   
+ 
+    25.  
+ 
+ Zeros for original transfer function=   
+ 
+  - 20000.  
+ 
+ Poles for original transfer function=   
+ 
+  - 10000. + 30000.i  
+  - 10000. - 30000.i  
+ 
+
diff --git a/1430/CH10/EX10.2/exa10_2.jpg b/1430/CH10/EX10.2/exa10_2.jpg
new file mode 100644
index 000000000..dca3f2192
--- /dev/null
+++ b/1430/CH10/EX10.2/exa10_2.jpg
diff --git a/1430/CH10/EX10.2/exa10_2.sce b/1430/CH10/EX10.2/exa10_2.sce
new file mode 100644
index 000000000..d7eeffde1
--- /dev/null
+++ b/1430/CH10/EX10.2/exa10_2.sce
@@ -0,0 +1,21 @@
+// Example 10.2
+// Calculations with Complex Frequency
+L=1;
+R=5;
+C=1/10;
+omega=4;
+V=complex(0,20);// Voltage phasor
+s=complex(-2,4);// complex frequency
+//from s-domain diagram , figure 10.2(b)
+Z=s*L+R/(s*C*R+1); // Terminal impedance
+Y=1/Z; // Terminal Admittance
+I=Y*V; // Current phasor
+I_m=abs(I);
+phase_I=atan(imag(I),real(I)); // in radian
+t=0:0.1:10
+i=I_m*exp(real(s)*t).*cos(omega*t-phase_I)
+disp(I,"Current Phasor(Amps)=")
+plot(t,i)
+xlabel('t')
+ylabel('i(t)')
+title("Current Waveform")
diff --git a/1430/CH10/EX10.2/exa10_2.txt b/1430/CH10/EX10.2/exa10_2.txt
new file mode 100644
index 000000000..30a455698
--- /dev/null
+++ b/1430/CH10/EX10.2/exa10_2.txt
@@ -0,0 +1,7 @@
+
+ 
+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 10\exa10_2.sce', -1)
+ 
+ Current Phasor(Amps)=   
+ 
+    4.8 - 6.4i  
diff --git a/1430/CH10/EX10.8/exa10_8.sce b/1430/CH10/EX10.8/exa10_8.sce
new file mode 100644
index 000000000..4ae2c7320
--- /dev/null
+++ b/1430/CH10/EX10.8/exa10_8.sce
@@ -0,0 +1,11 @@
+//Example 10.8
+// Pole-Zero Pattern of a Fifth Order Network
+s=poly(0,'s')
+num=s^4+16*s^3+164*s^2;
+K=-5;
+den=(s+32)*(s^2+36)*(s^2+40*s+400)
+H=(num*K)/den;// transfer functions
+z=roots(num); // zeros of network
+p=roots(den);// poles of network
+disp(z,"Zeros of network functions=")
+disp(p,"Poles of network functions=")
diff --git a/1430/CH10/EX10.8/exa10_8.txt b/1430/CH10/EX10.8/exa10_8.txt
new file mode 100644
index 000000000..354058b39
--- /dev/null
+++ b/1430/CH10/EX10.8/exa10_8.txt
@@ -0,0 +1,19 @@
+
+ 
+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 10\exa10_8.sce', -1)
+ 
+ Zeros of network functions=   
+ 
+  - 8. + 10.i  
+  - 8. - 10.i  
+    0          
+    0          
+ 
+ Poles of network functions=   
+ 
+  - 32.               
+  - 20. + 0.0000009i  
+  - 20. - 0.0000009i  
+    1.332D-15 + 6.i   
+    1.332D-15 - 6.i   
+
diff --git a/1430/CH10/EX10.9/exa10_9.sce b/1430/CH10/EX10.9/exa10_9.sce
new file mode 100644
index 000000000..b3d3fd2bf
--- /dev/null
+++ b/1430/CH10/EX10.9/exa10_9.sce
@@ -0,0 +1,11 @@
+//Example 10.9
+// Calculations with s-plane Vectors
+s=%s;
+num=-6*s; // Numerator of transfer
+den=s^2+12*s+45; // Denominator
+X=complex(10,0); // Input signal phasor
+s_0=complex(-4,3)// complex frequency
+H_s=(num)/(den)// Transfer-function of the network
+H_s_0=horner(H_s,s_0);
+Y=H_s_0*X; // forced response phasor
+disp(Y,"Forced response phasor")
diff --git a/1430/CH10/EX10.9/exa10_9.txt b/1430/CH10/EX10.9/exa10_9.txt
new file mode 100644
index 000000000..8543463d3
--- /dev/null
+++ b/1430/CH10/EX10.9/exa10_9.txt
@@ -0,0 +1,8 @@
+  
+ 
+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 10\exa10_9.sce', -1)
+ 
+ Forced response phasor   
+ 
+  - 7.5 - 22.5i  
+