matlab探地雷达数据处理软件

一款利用matlab编写的探地雷达数据处理系统，开源免费。支持seg-y、su、dzt等格式的输入数据输入，能够进行增益显示、静校正处理、滤波去噪、偏移成像等常用的数据处理。

%===========================================================
%               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个文件信息