diff options
Diffstat (limited to '343/CH3/EX3.18/ex3_18.sce')
| -rwxr-xr-x | 343/CH3/EX3.18/ex3_18.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/343/CH3/EX3.18/ex3_18.sce b/343/CH3/EX3.18/ex3_18.sce new file mode 100755 index 000000000..a4d1463d8 --- /dev/null +++ b/343/CH3/EX3.18/ex3_18.sce @@ -0,0 +1,11 @@ +clc
+w1=-1000 //Assigning values to parameters
+w2=3000
+vl=400
+t=atan(sqrt(3)*(w2-w1)/(w1+w2))
+pf=cos(t)
+p=w1+w2
+il=p/(sqrt(3)*vl*cos(t))
+disp("Watts",p,"Total Power supplied is")
+disp(pf,"Power factor is")
+disp("Amperes",il,"The line current is")
\ No newline at end of file |