summaryrefslogtreecommitdiff
path: root/2966/CH1/EX1.61/1_61.sce
blob: c82dd9707ca80f779afb9d91aa0468a75a0010b8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//water//
//page 1.87 example 1//
clc
W1=7.3;//Mg(HCO3)2 in water in mg/L//
W2=9.5;//MgCl2 in water in mg/L//
W3=16.2;//Ca(HCO3)2 in water in mg/L//
W4=13.6;//CaSO4 in water in mg/L//
M1=100/146;//multiplication factor of Mg(HCO3)2//
M2=100/95;//multiplication factor of MgCl2//
M3=100/162;//multiplication factor of Ca(HCO3)2//
M4=100/136;//multiplication factor of CaSO4//
P1=W1*M1;//Mg(HCO3)2 in terms of CaCO3//
P2=W2*M2;//MgCl2 in terms of CaCO3//
P3=W3*M3;//Ca(HCO3)2  in terms of CaCO3//
P4=W4*M4;//CaSO4  in terms of CaCO3//
T=P1+P3;
printf("\nTemporary hardness is %.0f ppm",T);
P=P2+P4;
printf("\nPermanant hardness is %.0f ppm",P);
To=T+P;
printf("\nTotal hardness is %.0f ppm",To);