diff options
Diffstat (limited to '1964/CH5/EX5.44/ex5_44.sce')
-rwxr-xr-x | 1964/CH5/EX5.44/ex5_44.sce | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/1964/CH5/EX5.44/ex5_44.sce b/1964/CH5/EX5.44/ex5_44.sce new file mode 100755 index 000000000..ff8d3084b --- /dev/null +++ b/1964/CH5/EX5.44/ex5_44.sce @@ -0,0 +1,21 @@ +//Chapter-5, Example 5.44, Page 209
+//=============================================================================
+clc
+clear
+//INPUT DATA
+Z1=(6-((%i)*8));//impedance1 in ohms
+Z2=(16+((%i)*12));//impedance2 in ohms
+I1=(12+((%i)*16));//current in A
+//CALCULATIONS
+V=I1*Z1;//applied voltage in volts
+I2=V/(Z2);//current in other branch in A
+mprintf("current in other branch in Amps")
+disp(I2);
+I=I1+I2;//total current in A
+mprintf("total current in Amps");
+disp(I);
+i1=abs(I);//magnitude in A
+i2=atan((imag(I)/real(I)));
+P=V*i1*cos(i2);//power consumed in circuit
+mprintf("Thus voltage applied and power consumed are %d V and %d W respectively",V,P);
+//=================================END OF PROGRAM======================================================================================================
|