Re: Plot[(1 + 10^(-k))^(10^k), {k, 2, 9}]

*To*: mathgroup at smc.vnet.net*Subject*: [mg27448] Re: [mg27427] Plot[(1 + 10^(-k))^(10^k), {k, 2, 9}]*From*: "Christopher J. Purcell" <purcell at drea.dnd.ca>*Date*: Sun, 25 Feb 2001 20:55:53 -0500 (EST)*References*: <200102250553.AAA10863@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

You are seeing the effect of using machine precision arithmetic. $MachinePrecision will tell you how many digits Plot is working with on your computer. Instead try something like this where you can ask for more precision with the N function. Note I have inserted a missing bracket in your expression. ListPlot[ Table[Evaluate[ N[(1+10^(-k))^(10^k),100]], {k,2,9,1/100}],PlotJoined->True]; >Hi, >I happen to execute: >Plot[(1+10^(-k)^(10^k), {k, 2, 9}] >It looks fine if you change {k, 2, 9} to {k, 2, 3}, but otherwise the >plot is absurd. >Since >Limit[(1+10^(-k)^(10^k), k->Infinity]==E >may I ask what's wrong with my Mathmatica 4.0 on MMX 166 ? >Sincerely, >Hu Zhe -- Dr. Christopher J. Purcell GL/Trans Defence Research Establishment Atlantic 9 Grove St., Dartmouth, NS Canada B2Y 3Z7 Tel: 902-426-3100-x389 Fax: 902-426-9654 E-mail: purcell at drea.dnd.ca

**References**:**Plot[(1 + 10^(-k))^(10^k), {k, 2, 9}]***From:*"Hu Zhe" <huzhe@public3.sta.net.cn>