User Portlet
| Discussions |
|---|
| Hi, your spec didn't seem quite consistent, but hopefully the code below will give you some ideas, particularly with the use of Accumulate and TakeWhile. g[2] = {2, 4}; g[i_] := Nest[Join[#, g[i - 1]] &, g[i - 1], Prime[i] - 1] ... |
| Hi Jorge, If you want the curve to pass through every point in a smooth manner, then reducing the interpolation order is advisable. Using 20 allows a 20 degree polynomial; 2 or 3 is better. Using order 3 permits a 3rd degree polynomial which will... |
| As it stands, the starting parameters are bad and the model has no variance over the range, try Plot[model[x, 37., 1.68, 50., 0.46, 0.73], {x, 1.63, 1.71}, Epilog -> {PointSize[Small], Point[Data4kI3]}, PlotRange -> Automatic] and... |
| Chris, That does work. Thank you. I couldn't figure out what that "opos" argument actually meant, but now it makes sense. Thanks! |
| Here is an example solution: data = Table[{Cos[t], Sin[t]}, {t, Range[0, 2 Pi, 0.01]}]; ListLinePlot[data, AspectRatio -> 1, Filling -> 0][img=width: 200px; height:... |
| You can obtain the FX rates from the Federal Reserve with this code: [mcode]lastpricedate = "04/10/2014"; fxdownload = Import@StringJoin[ ... |