Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I need to combine two plots on the same graph to highlight the intersection of the two while being able to manipulate various parameters that are common to both functions. I need to have the slider simultaneously change the parameters for each function and continue to plot on the same graph. Here's my code:

Manipulate[
 right = Plot[Cos[2*Pi*b*n/\[Lambda]], {n, 0, 2}], {{a, 25, 
   "x-separation"}, 20, 30}, {{b, 25, "z-separation"}, 20, 
  30}, {{r, 1, "Rod Radius"}, .1, 
  10}, {{\[Lambda], 100, "Wavelength"}, 50, 200}]

Manipulate[
 left = Plot[
   Cos[2*Pi*
      b/\[Lambda]] + (\[Lambda]*Sin[2*Pi*b/\[Lambda]])/(2 a*
       Log[a/(2*Pi*r)]), {n, 0, 2}], {{a, 25, "x-separation"}, 20, 
  30}, {{b, 25, "z-separation"}, 20, 30}, {{r, 1, "Rod Radius"}, .1, 
  10}, {{\[Lambda], 100, "Wavelength"}, 50, 200}]

Show[right, left] // Dynamic

Any help is much appreciated!

share|improve this question

1 Answer 1

up vote 7 down vote accepted
Manipulate[
 Plot[{Cos[2*Pi*b/λ] + (λ*Sin[2*Pi*b/λ])/(2 a*Log[a/(2*Pi*r)]), 
       Cos[2*Pi*b*n/λ]}, {n, 0, 2}], 
{{a, 25, "x-separation"}, 20, 30}, {{b, 25, "z-separation"}, 20, 30}, 
{{r, 1, "Rod Radius"}, .1, 10}, {{λ, 100, "Wavelength"}, 50, 200}]

Mathematica graphics

share|improve this answer
    
Thanks for your help! I wasn't thinking to put the two functions inside Plot but this works much more efficiently than the other routes I've tried. –  FreqShow Dec 9 '13 at 5:51

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

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