1 files changed, 12 insertions, 0 deletions
diff --git a/24/CH17/EX17.4/Example17_4.sce b/24/CH17/EX17.4/Example17_4.sce
new file mode 100755
index 000000000..ab252a47f
--- /dev/null
+++ b/24/CH17/EX17.4/Example17_4.sce
@@ -0,0 +1,12 @@
+//Given that
+u = 525*10^-3  //in kg/m
+T = 45  //in N
+f = 120  //in Hz
+Ym = 8.5*10^-3  //in meter
+
+//Sample Problem 17-4
+printf("**Sample Problem 17-4**\n")
+v = sqrt(T/u)
+w = 2*%pi*f
+Pavg = 0.5*u*v*w^2*Ym^2
+printf("The average power transfered is equal to %fW", Pavg)
+\ No newline at end of file