/[MITgcm]/MITgcm_contrib/afe/osse_MkII/piv/pivver.m
ViewVC logotype

Contents of /MITgcm_contrib/afe/osse_MkII/piv/pivver.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Fri Jul 22 17:50:43 2005 UTC (20 years ago) by afe
Branch: MAIN
CVS Tags: HEAD
PIV scripts

1 Afile='';
2 Bfile='';
3
4
5 % 6 passes starting with 64*64 windows and ending with 16*16.
6 winsize=[64 64;64 64;32 32;32 32;16 16;16 16];
7 winsize=[64 64;32 32;32 32;16 16;16 16];
8 winsize=[64 64;64 64;32 32;32 32];
9 winsize=[64 64;64 64];
10
11 % 5 passes ending up with 32*16 pixels large interrogation regions
12 %winsize=[64 64;64 32;32 32;32 16;32 16];
13 %winsize=[32 32;32 32;16 16;16 16;8 8;8 8];
14 delT=0.078;
15 overlap=0.75;
16 method='multin';
17 wocofile='worldco1.mat';
18 %wocofile='worldco4.mat';
19 %wocofile='';
20 mask='polymask.mat';
21
22
23
24
25
26 [filelist]=textread('filelist.txt','%[^\n]');
27
28 for pair=1:2:(size(filelist))
29
30 Afile=cell2mat(filelist(pair))
31 Bfile=cell2mat(filelist(pair+1))
32 %Cfile=cell2mat(filelist(pair+2))
33
34
35 [Atick level]=strread(Afile,'frame.%u.%[^.].jpg');
36 [Btick level]=strread(Bfile,'frame.%u.%[^.].jpg');
37 %[Ctick level]=strread(Cfile,'frame.%u.%[^.].jpg');
38 delT1=(Btick-Atick)/1000;
39 %delT2=Ctick-Atick;
40 %delT2=(Ctick-Btick)/1000;
41
42
43 [x1,y1,u1,v1,snr1,pkh1]=matpiv(Afile,Bfile,winsize,delT1,...
44 overlap,method,wocofile,mask);
45 % [x2,y2,u2,v2,snr2,pkh2]=matpiv(Bfile,Cfile,winsize,delT2,...
46 % overlap,method,wocofile,mask);
47 %[x,y,u,v]=matpiv(Afile,Bfile,winsize,delT,overlap,method);
48 %[su,sv]=snrfilt(x,y,u,v,snr,1.3);
49 %[pu,pv]=peakfilt(x,y,su,sv,pkh,0.5);
50 %[gu,gv]=globfilt(x,y,pu,pv,3);
51 %[mu,mv]=localfilt(x,y,gu,gv,2,'median',3,'polymask.mat');
52 %[fu,fv]=naninterp(mu,mv,'linear','polymask.mat',x,y);
53
54
55
56 field=(pair+1)/2
57
58 if 1
59
60 SNR(:,:,field)=snr1;
61
62 [su1,sv1]=snrfilt(x1,y1,u1,v1,snr1,1.2);
63 SU1(:,:,field)=su1;
64 SV1(:,:,field)=sv1;
65
66 %[su2,sv2]=snrfilt(x2,y2,u2,v2,snr2,1.3);
67 %SU2(:,:,field)=su2;
68 %SV2(:,:,field)=sv2;
69
70 if 1
71 [pu1,pv1]=peakfilt(x1,y1,su1,sv1,pkh1,0.3);
72 PU1(:,:,field)=pu1;
73 PV1(:,:,field)=pv1;
74
75 %[pu2,pv2]=peakfilt(x2,y2,su2,sv2,pkh2,0.4);
76 %PU2(:,:,field)=pu2;
77 %PV2(:,:,field)=pv2;
78 else
79 pu1=su1;
80 pv1=sv1;
81 pu2=su2;
82 pv2=sv2;
83 end
84
85 [gu1,gv1]=globfilt(x1,y1,pu1,pv1,4);
86 GU1(:,:,field)=gu1;
87 GV1(:,:,field)=gv1;
88
89 XX1(:,:,field)=x1;
90 YY1(:,:,field)=y1;
91
92 %[gu2,gv2]=globfilt(x2,y2,pu2,pv2,4);
93 %GU2(:,:,field)=gu2;
94 %GV2(:,:,field)=gv2;
95
96 if 0
97 [mu1,mv1]=localfilt(x1,y1,gu1,gv1,2,'median',3,mask);
98 MU1(:,:,field)=mu1;
99 MV1(:,:,field)=mv1;
100
101 [mu2,mv2]=localfilt(x2,y2,gu2,gv2,2,'median',3,mask);
102 MU2(:,:,field)=mu2;
103 MV2(:,:,field)=mv2;
104
105 [fu1,fv1]=naninterp(mu1,mv1,'linear',mask,x1,y1);
106 FU1(:,:,field)=fu1;
107 FV1(:,:,field)=fv1;
108
109 [fu2,fv2]=naninterp(mu2,mv2,'linear',mask,x2,y2);
110 FU2(:,:,field)=fu2;
111 FV2(:,:,field)=fv2;
112 end;
113
114 end
115
116 end;
117
118 save errsuite.mat GU1 GV1 XX1 YY1;
119
120
121
122

  ViewVC Help
Powered by ViewVC 1.1.22