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

Annotation 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 - (hide annotations) (download)
Fri Jul 22 17:50:43 2005 UTC (20 years ago) by afe
Branch: MAIN
CVS Tags: HEAD
PIV scripts

1 afe 1.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