4
$\begingroup$

I have explicit expressions of six functions and I can plot them From 0 to 2.0 by plotting command:

p2 = Plot[{0.5/(-0.1 x + 0.1), 0.04/(-0.004 x + 0.004), 
  1.359/(-0.08 x + 0.08), Abs[0.5/(-0.1 x + 0.1)], 
 Abs[0.04/(-0.004 x + 0.004)], Abs[1.359/(-0.08 x + 0.08)]}, 

{x, 0, 2.0}, 

  PlotRange -> {{0, 4.0}, {0, 8 \[Pi]}}, 

Exclusions -> {x == 1},

Frame -> True,
FrameLabel -> {Column[{Style["X", 17, Italic]}], 
Column[{Style["Y", 15, Italic]}]}]

But I wish to have mirror-symmetric plots of these six plots relative to x=2 . The desired shape is as:

enter image description here

Black ones which are desired have been plotted by paint. How can I do this aim by Mathematica ?

$\endgroup$
1
  • $\begingroup$ Related: 146900 $\endgroup$
    – C. E.
    Jun 16, 2017 at 19:19

2 Answers 2

4
$\begingroup$

Maybe something like this:

f = {0.5/(-0.1 x + 0.1), 0.04/(-0.004 x + 0.004), 
   1.359/(-0.08 x + 0.08), Abs[0.5/(-0.1 x + 0.1)], 
   Abs[0.04/(-0.004 x + 0.004)], Abs[1.359/(-0.08 x + 0.08)]};
g = f /. x -> (4 - x);
p2 = Show[
  Plot[f, {x, 0, 2.0}, PlotRange -> {{0, 4.0}, {0, 8 \[Pi]}}, 
   Exclusions -> {x == 1}, Frame -> True, 
   FrameLabel -> {Column[{Style["X", 17, Italic]}], 
     Column[{Style["Y", 15, Italic]}]}],
  Plot[g, {x, 2, 4},Exclusions -> {x == 3}]
  ]
$\endgroup$
3
$\begingroup$

You can also use ReflectionTransform on p2:

Show[p2, MapAt[GeometricTransformation[#, ReflectionTransform[{1, 0}, {2, 0}]] &, p2, {1}]]

enter image description here

$\endgroup$

This site is temporarily in read-only mode and not accepting new answers.

Not the answer you're looking for? Browse other questions tagged .