summaryrefslogtreecommitdiff
path: root/3785/CH6/EX6.13/Ex6_13.sce
blob: a5a7c25b5d2a9f852c526aac39b01b17380b27c7 (plain)
1
2
3
4
5
6
7
8
9
10
11
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);