Mercurial > forge
changeset 9555:f38dc4df5988 octave-forge
quaternion_oo: fix thinko
author | paramaniac |
---|---|
date | Sun, 04 Mar 2012 15:21:59 +0000 |
parents | 9244ae8f3ca0 |
children | 2522fc8f74d8 |
files | extra/quaternion_oo/inst/@quaternion/subsasgn.m |
diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/extra/quaternion_oo/inst/@quaternion/subsasgn.m Sun Mar 04 08:40:58 2012 +0000 +++ b/extra/quaternion_oo/inst/@quaternion/subsasgn.m Sun Mar 04 15:21:59 2012 +0000 @@ -24,10 +24,10 @@ function q = subsasgn (q, idx, val) switch (idx(1).type) - case "()" # q(...) = val - if (length (idx(1).subs) == 1 && isa (q, "quaternion")) # required by horzcat, vertcat, cat, ... - q(idx(1).subs{:}) = val; # q = cellfun (@quaternion, varargin) - else # general case + case "()" # q(...) = val + if (length (idx(1).subs) == 1 && isa (val, "quaternion")) # required by horzcat, vertcat, cat, ... + q(idx(1).subs{:}) = val; # q = cellfun (@quaternion, varargin) + else # general case val = quaternion (val); w = subsasgn (q.w, idx, val.w); x = subsasgn (q.x, idx, val.x); @@ -36,7 +36,7 @@ q = quaternion (w, x, y, z); endif - case "." # q.w = val + case "." # q.w = val if (! is_real_array (val)) error ("quaternion: subsasgn: invalid argument type, require real array"); endif