Mercurial > hg > what-is-octave
annotate PoliMI2012/examples/embedded.cc @ 8:50abddcc3409 default tip
Presentation delivered by cdf at OctConf 2013.
author | Carlo de Falco <cdf@users.sourceforge.net> |
---|---|
date | Mon, 22 Jul 2013 21:54:27 +0200 |
parents | 0a1567794b40 |
children |
rev | line source |
---|---|
4
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
1 #include <iostream> |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
2 #include <octave/oct.h> |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
3 #include <octave/octave.h> |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
4 #include <octave/parse.h> |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
5 |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
6 int main (void) |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
7 { |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
8 string_vector octave_argv (2); |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
9 octave_argv(0) = "embedded"; |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
10 octave_argv(1) = "-q"; |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
11 |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
12 octave_main (2, octave_argv.c_str_vec (), 1); |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
13 |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
14 |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
15 octave_value_list out = feval ("version", octave_value_list (), 1); |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
16 std::cout << out(0).string_value () << std::endl; |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
17 |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
18 Matrix A (4, 4); |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
19 for (octave_idx_type i = 0; i < 4; i++) |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
20 for (octave_idx_type j = 0; j < 4; j++) |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
21 A(i,j) = 1.0 / (static_cast<double> (i) + |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
22 static_cast<double> (j) + 1); |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
23 |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
24 ColumnVector b (4, 1.0); |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
25 |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
26 out = feval ("mldivide", octave_value (A), octave_value (b), 1); |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
27 |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
28 return 0; |
0a1567794b40
[mq]: folder_reorganization
Carlo de Falco <cdf@users.sourceforge.net>
parents:
diff
changeset
|
29 } |