function s = spectral(m)%SPECTRAL Black-purple-blue-green-yellow-red-white color map.%%         map = spectral(num_colors)%% SPECTRAL(M) returns an M-by-3 matrix containing a "spectral" colormap.% SPECTRAL, by itself, is the same length as the current colormap.%% For example, to reset the colormap of the current figure:%%           colormap(spectral)%% See also HSV, GRAY, PINK, HOT, COOL, BONE, COPPER, FLAG,%          COLORMAP, RGBPLOT.% $Id: spectral.m,v 1.4 1997/10/20 18:23:22 greg Rel $% $Name: emma_v0_9_5 $%         Copyright (c) 1984-92 by The MathWorks, Inc.%         Spectral version made by Gabriel Leger, MBIC, MNI (c) 1993if nargin < 1, m = size(get(gcf,'colormap'),1); endn = fix(3/8*m);base = [ 1         0         0         0 2    0.1882         0    0.2510 3    0.2510         0    0.4392 4    0.2510         0    0.8784 5    0.1882         0    0.9412 6         0    0.3137    0.9412 7         0    0.6902    0.9412 8         0    0.9412    0.9412 9    0.0627    0.9412    0.9412 10    0.3137    0.9412    0.8784 11    0.3137    0.9412    0.3137 12    0.3765    0.9412         0 13    0.9412    0.9412         0 14    0.9412    0.9412    0.2510 15    0.9412    0.9098    0.2510 16    0.9412    0.6275         0 17    0.9412    0.1255         0 18    0.9412         0    0.4392 19    0.9412         0    0.6275 20    0.9412    0.7529    0.8784 21    1.0000    1.0000    1.0000];n = length(base);X0 = linspace (1, n, m);s = table(base,X0)';