 \begin{mfpic}[ 1.0 ]{  -13.400}{  217.864}{  -10.500}{  170.175}
\pen{ 1.000pt}
 \lines{(    0.000,    0.000),(  217.864,    0.000)}
 \mfsrc{
 pickup pencircle scaled  0.700pt;
 for x=    13.400 step     27.233 until     231.364:
  draw(x,      10.500)*pt..(x,      14.500)*pt;
 endfor;}
 \mfsrc{
 pickup pencircle scaled  0.500pt;
 for x=    13.400 step     13.616 until     231.364:
  draw(x,      10.500)*pt..(x,      13.000)*pt;
 endfor;}
 \tlabel[bl](    0.000,  -10.500){\small 0}
 \tlabel[bc](   27.233,  -10.500){\small .2}
 \tlabel[bc](   54.466,  -10.500){\small .4}
 \tlabel[bc](   81.699,  -10.500){\small .6}
 \tlabel[bc](  108.932,  -10.500){\small .8}
 \tlabel[bc](  136.165,  -10.500){\small 1}
 \tlabel[bc](  163.398,  -10.500){\small 1.2}
 \tlabel[bc](  190.631,  -10.500){\small 1.4}
 \tlabel[br](  217.864,  -10.500){\small 1.6}
 \lines{(    0.000,    0.000),(    0.000,  170.175)}
 \mfsrc{
 pickup pencircle scaled  0.700pt;
 for x=    10.500 step     42.544 until     180.775:
  draw(     13.400, x)*pt..(     17.400, x)*pt;
 endfor;}
 \mfsrc{
 pickup pencircle scaled  0.500pt;
 for x=    10.500 step     21.272 until     180.775:
  draw(     13.400, x)*pt..(     15.900, x)*pt;
 endfor;}
 \tlabel[br](   -3.500,    0.000){\small $-4$}
 \tlabel[cr](   -3.500,   42.544){\small $-2$}
 \tlabel[cr](   -3.500,   85.087){\small 0}
 \tlabel[cr](   -3.500,  127.631){\small 2}
 \tlabel[tr](   -3.500,  170.175){\small 4}
 \lines{(    0.000,  170.175),(  217.864,  170.175)}
 \lines{(  217.864,    0.000),(  217.864,  170.175)}
\pen{ 0.600pt}
 \lines{(    0.000,   85.087),(  217.864,   85.087)}
\pen{ 0.500pt}
\curve{(   1.2103, 170.1750),(   2.1786, 161.1108),(   4.3573, 146.7025)
,(   6.5359, 138.4112),(   8.7146, 132.6226),(  10.8932, 128.2043)
,(  13.0718, 124.6518),(  15.2505, 121.6960),(  17.4291, 119.1762)
,(  19.6078, 116.9890),(  21.7864, 115.0635),(  23.9650, 113.3494)
,(  26.1437, 111.8094),(  28.3223, 110.4152),(  30.5010, 109.1449)
,(  32.6796, 107.9810),(  34.8582, 106.9096),(  37.0369, 105.9191)
,(  39.2155, 105.0001),(  41.3942, 104.1446),(  43.5728, 103.3459)
,(  45.7514, 102.5982),(  47.9301, 101.8966),(  50.1087, 101.2369)
,(  52.2874, 100.6152),(  54.4660, 100.0284),(  56.6446,  99.4736)
,(  61.0019,  98.4499),(  65.3592,  97.5270),(  69.7165,  96.6908)
,(  74.0738,  95.9300),(  80.6097,  94.9103),(  87.1456,  94.0143)
,(  93.6815,  93.2220),( 102.3961,  92.3004),( 111.1106,  91.5067)
,( 122.0038,  90.6607),( 132.8970,  89.9466),( 145.9689,  89.2290)
,( 159.0407,  88.6331),( 174.2912,  88.0596),( 191.7203,  87.5299)
,( 211.3281,  87.0575),( 217.8640,  86.9234)}
\curve{(   1.1869,   0.0000),(   2.1786,   9.7449),(   4.3573,  24.8339)
,(   6.5359,  33.8062),(   8.7146,  40.2758),(  10.8932,  45.3754)
,(  13.0718,  49.6095),(  15.2505,  53.2472),(  17.4291,  56.4493)
,(  19.6078,  59.3194),(  21.7864,  61.9281),(  23.9650,  64.3262)
,(  26.1437,  66.5508),(  28.3223,  68.6302),(  30.5010,  70.5865)
,(  32.6796,  72.4372),(  34.8582,  74.1963),(  37.0369,  75.8754)
,(  39.2155,  77.4841),(  41.3942,  79.0303),(  43.5728,  80.5208)
,(  45.7514,  81.9614),(  50.1087,  84.7125),(  54.4660,  87.3160)
,(  58.8233,  89.7973),(  63.1806,  92.1761),(  67.5378,  94.4685)
,(  74.0738,  97.7727),(  80.6097, 100.9461),(  87.1456, 104.0160)
,(  95.8602, 107.9846),( 104.5747, 111.8474),( 113.2893, 115.6357)
,( 124.1825, 120.3049),( 135.0757, 124.9376),( 145.9689, 129.5670)
,( 159.0407, 135.1568),( 172.1126, 140.8240),( 185.1844, 146.6055)
,( 200.4349, 153.5406),( 215.6854, 160.7289),( 217.8640, 161.7794)}
 \tlabel[bl](  163.398,   95.723){\small $E_1(x)$}
 \tlabel[bl](  108.932,  127.631){\small $Ei(x)$}
 \end{mfpic}
