3782/CH1/EX1.16/Ex1_16.sce


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

clear
//CH-1 PAGE-36  PB-6

//
//


AC=250
AD=300
DB=150
BC=100
DC=DB+BC

cosal=(AD*AD+DC*DC-(AC*AC))/(2*AD*DC)

AB=sqrt((AD*AD+DB*DB)-2*(AD*DB*cosal))

printf("\n AB= %0.3f ",AB)