marking each curve in a 2-D plot

[jfh]

This little two-line Maple program draws two curves y=f(x,H) on the same (x,y) plane with different values of the variable H.

f:=(x,H)->(cos(x)*exp(H*cos(x)));
plot([f(x,0.2),f(x,1)], x=0..2*Pi,scaling=constrained);

How does one get the value of H written halfway along its own curve at the point
[Pi,f(Pi,H)] ? I am using Maple 2017 (X86 64 LINUX).

[none Rouben Rostamian]

In article <e31728b2-1081-4f79...@googlegroups.com>,

Give a name to that plot, as in:
restart;
with(plots):
f:=(x,H)->(cos(x)*exp(H*cos(x)));
p := plot([f(x,0.2),f(x,1)], x=0..2*Pi,scaling=constrained);

Then add text:
display([p,
textplot([Pi,f(Pi,0.2), typeset(H = 0.2)], align=below),
textplot([Pi,f(Pi,1.0), typeset(H = 1.0)], align=above)]);

The result is not great because the added text overlaps with
the axis labels, making a mess. It's better to add the text
at the far right, as in
display([p,
textplot([2*Pi,f(2*Pi,0.2), typeset(H = 0.2)], align=right),
textplot([2*Pi,f(2*Pi,1.0), typeset(H = 1.0)], align=right)]);


--
Rouben Rostamian

[jfh]

Thank you. My problem was that none of ?plot ?plot/details or ?plot/options led to textplot or warn me that with(plots) and display were needed.