%?Dynamic?Fourier?Transform?Profilometry?for?Demonstration;
%?The?main?part?of?programme;
%?Edited?on?Apirl.?10th;?By?Qican?Zhang.
%
%?L0:?the?distance?between?CCD?Camera?and?object;%CCD相機和物體之間的距離
%??d:?the?distance?between?CCD?Camera?and?projector;%CCD和投影儀之間的距離
%??p:?the?period?of?grating?imaging?on?reference?plane;投影到參考平面上的光柵周期
%??N:?the?total?number?of?pixels?in?row/column?of?image?data（N*N）;圖片的大小行列數
%??n:?the?total?number?of?frames?of?image?data?（n?frames）;總共的幀數
%?sp:?the?shiftting?period?of?projected?grating?during?the?object‘s?motion;

clear?all
close?all
clc;

t0?=?clock;???%將當前時間作為日期向量返回

disp（‘?‘）;
disp（‘*************************?Begin!?*************************‘）;
disp（‘?‘）;

%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%
%?Input?the?parameters?and?initialize?them?for?using?later??%輸入參數和初始化以便后邊使用
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%
[L0dpNn]?=?ftp4demo_inputparam（540190825610）;
%%%%N=128;p0=6;n=2;theta=atan（2/5）;
%?

theta?=?atan（d/L0）;??????????

f0?=?cos（theta）/p;
%f0?=?1/p;
%~~~~~~~~~~~~~~~~~~~~~~%
%?Simulate?the?object?????????????????%
%~~~~~~~~~~~~~~~~~~~~~~%
for??i?=?1:n
????Z（::i）?=?（i/2）*peaks（N）;??????%引入物體??
end

%?[Z]?=?ftp4demo_fun_cri（Nn）;
%下面代表顯示第n個圖???figure;?mesh（Z（::n））;
idisp（Z（::n））;???set（gcf‘Color‘[1?1?1]）;?title（‘物體‘‘Fontsize‘34）;

%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%
%?Produce?the?referenced?fringe?and?deformed?fringe??%
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%
[g]?=?ftp4demo_fringe（Zf0Nntheta）;??%?產生參考平面上的條紋以及物體表面的條紋；

idisp（g（::n））;???set（gcf‘Color‘[1?1?1]）;?title（‘物表條紋‘‘Fontsize‘14）;
%?pause
%?gray2bmp（g）;

%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~