summaryrefslogtreecommitdiff
path: root/24/CH17/EX17.5/Example17_5.sce
blob: 6595ba9b96a4fae08ccf18d1adffb3eb56c4fa99 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
exec('degree_rad.sci', -1)

//Given that
Ym = 9.8*10^-3  //in meter
phi = dtor(100)  //in degrees

//Sample Problem 17-5a
printf("**Sample Problem 17-5a**\n")
Yn = 2*Ym*cos(phi/2)
printf("The amplitude of resultant wave is %fmm\n", Yn*10^3)

//Sample Problem 17-5b
printf("\n**Sample Problem 17-5b**\n")
Y = 4.9*10^-3  //in meter
phi = 2*acos(Y/(2*Ym))
printf("The phase difference required is %frad", phi)