matlab读取地震数据sgy

matlab读取地震数据sgy

% ascii2ebcdic : Converts ASCII formatted text to EBCDIC formatted text
%
% CALL : ebcdic=ascii2ebcdic（ascii）;
%
% ascii  : Array on unsigned integers
% ebcdic : Array on unsigned integers
%
% （C） 2002-2009 Thomas Mejer Hansen tmh@gfy.ku.dk/thomas.mejer.hansen@gmail.com
% 

%
%    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. 59 Temple Place Suite 330 Boston MA  02111-1307  USA
%
function ebcdic=ascii2ebcdic（ascii）
  
  ebcdic_arr=[
    ‘00‘;‘01‘;‘02‘;‘03‘;‘04‘;‘05‘;‘06‘;‘07‘;‘08‘;‘09‘;
    ‘0A‘;‘0B‘;‘0C‘;‘0D‘;‘0E‘;‘0F‘;‘10‘;‘11‘;‘12‘;‘13‘;
    ‘14‘;‘15‘;‘16‘;‘17‘;‘18‘;‘19‘;‘1A‘;‘1B‘;‘1C‘;‘1D‘;
    ‘1E‘;‘1F‘;‘20‘;‘21‘;‘22‘;‘23‘;‘24‘;‘25‘;‘26‘;‘27‘;
    ‘28‘;‘29‘;‘2A‘;‘2B‘;‘2C‘;‘2D‘;‘2E‘;‘2F‘;‘30‘;‘31‘;
    ‘32‘;‘33‘;‘34‘;‘35‘;‘36‘;‘37‘;‘38‘;‘39‘;‘3A‘;‘3B‘;
    ‘3C‘;‘3D‘;‘3E‘;‘3F‘;‘40‘;‘4A‘;‘4B‘;‘4C‘;‘4D‘;‘4E‘;
    ‘4F‘;‘50‘;‘5A‘;‘5B‘;‘5C‘;‘5D‘;‘5E‘;‘5F‘;‘60‘;‘61‘;
    ‘6A‘;‘6B‘;‘6C‘;‘6D‘;‘6E‘;‘6F‘;‘79‘;‘7A‘;‘7B‘;‘7C‘;
    ‘7D‘;‘7E‘;‘7F‘;‘81‘;‘82‘;‘83‘;‘84‘;‘85‘;‘86‘;‘87‘;
    ‘88‘;‘89‘;‘91‘;‘92‘;‘93‘;‘94‘;‘95‘;‘96‘;‘97‘;‘98‘;
    ‘99‘;‘A1‘;‘A2‘;‘A3‘;‘A4‘;‘A5‘;‘A6‘;‘A7‘;‘A8‘;‘A9‘;
    ‘C0‘;‘C1‘;‘C2‘;‘C3‘;‘C4‘;‘C5‘;‘C6‘;‘C7‘;‘C8‘;‘C9‘;
    ‘D0‘;‘D1‘;‘D2‘;‘D3‘;‘D4‘;‘D5‘;‘D6‘;‘D7‘;‘D8‘;‘D9‘;
    ‘E0‘;‘E2‘;‘E3‘;‘E4‘;‘E5‘;‘E6‘;‘E7‘;‘E8‘;‘E9‘;‘F0‘;
    ‘F1‘;‘F2‘;‘F3‘;‘F4‘;‘F5‘;‘F6‘;‘F7‘;‘F8‘;‘F9‘;‘FF‘;
    ‘00‘;‘01‘;‘02‘;‘03‘;‘37‘;‘2D‘;‘2E‘;‘2F‘;‘2F‘;‘16‘;
    ‘05‘;‘25‘;‘0B‘;‘0C‘;‘0D‘;‘10‘;‘11‘;‘12‘;‘13‘;‘3C‘;
    ‘3D‘;‘32‘;‘26‘;‘18‘;‘3F‘;‘27‘;‘1C‘;‘1D‘;‘1D‘;‘1E‘;
    ‘1F‘;‘07‘;‘40‘;‘5A‘;‘7F‘;‘7B‘;‘5B‘;‘6C‘;‘50‘;‘7D‘;
    ‘4D‘;‘5D‘;‘5C‘;‘4E‘;‘6B‘;‘60‘;‘4B‘;‘61‘;‘F0‘;‘F1‘;
    ‘F2‘;‘F3‘;‘F4‘;‘F5‘;‘F6‘;‘F7‘;‘F8‘;‘F9‘;‘7A‘;‘5E‘;
    ‘4C‘;‘7E‘;‘6E‘;‘6F‘;‘7C‘;‘00‘;‘E0‘;‘00‘;‘00‘;‘6D‘;
    ‘79‘;‘C0‘;‘4F‘;‘D0‘;‘A1‘];

ascii_arr=[
    ‘00‘;‘01‘;‘02‘;‘03‘;‘9C‘;‘09‘;‘86‘;‘7F‘;‘97‘;‘8D‘;
    ‘8E‘;‘0B‘;‘0C‘;‘0D‘;‘0E‘;‘0F‘;‘10‘;‘11‘;‘12‘;‘13‘;
    ‘9D‘;‘85‘;‘08‘;‘87‘;‘18‘;‘19‘;‘92‘;‘8F‘;‘1C‘;‘1D‘;
    ‘1E‘;‘1F‘;‘80‘;‘81‘;‘82‘;‘83‘;‘84‘;‘0A‘;‘17‘;‘1B‘;
    ‘88‘;‘89‘;‘8A‘;‘8B‘;‘8C‘;‘05‘;‘06‘;‘07‘;‘90‘;‘91‘;
    ‘16‘;‘93‘;‘94‘;‘95‘;‘96‘;‘04‘;‘98‘;‘99‘;‘9A‘;‘9B‘;
    ‘14‘;‘15‘;‘9E‘;‘1A‘;‘20‘;‘A2‘;‘2E‘;‘3C‘;‘28‘;‘2B‘;
    ‘7C‘;‘26‘;‘21‘;‘24‘;‘2A‘;‘29‘;‘3B‘;‘AC‘;‘2D‘;‘2F‘;
    ‘A6‘;‘2C‘;‘25‘;‘5F‘;‘3E‘;‘3F‘;‘60‘;‘3A‘;‘23‘;‘40‘;
    ‘27‘;‘3D‘;‘22‘;‘61‘;‘62‘;‘63‘;‘64‘;‘65‘;‘66‘;‘67‘;
    ‘68‘;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       4036  2009-01-05 16:11  SegyMAT\ascii2ebcdic.m

     文件       9545  2004-07-26 14:15  SegyMAT\CheckSegyTraceHeader.m

     文件        233  2009-02-09 11:30  SegyMAT\cmap_rwb.m

     文件       2974  2004-07-26 14:15  SegyMAT\Contents.m

     文件       4029  2004-07-26 14:15  SegyMAT\ebcdic2ascii.m

     文件       7769  2010-01-18 12:07  SegyMAT\GetSegyHeader.m

     文件      10342  2006-09-18 13:54  SegyMAT\GetSegyHeaderBasics.m

     文件       1488  2004-07-26 14:15  SegyMAT\GetSegyTrace.m

     文件       2848  2004-07-26 14:15  SegyMAT\GetSegyTraceData.m

     文件       9028  2010-01-20 09:18  SegyMAT\GetSegyTraceHeader.m

     文件       1313  2004-07-26 14:15  SegyMAT\GetSegyTraceHeaderInfo.m

     文件        717  2008-11-28 14:52  SegyMAT\gse2segy.m

     文件       2532  2003-06-19 13:36  SegyMAT\ibm2num.m

     文件       4979  2004-07-26 14:15  SegyMAT\InitSegyTraceHeader.m

     文件        125  2004-12-14 11:34  SegyMAT\isoctave.m

     文件      24847  2005-08-27 19:54  SegyMAT\LICENSE

     文件        586  2007-03-30 10:34  SegyMAT\MakexmlRef.m

     文件       4061  2002-09-05 15:52  SegyMAT\num2ibm.m

     文件       1165  2009-02-09 13:11  SegyMAT\pick_line.m

     文件        889  2006-05-29 13:08  SegyMAT\progress_txt.m

     文件       9404  2004-07-26 14:15  SegyMAT\PutSegyHeader.m

     文件       9467  2007-08-30 10:13  SegyMAT\PutSegyTrace.m

     文件        856  2004-11-15 12:14  SegyMAT\README

     文件        826  2004-12-15 10:42  SegyMAT\README_OCTAVE

     文件       1235  2004-12-15 10:42  SegyMAT\README_STANDALONE

     文件         98  2005-08-27 19:54  SegyMAT\README_STANDALONE_WIN32.txt

     文件      17426  2009-08-06 08:35  SegyMAT\ReadSegy.m

     文件      17550  2006-08-04 11:48  SegyMAT\ReadSegyConstantTraceLength.m

     文件       7665  2004-12-15 10:42  SegyMAT\ReadSegyFast.m

     文件       6003  2008-09-18 08:38  SegyMAT\ReadSegyHeader.m

............此处省略47个文件信息