4

Usually FormatType should be sufficient and you can uncomment the line to note the difference. I have used Subscript for finer control over the font. Graphics[{ Style[Text[Subscript["1234", "L"], {2, 5}], Red, 20, FontFamily -> "Times"]}, Frame -> True, (*FormatType\[Rule]StandardForm,*) PlotRange -> {{0, 3}, {...


2

You can extract the simulated points and then compute the maximum up to time t. sup[simulation_,t_?NumericQ] := Max[TakeWhile[simulation["Path"], #[[1]] <= t &][[All, 2]]] For example: SeedRandom[1]; B = RandomFunction[WienerProcess[0, 1], {0, 1, 0.001}]; Show[ ListPlot[B], Plot[sup[B, t], {t, 0, 1}, PlotStyle -> Black] ] compares ...


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