summaryrefslogtreecommitdiff
path: root/3802/CH1/EX1.6
diff options
context:
space:
mode:
Diffstat (limited to '3802/CH1/EX1.6')
-rw-r--r--3802/CH1/EX1.6/Ex1_6.sce42
-rw-r--r--3802/CH1/EX1.6/Ex1_6_a.jpgbin0 -> 53903 bytes
-rw-r--r--3802/CH1/EX1.6/Ex1_6_b.jpgbin0 -> 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
new file mode 100644
index 000000000..def8ae34a
--- /dev/null
+++ b/3802/CH1/EX1.6/Ex1_6_a.jpg
Binary files differ
diff --git a/3802/CH1/EX1.6/Ex1_6_b.jpg b/3802/CH1/EX1.6/Ex1_6_b.jpg
new file mode 100644
index 000000000..d402afcd7
--- /dev/null
+++ b/3802/CH1/EX1.6/Ex1_6_b.jpg
Binary files differ