diff options
Diffstat (limited to '3769/CH13/EX13.9')
| -rw-r--r-- | 3769/CH13/EX13.9/Ex13_9.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3769/CH13/EX13.9/Ex13_9.sce b/3769/CH13/EX13.9/Ex13_9.sce new file mode 100644 index 000000000..a6b814803 --- /dev/null +++ b/3769/CH13/EX13.9/Ex13_9.sce @@ -0,0 +1,14 @@ +clear +//Given +Ev=120.0 +P=1000 //W +Ev1=240 + +//Calculation +Iv=P/Ev +I0=sqrt(2)*Iv +R=Ev/Iv +P=Ev1**2/R + +//Result +printf("\n Resistance is %0.3f ohm \nPeak current is %0.3f W",R,P) |