1652/CH19/EX19.3/19_3.sce


1
2
3
4
5
6
7
8
9
10
11

clc
//Initialization of variables
r1=0.850
r2=0.50
//calculations
Da=-log10(r1)
Db=-log10(r2)
D=Da+Db
r3=10^(-D)
//results
printf("Transmittance of solution = %.3f ",r3)