「GNU Octave/Octファイル」の版間の差分
削除された内容 追加された内容
Bethlehem4 (トーク | 投稿記録) Octファイルの実行例 |
Bethlehem4 (トーク | 投稿記録) Octファイルの実行例 |
||
8 行
=== 複素数 ===
** 参照[http://lists.gnu.org/archive/html/help-octave/2011-06/msg00312.html Ref]
<source lang="cpp">
#include <octave/oct.h>
DEFUN_DLD (pippo, args, , "test return statement")
{
dim_vector dims;
dims.resize (3);
dims(2) = 4;
dims(1) = 3;
dims(0) = 2;
ComplexNDArray a(dims, std::complex<double> (0.0, 0.0));
// or
//Array<std::complex<double> > a (dims, std::complex<double> (0.0, 0.0));
for (octave_idx_type i = 0; i < dims(0); i++) {
for (octave_idx_type j = 0; j < dims(1); j++) {
for (octave_idx_type k = 0; k < dims(2); k++) {
a(i, j, k) = std::complex<double> (i, j + k);
}
}
}
return octave_value (a);
}
</source>
複数入出力
| |||