four phase-step.rar_四步相移_四步相移成像_相位成像程序_相移_相移算法

function [pw]=fourstep2(psv,rect,filepath,dx,dy) x1=rect(2); x2=rect(2)+rect(4); y1=rect(1); y2=rect(1)+rect(3); [~,r0]=min(abs(abs(psv(1:120))-0)); [~,r1]=min(abs(abs(psv(1:120))-(pi/2))); [~,r2]=min(abs(abs(psv(1:120))-(pi))); [~,r3]=min(abs(abs(psv(1:120))-(1.5*pi))); % %======包裹相位======% filename0=strcat(filepath,'1.bmp',int2str(r0),'.bmp'); filename1=strcat(filepath,'1.bmp',int2str(r1),'.bmp'); filename2=strcat(filepath,'1.bmp',int2str(r2),'.bmp'); filename3=strcat(filepath,'1.bmp',int2str(r3),'.bmp'); % I1=imread(filename0); I1=double(I1(x1+dx:x2+dx,y1+dy:y2+dy)); I2=imread(filename1); I2=double(I2(x1+dx:x2+dx,y1+dy:y2+dy)); I3=imread(filename2); I3=double(I3(x1+dx:x2+dx,y1+dy:y2+dy)); I4=imread(filename3); I4=double(I4(x1+dx:x2+dx,y1+dy:y2+dy)); pw=atan2((I4-I2),(I1-I3)); end