|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
我写了一个带卷积的非线性拟合问题的程序。运行1stopt会死机。不知道是什么问题?实际上就是ci=(B1*EXP(-L1*t)+B2*EXP(-L2*t)@cp,@代表卷积,已知ci cp,采样点t,估计参数B1,B2 L1,L2的问题。高手帮帮忙,给点建议。我的邮箱是bobo1985428@gmail.com
- Title "conclude conv and NLS";
- ConstStr h=B1*EXP(-L1*t)+B2*EXP(-L2*t);
- Parameters B1,B2 L1,L2;
- Variable t,cp,ci[Output];
- StartProgram;
- var n:integer;m:integer;
- begin
- for n:=0 to DataLength-1 do begin
- ci[n]=Sum(m=1:n)(cp(m)*h(n-m)) ;
- //ci=ci;
- end ;
- end ;
- EndProgram;
- //MinFunction Sum(i=1:20) ((y[i]-ci[i])^2 );
- Data;
- 0 0 1
- 15 0.072 1
- 30 0.044 1
- 45 0.047 1
- 60 0.053 1
- 75 0.057 1
- 90 0.05 1
- 105 0.045 1
- 120 0.052 11
- 150 0.049 1
- 180 0.054 1
- 240 0.05 1
- 300 0.048 1
- 450 0.049 1
- 600 0.054 1
- 900 0.061 1
- 1200 0.064 1
- 1800 0.077 1
- 2700 0.095 1
- 3600 0.104 1
复制代码
[ 本帖最后由 suffer 于 2007-12-19 15:28 编辑 ] |
|