clear?all
clf
clc
I1=zeros（256256）;
I2=zeros（256256）;
I3=zeros（256256）;
I4=zeros（256256）;

figure（1）;????????%生成四幅干涉圖并顯示?
a=-80:0.1:80;
b=meshgrid（a）;
I1=cos（b-pi）;
%Ia（::1）=I1;Ia（::2）=0;Ia（::3）=0;（red）

imshow（I1）;

figure（2）;
I2=cos（b-pi/2）;
imshow（I2）;

figure（3）;
I3=cos（b）;
imshow（I3）;

figure（4）;
I4=cos（b+pi/2）;
imshow（I4）;
for?j=1:256
????for?i=1:256
phase（ij）=atan2（I2（ij）-I4（ij）I1（ij）-I3（ij））;???
?end
????end

%四步相移法計算出相位
??????????
figure（5）;
imshow（mat2gray（phase））;

figure（6）;
imshow（phase）;

n=zeros（256256）;???%解包
n（11）=0;
for?i=2:256
????if?abs（phase（1i）-phase（1i-1））????????n（1i）=n（1i-1）;
????elseif?phase（1i）-phase（1i-1）<=-pi
????????n（1i）=n（1i-1）+1;
????elseif?phase（1i）-phase（1i-1）>=pi
????????n（1

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????1327158??2006-07-04?21:55??四步相移法程序\a.bmp

?????文件????1327158??2006-07-04?21:56??四步相移法程序\b.bmp

?????文件????1327158??2006-07-04?21:58??四步相移法程序\c.bmp

?????文件????1327158??2006-07-04?21:57??四步相移法程序\d.bmp

?????文件???????1249??2013-06-17?21:00??四步相移法程序\ma.m

?????文件???????1393??2013-06-18?11:27??四步相移法程序\ma2.m

????..A.SH.?????12800??2013-06-16?10:39??四步相移法程序\Thumbs.db

?????目錄??????????0??2013-06-17?16:58??四步相移法程序

-----------?---------??----------?-----??----

??????????????5324074????????????????????8