Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

# marking each curve in a 2-D plot

20 views

### jfh

May 2, 2019, 9:37:28 PM5/2/19
to
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

May 2, 2019, 10:49:28 PM5/2/19
to
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);

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