forked from AndrewDMarquis/simple-VQ-matching-O2-transport
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Residuals_Figure.m
104 lines (90 loc) · 2.47 KB
/
Residuals_Figure.m
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
% clear; close all; clc;
% this script loads the result of optimization and plots all of the
% residuals
load('ModelA_optimization_results.mat','DATA','PO2_pred')
rA = DATA.PO2 - PO2_pred;
clear PO2_pred
load('ModelB_optimization_results.mat','PO2_pred')
rB = DATA.PO2 - PO2_pred;
clear PO2_pred
load('ModelC_optimization_results.mat','PO2_pred')
rC = DATA.PO2 - PO2_pred;
clear PO2_pred
load('ModelD_optimization_results.mat','PO2_pred')
rD = DATA.PO2 - PO2_pred;
clear PO2_pred
load('ModelB2_optimization_results.mat','PO2_pred')
rE = DATA.PO2 - PO2_pred;
clear PO2_pred
load('ModelD2_optimization_results.mat','PO2_pred')
rF = DATA.PO2 - PO2_pred;
clear PO2_pred
MS = 15; %markersize
lw = 1.5; %linewidth
plot_CO = DATA.CO;
x = 7:20;
figure;
plot(plot_CO,rA,'o-','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rB,'x:','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rC,'+--','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rD,'*-','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rE,'s:','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rF,'d--','markersize',MS,'linewidth',lw)
hold on
plot(x,0*x,'k','linewidth',2)
xlabel('Cardiac Output (L/min)')
ylabel('Residuals (mmHg)')
legend('A','B','C','D','E','F')
set(gca,'fontsize',18)
xlim([8 18])
figure;
subplot(1,2,1)
plot(plot_CO,rA,'o-','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rB,'x:','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rC,'+--','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rD,'*-','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rE,'s:','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rF,'d--','markersize',MS,'linewidth',lw)
hold on
plot(x,0*x,'k','linewidth',2)
xlabel('Cardiac Output (L/min)')
ylabel('Residuals (mmHg)')
legend('A','B','C','D','E','F')
set(gca,'fontsize',18)
xlim([8 18])
subplot(1,2,2)
FLAG = 1;
IND = [5 7];
if FLAG == 1
rA(IND) = []; rB(IND) = []; rC(IND) = [];
rD(IND) = []; rE(IND) = []; rF(IND) = [];
plot_CO(IND) = [];
end
plot(plot_CO,rA,'o-','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rB,'x:','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rC,'+--','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rD,'*-','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rE,'s:','markersize',MS,'linewidth',lw)
hold on
plot(plot_CO,rF,'d--','markersize',MS,'linewidth',lw)
hold on
plot(x,0*x,'k','linewidth',2)
xlabel('Cardiac Output (L/min)')
ylabel('Residuals (mmHg)')
legend('A','B','C','D','E','F')
set(gca,'fontsize',18)
xlim([8 18])