summaryrefslogtreecommitdiff
path: root/1892/CH1/EX1.26
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1892/CH1/EX1.26
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1892/CH1/EX1.26')
-rwxr-xr-x1892/CH1/EX1.26/Example1_26.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/1892/CH1/EX1.26/Example1_26.sce b/1892/CH1/EX1.26/Example1_26.sce
new file mode 100755
index 000000000..f073bbe07
--- /dev/null
+++ b/1892/CH1/EX1.26/Example1_26.sce
@@ -0,0 +1,21 @@
+// Example 1.26
+
+clear; clc; close;
+format('v',7);
+// Given data
+f=50;//in Hz
+P=4;//no. of poles
+X2=0.1;//in ohm
+R2=0.02;//in ohm
+//Tst=2/3*Tmax
+TstByTm=2/3;//ratio
+
+//Calculations
+disp("Tst proportional to E2^2*R2dash/(R2dash^2+X2^2)");
+disp("Tm proportional to E2^2/(2*X2)");
+//formula : TstByTm=(E2^2*R2dash/(R2dash^2+X2^2))/(E2^2/(2*X2))
+P=[TstByTm -2*X2 TstByTm*X2^2];//Polynomial for R2dash
+R2dash=roots(P);//
+R2dash=R2dash(2);//discarding higher value bcoc R2dash < X2
+Rex=R2dash-R2;//in ohm
+disp(Rex,"Extra resistance required in ohm : ");