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] -...
Dear forum members:
After numerically solving a differential equation and plotting the results I would like to determine the single maximum value in the plotted range but do not know how.
The code below works for numerically solving the differential equation and plotting the results...