Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: mathematica & fortran ??
  • Next by Date: Re: mouse drage listener!
  • Previous by thread: Re: mathematica & fortran ??
  • Next by thread: NIntegrate