%===========================================================
%???????????????This?is?the?MATGPR?GUI?
%?Initializes?work?variables?and?sets?up?the?interface?for?
%?GPR?data?processing?and?interpretation?with?the?MATGPR?system
%===========================================================
%
%?Author?:?Andreas?Tzanis
%??????????Department?of?Geophysics?
%??????????University?of?Athens
%??????????atzanis@geol.uoa.gr
%
%?Copyright?（C）?20052008?Andreas?Tzanis.?All?rights?reserved.
%
%??This?program?is?free?software;?you?can?redistribute?it?and/or?modify
%??it?under?the?terms?of?the?GNU?General?Public?License?as?published?by
%??the?Free?Software?Foundation;?either?version?2?of?the?License?or
%??（at?your?option）?any?later?version.
%
%??This?program?is?distributed?in?the?hope?that?it?will?be?useful
%??but?WITHOUT?ANY?WARRANTY;?without?even?the?implied?warranty?of
%??MERCHANTABILITY?or?FITNESS?FOR?A?PARTICULAR?PURPOSE.??See?the
%??GNU?General?Public?License?for?more?details.
%
%??You?should?have?received?a?copy?of?the?GNU?General?Public?License
%??along?with?this?program;?if?not?write?to?the?Free?Software
%??Foundation?Inc.?675?Mass?Ave?Cambridge?MA?02139?USA.
%

%?Initialize?structure?of?velocity?distributions
global?VS
VS.v1d???=?[];
VS.v2d???=?[];
VS.zv2d??=?[];
VS.dzmig?=?[];
%?Initialize?structure?of?global?environmental?settings
global?ENVAR
if?exist（‘io/matgpr_preferences.mat‘‘file‘）?==?2
????ENVAR?=?importdata（‘io/matgpr_preferences.mat‘）;
else
????%?Computer?system?and?byte?ordering
????[ENVAR.computer_system?maxsize?ENVAR.endian]?=?computer;
????ENVAR.endian?=?lower（ENVAR.endian）;
????clear?maxsize
????%?Default?display?settings
????ENVAR.DisplayOption?=?‘image‘;
????ENVAR.wigglescale???=?1;
????ENVAR.maxwigs???????=?100;
????%?Default?option?for?designing?frequency?or?wavenumber?filters
????ENVAR.Design_Filter?=?‘TESTTR‘;
????%?Default?colour?map
????ENVAR.colormap?=?‘jet‘;
????%?Binary?file?save?options
????ENVAR.matlabrelease?=?sscanf（version（‘-release‘）‘%d?%f‘）;
????ENVAR.binary_file_type?=?‘mgp‘;
????ENVAR.matfileformat?=?‘-mat‘;
????%?Number?of?UNDO?levels
????ENVAR.undolevels?=?4;
????%?Default?SEG-Y?exportation?format?is?IEEE?floating?point?（Revision?1）
????ENVAR.SEGY_DataSampleFormat?=?5;
end
%?Initialize?the?current?work?directory?to?the?default?-?always?override
%?the?value?imported?from?matgpr_preferences.mat
ENVAR.currentworkdir?=?[eval（‘pwd‘）?‘/work/‘];?
%?Set?Version?Number?-?always?override?the?value?imported?from
%?matgpr_preferences.mat?
ENVAR.CURRENT_VERSION?=?‘2.1.3.2‘;
%%%
%%%?Directory?structure
p=path;?lp=length（p）;?
if?strcmp（p（lp-3:lp）‘matgpr‘）~=1?
????path（patheval（‘pwd‘））;
????path（path[eval（‘pwd‘）?‘/toplevel‘]）;
????path（path[eval（‘pwd‘）?‘/toplevel/callbacks‘]）;
????path（path[eval（‘pwd‘）?‘/io‘]）;
????path（path[eval（‘pwd‘）?‘/io/3dview‘]）;
????path（path[eval（‘pwd‘）?‘/analysis‘]）;
????path（path[eval（‘pwd‘）?‘/analysis/fdtd‘]）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2009-01-26?11:36??MATGPR_R2\analysis\
?????目錄???????????0??2009-01-02?15:26??MATGPR_R2\analysis\alternative\
?????文件?????????993??2006-06-18?21:33??MATGPR_R2\analysis\alternative\dewow_old.m
?????目錄???????????0??2008-12-11?19:47??MATGPR_R2\analysis\alternative\gazdagmig+migrate.f90\
?????文件????????6144??2008-12-22?02:01??MATGPR_R2\analysis\alternative\gazdagmig+migrate.f90\gazdagmig.m
?????文件??????170496??2004-03-30?01:40??MATGPR_R2\analysis\alternative\gazdagmig+migrate.f90\migrate.exe
?????文件????????9368??2004-03-30?01:40??MATGPR_R2\analysis\alternative\gazdagmig+migrate.f90\migrate.f90
?????目錄???????????0??2008-12-11?19:47??MATGPR_R2\analysis\alternative\Splitstep_model+radar2d4.f90\
?????文件??????477244??2006-01-04?03:28??MATGPR_R2\analysis\alternative\Splitstep_model+radar2d4.f90\radar2d4.exe
?????文件???????32077??2006-01-04?03:28??MATGPR_R2\analysis\alternative\Splitstep_model+radar2d4.f90\Radar2d4.f90
?????文件????????9659??2008-12-22?01:57??MATGPR_R2\analysis\alternative\Splitstep_model+radar2d4.f90\splitstep2dmodel.m
?????文件????????3104??2006-06-09?09:58??MATGPR_R2\analysis\baseline.m
?????文件???????52114??2009-01-22?17:37??MATGPR_R2\analysis\build2dmodel.m
?????文件????????2160??2006-02-07?01:44??MATGPR_R2\analysis\centroid.m
?????文件????????2127??2008-12-21?13:51??MATGPR_R2\analysis\dewow.m
?????文件???????12076??2008-12-01?19:58??MATGPR_R2\analysis\editmarkers.m
?????文件???????15673??2006-05-13?19:59??MATGPR_R2\analysis\editscanaxis.m
?????文件????????8040??2006-06-28?12:53??MATGPR_R2\analysis\equalize.m
?????目錄???????????0??2008-12-11?18:22??MATGPR_R2\analysis\fdtd\
?????文件?????????949??2005-11-15?11:02??MATGPR_R2\analysis\fdtd\blackharrispulse.m
?????文件?????????994??2005-11-15?11:02??MATGPR_R2\analysis\fdtd\finddt.m
?????文件????????2195??2005-11-15?11:02??MATGPR_R2\analysis\fdtd\finddx.m
?????文件????????8405??2009-01-22?17:41??MATGPR_R2\analysis\fdtd\getemproperties.m
?????文件?????????822??2005-11-15?11:02??MATGPR_R2\analysis\fdtd\gridinterp.m
?????文件?????????778??2005-11-15?11:02??MATGPR_R2\analysis\fdtd\padgrid.m
?????文件???????10068??2008-11-30?21:13??MATGPR_R2\analysis\fdtd\run_FDTD_model.m
?????文件???????21197??2008-11-30?18:30??MATGPR_R2\analysis\fdtd\TM_model2d.m
?????文件????????5590??2009-01-22?14:21??MATGPR_R2\analysis\fir_f1.m
?????文件????????6869??2009-01-22?14:56??MATGPR_R2\analysis\fir_f2.m
?????文件???????12583??2009-01-22?17:51??MATGPR_R2\analysis\fitdiffractionhyperbola.m
?????文件???????14177??2008-12-01?20:51??MATGPR_R2\analysis\fk_filter.m
............此處省略416個文件信息