13 files changed, 216 insertions, 0 deletions
diff --git a/1118/CH26/EX26.1/eg26_1.sce b/1118/CH26/EX26.1/eg26_1.sce
new file mode 100755
index 000000000..3aa0f26d1
--- /dev/null
+++ b/1118/CH26/EX26.1/eg26_1.sce
@@ -0,0 +1,16 @@
+clear;
+//clc();
+i1=0.75;
+v=240;
+p=80;
+q1=acosd(1/(3*i1));
+q2=0;
+ic=i1*cosd(q1)*(tand(q1)-tand(q2));
+cap=ic/(v*2*(%pi)*50);
+printf("The capaciatnce is:%.2f uF\n",cap*1000000);
+
+t1=acosd(0.95);
+
+ic1=i1*cosd(q1)*(tand(q1)-tand(t1));
+cap1=ic1/(v*2*(%pi)*50);
+printf("The capaciatnce is:%.2f uF\n",cap1*1000000);
diff --git a/1118/CH26/EX26.10/eg26_10.sce b/1118/CH26/EX26.10/eg26_10.sce
new file mode 100755
index 000000000..1612c4426
--- /dev/null
+++ b/1118/CH26/EX26.10/eg26_10.sce
@@ -0,0 +1,13 @@
+clear;
+//clc();
+
+x=900;
+p=2000;
+q1=acosd(0.8);
+q2=acosd(0.96);
+smd=x*p*((1/cosd(q1))- (1/cosd(q2)));
+
+y=0.15*1950;
+ann_cost=y*p*(tand(q1)-tand(q2));
+tot_ann=smd-ann_cost;
+printf("The annual saving is:%.0f Rs",tot_ann);
diff --git a/1118/CH26/EX26.11/eg26_11.sce b/1118/CH26/EX26.11/eg26_11.sce
new file mode 100755
index 000000000..60e8dab6b
--- /dev/null
+++ b/1118/CH26/EX26.11/eg26_11.sce
@@ -0,0 +1,12 @@
+clear;
+//clc();
+p=900;
+q1=acosd(0.65);
+x=1000;
+y=0.15*2000;
+pf=sqrt(1- (y/x)^2);
+printf("The power factor is:%.4f lagging\n",pf);
+
+q2=acosd(pf);
+qc=p*(tand(q1)-tand(q2));
+printf("The capacitance is:%.0f uF\n",qc);
diff --git a/1118/CH26/EX26.12/eg26_12.sce b/1118/CH26/EX26.12/eg26_12.sce
new file mode 100755
index 000000000..24d96ef1a
--- /dev/null
+++ b/1118/CH26/EX26.12/eg26_12.sce
@@ -0,0 +1,17 @@
+clear;
+//clc();
+p=800;
+pf1=.72;
+q1=acosd(pf1);
+x=500;
+y=160;
+pf=sqrt(1- (y/x)^2);
+
+q2=acosd(pf);
+qc=p*(tand(q1)-tand(q2));
+
+smd=x*p*((1/pf1)-(1/pf));
+
+ann_cost=y*qc;
+sav=smd-ann_cost;
+printf("The annual saving is:%.0f Rs",sav);
diff --git a/1118/CH26/EX26.13/eg26_13.sce b/1118/CH26/EX26.13/eg26_13.sce
new file mode 100755
index 000000000..18d44a4c7
--- /dev/null
+++ b/1118/CH26/EX26.13/eg26_13.sce
@@ -0,0 +1,11 @@
+clear;
+//clc();
+q1=round(acosd(0.707));
+
+q2=round(acosd(0.866));
+
+x=8000;
+
+y=x*((cosd(q2)- cosd(q1))/sind(q1-q2));
+printf("the limiting cost per kvar is:%.2f Rs",y);
+//difference in answer is due to the approximation of decimals
diff --git a/1118/CH26/EX26.2/eg26_2.sce b/1118/CH26/EX26.2/eg26_2.sce
new file mode 100755
index 000000000..d61c7cb8a
--- /dev/null
+++ b/1118/CH26/EX26.2/eg26_2.sce
@@ -0,0 +1,17 @@
+clear;
+//clc();
+i1=20;
+f=50;
+v=230;
+q1=acosd(0.75);
+q2=acosd(0.9);
+
+ic=i1*cosd(q1)*(tand(q1)-tand(q2));
+
+cap=ic/(v*2*(%pi)*f);
+printf("The capaciatnce is:%.2f uF\n",cap*1000000);
+
+qc=v*ic;
+printf("The kVAr is:%.3f kVAr\n",qc/1000);
+i2=i1*cosd(q1)/cosd(q2);
+printf("the new supply current is:%.2f A",i2);
diff --git a/1118/CH26/EX26.3/eg26_3.sce b/1118/CH26/EX26.3/eg26_3.sce
new file mode 100755
index 000000000..f009c338c
--- /dev/null
+++ b/1118/CH26/EX26.3/eg26_3.sce
@@ -0,0 +1,11 @@
+clear;
+//clc();
+
+p=750/3;
+v=400;
+q1=acosd(0.7);
+q2=acosd(0.95);
+qcp=p*(tand(q1)-tand(q2));
+printf("The kVAr is:%.3f kVAr\n",qcp);
+cap=qcp*1000/(v*v*2*(%pi)*50);
+printf("The capacitance is:%.0f uF\n",cap*1000000);
diff --git a/1118/CH26/EX26.4/eg26_4.sce b/1118/CH26/EX26.4/eg26_4.sce
new file mode 100755
index 000000000..1603f1dec
--- /dev/null
+++ b/1118/CH26/EX26.4/eg26_4.sce
@@ -0,0 +1,14 @@
+clear;
+//clc();
+op=40;
+eff=0.85;
+ip=op/eff;
+p=ip/3;
+v=400;
+
+q1=acosd(0.72);
+q2=acosd(0.98);
+
+qcp=p*(tand(q1)-tand(q2));
+cap=qcp*1000/(v*v*2*(%pi)*50);// capacitance in milli farad
+printf("The capacitance is:%.2f uF\n",cap*1000000);
diff --git a/1118/CH26/EX26.5/eg26_5.sce b/1118/CH26/EX26.5/eg26_5.sce
new file mode 100755
index 000000000..ad2f930ed
--- /dev/null
+++ b/1118/CH26/EX26.5/eg26_5.sce
@@ -0,0 +1,21 @@
+clear;
+//clc();
+
+op=7500;
+eff=0.87;
+ip=op/eff;
+v=230;
+
+p=ip;
+pf=.75;
+q1=acosd(pf);
+q2=acosd(1);
+
+i=p/(v*pf);
+printf("the current is:%.2f A\n",i);
+qcp=p*(tand(q1)-tand(q2));
+
+ic=qcp/v;
+cap=qcp*1000/(v*v*2*(%pi)*50);// capacitance in milli farad
+printf("The capacitance is:%.2f uF\n",cap*1000);
+
diff --git a/1118/CH26/EX26.6/eg26_6.sce b/1118/CH26/EX26.6/eg26_6.sce
new file mode 100755
index 000000000..50fbb8af0
--- /dev/null
+++ b/1118/CH26/EX26.6/eg26_6.sce
@@ -0,0 +1,20 @@
+clear;
+//clc();
+p=50/3;
+q1=acosd(0.72);
+q2=acosd(0.9);
+
+qcp=p*(tand(q1)-tand(q2));
+v=415;
+
+ic=qcp/v;
+cap=ic*1000/(v*2*(%pi)*50);..// capacitance in milli farad
+printf("The capacitance is:%.2f uF\n",cap*1000000);
+
+//in delta connection
+
+vp=v/sqrt(3);
+
+icd=qcp/vp;
+cap=icd*1000/(vp*2*(%pi)*50);// capacitance in milli farad
+printf("The capacitance is:%.2f uF\n",cap*1000000);
diff --git a/1118/CH26/EX26.7/eg26_7.sce b/1118/CH26/EX26.7/eg26_7.sce
new file mode 100755
index 000000000..4ec9842cb
--- /dev/null
+++ b/1118/CH26/EX26.7/eg26_7.sce
@@ -0,0 +1,14 @@
+clear;
+//clc();
+p1=500;
+p2=100;
+q1=acosd(.707);
+q2=acosd(0.95);
+lkvar=(p1*tand(q1) - (p1+p2)*tand(q2));
+printf("The kVAr is:%.2f kVAr\n",lkvar);
+
+kva=sqrt(p2*p2 + lkvar*lkvar);
+printf("The kVA is:%.2f kVA\n",kva);
+
+pf=(p2/kva);
+printf("The power factor is:%.3f leading\n",pf);
diff --git a/1118/CH26/EX26.8/eg26_8.sce b/1118/CH26/EX26.8/eg26_8.sce
new file mode 100755
index 000000000..4e7849668
--- /dev/null
+++ b/1118/CH26/EX26.8/eg26_8.sce
@@ -0,0 +1,27 @@
+clear;
+//clc();
+vl=400;
+il=36;
+pf=0.8;
+
+p1=sqrt(3)*vl*il*pf;
+op=15*746;
+eff=0.85;
+p2=op/eff;
+
+//as per ques 26.7
+p1=19.953;
+p2=12.979;
+q1=acosd(0.8);
+q2=acosd(0.92);
+qm=((p1*tand(q1)) - (p1+p2)*tand(q2))/p2;
+pf=cosd(atand(qm));
+printf("The power factor is:%.4f leading\n",pf);
+
+
+lkvar=p2*(qm);
+printf("The kVAr is:%.3f kVAr\n",lkvar);
+
+
+kva=sqrt(p2*p2 + lkvar*lkvar);
+printf("The kVA is:%.0f kVA\n",kva);
diff --git a/1118/CH26/EX26.9/eg26_9.sce b/1118/CH26/EX26.9/eg26_9.sce
new file mode 100755
index 000000000..39ee43ebe
--- /dev/null
+++ b/1118/CH26/EX26.9/eg26_9.sce
@@ -0,0 +1,23 @@
+clear;
+//clc();
+s=15;
+sa=complex(s,0);
+
+s1=40;
+sb1=complex(s1*0.6,s1*0.8);
+sb=conj(sb1);
+
+s2=25;
+sc1=complex(s2*0.8,s2*0.6);
+sc=conj(sc1);
+
+st=sa + sb + sc;
+
+t_kvar=sqrt((real(st)^2) + (imag(st)^2));
+printf("The kVA is:%.2f kVA\n",t_kvar);
+
+pf=real(st)/t_kvar;
+printf("The power factor is:%.4f lagging\n",pf);
+
+cap=-imag(st);
+printf("The capacitance is:%.0f kVAr leading\n",cap);