复值函数的拟合

waynebuaa

比如下面产生的一堆数据，那如何用mathematica拟合呢

s = Table[100/(100. + 5 I + i) + 0.01*Random[], {i, 1, 50}];

y=a/(b + x)

TBE_Legend

1# waynebuaa

obj =（ 计算值的实部 - 数据的实部 ）^2+ （计算值的虚部 - 数据的虚部）^2

好像都是这么处理的。

1. 
   
2. data = Table[{Random[] I, 100/(100. + 5 I + i) + 0.01*Random[]}, {i,
   
3.    1, 5}]
   
4. model = a/(b + x);
   
5. compu = model /. {x -> data[[All, 1]]}
   
6. obj = (Re@(compu - data[[All, 2]]))^2 + (Im@(compu -
   
7.         data[[All, 2]]))^2 // Total;
   
8. NMinimize[obj, {a, b}]
   

复制代码

waynebuaa

多谢TBE_Legend 兄