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/154/DEPENDENCIES/ch10_5.sce | |
| 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/154/DEPENDENCIES/ch10_5.sce')
| -rwxr-xr-x | Working_Examples/154/DEPENDENCIES/ch10_5.sce | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Working_Examples/154/DEPENDENCIES/ch10_5.sce b/Working_Examples/154/DEPENDENCIES/ch10_5.sce new file mode 100755 index 0000000..87f47e8 --- /dev/null +++ b/Working_Examples/154/DEPENDENCIES/ch10_5.sce @@ -0,0 +1,28 @@ +clc
+disp("Problem 10.5")
+printf("\n")
+
+printf("Given")
+disp("Voltage is 100(45 deg)")
+disp("Current is 5(15 deg)")
+//For V
+Ro1=100
+Theta1=45
+//For I
+Ro2=5
+Theta2=15
+//We need to find V/I=Z
+
+Zmag=(Ro1/Ro2)
+Zph=Theta1-Theta2
+x=Zmag*cos((Zph*%pi)/180);
+y=Zmag*sin((Zph*%pi)/180);
+z=complex(x,y)
+//Let Y=1/Z
+Ymag=(Ro2/Ro1)
+Yph=Theta2-Theta1
+x1=Ymag*cos((Yph*%pi)/180);
+y1=Ymag*sin((Yph*%pi)/180);
+z1=complex(x1,y1)
+
+printf("R=%3.2fohm XL=%3.2fH \nG=%0.3fS BL=%0.3fS",x,y,x1,abs(y1));
\ No newline at end of file |