File:Epsilondeltagamepicture.png

From Calculus

Epsilondeltagamepicture.png(360 × 217 pixels, file size: 15 KB, MIME type: image/png)

Created using Wolfram Mathematica 7 with the code:

Plot[Sin[x] + 2 Sin[4 x] + 0.5, {x, 0, Pi}, AxesStyle -> Brown, 
 Epilog -> {PointSize[0.02], Point[{Pi/4 , 1/Sqrt[2] + 0.5}], Blue, 
   Arrow[{{0.5, 1.6}, {Pi/4 - 0.01, 1/Sqrt[2] + 0.51}}], 
   Text["(c,L)", {0.4, 1.6}], Red, 
   Line[{{1, 1/Sqrt[2] + 0.5}, {1, 1.15 + 1/Sqrt[2]}}], 
   Text["\[Epsilon]", {1.1, 1.5}], 
   Line[{{0.55, 1/Sqrt[2] + 0.5}, {0.55, -0.15 + 1/Sqrt[2]}}], 
   Text["\[Epsilon]", {0.45, 0.9}], Black, 
   Line[{{Pi/4 - 0.07 , 2.5}, {Pi/4 , 2.5}}], 
   Text["\[Delta]", {Pi/4 , 2.6}], Arrow[{{2.5, 2.5}, {2.5, 1.9}}], 
   Red, Text["Skeptic chooses \[Epsilon]", {2.5, 2.6}], Black, 
   Arrow[{{1.1, 3.3}, {0.85, 3.3}}], 
   Text["Prover chooses \[Delta], traps", {1.65, 3.3}], 
   Text["function in rectangle", {1.6, 3}], Dashed, Red, 
   Line[{{0, 1/Sqrt[2] + 1.15}, {Pi, 1/Sqrt[2] + 1.15}}], 
   Line[{{0, 1/Sqrt[2] - 0.15}, {Pi, 1/Sqrt[2] - 0.15}}], 
   Text["L + \[Epsilon]", {1.3, 1/Sqrt[2] + 1.25}], 
   Text["L", {1.3, 1/Sqrt[2] + 0.6}], 
   Text["L - \[Epsilon]", {1.3, 1/Sqrt[2] - 0.05}], Black, 
   Line[{{Pi/4 - 0.07, -1.5}, {Pi/4 - 0.07, 3.5}}], 
   Line[{{Pi/4 + 0.07, -1.5}, {Pi/4 + 0.07, 3.5}}], Red, 
   Line[{{0, 1/Sqrt[2] + 0.5}, {Pi, 1/Sqrt[2] + 0.5}}], Black, 
   Line[{{Pi/4, -1.5}, {Pi/4, 3.5}}], 
   Line[{{Pi/4 + 0.07, 2}, {Pi/4, 2}}], 
   Text["\[Delta]", {Pi/4 + 0.05, 2.1}], 
   Text["c + \[Delta]", {Pi/4 + 0.2, -0.9}], 
   Text["c", {Pi/4 + 0.02, -0.9}], 
   Text["c - \[Delta]", {Pi/4 - 0.2, -0.9}] }]

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current19:40, 9 September 2012Thumbnail for version as of 19:40, 9 September 2012360 × 217 (15 KB)Vipul (talk | contribs)Created using [http://mathematica.wolfram.com Wolfram Mathematica 7] with the code: <pre>Plot[Sin[x] + 2 Sin[4 x] + 0.5, {x, 0, Pi}, AxesStyle -> Brown, Epilog -> {PointSize[0.02], Point[{Pi/4 , 1/Sqrt[2] + 0.5}], Blue, Arrow[{{0.5, 1.6}, {Pi/4 ...

The following file is a duplicate of this file (more details):

The following page uses this file:

Metadata