Re: Problem with function definition inside DynamicModule
- To: mathgroup at smc.vnet.net
- Subject: [mg130377] Re: Problem with function definition inside DynamicModule
- From: Themis Matsoukas <tmatsoukas at me.com>
- Date: Sat, 6 Apr 2013 05:11:11 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
I am not familiar with DynamicModule but here is a way to do the same thing using Manipulate:
showFit[myData_] := Manipulate[
f = Fit[myData, Table[x^k, {k, 0, nn}], x];
Show[
ListPlot[myData,
Joined -> False,
PlotStyle -> {Red, AbsolutePointSize[7]},
PlotRange -> All],
Plot[f, {x, 0, 5}]
], {nn, {1, 2, 3, 4, 5}}
];
data = Table[{x, x^2 + RandomReal[{-1, 1}]}, {x, 0, 5}];
showFit[data]