Rectangle with Scaled (a plot inside a plot)

*To*: mathgroup at smc.vnet.net*Subject*: [mg71411] Rectangle with Scaled (a plot inside a plot)*From*: "dimitris" <dimmechan at yahoo.com>*Date*: Fri, 17 Nov 2006 04:30:40 -0500 (EST)

Consider the following setting... sampledpoints = {}; ff[(x_)?InexactNumberQ] := (AppendTo[sampledpoints, x]; 1.) NIntegrate[ff[x]*BesselJ[0, x], {x, 0, Infinity}, Method -> Oscillatory] 1. ListPlot[sampledpoints, ImageSize -> 400, Frame -> {True, True, False, False}, Axes -> False, PlotLabel -> "sampled points by NIntegrate, Method:Oscillatory", FrameTicks -> {Range[0, 4000, 500], Range[0, 100, 5*Pi]}, Epilog -> Rectangle[{1500, 10}, {3000, 100}, ListPlot[Cases[sampledpoints, x_ /; 0 <= x <= Pi], PlotStyle -> {Blue, PointSize[0.04]}, Frame -> {True, True, False, False}, Axes -> False, DisplayFunction -> Identity, FrameTicks -> {Range[0, 50, 10], Range[0, Pi, Pi/4]}]]] I tried very hard to get the plot inside the plot in a visible position. How is it possible this without the need of specifying explicitly {xmin,ymin}, {xmax,ymax} coordinates in Rectangle? I did some attempts with Scaled but all failed. Any help will be greatly appreciate. Thanks. Dimitris