gabpEval.m
上传用户:szhysm888
上传日期:2008-07-11
资源大小:35k
文件大小:0k
开发平台:

Matlab

  1. % 遗传算法的适应值计算
  2. function [sol, val] = gabpEval(sol,options)
  3. % val - the fittness of this individual
  4. % sol - the individual, returned to allow for Lamarckian evolution
  5. % options - [current_generation]
  6. [P,T,R,S1,S2,S]=nninit;
  7. for i=1:S,
  8.    x(i)=sol(i);
  9. end;
  10. [W1, B1, W2, B2, P, T, A1, A2, SE, val]=gadecod(x);