1 | % clear all; |
---|
2 | % RR=load('../obs_float/r_float_optim1.dat'); |
---|
3 | % R1=RR(3:2:end,end); |
---|
4 | % R2=RR(4:2:end,end); |
---|
5 | % %hold on |
---|
6 | % figure; |
---|
7 | % plot(R1+1,R2+1,'k-'); |
---|
8 | % hold on |
---|
9 | % plot(R1(1)+1,R2(1)+1,'*r'); |
---|
10 | % |
---|
11 | % obs=load('../obs_float/obs.dat') |
---|
12 | % plot(obs(1,end)+1,obs(2,end)+1,'*g'); |
---|
13 | |
---|
14 | |
---|
15 | %%%%%%%LOAD DATA%%%%%%%%%%%%%%%%%%%% |
---|
16 | |
---|
17 | % fname=sprintf('./DATA_eps%i/FAP/RESULTS_B%i/Reaz_ab_jc%i_omd%i_S5_nobet.mat',epss,nbs,jc,omd); |
---|
18 | % |
---|
19 | % eval(sprintf('load %s', fname)); |
---|
20 | |
---|
21 | clear all; |
---|
22 | close all; |
---|
23 | optim=10; |
---|
24 | |
---|
25 | N_f=35; |
---|
26 | load UV_0.mat; |
---|
27 | load UVnext3d.mat; |
---|
28 | |
---|
29 | |
---|
30 | |
---|
31 | |
---|
32 | DD=load('../obs_float/obs_true_t72_4h_f35.dat'); |
---|
33 | %PP=load('../obs_float/obs_pert3d_t60_f35.dat'); |
---|
34 | for ii=1:N_f |
---|
35 | D1(ii,:)=DD(ii:N_f*2:end,end); |
---|
36 | D2(ii,:)=DD(N_f+ii:N_f*2:end,end); |
---|
37 | %P1(ii,:)=PP(ii:N_f*2:end,end); |
---|
38 | %P2(ii,:)=PP(N_f+ii:N_f*2:end,end); |
---|
39 | end; |
---|
40 | |
---|
41 | |
---|
42 | fname=sprintf('../obs_float/r_float_optim_35_%i.dat',optim); |
---|
43 | OP=load(fname); |
---|
44 | %OP=load('../obs_float/r_float_optim_35_04.dat'); |
---|
45 | for ii=1:N_f |
---|
46 | OP1(ii,:)=OP(ii:N_f*2:end,end); |
---|
47 | OP2(ii,:)=OP(N_f+ii:N_f*2:end,end); |
---|
48 | end; |
---|
49 | |
---|
50 | for j=1:3; |
---|
51 | figure; |
---|
52 | plot(D1(j,end),D2(j,end),'*g'); |
---|
53 | hold on; |
---|
54 | plot(D1(j,1),D2(j,1),'Ok'); |
---|
55 | |
---|
56 | plot(OP1(j,:),OP2(j,:),'*m'); |
---|
57 | |
---|
58 | end |
---|
59 | |
---|
60 | |
---|
61 | %cc1=68; |
---|
62 | %cc2=36; |
---|
63 | |
---|
64 | cc1=68; %works best |
---|
65 | cc2=36; |
---|
66 | far=3; |
---|
67 | |
---|
68 | fname1=sprintf('../obs_float/uoptim_35_%i.dat',optim); |
---|
69 | fname2=sprintf('../obs_float/voptim_35_%i.dat',optim); |
---|
70 | you=load(fname1); |
---|
71 | vee=load(fname2); |
---|
72 | Urec=reshape(you(:,5),58,87); |
---|
73 | Vrec=reshape(vee(:,5),58,87); |
---|
74 | |
---|
75 | %load('../obs_float/uoptim_35_04.dat'); |
---|
76 | %Urec=reshape(uoptim_35_04(:,5),58,87); |
---|
77 | %load('../obs_float/voptim_35_04.dat'); |
---|
78 | %Vrec=reshape(voptim_35_04(:,5),58,87); |
---|
79 | |
---|
80 | |
---|
81 | %if blur |
---|
82 | ebefore=norm(uu_pert-uu)./norm(uu) |
---|
83 | eafter=norm(Urec-uu)./norm(uu) |
---|
84 | %if week |
---|
85 | ebefore_local=norm(uu_pert(cc2-far:cc2+far,cc1-far:cc1+far)-uu(cc2-far:cc2+far,cc1-far:cc1+far))... |
---|
86 | ./norm(uu(cc2-far:cc2+far,cc1-far:cc1+far)) |
---|
87 | eafter_local=norm(Urec(cc2-far:cc2+far,cc1-far:cc1+far)-uu(cc2-far:cc2+far,cc1-far:cc1+far))... |
---|
88 | ./norm(uu(cc2-far:cc2+far,cc1-far:cc1+far)) |
---|
89 | |
---|
90 | |
---|
91 | |
---|
92 | figure |
---|
93 | quiver([1:1:87],[1:1:58],uu,vv,'k'); |
---|
94 | hold on; |
---|
95 | quiver([1:1:87],[1:1:58],Urec,Vrec); |
---|
96 | plot(cc1,cc2,'*r'); |
---|
97 | %imagesc(Urec); |
---|
98 | axis xy; colorbar; |
---|
99 | % for j=11:35; |
---|
100 | % |
---|
101 | % plot(D1(j,:),D2(j,:),'*g'); |
---|
102 | % hold on; |
---|
103 | % plot(D1(j,1),D2(j,1),'Ok'); |
---|
104 | % |
---|
105 | % plot(OP1(j,:),OP2(j,:),'*m'); |
---|
106 | % plot(P1(j,:),P2(j,:),'*r'); |
---|
107 | % |
---|
108 | % |
---|
109 | % end |
---|
110 | plot(cc1,cc2,'*k') |
---|
111 | |
---|
112 | figure |
---|
113 | quiver([1:1:87],[1:1:58],uu,vv,'k'); |
---|
114 | hold on; |
---|
115 | quiver([1:1:87],[1:1:58],uu_pert,vv_pert); |
---|
116 | plot(cc1,cc2,'*r'); |
---|
117 | %imagesc(Urec); |
---|
118 | axis xy; colorbar; |
---|
119 | |
---|
120 | |
---|
121 | |
---|
122 | |
---|
123 | |
---|
124 | if false |
---|
125 | L2L2=0; |
---|
126 | L2L2A=0; |
---|
127 | L2L2B=0; |
---|
128 | |
---|
129 | for i = 1:size(uu,1) |
---|
130 | for j=1:size(uu,2) |
---|
131 | L2L2A=L2L2A+(Urec(i,j)-uu(i,j))^2+(Vrec(i,j)-vv(i,j))^2; |
---|
132 | L2L2B=L2L2B+(uu_pert(i,j)-uu(i,j))^2+(vv_pert(i,j)-vv(i,j))^2; |
---|
133 | L2L2=L2L2+uu(i,j)^2+vv(i,j)^2; |
---|
134 | end |
---|
135 | end |
---|
136 | |
---|
137 | 'perturbed' |
---|
138 | sqrt(L2L2B/L2L2) |
---|
139 | 'corrected' |
---|
140 | sqrt(L2L2A/L2L2) |
---|
141 | |
---|
142 | %imagesc(Ut); axis xy; colorbar; |
---|
143 | end |
---|