Critical Strip

Author

Eric W. Weisstein
June 19, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SpecialFunctions/CriticalStrip.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/CriticalStrip.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Plot

g=Show[Graphics[{GrayLevel[.7],Polygon[{{0,-2},{1,-2},{1,2},{0,2}}]
}],
PlotRange->{{-2,2},{-2,2}},
AxesLabel->TraditionalForm/@{Re[z],Im[z]},
Axes->True]

b={{0,-2},{1,-2},{1,2},{0,2}};
Show[{
Graphics[{
{
GrayLevel[.7],
Polygon[b]
},
{
Dashing[{.02,.02}],
Thickness[.011],
Line[b[[{2,3}]]],
Line[b[[{1,4}]]]
}
}],
FullGraphics[g]
},PlotRange->All]