Group Abstract

Message Boards

WOLFRAM COMMUNITY

2.6K Views

1 Reply

0 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Graphics and Visualization Wolfram Language

Help with Plot commands?

Sanzhar Mukatay

Posted 5 years ago

I need to identify the intersection point of the blue graph where A is equal to the maximum value. And display the intersection with two lines. Is it possible?

POSTED BY: Sanzhar Mukatay

1 Reply

Sort By:

Henrik Schachner

Henrik Schachner, Radiation Therapy Center, Weilheim, Germany

Posted 5 years ago

Does this what you want? {maxA, pmax} = {#1, p /. #2} & @@ FindMaximum[Subscript[A, max], p]; Plot[{Subscript[A, max], Subscript[A, n0], Subscript[A, n2], Subscript[A, n3]}, {p, 0, 200}, PlotStyle -> {{Thick}, {Dashed}, {Dashed}, {Dashed}}, AxesLabel -> {p, A}, PlotRange -> {0, 0.007}, PlotLegends -> LineLegend[{n = 15, n = 0, n = 30, n = 60}], GridLines -> {{pmax}, {maxA}}]

Does this what you want?

{maxA, pmax} = {#1, p /. #2} & @@ FindMaximum[Subscript[A, max], p];
Plot[{Subscript[A, max], Subscript[A, n0], Subscript[A, n2], Subscript[A, n3]}, {p, 0, 200}, 
 PlotStyle -> {{Thick}, {Dashed}, {Dashed}, {Dashed}}, 
 AxesLabel -> {p, A}, PlotRange -> {0, 0.007}, 
 PlotLegends -> LineLegend[{n = 15, n = 0, n = 30, n = 60}],
 GridLines -> {{pmax}, {maxA}}]

POSTED BY: Henrik Schachner

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Feedback