全息谱Matlab程序

西安交大屈梁生院士所著全息诊断原理书中的自带程序

%DIRECT_2006_RIDC_WFJ%
function [direc]=dire（direc_X1direc_Y1direc_X2direc_Y2）
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     if direc_Y1>0
         if direc_X2>direc_X1
             direc=‘-‘;
         else
             direc=‘+‘;
         end
     end
     if direc_Y1<0
         if direc_X2>direc_X1
             direc=‘+‘;
         else
             direc=‘-‘;
         end
     end
     if direc_Y1==0
       if direc_X1>0
         if direc_Y2>0
             direc=‘+‘;
         else
             direc=‘-‘;
         end
       end
       if direc_X1<0
         if direc_Y2>0
             direc=‘-‘;
         else
             direc=‘+‘;
         end
       end
     end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
return

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2011-09-12 10:56  全息谱Matlab程序\
     文件        5118  2007-07-05 14:32  全息谱Matlab程序\ALN1.DH
     文件        4415  2007-07-05 14:32  全息谱Matlab程序\ALN1.DV
     文件        4915  2007-07-05 14:32  全息谱Matlab程序\ALNT1.DH
     文件        5086  2007-07-05 14:32  全息谱Matlab程序\ALNT1.DV
     文件       12626  2007-07-05 14:32  全息谱Matlab程序\BIS2.DH1
     文件       12659  2007-07-05 14:32  全息谱Matlab程序\BIS2.DH2
     文件       12682  2007-07-05 14:32  全息谱Matlab程序\BIS2.DV1
     文件       12600  2007-07-05 14:32  全息谱Matlab程序\BIS2.DV2
     文件        7200  2007-07-05 14:32  全息谱Matlab程序\BND1.DH1
     文件        7200  2007-07-05 14:32  全息谱Matlab程序\BND1.DV1
     文件        6293  2007-07-05 14:32  全息谱Matlab程序\CRK1.DH
     文件        5519  2007-07-05 14:32  全息谱Matlab程序\CRK1.DV
     文件         871  2007-07-05 14:32  全息谱Matlab程序\dire.m
     文件        5248  2007-07-05 14:32  全息谱Matlab程序\E0452.HLH
     文件        5248  2007-07-05 14:32  全息谱Matlab程序\E0452.HLV
     文件        4224  2007-07-05 14:32  全息谱Matlab程序\EXC1.DH
     文件        4736  2007-07-05 14:32  全息谱Matlab程序\EXC1.DV
     文件        1189  2007-07-05 14:32  全息谱Matlab程序\gr.m
     文件        1118  2007-07-05 14:32  全息谱Matlab程序\hanning_window.m
     文件       11768  2007-07-05 14:32  全息谱Matlab程序\holo2D.m
     文件        1430  2007-07-05 14:32  全息谱Matlab程序\holo3D.m
     文件        7168  2007-07-05 14:32  全息谱Matlab程序\ITF2.DH
     文件        6735  2007-07-05 14:32  全息谱Matlab程序\ITF2.DV
     文件        6143  2007-07-05 14:32  全息谱Matlab程序\JA1-HP2.H
     文件        6119  2007-07-05 14:32  全息谱Matlab程序\JA1-HP2.V
     文件       10752  2007-07-05 14:32  全息谱Matlab程序\PIP2.DH
     文件       10880  2007-07-05 14:32  全息谱Matlab程序\PIP2.DV
     文件        1223  2007-07-05 14:32  全息谱Matlab程序\rg.m
     文件        4992  2007-07-05 14:32  全息谱Matlab程序\RUB1.DH
     文件        6016  2007-07-05 14:32  全息谱Matlab程序\RUB1.DV
............此处省略7个文件信息