1 files changed, 14 insertions, 0 deletions
diff --git a/1964/CH4/EX4.15/ex4_15.sce b/1964/CH4/EX4.15/ex4_15.sce
new file mode 100755
index 000000000..54d578fb6
--- /dev/null
+++ b/1964/CH4/EX4.15/ex4_15.sce
@@ -0,0 +1,14 @@
+//Chapter-4, Example 4.15, Page 144
+//=============================================================================
+clc
+clear
+//given voltage applied is e=340*sin(314*t)
+//given current applied is i=42.5*sin(314*t)
+//CALCULATIONS
+R=340/42.5;//resisitance in ohms
+E=(340)/sqrt(2);//average value of voltage in volts
+I=(42.5)/sqrt(2);//average value of current in amps
+P=E*I;//average power in Watts
+mprintf("thus average power is %1.0f W",P);
+//=================================END OF PROGRAM==============================
+