SHARE
TWEET

Untitled

a guest Jun 19th, 2019 58 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top