Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

RE: A curious result?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg91495] RE: [mg91488] A curious result?
  • From: "Tony Harker" <a.harker at ucl.ac.uk>
  • Date: Sun, 24 Aug 2008 07:04:57 -0400 (EDT)
  • References: <200808230543.BAA21636@smc.vnet.net>

Is it surprising?

Show[Plot[1/n^1.001, {n, .3, 10}, AxesOrigin -> {1, 0}],
 Graphics[{Line[{{1, 0}, {1, 1}}], 
   Table[Line[{{n, 1/n^1.001}, {n + 1, 1/n^1.001}, {n + 1, 0}}], {n, 
     1, 10}]}], PlotRange -> {{1, 10}, {0, 1}}]

   Tony Harker 

]-> -----Original Message-----
]-> From: amzoti [mailto:amzoti at gmail.com] 
]-> Sent: 23 August 2008 06:44
]-> To: mathgroup at smc.vnet.net
]-> Subject: [mg91488] A curious result?
]-> 
]-> a. Sum[1/n^1.001, {n, 1 , Infinity}] = 1000.58
]-> 
]-> b. Integrate[1/n^(1.001), {n, 1, Infinity}] = 1000
]-> 
]-> 



  • Prev by Date: Re: A curious result?
  • Next by Date: Histogram and BoxWhiskers Plot
  • Previous by thread: A curious result?
  • Next by thread: Re: A curious result?