3782/CH1/EX1.13/Ex1_13.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

clear
// cha-1 page-34 pb-3

//

//

x=(849.224)/2.6196


PA=x
AQ=517-x
al=78-33.67
bt=180-(43.333+78)

TA=AQ*tan(58.66*(%pi/180))

printf("\n width of river is  %0.3f meters',TA)