Guest User

Untitled

a guest
Jun 19th, 2019
63
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. fgraph = Plot[1 - x^2
  2. - 0.5654788166963185 E^(-2.25 (-0.2 + x)^2)
  3. - 0.5654788166963185 E^(-2.25 (0.2 + x)^2), {x, -1, 1},
  4. AxesOrigin -> {-1, 0}];
  5. ggraph = ListPlot[
  6. {{{-0.2, 0}, {-0.2, 0.5}}, {{0.2, 0}, {0.2, 0.35}}},
  7. Joined -> True, PlotRange -> {{-1, 1}, {0, All}},
  8. AxesOrigin -> {1, 0}];
  9. GraphicsColumn[{ggraph, fgraph}, Automatic, -112]
RAW Paste Data