root/applications/dual/SIDP/SIDPS/motor_sidps/update.m @ 1249

Revision 1249, 381 bytes (checked in by zimamiro, 14 years ago)
Line 
1function [H_new C_new ]=update(H_old, C_old,index)
2H_new=zeros(size(H_old)+[0 1]);
3C_new=zeros(size(C_old)+[0 1]);
4for i=1:index
5    H_new(i)=H_old(i);
6    C_new(i)=C_old(i);
7end
8
9for i=index+1:size(H_old,2)
10    H_new(i+1)=H_old(i);
11    C_new(i+1)=C_old(i);
12end
13
14H_new(index+1)=(H_old(index)+H_old(index+1))/2;
15C_new(index+1)=(C_old(index)+C_old(index+1))/2;
16
17end
Note: See TracBrowser for help on using the browser.