third vert axis

*To*: mathgroup at smc.vnet.net*Subject*: [mg30431] third vert axis*From*: bernd at bio.vu.nl (Bernd Brandt)*Date*: Sat, 18 Aug 2001 04:04:56 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Dear group, I have a plot with three functions, and would like to have three vertical axis. With Plot, Frame-> True i already have two, and thought of drawing a line myself as a third axis. So far i have not been able to figure out how to do this. Show[Block[{$DisplayFunction = Identity}, {Plot[x, {x, 0, 5}, Frame -> True, Axes -> False], Graphics[Line[{{10, 0}, {10, 10}}], PlotRegion -> {{0, 1}, {0, 1}}]}]] Plot the Line inside the graph itself. How can i force the line to be outside the frame? Also GraphicsArray does not do what i want (i think). This shows what i mean: Show[Graphics[{Rectangle[{0, 0}, {1, 1}, Plot[x, {x, 0, 5}, Frame -> True, Axes -> False]], Rectangle[{1, 0}, {2, 1}, Graphics[Line[{{0, 0}, {0, 10}}]]]}]] Has anyone made such a plot before? Thanks. Bernd