fork download
copy 
  1. function y=f(c)
  2. n=numel(c);y=[[0*(3:n);eye(n-2)] -c(1:n-1)'/c(n)];
  3.  
  4. end % neede in online interpreter only
  5.  
  6. f([23., 1., 92., 8., -45., 88., 88.]) % call function
Success #stdin #stdout 0.19s 64960KB
comments (?)
stdin
copy 
[23., 1., 92., 8., -45., 88., 88.]
stdout
copy 
ans =

   0.00000   0.00000   0.00000   0.00000   0.00000  -0.26136
   1.00000   0.00000   0.00000   0.00000   0.00000  -0.01136
   0.00000   1.00000   0.00000   0.00000   0.00000  -1.04545
   0.00000   0.00000   1.00000   0.00000   0.00000  -0.09091
   0.00000   0.00000   0.00000   1.00000   0.00000   0.51136
   0.00000   0.00000   0.00000   0.00000   1.00000  -1.00000
https://ideone.com/YDjCef
language:
Octave (octave 4.4.1)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!