Apparently your input cell contains extraneous characters (you could try FullForm on your input to see where the \.08 comes from). Retype your equation from scratch (do not copy/paste) in a new cell ...

Use Show: Show[ Histogram[sf, {0.25}, "Probability"], Plot[f, {k, 0, 2}] ]

One way to place the arrows is to define them as custom plot markers: arrowR = {LightRed, EdgeForm[Black], Polygon[{{0, 0}, {1, 0}, {1, 1}, {1.2, 1}, {0.5, 1.4}, {-0.2, 1}, {0, 1}}]}; arrowB = {...

Edited based on the comments exchanged below. Assuming that the spreadsheet contains and that this means that at $x=2$, $y=4$ the $z$ value is 34. To enter these results in mathematica: First read ...

Use FrameTicks: data1 = {{1, 2}, {2, 1}, {3, 1}, {4, 2}}; ListLinePlot[data1, PlotStyle -> {Black}, Frame -> True, FrameStyle -> Thick, GridLines -> Automatic, PlotMarkers ...

If you make a plot you can see that Mathematica has trouble evaluating example[q] near q=0: LogLinearPlot[Re[example[q]], {q, 0, 2}, PlotRange -> {-100000, 300000}] LogLinearPlot[Im[example[q]], {...

Give n a numerical value, then Mathematica will evaluate the derivative and you can check it against your result. Try several values of n to convince yourself the your result is correct. I coded your ...

This works for me: SendMail[<| "To" -> "xyz@somewhere.com", "Subject" -> "Test", "Body" -> "Here is a link: http://www.wolfram.com."> ] When I send these to myself I get an ...

Here is something close to what you want expr = (a + b)/r; expr Denominator[expr] HoldForm[1/Denominator[expr] // Evaluate]

I reported the bug to Mathematica (this is also a problem with EPS). Here is their answer: It does appear that Export is not behaving properly with EPS or PDF formats. I have forwarded an issue ...

We need to separate functions according to their argument. Assuming the expression to be in the form of a product and the variables to be x and theta, here is one way to do this: Identify the parts ...

You can plot the function to see what it looks like: Plot[dn[ud[fp, u, prob, f], f], {f, 1, 40}, AxesLabel -> {f, "dn(ud,f)"}] It does not seem to approach a limiting value.

You can use Apply to extract the columns you want (here, 3 and 1) and place them a new list that can be entered as input to ListLinePlot. data13 = Apply[{#1, #3} &, v1v2, 1]; ListLinePlot[...

It works with Times on my system (Mac 10.11.6, Mathematica 11.1.1): ImportString[ExportString[ Style["ěščřžýáíé", FontFamily -> "Times", FontSize -> 12], "PDF"], "TextMode" -> "Outlines"]...

Another alternative is to insert a Null element where you want a break in the line: data2 = {{0, 0}, {0.5, 2}, {1, 5}, {2, 8.5}, {4, 10}, Null, {0, 0}, {0.5, 4}, {1, 7}, {2, 9.5}, {4, 12}, Null, ...