Skip to main content
added 90 characters in body
Source Link
MarcoB
  • 67.7k
  • 18
  • 96
  • 198

I think your proposed model may be inappropriate for your data. The main trend in your data is a simple exponential decay, whicha model that fits remarkably well:

nlm = NonlinearModelFit[data, beta Exp[-gamma t], {{beta, 1}, {gamma, 100}}, t]

Show[
  LogLinearPlot[
    Legended[nlm[t], "fit"], {t, data[[1, 1]], data[[-1, 1]]},
    Frame -> True, Axes -> False,
    PlotRange -> All,
    PlotStyle -> Directive[Opacity[0.3, Blue], Thickness[0.02]]
  ],
  ListLogLinearPlot[Legended[data, "data"], PlotStyle -> Black]
]

fit and original data on log-linear plot


data comes from data = ImportString[" your data table minus the headers ", "Table"].

I think your proposed model may be inappropriate for your data. The main trend in your data is a simple exponential decay, which fits remarkably well:

nlm = NonlinearModelFit[data, beta Exp[-gamma t], {{beta, 1}, {gamma, 100}}, t]

Show[
  LogLinearPlot[
    Legended[nlm[t], "fit"], {t, data[[1, 1]], data[[-1, 1]]},
    Frame -> True, Axes -> False,
    PlotRange -> All,
    PlotStyle -> Directive[Opacity[0.3, Blue], Thickness[0.02]]
  ],
  ListLogLinearPlot[Legended[data, "data"], PlotStyle -> Black]
]

fit and original data on log-linear plot

I think your proposed model may be inappropriate for your data. The main trend in your data is a simple exponential decay, a model that fits remarkably well:

nlm = NonlinearModelFit[data, beta Exp[-gamma t], {{beta, 1}, {gamma, 100}}, t]

Show[
  LogLinearPlot[
    Legended[nlm[t], "fit"], {t, data[[1, 1]], data[[-1, 1]]},
    Frame -> True, Axes -> False,
    PlotRange -> All,
    PlotStyle -> Directive[Opacity[0.3, Blue], Thickness[0.02]]
  ],
  ListLogLinearPlot[Legended[data, "data"], PlotStyle -> Black]
]

fit and original data on log-linear plot


data comes from data = ImportString[" your data table minus the headers ", "Table"].

Source Link
MarcoB
  • 67.7k
  • 18
  • 96
  • 198

I think your proposed model may be inappropriate for your data. The main trend in your data is a simple exponential decay, which fits remarkably well:

nlm = NonlinearModelFit[data, beta Exp[-gamma t], {{beta, 1}, {gamma, 100}}, t]

Show[
  LogLinearPlot[
    Legended[nlm[t], "fit"], {t, data[[1, 1]], data[[-1, 1]]},
    Frame -> True, Axes -> False,
    PlotRange -> All,
    PlotStyle -> Directive[Opacity[0.3, Blue], Thickness[0.02]]
  ],
  ListLogLinearPlot[Legended[data, "data"], PlotStyle -> Black]
]

fit and original data on log-linear plot