Mercurial > octave-nkf

comparison scripts/image/rainbow.m @ 14552:86854d032a37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: miscellaneous style fixes for .m files * audio/mu2lin.m, deprecated/cut.m, general/cplxpair.m, general/genvarname.m, geometry/rectint.m, help/gen_doc_cache.m, image/hsv2rgb.m, image/rainbow.m, io/textscan.m, miscellaneous/bzip2.m, miscellaneous/compare_versions.m, miscellaneous/fact.m, miscellaneous/menu.m, optimization/fminbnd.m, optimization/fminunc.m, optimization/fzero.m, optimization/sqp.m, plot/__gnuplot_drawnow__.m, plot/axis.m, plot/findobj.m, plot/legend.m, plot/peaks.m, plot/private/__errplot__.m, plot/private/__fltk_print__.m, plot/private/__go_draw_axes__.m, plot/private/__patch__.m, polynomial/pchip.m, polynomial/residue.m, signal/periodogram.m, sparse/sprandsym.m, statistics/base/moment.m, statistics/distributions/expcdf.m, statistics/distributions/expinv.m, statistics/distributions/exppdf.m, statistics/tests/prop_test_2.m, statistics/tests/sign_test.m, statistics/tests/t_test.m, statistics/tests/t_test_2.m, statistics/tests/t_test_regression.m, strings/regexptranslate.m, time/datetick.m: Style fixes.
author John W. Eaton <jwe@octave.org>
date Wed, 11 Apr 2012 22:07:00 -0400
parents 932ba2bb9060
children b9c02ee24de1
comparison
equal deleted inserted replaced
14551:60ed9260399a 14552:86854d032a37
46 if (n == 1) 46 if (n == 1)
47 map = [1, 0, 0]; 47 map = [1, 0, 0];
48 elseif (n > 1) 48 elseif (n > 1)
49 x = linspace (0, 1, n)'; 49 x = linspace (0, 1, n)';
50 50
51 r = (x < 2/5) \ 51 r = ((x < 2/5)
52 + (x >= 2/5 & x < 3/5) .* (-5 * x + 3) \ 52 + (x >= 2/5 & x < 3/5) .* (-5 * x + 3)
53 + (x >= 4/5) .* (10/3 * x - 8/3); 53 + (x >= 4/5) .* (10/3 * x - 8/3));
54 54
55 g = (x < 2/5) .* (5/2 * x) \ 55 g = ((x < 2/5) .* (5/2 * x)
56 + (x >= 2/5 & x < 3/5) \ 56 + (x >= 2/5 & x < 3/5)
57 + (x >= 3/5 & x < 4/5) .* (-5 * x + 4); 57 + (x >= 3/5 & x < 4/5) .* (-5 * x + 4));
58 58
59 b = (x >= 3/5 & x < 4/5) .* (5 * x - 3) \ 59 b = (x >= 3/5 & x < 4/5) .* (5 * x - 3) + (x >= 4/5);
60 + (x >= 4/5);
61 60
62 map = [r, g, b]; 61 map = [r, g, b];
63 else 62 else
64 map = []; 63 map = [];
65 endif 64 endif