source: altifloat/matlab_toolbox/newtwin4f.m @ 199

Last change on this file since 199 was 129, checked in by jbrlod, 10 years ago

last version of Varanth

  • Property svn:executable set to *
File size: 6.7 KB
Line 
1% 1 floater 2 pts
2
3close all
4
5figure(1)
6
7ls;
8load obs_float_test.dat;
9whos;
10obs_float_test (1:4,:)
11x=obs_float_test (1:2:12,4)
12y=obs_float_test (2:2:12,4)
13x=x+1
14y=y+1
15plot(x(1),y(1),'+')
16hold on;
17plot(x(6),y(6),'>')
18hold on;
19plot(x(1:6),y(1:6),'+');
20hold on;
21plot(x(1:6),y(1:6),'-r')
22hold on;
23
24
25x3=obs_float_test (13:2:24,4)
26y3=obs_float_test (14:2:24,4)
27x3=x3+1
28y3=y3+1
29plot(x3(1),y3(1),'+')
30hold on;
31plot(x3(6),y3(6),'>')
32hold on;
33plot(x3(1:6),y3(1:6),'+');
34hold on;
35plot(x3(1:6),y3(1:6),'-r')
36hold on;
37
38x5=obs_float_test (25:2:36,4)
39y5=obs_float_test (26:2:36,4)
40x5=x5+1
41y5=y5+1
42plot(x5(1),y5(1),'+')
43hold on;
44plot(x5(6),y5(6),'>')
45hold on;
46plot(x5(1:6),y5(1:6),'+');
47hold on;
48plot(x5(1:6),y5(1:6),'-r')
49hold on;
50
51x7=obs_float_test (37:2:48,4)
52y7=obs_float_test (38:2:48,4)
53x7=x7+1
54y7=y7+1
55plot(x7(1),y7(1),'+')
56hold on;
57plot(x7(6),y7(6),'>')
58hold on;
59plot(x7(1:6),y7(1:6),'+');
60hold on;
61plot(x7(1:6),y7(1:6),'-r')
62hold on;
63
64
65
66load rfloat_total.dat
67g=1;
68j=1
69while  g<20
70   
71x2=rfloat_total(g:g+4,4)
72y2=rfloat_total(g:g+4,3)
73x2=x2+1
74y2=y2+1
75x2(1)=obs_float_test(j,4);
76y2(1)=obs_float_test(j+1,4);
77x2(1)=x2(1)+1;
78y2(1)=y2(1)+1;
79[k,h]=size(x2);
80plot(x2(1),y2(1),'+')
81hold on;
82plot(x2(k-1),y2(k-1),'>')
83hold on;
84plot(x2(2:k-1),y2(2:k-1),'+')
85hold on;
86plot(x2(1:k-1),y2(1:k-1),'-g')
87hold on;
88g=g+4;
89j=j+2;
90end
91
92
93j=13;
94g=22;
95while  g<40
96   
97x2=rfloat_total(g:g+4,4)
98y2=rfloat_total(g:g+4,3)
99x2=x2+1
100y2=y2+1
101x2(1)=obs_float_test(j,4);
102y2(1)=obs_float_test(j+1,4);
103x2(1)=x2(1)+1;
104y2(1)=y2(1)+1;
105[k,h]=size(x2);
106plot(x2(1),y2(1),'+')
107hold on;
108plot(x2(k-1),y2(k-1),'>')
109hold on;
110plot(x2(2:k-1),y2(2:k-1),'+')
111hold on;
112plot(x2(1:k-1),y2(1:k-1),'-g')
113hold on;
114g=g+4;
115j=j+2;
116end
117
118j=25;
119
120g=43;
121while  g<60
122   
123x2=rfloat_total(g:g+4,4)
124y2=rfloat_total(g:g+4,3)
125x2=x2+1
126y2=y2+1
127x2(1)=obs_float_test(j,4);
128y2(1)=obs_float_test(j+1,4);
129x2(1)=x2(1)+1;
130y2(1)=y2(1)+1;
131[k,h]=size(x2);
132plot(x2(1),y2(1),'+')
133hold on;
134plot(x2(k-1),y2(k-1),'>')
135hold on;
136plot(x2(2:k-1),y2(2:k-1),'+')
137hold on;
138plot(x2(1:k-1),y2(1:k-1),'-g')
139hold on;
140g=g+4;
141j=j+2;
142end
143
144
145j=37;
146
147g=64;
148while  g<84
149   
150x2=rfloat_total(g:g+4,4)
151y2=rfloat_total(g:g+4,3)
152x2=x2+1
153y2=y2+1
154x2(1)=obs_float_test(j,4);
155y2(1)=obs_float_test(j+1,4);
156x2(1)=x2(1)+1;
157y2(1)=y2(1)+1;
158[k,h]=size(x2);
159plot(x2(1),y2(1),'+')
160hold on;
161plot(x2(k-1),y2(k-1),'>')
162hold on;
163plot(x2(2:k-1),y2(2:k-1),'+')
164hold on;
165plot(x2(1:k-1),y2(1:k-1),'-g')
166hold on;
167g=g+4;
168j=j+2;
169end
170
171load uv_total.dat;
172whos;
173X1=uv_total(1:5046,end-3);
174Y1=uv_total(1:5046,end-2);
175X1=X1+1;
176Y1=Y1+1;
177%change si pas de temps change
178U1=zeros(5046,1);
179V1=zeros(5046,1);
180e=1;
181for r=1:1:19
182   
183    for count=1:5046
184        Unew(count)=uv_total(e,end-1);
185        Vnew(count)=uv_total(e,end);
186        e=e+1;
187    end
188    U1=U1+Unew';
189    V1=V1+Vnew';
190   
191   
192end
193
194U1=U1/19;
195V1=V1/19;
196quiver(X1,Y1,U1,V1,2,'r','Autoscale','off');
197
198
199load utrue.dat;
200
201utrue=roundn(utrue,-6)
202whos;
203X3=utrue(:,end-2);
204Y3=utrue(:,end-1);
205U3=utrue(:,end);
206load vtrue.dat
207vtrue=roundn(vtrue,-6)
208V3=vtrue(:,end);
209quiver(X3,Y3,U3,V3,2,'b','Autoscale','off');
210
211load uzero.dat;
212
213
214whos;
215X2=uzero(:,end-2);
216Y2=uzero(:,end-1);
217U2=uzero(:,end);
218load vzero.dat
219
220V2=vzero(:,end);
221quiver(X2,Y2,U2,V2,2,'g','Autoscale','off');
222
223figure(2)
224load vel_bck_all.dat
225it=find(vel_bck_all(:,1)==1);
226Tu=reshape(vel_bck_all(it,4),58,87);
227Tv=reshape(vel_bck_all(it,5),58,87);
228
229load vel_true_all.dat
230it=find(vel_true_all(:,1)==1);
231Bu=reshape(vel_true_all(it,4),58,87);
232Bv=reshape(vel_true_all(it,5),58,87);
233
234F=(Bu-Tu).^2+(Bv-Tv).^2
235imagesc(F)
236
237
238figure(3)
239
240load uv_total.dat
241it=find(uv_total(:,1)==0);
242Iu0=reshape(uv_total(it,4),58,87);
243Iv0=reshape(uv_total(it,5),58,87);
244it=find(uv_total(:,1)==1);
245Iu1=reshape(uv_total(it,4),58,87);
246Iv1=reshape(uv_total(it,5),58,87);
247it=find(uv_total(:,1)==2);
248Iu2=reshape(uv_total(it,4),58,87);
249Iv2=reshape(uv_total(it,5),58,87);
250it=find(uv_total(:,1)==3);
251Iu3=reshape(uv_total(it,4),58,87);
252Iv3=reshape(uv_total(it,5),58,87);
253it=find(uv_total(:,1)==4);
254Iu4=reshape(uv_total(it,4),58,87);
255Iv4=reshape(uv_total(it,5),58,87);
256it=find(uv_total(:,1)==5);
257Iu5=reshape(uv_total(it,4),58,87);
258Iv5=reshape(uv_total(it,5),58,87);
259it=find(uv_total(:,1)==6);
260Iu6=reshape(uv_total(it,4),58,87);
261Iv6=reshape(uv_total(it,5),58,87);
262it=find(uv_total(:,1)==7);
263Iu7=reshape(uv_total(it,4),58,87);
264Iv7=reshape(uv_total(it,5),58,87);
265it=find(uv_total(:,1)==8);
266Iu8=reshape(uv_total(it,4),58,87);
267Iv8=reshape(uv_total(it,5),58,87);
268it=find(uv_total(:,1)==9);
269Iu9=reshape(uv_total(it,4),58,87);
270Iv9=reshape(uv_total(it,5),58,87);
271it=find(uv_total(:,1)==10);
272Iu10=reshape(uv_total(it,4),58,87);
273Iv10=reshape(uv_total(it,5),58,87);
274it=find(uv_total(:,1)==11);
275Iu11=reshape(uv_total(it,4),58,87);
276Iv11=reshape(uv_total(it,5),58,87);
277it=find(uv_total(:,1)==12);
278Iu12=reshape(uv_total(it,4),58,87);
279Iv12=reshape(uv_total(it,5),58,87);
280it=find(uv_total(:,1)==13);
281Iu13=reshape(uv_total(it,4),58,87);
282Iv13=reshape(uv_total(it,5),58,87);
283it=find(uv_total(:,1)==14);
284Iu14=reshape(uv_total(it,4),58,87);
285Iv14=reshape(uv_total(it,5),58,87);
286it=find(uv_total(:,1)==15);
287Iu15=reshape(uv_total(it,4),58,87);
288Iv15=reshape(uv_total(it,5),58,87);
289it=find(uv_total(:,1)==16);
290Iu16=reshape(uv_total(it,4),58,87);
291Iv16=reshape(uv_total(it,5),58,87);
292it=find(uv_total(:,1)==17);
293Iu17=reshape(uv_total(it,4),58,87);
294Iv17=reshape(uv_total(it,5),58,87);
295it=find(uv_total(:,1)==18)
296Iu18=reshape(uv_total(it,4),58,87);
297Iv18=reshape(uv_total(it,5),58,87);
298it=find(uv_total(:,1)==19)
299Iu19=reshape(uv_total(it,4),58,87);
300Iv19=reshape(uv_total(it,5),58,87);
301% it=find(uv_total(:,1)==20);
302% I20=reshape(uv_total(it,4),58,87);
303% it=find(uv_total(:,1)==21);
304% I21=reshape(uv_total(it,4),58,87);
305% it=find(uv_total(:,1)==22);
306% I22=reshape(uv_total(it,4),58,87);
307% it=find(uv_total(:,1)==23);
308% I23=reshape(uv_total(it,4),58,87);
309% it=find(uv_total(:,1)==24);
310% I24=reshape(uv_total(it,4),58,87);
311% it=find(uv_total(:,1)==25);
312% I25=reshape(uv_total(it,4),58,87);
313% it=find(uv_total(:,1)==26);
314% I26=reshape(uv_total(it,4),58,87);
315% it=find(uv_total(:,1)==27);
316% I27=reshape(uv_total(it,4),58,87);
317% it=find(uv_total(:,1)==28);
318% I28=reshape(uv_total(it,4),58,87);
319% it=find(uv_total(:,1)==29);
320% I29=reshape(uv_total(it,4),58,87);
321% it=find(uv_total(:,1)==30);
322% I30=reshape(uv_total(it,4),58,87);
323% it=find(uv_total(:,1)==31);
324% I31=reshape(uv_total(it,4),58,87);
325% it=find(uv_total(:,1)==32);
326% I32=reshape(uv_total(it,4),58,87);
327% it=find(uv_total(:,1)==33);
328% I33=reshape(uv_total(it,4),58,87);
329% it=find(uv_total(:,1)==34);
330% I34=reshape(uv_total(it,4),58,87);
331% it=find(uv_total(:,1)==35);
332% I35=reshape(uv_total(it,4),58,87);
333% it=find(uv_total(:,1)==36);
334% I36=reshape(uv_total(it,4),58,87);
335
336Cu=(Iu0+Iu1+Iu2+Iu3+Iu4+Iu5+Iu6+Iu7+Iu8+Iu9+Iu10+Iu11+Iu12+Iu13+Iu14+Iu15+Iu16+Iu17+Iu18+Iu19)/20;
337Cv=(Iv0+Iv1+Iv2+Iv3+Iv4+Iv5+Iv6+Iv7+Iv8+Iv9+Iv10+Iv11+Iv12+Iv13+Iv14+Iv15+Iv16+Iv17+Iv18+Iv19)/20;
338
339F1=(Tu-Cu).^2+(Tv-Cv).^2;
340imagesc(F1)
341
342F2=(Bu-Cu).^2+(Bv-Cv).^2;
343figure(4)
344imagesc(F2)
Note: See TracBrowser for help on using the repository browser.