MatGpr2.0数据处理软件

MATGPR_R2.0探地雷达数据分析，数据处理。基于Matlab的简单易懂

%===========================================================
%               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
    % Job priority in batch queue - no job defined
    ENVAR.QUEUE.sigpos.step = 0;
    ENVAR.QUEUE.trimtw.step = 0;
    ENVAR.QUEUE.rmbackgr.step = 0;
    ENVAR.QUEUE.rmdc.step = 0;
    ENVAR.QUEUE.dewow.step = 0;
    ENVAR.QUEUE.dzthgain.step = 0;
    ENVAR.QUEUE.stdagc.step = 0;
    ENVAR.QUEUE.gtagc.step = 0;
    ENVAR.QUEUE.invpdecay.step = 0;
    ENVAR.QUEUE.invadecay.step = 0;
    ENVAR.QUEUE.rstime.step = 0;
    ENVAR.QUEUE.rsscan.step = 0;
    ENVAR.QUEUE.equalize.step = 0;
    ENVAR.QUEUE.firff.step = 0;    
    % 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 = 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2010-06-28 17:29  MATGPR_R2\analysis\
     目录           0  2010-06-28 17:29  MATGPR_R2\analysis\alternative\
     文件         993  2006-06-18 22:33  MATGPR_R2\analysis\alternative\dewow_old.m
     目录           0  2010-06-28 17:29  MATGPR_R2\analysis\alternative\gazdagmig+migrate.f90\
     文件        6144  2008-12-22 03:01  MATGPR_R2\analysis\alternative\gazdagmig+migrate.f90\gazdagmig.m
     文件      170496  2004-03-30 02:40  MATGPR_R2\analysis\alternative\gazdagmig+migrate.f90\migrate.exe
     文件        9368  2004-03-30 02:40  MATGPR_R2\analysis\alternative\gazdagmig+migrate.f90\migrate.f90
     目录           0  2010-06-28 17:29  MATGPR_R2\analysis\alternative\Splitstep_model+radar2d4.f90\
     文件      477244  2006-01-04 04:28  MATGPR_R2\analysis\alternative\Splitstep_model+radar2d4.f90\radar2d4.exe
     文件       32077  2006-01-04 04:28  MATGPR_R2\analysis\alternative\Splitstep_model+radar2d4.f90\Radar2d4.f90
     文件        9659  2008-12-22 02:57  MATGPR_R2\analysis\alternative\Splitstep_model+radar2d4.f90\splitstep2dmodel.m
     文件        3104  2006-06-09 10:58  MATGPR_R2\analysis\baseline.m
     文件       10754  2010-04-22 16:18  MATGPR_R2\analysis\Batch_Job_Figure.fig
     文件       52114  2009-01-22 18:37  MATGPR_R2\analysis\build2dmodel.m
     文件        2160  2006-02-07 02:44  MATGPR_R2\analysis\centroid.m
     文件        2127  2008-12-21 14:51  MATGPR_R2\analysis\dewow.m
     文件       12076  2008-12-01 20:58  MATGPR_R2\analysis\editmarkers.m
     文件       16042  2010-04-22 17:04  MATGPR_R2\analysis\editscanaxis.m
     文件        8316  2010-04-22 16:13  MATGPR_R2\analysis\equalize.m
     目录           0  2010-06-28 17:29  MATGPR_R2\analysis\fdtd\
     文件         949  2005-11-15 12:02  MATGPR_R2\analysis\fdtd\blackharrispulse.m
     文件         994  2005-11-15 12:02  MATGPR_R2\analysis\fdtd\finddt.m
     文件        2195  2005-11-15 12:02  MATGPR_R2\analysis\fdtd\finddx.m
     文件        8405  2009-01-22 18:41  MATGPR_R2\analysis\fdtd\getemproperties.m
     文件         822  2005-11-15 12:02  MATGPR_R2\analysis\fdtd\gridinterp.m
     文件         778  2005-11-15 12:02  MATGPR_R2\analysis\fdtd\padgrid.m
     文件       10068  2008-11-30 22:13  MATGPR_R2\analysis\fdtd\run_FDTD_model.m
     文件       21197  2008-11-30 19:30  MATGPR_R2\analysis\fdtd\TM_model2d.m
     文件        5590  2009-01-22 15:21  MATGPR_R2\analysis\fir_f1.m
     文件        6869  2009-01-22 15:56  MATGPR_R2\analysis\fir_f2.m
     文件       12583  2009-01-22 18:51  MATGPR_R2\analysis\fitdiffractionhyperbola.m
............此处省略324个文件信息