//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)