9 files changed, 103 insertions, 0 deletions
diff --git a/1376/CH7/EX7.1/7_1.sci b/1376/CH7/EX7.1/7_1.sci
new file mode 100755
index 000000000..d7512e17d
--- /dev/null
+++ b/1376/CH7/EX7.1/7_1.sci
@@ -0,0 +1,16 @@
+//7.1
+clc;
+//The coil has resistance of R ohm and inductance L2
+//ZKL=25+j(2*%pi*f)*0.05;
+ZLM=100;
+//ZKN=(R+2)+j(2*%pi*f)*L2;
+ZNM=100;
+//Now (ZKL/ZLM)=(ZKN/ZNM)
+//((25+j(2*%pi*f)*0.05)/100)=((R+2)+j(2*%pi*f)*L2/100)
+//Equating Real and imaginary parts
+//we have 25=R+2
+//2*%pi*f)*0.05=2*%pi*f)*L2
+R=23;
+L2=50;
+printf("Resistance=%.0f ohm",R)
+printf("\nInductance=%.0f mH",L2)
+\ No newline at end of file
diff --git a/1376/CH7/EX7.2/7_2.sci b/1376/CH7/EX7.2/7_2.sci
new file mode 100755
index 000000000..bdaf11042
--- /dev/null
+++ b/1376/CH7/EX7.2/7_2.sci
@@ -0,0 +1,13 @@
+//7.2
+clc;
+C1=50*10^-12;
+r2=1500/%pi;
+r3=120;
+Cs=C1*r2/r3*10^12;
+printf("Cable capacitance=%.1f pF",Cs)
+C2=0.95*10^-6;
+rs=C2*r3/(C1*10^6);
+printf("\nParallel loss resistance=%.2f Mega-ohm",rs)
+w=314;
+Loss_angle=atand(rs*w*Cs);
+printf("\nLoss angle=%.1f degree",Loss_angle)
+\ No newline at end of file
diff --git a/1376/CH7/EX7.3/7_3.sci b/1376/CH7/EX7.3/7_3.sci
new file mode 100755
index 000000000..847f70e76
--- /dev/null
+++ b/1376/CH7/EX7.3/7_3.sci
@@ -0,0 +1,12 @@
+//7.3
+clc;
+C3=106*10^-12;
+C1=0.35*10^-6;
+R1=318;
+R2=130;
+C2=C3*R1/R2;
+Rx=R2*C1/C3;
+printf("Series Resistance=%.2f ohm",Rx)
+wr=314;
+pf=wr*Rx*C2;
+printf("\nPower factor=%.2f",pf)
+\ No newline at end of file
diff --git a/1376/CH7/EX7.4/7_4.sci b/1376/CH7/EX7.4/7_4.sci
new file mode 100755
index 000000000..782f467f2
--- /dev/null
+++ b/1376/CH7/EX7.4/7_4.sci
@@ -0,0 +1,10 @@
+//7.4
+clc;
+Q=10;
+Cs=0.2;
+P=2;
+Cx=Q*Cs/P;
+printf("Capacitance=%.1f uF",Cx)
+S=5;
+rx=P*S/Q;
+printf("\nResistance=%.0f Kohm",rx)
diff --git a/1376/CH7/EX7.5/7_5.sci b/1376/CH7/EX7.5/7_5.sci
new file mode 100755
index 000000000..d8844502d
--- /dev/null
+++ b/1376/CH7/EX7.5/7_5.sci
@@ -0,0 +1,10 @@
+//7.5
+clc;
+S=900;
+P=1.5*10^3;
+Q=2*10^3;
+Cs=0.2*10^-6;
+rx=S*P/Q;
+printf("Resistance=%.0f ohm",rx)
+Lx=P*Cs*S;
+printf("\nInductance=%.2f H",Lx)
+\ No newline at end of file
diff --git a/1376/CH7/EX7.6/7_6.sci b/1376/CH7/EX7.6/7_6.sci
new file mode 100755
index 000000000..1b792fa03
--- /dev/null
+++ b/1376/CH7/EX7.6/7_6.sci
@@ -0,0 +1,10 @@
+//7.6
+clc;
+R1=2;
+R2=1;
+R4=500;
+L4=0.1
+R3=R1*R4/R2;
+printf("Resistance=%.0f ohm",R3)
+L3=R1*L4/R2;
+printf("\nInductance=%.2f H",L3)
+\ No newline at end of file
diff --git a/1376/CH7/EX7.7/7_7.sci b/1376/CH7/EX7.7/7_7.sci
new file mode 100755
index 000000000..0ccc54a32
--- /dev/null
+++ b/1376/CH7/EX7.7/7_7.sci
@@ -0,0 +1,10 @@
+//7.7
+clc;
+S=0.875;
+P=1.35*10^3;
+Q=1*10^3;
+Cs=0.1*10^-6;
+rx=S*P/Q;
+printf("Resistance=%.2f ohm",rx)
+Lx=P*Cs*S*10^3;
+printf("\nInductance=%.3f mH",Lx)
+\ No newline at end of file
diff --git a/1376/CH7/EX7.8/7_8.sci b/1376/CH7/EX7.8/7_8.sci
new file mode 100755
index 000000000..b94fe448d
--- /dev/null
+++ b/1376/CH7/EX7.8/7_8.sci
@@ -0,0 +1,10 @@
+//7.8
+clc;
+r1=250;
+r4=1200;
+r2=10^6;
+C4=4*10^-5;
+r3=r1*r4/r2;
+printf("Resistance=%.2f ohm",r3)
+C3=r2*C4/r1;
+printf("\nCapacitance=%.2f uF",C3)
+\ No newline at end of file
diff --git a/1376/CH7/EX7.9/7_9.sci b/1376/CH7/EX7.9/7_9.sci
new file mode 100755
index 000000000..3f3487008
--- /dev/null
+++ b/1376/CH7/EX7.9/7_9.sci
@@ -0,0 +1,12 @@
+//7.9
+clc;
+R2=1000;
+R4=833;
+f=50;
+w=2*%pi*f;
+C=0.38*10^-6;
+R3=16800;
+R1=(R2*R3*R4*w^2*C^2)/(1+w^2*R4^2*C^2);
+printf("Resistance=%.2f ohm",R1)
+L=R2*R3*C/(1+w^2*R4^2*C^2);
+printf("Inductance=%.2f H",L)
+\ No newline at end of file