1 files changed, 26 insertions, 0 deletions
diff --git a/2231/CH1/EX1.16/Ex_1_16.sce b/2231/CH1/EX1.16/Ex_1_16.sce
new file mode 100755
index 000000000..3efc54acd
--- /dev/null
+++ b/2231/CH1/EX1.16/Ex_1_16.sce
@@ -0,0 +1,26 @@
+//Example 1_16
+clc;
+clear;close;
+
+//Given data: 
+//VT=0.9+0.02*IT;//V
+//part (a)
+IT=20;//A
+VT=0.9+0.02*IT;//V
+Pdiss=VT*IT;//W
+disp(Pdiss,"(a) Mean power dissipation (in W) : ");
+//part (b)
+IT_mean=20;//A
+IT_peak=20*%pi;//A
+Pdiss=1/2/%pi*integrate('(0.9+0.02*IT_peak*sin(theta))*(IT_peak*sin(theta))','theta',0,%pi);//W
+disp(Pdiss,"(b) Mean power dissipation (in W) : ");
+//part (c)
+IT=20;//A//for half cycle
+VT=0.9+0.02*IT;//V
+Pdiss=VT*IT/2;//W
+disp(Pdiss,"(c) Power dissipation occur only during half cycle. Mean power dissipation (W)");
+//part (d)
+IT=20;//A//for half cycle
+VT=0.9+0.02*IT;//V
+Pdiss=VT*IT/3;//W
+disp(Pdiss,"(d) Power dissipation occur only during 1/3rd period in a cycle. Mean power dissipation (W)");