initial commit / add all books

6 files changed, 108 insertions, 0 deletions

diff --git a/2075/CH8/EX8.3/pe8_3.sce b/2075/CH8/EX8.3/pe8_3.sce
new file mode 100755
index 000000000..c259f0926
--- /dev/null
+++ b/2075/CH8/EX8.3/pe8_3.sce
@@ -0,0 +1,14 @@
+//example 8.3

+clc;funcprot(0);

+//Initialization of Variable

+V=220;//line voltage

+f=50;//hertz

+R=80;//load resistance

+K=50;//di/dt

+pi=3.1428;

+//calculation

+L=V*2^.5/K;

+disp(L,"inductance in microH:")

+Z=2*pi*f*L;

+disp(Z*1e-6,"load impedence at angle 90 degree in ohm")

+clear()

diff --git a/2075/CH8/EX8.4/pe8_4.sce b/2075/CH8/EX8.4/pe8_4.sce
new file mode 100755
index 000000000..769dd40b7
--- /dev/null
+++ b/2075/CH8/EX8.4/pe8_4.sce
@@ -0,0 +1,23 @@
+//example 8.4

+clc;funcprot(0);

+//Initialization of Variable

+V=220;//line voltage

+f=50;//hertz

+R=80;//load resistance

+K=75;//dv/dt

+Vd=400;//DRM voltage

+pi=3.1428

+//calculation

+C=Vd/R/K;

+disp(C,"minimum value of capacitor in micfoF:")

+printf('\nchoose C=.1 micoF')

+C1=.1;

+Z=1/(2*pi*f*C1);

+disp(Z*1000,"capacitor impedence at angle -90degree in ohm:")

+Iload=V/1000/(-Z*cos(180*pi/180)+R*round(cos(90*pi/180)));

+disp(Iload,"Load current in mA at an angle 90 degrees :");

+Vload=Iload/1000*R;

+disp(Vload,"Potential drop in V at an angle 90 degrees :")

+P=Vload*Iload;

+disp(int(P),"Power dissipated in mW :")

+clear()

diff --git a/2075/CH8/EX8.5/pe8_5.sce b/2075/CH8/EX8.5/pe8_5.sce
new file mode 100755
index 000000000..313b57da9
--- /dev/null
+++ b/2075/CH8/EX8.5/pe8_5.sce
@@ -0,0 +1,11 @@
+//example 8.5

+clc;funcprot(0);

+//Initialization of Variable

+V=220;//line voltage

+f=50;//hertz

+R=80;//load resistance

+I=46;//TSM current

+//calculation

+Rs=V*2^.5/(I-V*2^.5/R);

+disp(Rs,"snubbing resistnce in ohm:")

+clear()

diff --git a/2075/CH8/EX8.6/pe8_6.sce b/2075/CH8/EX8.6/pe8_6.sce
new file mode 100755
index 000000000..25a548953
--- /dev/null
+++ b/2075/CH8/EX8.6/pe8_6.sce
@@ -0,0 +1,27 @@
+//example 8.6

+clc;funcprot(0);

+//Initialization of Variable

+R=10;//load

+V=120;//rms voltage

+f=60;//hertz

+T=83.3;//ms

+t1=15;//ms

+t2=55;//ms

+//calculation

+Tl=1/f;

+disp(Tl*1000,"line period in ms:")

+Th=Tl/2;

+disp(Th*1000,"half-cycle time in ms:")

+C=round(T/Th/100)*100;

+disp(C/1000,"cycles:")

+D1=.2;

+V1=round(V*D1^.5);

+disp(V1,"voltage for t1 in V:")

+P1=V1^2/R;

+disp(P1,"power for t1 in W:")

+D2=.7;

+V2=round(V*D2^.5);

+disp(V2,"voltage for t2 in V:")

+P2=V2^2/R;

+disp(P2,"power for t2 in W:")

+clear()

diff --git a/2075/CH8/EX8.8/pe8_8.sce b/2075/CH8/EX8.8/pe8_8.sce
new file mode 100755
index 000000000..adc33aa5a
--- /dev/null
+++ b/2075/CH8/EX8.8/pe8_8.sce
@@ -0,0 +1,19 @@
+//example 8.8

+clc;funcprot(0);

+//Initialization of Variable

+V=120;//line voltage

+A=60;//degree

+D=.35;

+pi=3.14;

+//calculation

+Va=D*V;

+disp(Va,"average voltage in V:")

+Vd=V*2^.5*(cos(A*pi/180)+1)/2/pi;

+disp(round(Vd),"dc voltage in V:")

+printf('\nthe markers indicae Vp=163V Vave=41')

+Vr=.9*V;

+disp(Vr,"full-wave rms voltage in V:")

+Vrms=V*(2^.5)*(.5*(pi-1.047)+.25*sin(2*A*pi/180))^.5/pi^.5;

+disp(Vrms,"rms voltage in V:")

+printf('\nthe markers indicate Vp=169V Vave=106V')

+clear()

diff --git a/2075/CH8/EX8.9/pe8_9.sce b/2075/CH8/EX8.9/pe8_9.sce
new file mode 100755
index 000000000..4196d6e78
--- /dev/null
+++ b/2075/CH8/EX8.9/pe8_9.sce
@@ -0,0 +1,14 @@
+//example 8.9

+clc;funcprot(0);

+//Initialization of Variable

+V=220;//line voltage

+P=1.3;//kW

+R=15;//ohm

+pi=3.1428;

+//calculation

+Vr=round((P*1000*R)^.5);

+disp(Vr,"rms voltage in V:")

+D=Vr/V;

+Vr=V*2^.5*(.5*(pi-1.710)+sin(196*pi/180)/4)^.5/pi^.5;

+disp(Vr,"double checked value of rms voltage in V:")

+clear()