3769/CH20/EX20.8/Ex20_8.sce


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

clear
//Given
ra=60
rb=45.0
a=40.0

//Calculation
ia1=(ra**2)/(rb**2)
ia=(ra**2)/(a**2)
i=ia-ia1
A=(i*100)/ia

//Result
printf("\n percentage of light is absorbed by the glass is %0.0f  percentage",A)