From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3802/CH1/EX1.6/Ex1_6.sce | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 3802/CH1/EX1.6/Ex1_6.sce

(limited to '3802/CH1/EX1.6/Ex1_6.sce')

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)
+
+
+
-- 
cgit