summaryrefslogtreecommitdiff
path: root/3802/CH7/EX7.3/Ex7_3.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3802/CH7/EX7.3/Ex7_3.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/CH7/EX7.3/Ex7_3.sce')
-rw-r--r--3802/CH7/EX7.3/Ex7_3.sce42
1 files changed, 42 insertions, 0 deletions
diff --git a/3802/CH7/EX7.3/Ex7_3.sce b/3802/CH7/EX7.3/Ex7_3.sce
new file mode 100644
index 000000000..0216c8fd9
--- /dev/null
+++ b/3802/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,42 @@
+//Book Name:Fundamentals of Electrical Engineering
+//Author:Rajendra Prasad
+//Publisher: PHI Learning Private Limited
+//Edition:Third ,2014
+
+//Ex7_3.sce.
+
+clc;
+clear;
+T1=1000; //number of Primary turns
+T2=200; //number of secondary turns
+Is=250; //secodary load current in A
+I0=3; //No load current in A
+rp=0.72; //primary winding resistance in ohms
+rs=0.025; //secondary winding resistance in ohms
+xp=0.92; //primary winding leakage reactance in ohms
+xs=0.036; //secondary winding leakage reactance in ohms
+Vs=2.2e3; //supply voltage in volts
+
+N=T1/T2; //turns ratio of transformer
+Is_dash=Is/N;
+rs_dash=N^2*rs;
+xs_dash=N^2*xs;
+cos_pi_s=0.8;
+cos_pi_0=0.2;
+sin_pi_s=sind(acosd(0.8));
+sin_pi_0=sind(acosd(0.2));
+Isdash=(Is_dash*cos_pi_s)-%i*(Is_dash*sin_pi_s);
+Io=(I0*cos_pi_0)-%i*(I0*sin_pi_0);
+Ip=Isdash+Io;
+a=real(Ip);
+b=imag(Ip);
+Ip_mag=sqrt(a^2+b^2);
+printf("\n Primary Current=%2.2f A \n",Ip_mag)
+
+pi_p=atand(b/a);
+printf("\n Power factor=%1.3f lagging \n",cosd(pi_p))
+
+VL_dash=Vs-(Ip*(rp+%i*xp))-(Isdash*(rs_dash+%i*xs_dash)); //secondary terminal voltage referred to primary
+VL_dash_mag=real(VL_dash);
+VL=VL_dash_mag/N;
+printf("\n Secondary terminal voltage=%3.1f V \n",VL)