Mathematica plot envelope data smoothing

  • Mathematica
  • Thread starter carey1000
  • Start date
  • #1
2
0

Main Question or Discussion Point

The following Mathematica code generates a highly oscillatory plot. I would like to plot only the lower envelope of the plot but do not know how. Any suggestions wouuld be appreciated.

tk0 = \[Theta]'[t]*\[Theta]'[t] - \[Theta][t]*\[Theta]''[t]
tk1 = \[Theta]''[t]*\[Theta]''[t] - \[Theta]'[t]*\[Theta]'''[t]
a = tk0/Sqrt[tk1]
f = Sqrt[tk1/tk0]
s =
NDSolve[{\[Theta]''[t] + \[Theta][t] - 0.167 \[Theta][t]^3 ==
0.005 Cos[t - 0.5*0.00009*t^2], \[Theta][0] == 0, \[Theta]'[0] ==
0}, \[Theta], {t, 0, 1000}]

Plot[Evaluate [f /. s], {t, 0, 1000}, Frame -> {True, True, False, False},
FrameLabel -> {"t", "Frequency"}, FrameStyle -> Directive[FontSize -> 15], Axes -> False]

Thank you, Carey
 

Answers and Replies

  • #2
489
0
Offhand the easiest way i can think of is to bin the data and take the min of each bin.
 

Related Threads for: Mathematica plot envelope data smoothing

Replies
12
Views
23K
Replies
4
Views
3K
Replies
0
Views
7K
Replies
6
Views
4K
Replies
14
Views
9K
Replies
7
Views
4K
  • Last Post
Replies
0
Views
2K
Top