Tag Info

Hot answers tagged

6

Sometimes, a linear interpolation is sufficient and setting InterpolationOrder->1 can avoid over/under-shoots in the interpolated function. EDIT You can also use an auxiliary function made to keep the values non-negative while keeping a sort of smoothness: ClearAll[keepPositive]; Attributes[keepPositive] = {Listable}; keepPositive[x_] := ...


2

Works if dates aren't sequential days: Data2 = Thread[{t + QuantityMagnitude@DateDifference[Data[[1, 1]], #] & /@ Data[[All, 1]], Data[[All, 2]]}] (Not sure if that's what you were going for, if not...) Data2 = Thread[{t + Range[0, Length@Data - 1], Data[[All, 2]]}]


2

Data2=MapThread[{t + #1, Last@#2} &, {Range[0, Length@Data - 1], Data}] {{t, 49.9061}, {1 + t, 50.3395}, {2 + t, 50.7569}, {3 + t, 50.7649}, {4 + t, 50.2432}, {5 + t, 49.256}, {6 + t, 49.2801}, {7 + t, 49.4486}, {8 + t, 49.264}, {9 + t, 49.4647}, {10 + t, 49.561}, {11 + t, 49.9944}}


1

Here is my solution. After recording the snippets and background using SystemDialogInput["RecordSound"], send the sound objects through a BandpassFilter to restrict to voice frequencies only: background = BandpassFilter[background, {300, 3400}]; sn1 = BandpassFilter[sn1, {300, 3400}]; sn2 = BandpassFilter[sn2, {300, 3400}]; Then we can see if the ...


1

It is just ListPlot[Flatten[data], Joined -> True, PlotStyle -> {Black, Dashed}, PlotRange -> All, DataRange -> {0, 1000}, Frame -> True, FrameLabel -> {"Zone", "Force"}] EDIT: Oh like it was mentioned in the comments. :)



Only top voted, non community-wiki answers of a minimum length are eligible