summaryrefslogtreecommitdiff
path: root/1026/CH5/EX5.1/Example5_1.sce
blob: 2eeb72cd0593034877d7fc04e6397fdf1c4fd67e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//chapter5,Example5_1,pg 97

T1=1.5

T2=1

A=20

V=10*8*6

a=((0.161*V)/(2*A))*((1/T2)-(1/T1))

printf("absorption coefficient\n")

printf("a=%.3f Sabines",a)