Mercurial > octave

comparison scripts/plot/ribbon.m @ 8664:e07e93c04080

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes
author John W. Eaton <jwe@octave.org>
date Wed, 04 Feb 2009 10:56:23 -0500
parents 85c9906abfd1
children eb63fbe60fab
comparison
equal deleted inserted replaced
8663:4238f2600a17 8664:e07e93c04080
48 print_usage (); 48 print_usage ();
49 endif 49 endif
50 50
51 if (isvector (x) && isvector (y)) 51 if (isvector (x) && isvector (y))
52 if (length (x) != length (y)) 52 if (length (x) != length (y))
53 error ("ribbon: in case of vectors, X and Y must have same length") 53 error ("ribbon: in case of vectors, X and Y must have same length");
54 else 54 else
55 [x, y] = meshgrid (x, y); 55 [x, y] = meshgrid (x, y);
56 endif 56 endif
57 else 57 else
58 if (! size_equal(x, y)) 58 if (! size_equal(x, y))
59 error ("ribbon: in case of matrices, X and Y must have same size") 59 error ("ribbon: in case of matrices, X and Y must have same size");
60 endif 60 endif
61 endif 61 endif
62 62
63 [nr, nc] = size (y); 63 [nr, nc] = size (y);
64 tmp = zeros (1, nc); 64 tmp = zeros (1, nc);