jens/matlab
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- cleaned up

Browse Source 
- refactored
- valid values except sulfat
This commit is contained in:
jens
2023-06-12 18:22:37 +02:00
parent 27204bd8c8
commit 1f217d7ad1
2 changed files with 65 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
brew/water_constants.m
+30 -2
View File
@@ -7,7 +7,7 @@ i_Ca = 6;
i_Mg = 7;
i_S = 8;
i_P = 9;
i_SIZE = 9;
N_mol = 9;
M_H = 1.00794; % g/mol
M_C = 12.0107; % g/mol
@@ -19,7 +19,7 @@ M_Mg = 24.305; % g/mol
M_S = 32.06; % g/mol
M_P = 30.9738; % g/mol
mol_masses = zeros(1, i_SIZE);
mol_masses = zeros(1, N_mol);
mol_masses(i_H) = M_H;
mol_masses(i_C) = M_C;
mol_masses(i_O) = M_O;
@@ -30,3 +30,31 @@ mol_masses(i_Mg) = M_Mg;
mol_masses(i_S) = M_S;
mol_masses(i_P) = M_P;
# Create single elements [g/mol]
M_EL_Ca = create_mol([i_Ca], [1], mol_masses);
M_EL_Mg = create_mol([i_Mg], [1], mol_masses);
M_EL_Na = create_mol([i_Na], [1], mol_masses);
M_EL_Cl = create_mol([i_Cl], [1], mol_masses);
M_EL_S = create_mol([i_S], [1], mol_masses);
# Create common used compounds [g/mol]
M_CaSO4 = create_mol([i_Ca i_S i_O], [1 1 4], mol_masses);
M_CaCl2 = create_mol([i_Ca i_Cl], [1 2], mol_masses);
M_NaCl = create_mol([i_Na i_Cl], [1 1], mol_masses);
M_MgSO4 = create_mol([i_Mg i_S i_O], [1 1 4], mol_masses);
M_NaHCO3 = create_mol([i_Na i_H i_C i_O], [1 1 1 3], mol_masses);
M_HCl = create_mol([i_H i_Cl], [1 1], mol_masses);
M_H2SO4 = create_mol([i_H i_S i_O], [2 1 4], mol_masses);
M_H2O = create_mol([i_H i_O], [2 1], mol_masses);
function mol = create_mol(indices, n, mol_masses)
N = length(mol_masses);
mol = zeros(1, N);
mol(indices) = n.*mol_masses(indices);
endfunction
function mol = create_vec(indices, quantity, N)
mol = zeros(1, N);
mol(indices) = quantity;
endfunction