適合関数の計算面積を結果と比較する - Mathematica

H！
私はMathematicaのドキュメントセンターと（他のサイトの中で）stackoverflowを読むのに多くの時間を費やしましたが、私の質問に対する答えは見つかりませんでした：Mathematicaでどのように関数の領域を（定量的に）結果）とそのフィット感。私は自分のフィット感を数値的に評価したいと思っています。もちろん、その機能は3Dです。
乾杯、
ジョン適合関数の計算面積を結果と比較する - Mathematica

出典

2012-01-11 John Smith

私はあなたが '関数の面積' によって何を意味するかわかりません。あなたは例がありますか？ –

私は機能の下にある領域を意味します。実践的な質問です。分析を進めるにはその答えが必要です。私はここでその例をどのように提示することができるのか分かりません... –

あなたは 'Integrate'や' NIntegrate'を見ましたか？ –

実際の目標は、あなたのフィット感がどのように良い推定することであるならば、あなたはどんな「エリア」を計算する必要はありません - MathematicaはLinearModelFitが提供する分析が組み込まれていますが、[...]とNonlinearModelFit [...]。のは、ガウス面に散らばっていくつかのデータセットを構成してみましょう：

data = MapThread[{#1[[1]], #1[[2]], 
1.2 Exp[-34 ((#1 - .56).(#1 - .56))] + #2} &, {RandomReal[ 
1, {100, 2}], RandomReal[{-.1, .1}, 100]}];

は、これらのデータに合うようにガウス表面モデルを導入：

今

model = a Exp[-b ((x - x0)^2 + (y - y0)^2)];

、非線形回帰を実行します。

nlm = NonlinearModelFit[data, 
    model, {a, b, {x0, .5}, {y0, .6}}, {x, y}];

を入手最適フィットをプロットしてください。

Show[Plot3D[nlm["BestFit"], {x, 0, 1}, {y, 0, 1}, PlotRange -> All, 
    PlotStyle -> Opacity[.5], MeshStyle -> Opacity[.5], Mesh -> 25], 
ListPointPlot3D[data, 
    PlotStyle -> Directive[PointSize[Medium], Red]]]

Plot