projects
/
scilab.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
fix srkf
[scilab.git]
/
scilab
/
modules
/
signal_processing
/
macros
/
srkf.sci
diff --git
a/scilab/modules/signal_processing/macros/srkf.sci
b/scilab/modules/signal_processing/macros/srkf.sci
index
7f6792c
..
5931baa
100644
(file)
--- a/
scilab/modules/signal_processing/macros/srkf.sci
+++ b/
scilab/modules/signal_processing/macros/srkf.sci
@@
-29,7
+29,8
@@
function [x1,p1]=srkf(y,x0,p0,f,h,q,r)
g=[0*q,chol(q)'];
mat=[h*p0,j;f*p0,g];
- [q,tmat]=qr(mat')';
+ [q,tmat]=qr(mat');
+ tmat=tmat';
p1=tmat(p+1:p+n,p+1:p+n);
k=tmat(p+1:p+n,1:p);
re=tmat(1:p,1:p);