-1
$\begingroup$

I am having problem with getting the coordinate of points on the plot below. The plot is OK but when I press Ctr + D and move cursor along the line, the coordinates are total wrong?

Could you help me? Thank you.

M[x_, Subscript[D, 2]*_] := ((0.5 + Subscript[D, 2])/Subscript[D, 2])*(1/(1   + ((0.5 + Subscript[D, 2])/Subscript[D, 2]^2)*x)); 
parameters = {41.67/10^6, 125/10^6, 208.33/10^6, 291.67/10^6, 375/10^6,  458.33/10^6, 541.67/10^6}; 
styles = {Directive[Red, Thickness -> 0.002], Directive[Dashed, Blue,   Thickness -> 0.002], Directive[DotDashed, Green, Thickness -> 0.002],   Directive[Dotted, Black, Thickness -> 0.003], 
Directive[Red, Thickness -> 0.002], Directive[Blue, Thickness -> 0.002],   Directive[Yellow, Thickness -> 0.002]}; 
p = Plot[Evaluate[(M[#1, Subscript[D, 2]] & ) /@ parameters], {Subscript[D,   2], 0.04, 0.06}, PlotLabel -> "Voltage Conversion Ratio = \!\(\*FractionBox[\(\ (\\ \)\(0.5 + \*SubscriptBox[\(D\), \
\(2\)]\)\), \(\(\\ \)\*SubscriptBox[\(D\), \(2\)]\)]\)\!\(\*FractionBox[\ (1\), \(1 + \*FractionBox[\(0.5 + \*SubscriptBox[\(D\), \(2\)]\),    SuperscriptBox[SubscriptBox[\(D\), \(2\)], \(2\)]] \
\*FractionBox[SubscriptBox[\(R\), \(TEG\)], SubscriptBox[\(R\), \(L\)]]\)]\)   with \!\(\*SubscriptBox[\(R\), \(L\)]\)= \!\(\*FractionBox[\(Vo\), \(Io\)]\)", 
LabelStyle -> Directive[Bold, Blue, FontFamily -> "Helvetica"], PlotStyle ->   styles, AxesLabel -> {"\!\(\*SubscriptBox[\(D\), \(2\)]\)", "Gain"}, PlotRange - > All]; 
parameters1 = {50*uA, 150*uA, 250*uA, 350*uA, 450*uA, 550*uA, 650*uA}; 
autoLegend[p, parameters1]*\[AliasDelimiter]
$\endgroup$

closed as off-topic by user9660, MarcoB, Alexey Popkov, WReach, Öskå May 22 '16 at 20:22

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question cannot be answered without additional information. Questions on problems in code must describe the specific problem and include valid code to reproduce it. Any data used for programming examples should be embedded in the question or code to generate the (fake) data must be included." – Community, MarcoB, Alexey Popkov, WReach, Öskå
If this question can be reworded to fit the rules in the help center, please edit the question.

  • $\begingroup$ The code as shown is throwing errors. Can you please revise your code? $\endgroup$ – user9660 Mar 14 '16 at 9:18
  • $\begingroup$ May I suggest m[x_, d_] := ((0.5 + d)/d)*(1/(1 + ((0.5 + d)/d^2)*x)); parameters = {41.67/10^6, 125/10^6, 208.33/10^6, 291.67/10^6, 375/10^6, 458.33/10^6, 541.67/10^6}; p = Plot[Evaluate[(m[#1, d] &) /@ parameters], {d, 0.04, 0.06}, PlotRange -> All]? $\endgroup$ – Dr. belisarius Mar 14 '16 at 9:20
  • $\begingroup$ Thank you. @Louis: The code wrong because there is a space in PlotRange - > All. I tried to solve this but I can't manage to do in here. Each time I post, the error appears. Dr. belisarius: With that the coordinate is correct now. However, could you explain why is it wrong in my code? $\endgroup$ – anhnha Mar 14 '16 at 9:57
2
$\begingroup$

This is not an answer but an attempt to get clarification from the OP even though this question is two months old as I write this. I'm probably tilting at a windmill here, but I think the OP deserves a chance to clarify.

I could not get the posted code to evaluate, but I got the following fairly minor modification of the code to work.

M[x_] :=
  ((0.5 + Subscript[D, 2])/
     Subscript[D, 2])*(1/(1 + ((0.5 + Subscript[D, 2])/Subscript[D, 2]^2)*x));
parameters =
  {41.67/10^6, 125/10^6, 208.33/10^6, 291.67/10^6, 375/10^6, 
   458.33/10^6, 541.67/10^6};
styles =
  {Directive[Red, Thickness -> 0.002], 
   Directive[Dashed, Blue, Thickness -> 0.002], 
   Directive[DotDashed, Green, Thickness -> 0.002], 
   Directive[Dotted, Black, Thickness -> 0.003], 
   Directive[Red, Thickness -> 0.002], 
   Directive[Blue, Thickness -> 0.002], 
   Directive[Yellow, Thickness -> 0.002]};
Plot[Evaluate[M /@ parameters], {Subscript[D, 2], 0.04, 0.06}, 
  LabelStyle -> Directive[Bold, Blue, FontFamily -> "Helvetica"],
  PlotStyle -> styles,
  AxesLabel -> {Subscript[D, 2], "Gain"},
  PlotRange -> All,
  ImagePadding -> All]

The trouble with the modification is that it does't reproduce the OP's problem -- it produces the expected coordinate values when put into coordinate display mode.

plot

So I ask the OP; how do the coordinates you see differ from the ones I am seeing?

$\endgroup$

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