Re: fehlerbalken

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Heiko Bierwald wrote:
> 
> hallo ,
> ist es mit mm4.1 möglich fehlerbalken zu plotten und hinterher eine
> möglichst "gute" kurve hindurchzulegen und schliesslich  die koeffizienten,
> bei vorgegebener funktion (bis auf koeffizienten), zu bestimmen ?

Ja.

Needs["Graphics`Graphics`"]
Needs["Statistics`NonlinearFit`"]
Needs["Statistics`LinearRegression`"]

(* Date mit Fehlerbalken *)
data = Table[
   {x, x^2 + 0.2*Random[], 0.1 + 0.2*Abs[Random[]]}, 
   {x, 0, 2, 2/30}];
(* Zeichen *)
errbar = ErrorListPlot[data];
(* Anpassen, hier kann man auch NonlinearRegress[] nehmen *)
{fit, param} = {BestFit, BestFitParameters} /. 
    Regress[Drop[#, -1] & /@ data, {1, x, x^2}, x, Weights -> (Last /@
data), 
      RegressionReport -> {BestFit, BestFitParameters}]

(* Fertig *)
graph = Plot[Evaluate[fit], {x, 0, 2}, DisplayFunction -> Identity, 
      PlotStyle -> {RGBColor[1, 0, 0]}];
Show[graph, errbar, DisplayFunction -> $DisplayFunction];

Gruss
  Jens