2
$\begingroup$

I want to make two general graphics something like the following.

enter image description here

I want to illustrate the approach to the function by means of a polynomial. I have tried the following.

Plot[{Sin[x] + 2,  Sin[2 x] + 2}, {x, 0, 8}, AxesLabel -> {x, y}, 
Ticks -> {{0.8, 2.4, 4, 5.5, 7.1}, {0, 1, 2, 3}}]

I also want to put $ x_{0}, x_{1}, x_{2},...,x_{n} $ in the points where the graphs differ the most. I appreciate any help.

Improve this question
$\endgroup$

2 Answers 2

Reset to default
3
$\begingroup$ 
f[x_] := 1 + x + Sin[10 Sqrt[1 + x]];
g[x_] := 1 + x + Cos[10 Sqrt[2 + x]];
xx = x /. NSolve[{f'[x] == g'[x], 0 <= x <= 8}, x];
ticks = MapIndexed[{#, Style[ Subscript["x", ToString@ #2[[1]]],  16]} &, xx];
Plot[{f[x], g[x]}, {x, 0, 3 Pi}, AxesLabel -> {x, y}, 
 MeshFunctions -> {f'[#] - g'[#] &}, Mesh -> {{0}}, 
 MeshStyle -> Directive[Red, PointSize[Large]], 
 GridLines -> {xx, None}, Ticks -> {ticks, Automatic}, 
 AxesOrigin -> {0, 0}]

enter image description here

Improve this answer
$\endgroup$
2
  • $\begingroup$ How could you put $x_{0}, x_{1}, ..., x_{6}$ instead $x_{1}, x_{2}, ..., x_{7}$? $\endgroup$
    – Jacob Schwartz
    Feb 5, 2019 at 8:10
  • $\begingroup$ @JacobSchwartz, replace ToString@#2[[1]] with ToString[#2[[1]] - 1]. $\endgroup$
    – kglr
    Feb 5, 2019 at 8:19
2
$\begingroup$

Something like this?

    Plot[{Sin[x] + 2, Sin[2 x] + 2}, {x, 0, 8}, AxesLabel -> {x, y}, 
 Ticks -> {{{1, "x[0]"}, {2, "x[1]"}, {3, ""}, {4, "x[3]"}, {5, 
     ""}, {6, ""}, {7, "x[n]"}}, None}, 
 PlotLabels -> Placed[{"y=f(x)", "y=p(x)"}, {Scaled[5], Above}], 
 AxesStyle -> Arrowheads[{0.0, 0.05}]]

enter image description here

Or 

Plot[{Sin[x] + 2, Sin[2 x] + 2}, {x, 0, 8}, AxesLabel -> {x, y}, 
 Ticks -> {{{1, "x[0]"}, {2, "x[1]"}, {3, ""}, {4, "x[2]"}, {5, 
     ""}, {6, ""}, {7, "x[n]"}}, None}, 
 AxesStyle -> Arrowheads[{0.0, 0.05}], 
 Epilog -> {Text[Style["y=f(x)", 22], Scaled[{0.5, 0.9}]], 
   Text[Style["y=p(x)", 22], Scaled[{0.25, 0.97}]]}]

enter image description here

Improve this answer
$\endgroup$
1
  • $\begingroup$ I put the functions Sin [x] +2, Sin [2x] +2 because I did not find others, but I would like others different from mine. $\endgroup$
    – Jacob Schwartz
    Feb 5, 2019 at 7:56

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.