logtype2las.m

Univ. of Calgary CREWS的免费地震研究软件

function [mnem,name]=logtype2las(itype)

% [mnem,name]=logtype2las(itype)
% 
% Convert a numeric logtype, as generated by LAS2LOGTYPE, to a 4 letter 
% las mnemonic identifying a log.
% The master list of possible numeric logtypes is to be found in
% the source for las2logtype.m
% Calling the function with no arguments returns a matrix of the 
% currently supported mnemonics, and a matrix of the corresponiong long
% names, one per line. Each mnemonic is 4 chars.
%
% As of Dec 7, 1995, these were:
% -1 ... unknown or un-specified
% 0  ... p-wave sonic
% 1  ... bulk density
% 2  ... formation denisty
% 3  ... apparent density
% 4  ... gamma ray
% 5  ... spontaneous potential
% 6  ... caliper
% 7  ... s-wave sonic
% 8  ... neutron porosity
% 9  ... apparent porosity
% 10 ... porosity density ???
% 11 ... porosity effective
% 12 ... porosity total
% 13 ... focussed resistivity
% 14 ... medium induction
% 15 ... deep induction
% 16 ... SFL resistivity
% 17 ... mel caliper
% 18 ... micronormal
% 19 ... microinverse
% 20 ... porosity density (SS)
% 21 ... Poissons ratio
% 22 ... VP/VS ratio
% 23 ... Youngs Modulus
% 24 ... Lames Lamda Constant
% 25 ... Lames Rigidity
% 26 ... Bulk Modulus
% 27 ... P-wave velocity
% 28 ... S-wave velocity
% 29 ... S-wave from array sonic
% 30 ... P-wave from array sonic
% 31 ... Gamma ray density
% 32 ... Gamma ray porosity
% 33 ... Photoelectric cross section
%
% NOTE: It is illegal for you to use this software for a purpose other
% than non-profit education or research UNLESS you are employed by a CREWES
% Project sponsor. By using this software, you are agreeing to the terms
% detailed in this software's Matlab source file.
 
% BEGIN TERMS OF USE LICENSE
%
% This SOFTWARE is maintained by the CREWES Project at the Department
% of Geology and Geophysics of the University of Calgary, Calgary,
% Alberta, Canada.  The copyright and ownership is jointly held by 
% its author (identified above) and the CREWES Project.  The CREWES 
% project may be contacted via email at:  [e-mail]
% 
% The term 'SOFTWARE' refers to the Matlab source code, translations to
% any other computer language, or object code
%
% Terms of use of this SOFTWARE
%
% 1) Use of this SOFTWARE by any for-profit commercial organization is
%    expressly forbidden unless said organization is a CREWES Project
%    Sponsor.
%
% 2) A CREWES Project sponsor may use this SOFTWARE under the terms of the 
%    CREWES Project Sponsorship agreement.
%
% 3) A student or employee of a non-profit educational institution may 
%    use this SOFTWARE subject to the following terms and conditions:
%    - this SOFTWARE is for teaching or research purposes only.
%    - this SOFTWARE may be distributed to other students or researchers 
%      provided that these license terms are included.
%    - reselling the SOFTWARE, or including it or any portion of it, in any
%      software that will be resold is expressly forbidden.
%    - transfering the SOFTWARE in any form to a commercial firm or any 
%      other for-profit organization is expressly forbidden.
%
% END TERMS OF USE LICENSE



ntypes=35;
names_mtx=32*ones(ntypes,30);
mnem_mtx=32*ones(ntypes,4);

iitype=-1;
mnem_mtx(iitype+2,:)='UNKN';
name='Unknown';
names_mtx(iitype+2,1:length(name))=name;

iitype=0;
mnem_mtx(iitype+2,:)='SON ';
name='P-wave Sonic';
names_mtx(iitype+2,1:length(name))=name;

iitype=1;
mnem_mtx(iitype+2,:)='RHOB';
name='Bulk Density';
names_mtx(iitype+2,1:length(name))=name;

iitype=2;
mnem_mtx(iitype+2,:)='RHGF';
name='Formation Density';
names_mtx(iitype+2,1:length(name))=name;

iitype=3;
mnem_mtx(iitype+2,:)='RHGA';
name='Apparent Density';
names_mtx(iitype+2,1:length(name))=name;

iitype=4;
mnem_mtx(iitype+2,:)='GRC ';
name='Gamma Ray';
names_mtx(iitype+2,1:length(name))=name;

iitype=5;
mnem_mtx(iitype+2,:)='SP  ';
name='Spontaneous Potential';
names_mtx(iitype+2,1:length(name))=name;

iitype=6;
mnem_mtx(iitype+2,:)='CALI';
name='Caliper';
names_mtx(iitype+2,1:length(name))=name;

iitype=7;
mnem_mtx(iitype+2,:)='SSON';
name='S-wave Sonic';
names_mtx(iitype+2,1:length(name))=name;

iitype=8;
mnem_mtx(iitype+2,:)='NPHI';
name='Neutron Porosity';
names_mtx(iitype+2,1:length(name))=name;

iitype=9;
mnem_mtx(iitype+2,:)='PHIA';
name='Apparent Porosity';
names_mtx(iitype+2,1:length(name))=name;

iitype=10;
mnem_mtx(iitype+2,:)='PHID';
name='Porosity Density';
names_mtx(iitype+2,1:length(name))=name;

iitype=11;
mnem_mtx(iitype+2,:)='PHIE';
name='Porosity Effective';
names_mtx(iitype+2,1:length(name))=name;

iitype=12;
mnem_mtx(iitype+2,:)='PHIT';
name='Porosity Total';
names_mtx(iitype+2,1:length(name))=name;

iitype=13;
mnem_mtx(iitype+2,:)='SFLU';
name='Focussed Resistivity';
names_mtx(iitype+2,1:length(name))=name;

iitype=14;
mnem_mtx(iitype+2,:)='ILM ';
name='Medium Induction';
names_mtx(iitype+2,1:length(name))=name;

iitype=15;
mnem_mtx(iitype+2,:)='ILD ';
name='Deep Induction';
names_mtx(iitype+2,1:length(name))=name;

iitype=16;
mnem_mtx(iitype+2,:)='SFLR';
name='SFL Resistivity';
names_mtx(iitype+2,1:length(name))=name;

iitype=17;
mnem_mtx(iitype+2,:)='UNVI';
name='Mel Caliper';
names_mtx(iitype+2,1:length(name))=name;

iitype=18;
mnem_mtx(iitype+2,:)='MNOR';
name='Micro Normal';
names_mtx(iitype+2,1:length(name))=name;

iitype=19;
mnem_mtx(iitype+2,:)='MINV';
name='Micro Inverse';
names_mtx(iitype+2,1:length(name))=name;

iitype=20;
mnem_mtx(iitype+2,:)='DPSS';
name='Porosity Density SS';
names_mtx(iitype+2,1:length(name))=name;

iitype=21;
mnem_mtx(iitype+2,:)='POIS';
name='Poissons Ratio';
names_mtx(iitype+2,1:length(name))=name;

iitype=22;
mnem_mtx(iitype+2,:)='VPVS';
name='VP/VS Ratio';
names_mtx(iitype+2,1:length(name))=name;

iitype=23;
mnem_mtx(iitype+2,:)='YNGM';
name='Youngs Modulus';
names_mtx(iitype+2,1:length(name))=name;

iitype=24;
mnem_mtx(iitype+2,:)='LMDA';
name='Lames Lamda';
names_mtx(iitype+2,1:length(name))=name;

iitype=25;
mnem_mtx(iitype+2,:)='RIDG';
name='Lames Rigidity';
names_mtx(iitype+2,1:length(name))=name;

iitype=26;
mnem_mtx(iitype+2,:)='BMOD';
name='Bulk Modulus';
names_mtx(iitype+2,1:length(name))=name;

iitype=27;
mnem_mtx(iitype+2,:)='VP  ';
name='P-wave Velocity';
names_mtx(iitype+2,1:length(name))=name;

iitype=28;
mnem_mtx(iitype+2,:)='VS  ';
name='S-wave Velocity';
names_mtx(iitype+2,1:length(name))=name;

iitype=29;
mnem_mtx(iitype+2,:)='ASSW';
name='S-wave array sonic';
names_mtx(iitype+2,1:length(name))=name;

iitype=30;
mnem_mtx(iitype+2,:)='ASPW';
name='P-wave array sonic';
names_mtx(iitype+2,1:length(name))=name;

iitype=31;
mnem_mtx(iitype+2,:)='GRD ';
name='Gamma ray density';
names_mtx(iitype+2,1:length(name))=name;

iitype=32;
mnem_mtx(iitype+2,:)='GRP ';
name='Gamma ray porosity';
names_mtx(iitype+2,1:length(name))=name;

iitype=33;
mnem_mtx(iitype+2,:)='PEF ';
name='Photoelectric cross section';
names_mtx(iitype+2,1:length(name))=name;

if(nargin==1)
 if(itype>ntypes-2)
		itype=-1;
	end
	mnem=mnem_mtx(itype+2,:);
	mnem=char(mnem);
	name=names_mtx(itype+2,:);
	name=char(name);
	return;
else
	mnem=mnem_mtx;
	mnem=char(mnem);
	name=names_mtx;
	name=char(name);
	return
end