wolfram-mathematica - Mathematica:FindFit は解を与えますが、正しくありませんか?

Question

私はデータを当てはめたい：

data={{30.,3837.71},{93.75,3900.6},{300.,3962.19},{937.5,4040.79},{3000.,4113.21},{7500.,4174.15}};

次のモデルに:

model = H0*(1 - (1/Kstab*Log10[10^10*H0/(2*Kstab*x)])^0.5);

私は使っている：

FindFit[data,
   model, {{H0, 6000}, {Kstab, 100}}, x];

Mathematica は私に次の解決策を提供します：

{{HZero->6548.42},{Kstab->59.7248}}

しかし、Microcal Origin でフィッティングを試みると、HZero=6441、Kstab=139 となり、実際にはこれが適切な解決策です。

Mathematica でより良いソリューションを得る方法について提案をお願いします。ありがとう。