AltToolbox2016/gradelistreader.m at master · SteveCoss/AltToolbox2016 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
%gradelistreader
%process grades and store for use in the loop
function [Egrades,Jgrades]=gradelistreader(sat)
%envi
if numel(sat)==2;
gradefileE=fullfile('C:\Users\coss.31\Documents\MATH\Steves_final_Toolbox\AltimetryToolbox\IN' ...
    ,strcat(sat(2),'_gradesC','.xlsx'));
[NUM,TXT,RAW]=xlsread(cell2mat(gradefileE));
if length(TXT)>length(NUM)
    missing=length(TXT)-length(NUM);
     start=length(NUM)
    for i=1:length(missing)
        NUM( start+(i),:)=nan;
    end
end
for i=1:length(TXT)
Egrades(i).name=TXT((i),1);
Egrades(i).grade=TXT((i),2);
Egrades(i).stats.nse=NUM((i),1);
Egrades(i).stats.nseAVG=NUM((i),2);
Egrades(i).stats.R=NUM((i),3);
Egrades(i).stats.std=NUM((i),4);
Egrades(i).stats.stdAVG=NUM((i),5);
end

%jason
gradefileJ=fullfile('C:\Users\coss.31\Documents\MATH\Steves_final_Toolbox\AltimetryToolbox\IN' ...
    ,strcat(sat(1),'_gradesC','.xlsx'));
[NUM,TXT,RAW]=xlsread(cell2mat(gradefileJ));
if length(TXT)>length(NUM)
    missing=length(TXT)-length(NUM);
     start=length(NUM)
    for j=1:missing
        NUM( start+(j),:)=nan;
    end
end

for i=1:length(TXT)
Jgrades(i).name=TXT((i),1);
Jgrades(i).grade=TXT((i),2);
Jgrades(i).stats.nse=NUM((i),1);
Jgrades(i).stats.nseAVG=NUM((i),2);
Jgrades(i).stats.R=NUM((i),3);
Jgrades(i).stats.std=NUM((i),4);
Jgrades(i).stats.stdAVG=NUM((i),5);
end
else if strcmp(sat,'Envisat');
        gradefileE=fullfile('C:\Users\coss.31\Documents\MATH\Steves_final_Toolbox\AltimetryToolbox\IN' ...
            ,strcat(sat,'_gradesC','.xlsx'));
        [NUM,TXT,RAW]=xlsread(cell2mat(gradefileE));
        for i=1:length(TXT)
            Egrades(i).name=TXT((i),1);
            Egrades(i).grade=TXT((i),2);
            Egrades(i).stats.nse=NUM((i),1);
            Egrades(i).stats.nseAVG=NUM((i),2);
            Egrades(i).stats.R=NUM((i),3);
            Egrades(i).stats.std=NUM((i),4);
            Egrades(i).stats.stdAVG=NUM((i),5);
        end
        %dump empty variable
         Jgrades=nan;
         Jnse=nan;
    else
        gradefileJ=fullfile('C:\Users\coss.31\Documents\MATH\Steves_final_Toolbox\AltimetryToolbox\IN' ...
            ,strcat(sat,'_gradesC','.xlsx'));
        [NUM,TXT,RAW]=xlsread(cell2mat(gradefileJ));
        for i=1:length(TXT)
            Jgrades(i).name=TXT((i),1);
            Jgrades(i).grade=TXT((i),2);
            Jgrades(i).stats.nse=NUM((i),1);
            Jgrades(i).stats.nseAVG=NUM((i),2);
            Jgrades(i).stats.R=NUM((i),3);
            Jgrades(i).stats.std=NUM((i),4);
            Jgrades(i).stats.stdAVG=NUM((i),5);
        end
        %dump empty variable
         Egrades=nan;
         Ense=nan;

    end
end
end