1 files changed, 12 insertions, 0 deletions
diff --git a/3785/CH6/EX6.13/Ex6_13.sce b/3785/CH6/EX6.13/Ex6_13.sce
new file mode 100644
index 000000000..a5a7c25b5
--- /dev/null
+++ b/3785/CH6/EX6.13/Ex6_13.sce
@@ -0,0 +1,12 @@
+// Example 6_13
+clc;funcprot(0);
+// Given data
+D=0.5;// The diameter of cirrcular disk in m
+mu=1.0;// The viscosity of oil in Pa s
+rho=9.0*10^2;// Density in kg/m^3
+omega=1*10^3;// The angular frequency in s^-1
+phi=1*10^-3;// The angular amplitude
+
+// Calculation
+P=(%pi/32)*mu*(omega*phi)^2*((omega*rho)/(2*mu))^(1/2)*D^4;// W
+printf("\nThe power absorbed by the vibration damper,P=%1.3f W",P);