diff options
| author | Siddharth Agarwal | 2019-09-03 18:27:40 +0530 |
|---|---|---|
| committer | Siddharth Agarwal | 2019-09-03 18:27:40 +0530 |
| commit | 8ac15bc5efafa2afc053c293152605b0e6ae60ff (patch) | |
| tree | e1bc17aae137922b1ee990f17aae4a6cb15b7d87 /Working_Examples/293/CH19/EX19.1 | |
| parent | 52a477ec613900885e29c4a0b02806a415b4f83a (diff) | |
| download | Xcos_block_examples-master.tar.gz Xcos_block_examples-master.tar.bz2 Xcos_block_examples-master.zip | |
Diffstat (limited to 'Working_Examples/293/CH19/EX19.1')
| -rwxr-xr-x | Working_Examples/293/CH19/EX19.1/eg19_1.sce | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Working_Examples/293/CH19/EX19.1/eg19_1.sce b/Working_Examples/293/CH19/EX19.1/eg19_1.sce new file mode 100755 index 0000000..a1f4f18 --- /dev/null +++ b/Working_Examples/293/CH19/EX19.1/eg19_1.sce @@ -0,0 +1,30 @@ +//a
+efficiency = 0.9;
+Pi = 200*746/efficiency; //input power
+x = 11; //reactance of the motor
+V1 = 2300/sqrt(3); //voltage rating
+delta = 15*%pi/180; //power angle
+Ef = Pi*x/(3*V1*sin(delta)); //the induced excitation voltage per phase
+disp("a")
+disp(Ef,"the induced excitation voltage per phase = ")
+
+//b
+z = complex(0,x); //impedance of the motor
+ef = complex(Ef*cos(-delta),Ef*sin(-delta));
+
+Ia = (V1 - ef)/z ; //armature current
+disp("b")
+disp(Ia,"armatur current = ")
+
+//c
+theata = atan(imag(Ia)/real(Ia)); //phase difference between Ia and V1
+pf = cos(theata); //power factor
+
+disp("c")
+disp(pf,"power factor = ")
+
+if sin(theata)> 0 then
+ disp("leading")
+else
+ disp("lagging")
+end
\ No newline at end of file |