summaryrefslogtreecommitdiff
path: root/24/CH17/EX17.4/Example17_4.sce
blob: ab252a47f0b5552737223f29bd064641314520cd (plain)
1
2
3
4
5
6
7
8
9
10
11
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)