粒子群算法中适应度函数的调入

s20090281

我最近参考别人的程序写了一个自己的程序但是代入不了fitness函数，请大家指点一下：
我要做的是y(k)=a1*y(k-1)+b1*u(k-1)+a2*y(k-2)+a3*y(k-3)函数求a1,a2,a3,b1.已知y和u，我把适应度取为399组数据的【y(k)-a1*y(k-1)-b1*u(k-1)-a2*y(k-2)-a3*y(k-3)】^2最小，
function [out]=fitness(x)
     ai=x(i,           %第几组数据就是取第几个
! E9 Q, b3 L# ~: Q    a1=ai(1)
    a2=ai(2)
- K5 V) _8 E. U    a3=ai(3)
    a4=ai(4)
    u=load('F:\测试记录控制.txt');u1=u(2:399,2);
5 J" c# _2 q  C5 i; _0 J+ i    y=load('F:\测试记录反馈.txt');y1=y(2:400,2);
2 }6 @" O# [4 {7 F- Z- R( Y& E    c=0;
    for k=3:399
        f=[y(k)-a1*y1(k-1)-a2*y1(k-2)-a3*y1(k-3)-b1*u1(k-1)]^2        %求出各级数据的平方和并逐渐相加得到一组对对应变量的适应度        
* _' r  b/ `* e5 S        c=c+f
* J. ]- z7 ^0 z- L        Msum(k)=c
    end
out=Msum(:,k);                %输出适应度
那么在粒子群算法中应如何调用这个函数呢？当位置和速度更新后，怎么计算这时的适应度呢？
/ \2 I( a4 {8 E  Ofitness(i)=fitness(pop(i,)这样调用为什么会出错呢？请各位帮我这个新手解答一下，谢谢。

s20090281

代表：）

s20090281

问题有新的变化，就是只能进行第一个运算，当计算第二个输入时就会出现??? Subscript indices must either be real positive integers or logicals.

8 w4 @& l/ K, q2 j7 j% }0 D  [Error in ==> myPSO at 14
3 |" K7 @: C! N    fitness(i)=fitness(pop(i,)
请问这怎么改呢？
  F# t* ~- z% f, p& T4 _9 Q