summaryrefslogtreecommitdiff
path: root/1445/CH3/EX3.2/ch3_ex_2.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /1445/CH3/EX3.2/ch3_ex_2.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 '1445/CH3/EX3.2/ch3_ex_2.sce')
-rw-r--r--1445/CH3/EX3.2/ch3_ex_2.sce25
1 files changed, 25 insertions, 0 deletions
diff --git a/1445/CH3/EX3.2/ch3_ex_2.sce b/1445/CH3/EX3.2/ch3_ex_2.sce
new file mode 100644
index 000000000..1781e58fe
--- /dev/null
+++ b/1445/CH3/EX3.2/ch3_ex_2.sce
@@ -0,0 +1,25 @@
+//CHAPTER 3- THREE-PHASE A.C. CIRCUITS
+//Example 2
+
+disp("CHAPTER 3");
+disp("EXAMPLE 2");
+
+//VARIABLE INITIALIZATION
+v_l=400; //in Volts
+I_l=30; //in Amperes
+I_ph=30; //since in star connection line current=phase current
+p=12*1000; //in Watts
+
+//SOLUTION
+v_ph=v_l/sqrt(3);
+z_ph=v_ph/I_ph;
+pow_fact=p/(sqrt(3)*v_l*I_l); //p=sqrt(3)*v_l*I_l*pow_fact
+r_ph=z_ph*pow_fact; //from impedance tringle
+disp(sprintf("The resisatnce of each impedance is %f Ω",r_ph));
+x_ph=sqrt((z_ph^2)-(r_ph^2));
+disp(sprintf("The ractance of each impedance is %f Ω",x_ph));
+
+//END
+
+
+