1793/CH15/EX15.8/15Q8.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

clc
W=22.4
C=20
a=70
s=sind(a)
c=cosd(a)
l=2.924
Wn=W*s
Wn1=W*c
//doing this to all values
F1=30.501
F2=776.75
F3=1638
Fs=(F1*C+F3*tand(C))/F2
printf('Fs = %f',Fs)