summaryrefslogtreecommitdiff
path: root/3802/CH9/EX9.10/Ex9_10.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3802/CH9/EX9.10/Ex9_10.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3802/CH9/EX9.10/Ex9_10.sce')
-rw-r--r--3802/CH9/EX9.10/Ex9_10.sce36
1 files changed, 36 insertions, 0 deletions
diff --git a/3802/CH9/EX9.10/Ex9_10.sce b/3802/CH9/EX9.10/Ex9_10.sce
new file mode 100644
index 000000000..2041df3b4
--- /dev/null
+++ b/3802/CH9/EX9.10/Ex9_10.sce
@@ -0,0 +1,36 @@
+//Book Name:Fundamentals of Electrical Engineering
+//Author:Rajendra Prasad
+//Publisher: PHI Learning Private Limited
+//Edition:Third ,2014
+
+//Ex9_10.sce.
+
+clc;
+clear;
+Pl=1e6;
+Pd=360; //developing power
+Pi=600e3;
+Vl=6600;
+pf=0.8;
+Pin=800e3;
+theta=acosd(pf);
+Il=Pl/(Vl*sqrt(3));
+Ps=(Pd*746)/0.9; // 1HP=746 watt and efficiency is assumed 90% (i.e 0.9)
+phi_s=acosd(Ps/Pi);
+Is=Pi/(Vl*sqrt(3));
+lag_reactive_crt_load=Il*sind(theta);
+lead_reacitve_crt_motor=lag_reactive_crt_load*sind(phi_s);
+lag_reactive_crt_result=lag_reactive_crt_load-lead_reacitve_crt_motor;
+resultant_active_crt=(Il*pf)+(lag_reactive_crt_load*cosd(phi_s));
+
+resultant_line_crt=sqrt(resultant_active_crt^2+lag_reactive_crt_result^2);
+printf("\n Resultant line current=%2.2f A \n",resultant_line_crt);
+
+final_power_factor=resultant_active_crt/resultant_line_crt;
+printf("\n Final power factor=%1.0f \n",final_power_factor);
+
+increase_of_crt=(resultant_line_crt-Il)*100/Il;
+printf("\n The increase of current=%2.1f percentage \n",increase_of_crt)
+
+increase_power_trans=((Pin+Ps)-Pin)*100/Pin;
+printf("\n The increase of power transmitted=%2.1f percentage \n",increase_power_trans)