summaryrefslogtreecommitdiff
path: root/1652/CH19/EX19.7/19_7.sce
blob: 886ed076359934d8425b036a480e23123e322dab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc
//Initialization of variables
c=0.1 //M
V=100 //ml
v1=25 //ml
D=0.980
d1=0.090
d2=0.150
//calculations
a=v1*c/V
b=(V-v1)*c/V
Da=a*d1/c
Db=b*d2/c
Ddash=Da+Db
dD=D-Ddash
//results
printf("Increase in optical density = %.3f",dD)