sgray.m

著名的seismiclab的代码 是地震学研究人员必备的工具

function sgray(alpha)
%SGRAY: Set a gray colormap 
%
%  sgray(alpha)
%
%  IN:   alpha: degree of clustering of B&W (try 5)
%
%  SeismicLab
%  Version 1
%
%  written by M.D.Sacchi, last modified December 10,  1998.
%  [e-mail]
%
%  Copyright (C) 1998 Seismic Processing and Imaging Group
%                     Department of Physics
%                     The University of Alberta
%



i0=32;
i = 1:64;
t = (atan((i-i0)/alpha))';
s = t(64);
t = (t - min(t))*1./(max(t) -min(t));


m(1:64,2) = 1-t;
m(:,1) = 1-t;
m(:,3) =1-t;
colormap(m);