Mercurial > hg > what-is-octave

comparison PoliMI2012/examples/dld.cc @ 4:0a1567794b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[mq]: folder_reorganization
author Carlo de Falco <cdf@users.sourceforge.net>
date Thu, 08 Nov 2012 09:55:34 +0100
parents
children
comparison
equal deleted inserted replaced
3:acc25d26e9e5 4:0a1567794b40
1 #include <octave/oct.h>
2
3 DEFUN_DLD(dld,args,nargout,"dld (array) \nreturn the elements of the array in reverse order\n")
4 {
5 octave_value_list retval;
6 int nargin = args.length ();
7
8 if (nargin != 1)
9 print_usage ();
10 else
11 {
12 Array<double> a = args(0).array_value ();
13 if (! error_state)
14 {
15 Array<double> b (a);
16 double* ap = a.fortran_vec ();
17 double* bp = b.fortran_vec ();
18 for (octave_idx_type i = a.numel () - 1, j = 0; i >= 0; i--, j++)
19 bp[i] = ap[j];
20 retval = octave_value (b);
21 }
22 }
23 return retval;
24 }