initial commit / add all books

2 files changed, 36 insertions, 0 deletions

diff --git a/1430/CH6/EX6.8/exa6_8.jpg b/1430/CH6/EX6.8/exa6_8.jpg
new file mode 100644
index 000000000..dd8805895
--- /dev/null
+++ b/1430/CH6/EX6.8/exa6_8.jpg
diff --git a/1430/CH6/EX6.8/exa6_8.sce b/1430/CH6/EX6.8/exa6_8.sce
new file mode 100644
index 000000000..a0063d1d9
--- /dev/null
+++ b/1430/CH6/EX6.8/exa6_8.sce
@@ -0,0 +1,36 @@
+// Example 6.8

+// AC Ladder Calculations

+I_m=10; // Magnitude of current phasor

+phase_i=0; // Phase angle of current phasor

+omega=50000; // Radian frequency (rad/s)

+L= 200*10^-3;//Henry

+C=2*10^-9; // Farad

+Z_R1=40000;

+Z_R2=5000;

+Z_L= %i*omega*L;

+Z_C=1/(%i*omega*C);

+Z_eq1=(Z_R2*Z_C)/(Z_R2+Z_C);

+Z_eq2= Z_L+Z_eq1;

+Z_eq=(Z_R1*Z_eq2)/(Z_R1+Z_eq2);

+I=complex(I_m,0); // current phasor in Rectangular form

+V=Z_eq*I;// Voltage phasor

+V_L=(Z_L*V)/(Z_L+Z_eq1);// Voltage phasor across inductor

+V_C=(Z_eq1*V)/(Z_L+Z_eq1);// Voltage phasor across capacitor

+V_m=abs(V);

+phase_v=atan(imag(V),real(V))*(180/%pi);

+V_L_m=abs(V_L);

+phase_v_l=atan(imag(V_L),real(V_L))*(180/%pi);

+V_C_m=abs(V_C);

+phase_v_c=atan(imag(V_C),real(V_C))*(180/%pi);

+t=0:0.5:10;

+v=V_m*cos(omega*t+atan(imag(V),real(V)));

+v_l=V_L_m*cos(omega*t+atan(imag(V_L),real(V_L)));

+v_c=V_C_m*cos(omega*t+atan(imag(V_C),real(V_C)));

+plot(t,v,'-r',t,v_l,'-g',t,v_c,'b')

+xlabel('t')

+ylabel('v')

+title('Voltage Waveform')

+h1=legend(['v(t)';'v_l(t)';'v_c(t)']);

+disp(V,"Voltage Phasor in rectangular form(Volts)=")

+disp(V_L,"Voltage Phasor across inductor in rectangular form(Volts)=")

+disp(V_C,"Voltage Phasor across capacitor in rectangular form(Volts)=")