annotate src/mz_3_extract_all_mz2.sci @ 0:245b2c2b3d75 draft

Uploaded
author jcb-mpl
date Tue, 27 Apr 2021 14:13:47 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
1 function allmz=mz_3_extract_all_mz2(resbary0)
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
2
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
3 // extraction des m/z et des signaux totaux
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
4
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
5 // resbary0: une structure avec les champs .time et .mzdata
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
6
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
7 // allmz: une matrie ce deux colonnes: m/z et signal total
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
8
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
9 n=max(size(resbary0.time));
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
10
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
11 allmz=resbary0.mzdata(1);
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
12
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
13 for i=2:n;
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
14 allmz=[allmz;resbary0.mzdata(i)];
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
15 end
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
16
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
17 // arrondis
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
18 allmz(:,1)=round(10000*allmz(:,1))/10000;
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
19
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
20 // tri des donnees
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
21 [nul,tri]=gsort(allmz(:,1),'g','i');
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
22 allmz=allmz(tri,:);
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
23
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
24 // regroupememt des valeurs identiques
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
25 n2=max(size(allmz));
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
26 for i=2:n2;
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
27 if allmz(i-1,1)==allmz(i,1) then
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
28 allmz(i,2)=allmz(i,2)+allmz(i-1,2); // rajout des signaux
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
29 allmz(i-1,1)=0;
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
30 end
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
31 end
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
32
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
33 // suppression des valeurs nulles
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
34 tri=find(allmz(:,1)~=0);
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
35 allmz=allmz(tri,:);
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
36
245b2c2b3d75 Uploaded
jcb-mpl
parents:
diff changeset
37 endfunction