6 files changed, 72 insertions, 0 deletions
diff --git a/1376/CH9/EX9.1/9_1.sci b/1376/CH9/EX9.1/9_1.sci
new file mode 100755
index 000000000..72353e4dd
--- /dev/null
+++ b/1376/CH9/EX9.1/9_1.sci
@@ -0,0 +1,16 @@
+//9.1
+clc;
+n=300/1;
+Z2=complex(1.5,1);
+a=polar(Z2);
+I2=5;
+E2=I2*a;
+E1=E2/n;
+alpha=atand(1/1.5)
+Io=complex(100,40)
+delta=atand(40/100);
+b=polar(Io)
+sigma=-(b*sind(alpha+delta))*100/(n*I2);
+printf("Ratio error=%.2f percent",sigma)
+bet=(b*cosd(alpha+delta))/(n*I2);
+printf("\nPhase angle=%.2f degree",bet)
+\ No newline at end of file
diff --git a/1376/CH9/EX9.2/9_2.sci b/1376/CH9/EX9.2/9_2.sci
new file mode 100755
index 000000000..ffd65b016
--- /dev/null
+++ b/1376/CH9/EX9.2/9_2.sci
@@ -0,0 +1,8 @@
+//9.2
+clc;
+I_ratio=500/5;
+n=1/100;
+I2=300/100;
+printf("Secondary current=%.2f A",I2)
+V2=I2*1.5;
+printf("\nSecondary voltage=%.2f V",V2)
diff --git a/1376/CH9/EX9.3/9_3.sci b/1376/CH9/EX9.3/9_3.sci
new file mode 100755
index 000000000..b3165ecce
--- /dev/null
+++ b/1376/CH9/EX9.3/9_3.sci
@@ -0,0 +1,6 @@
+//9.3
+clc;
+V_line=200*33000/220;
+printf("Voltage on line=%.0f V",V_line)
+I_line=4*100/5;
+printf("Current in line=%.0f A",I_line)
+\ No newline at end of file
diff --git a/1376/CH9/EX9.4/9_4.sci b/1376/CH9/EX9.4/9_4.sci
new file mode 100755
index 000000000..a21cd987a
--- /dev/null
+++ b/1376/CH9/EX9.4/9_4.sci
@@ -0,0 +1,15 @@
+//9.4
+clc;
+n=1000/5;
+Ie=0.7*1000/100;
+Tp=1;
+n=200;
+Ts=200;
+R_actual=Ts+(7/5);
+Error_ratio=(200-R_actual)*100/R_actual;
+printf("Ratio error=%.2f percent",Error_ratio)
+Ts=200-(0.5*200/100);
+n=199/1;
+R_actual=Ts+(7/5);
+Error_ratio=(200-R_actual)*100/R_actual;
+printf("\nRatio error=%.2f percent",Error_ratio)
+\ No newline at end of file
diff --git a/1376/CH9/EX9.5/9_5.sci b/1376/CH9/EX9.5/9_5.sci
new file mode 100755
index 000000000..ef355525f
--- /dev/null
+++ b/1376/CH9/EX9.5/9_5.sci
@@ -0,0 +1,16 @@
+//9.5
+clc;
+Vp=1000;
+Vs=100;
+n=Vp/Vs;
+pf_no_load=0.4;
+sina=0.4;
+cosa= (1-sina^2)^0.5;
+tana=sina/cosa;
+Im=0.02;
+Ie=Im*tana;
+xp=66.2;
+rp=94.5;
+//At no load Is=0 so
+theta=((Ie*xp)-(Im*rp))/(n*Vs);
+printf("Phase angle error at no load=%.4f",theta)
+\ No newline at end of file
diff --git a/1376/CH9/EX9.6/9_6.sci b/1376/CH9/EX9.6/9_6.sci
new file mode 100755
index 000000000..5d3989014
--- /dev/null
+++ b/1376/CH9/EX9.6/9_6.sci
@@ -0,0 +1,11 @@
+//9.6
+clc;
+E2=((1.8+5*0.16)^2+(2.4+5*0.195)^2)^0.5;
+pf2=2.6/E2;
+AT_sec=600;
+sina=3.375/E2;
+AT_pri=600+10.1*pf2+13.4*sina;
+I1=AT_pri/40;
+Ratio_error=(15-I1)*100/I1;
+printf("Ratio error=%.2f percent",Ratio_error)
+