diff options
Diffstat (limited to '3802/CH1/EX1.6')
-rw-r--r-- | 3802/CH1/EX1.6/Ex1_6.sce | 42 | ||||
-rw-r--r-- | 3802/CH1/EX1.6/Ex1_6_a.jpg | bin | 0 -> 53903 bytes | |||
-rw-r--r-- | 3802/CH1/EX1.6/Ex1_6_b.jpg | bin | 0 -> 13167 bytes |
3 files changed, 42 insertions, 0 deletions
diff --git a/3802/CH1/EX1.6/Ex1_6.sce b/3802/CH1/EX1.6/Ex1_6.sce new file mode 100644 index 000000000..b1eb7ae8c --- /dev/null +++ b/3802/CH1/EX1.6/Ex1_6.sce @@ -0,0 +1,42 @@ +//Book Name:Fundamentals of Electrical Engineering
+//Author:Rajendra Prasad
+//Publisher: PHI Learning Private Limited
+//Edition:Third ,2014
+
+//Ex1_6.sce.
+
+clc;
+clear;
+t=[0:0.0001:4];
+x=length(t);
+p=ones(1,x);
+for n=1:x;
+ if t(n)<=2
+ v(n)=3;
+ i(n)=10;
+ p(n)=v(n)*t(n)*i(n);
+ else if t(n)>2
+ v(n)=12;
+ i(n)=-5;
+ p(n)=(v(n)-(3*t(n)))*i(n);
+ else
+ p(n)=0;
+ end
+ end
+ end
+xlabel("Time in seconds")
+ylabel("Power in watts")
+title("Power waveform")
+plot(t,p)
+
+
+//Case(b)
+printf("\n (b)")
+area_OAB=(1/2)*max(p)*max(t)/2;
+area_BCD=(1/2)*abs(min(p))*max(t)/2;
+energy=area_OAB-area_BCD;
+avg_power=energy/max(t);
+printf("\n The average power=%1.1f W \n",avg_power)
+
+
+
diff --git a/3802/CH1/EX1.6/Ex1_6_a.jpg b/3802/CH1/EX1.6/Ex1_6_a.jpg Binary files differnew file mode 100644 index 000000000..def8ae34a --- /dev/null +++ b/3802/CH1/EX1.6/Ex1_6_a.jpg diff --git a/3802/CH1/EX1.6/Ex1_6_b.jpg b/3802/CH1/EX1.6/Ex1_6_b.jpg Binary files differnew file mode 100644 index 000000000..d402afcd7 --- /dev/null +++ b/3802/CH1/EX1.6/Ex1_6_b.jpg |