Image:P1 different visualization.png

From Wikipedia, the free encyclopedia

[edit] Summary

a[p_] := {PointSize[PoiS], RGBColor[1, 0, 0], Point[{ p, 1}], RGBColor[0, 0, 1], Line[{{p, 1}, {1/p, -1}}], RGBColor[0, 0, 0], Point[{1/p, -1}]}; b[p_] := {PointSize[PoiS], RGBColor[0, 0, 0], Point[{p, -1}], RGBColor[0, 0, 1], Line[{{p, -1}, { 1/p, 1}}], RGBColor[1, 0, 0], Point[{1/p, 1}]}; d = 4; Show[Graphics[{ RGBColor[1, 0, 0], Line[{{d, 1}, {-d, 1}}], Table[a[p], {p, -4, -1}], Table[a[p], {p, 1, 4}], Table[b[p], {p, -4, -1}], Table[b[p], {p, 1, 4}], RGBColor[0, 0, 0], Line[{{d, -1}, {-d, -1}}] }]] Jakob.scholbach 06:09, 9 May 2007 (UTC)

[edit] Licensing

File history

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

Date/TimeDimensionsUserComment
current06:17, 9 May 2007382×235 (2 KB)Jakob.scholbach (Talk | contribs) (~~~~)
06:09, 9 May 2007288×177 (1 KB)Jakob.scholbach (Talk | contribs) (<tt><nowiki>a[p_] := {PointSize[PoiS], RGBColor[1, 0, 0], Point[{ p, 1}], RGBColor[0, 0, 1], Line[{{p, 1}, {1/p, -1}}], RGBColor[0, 0, 0], Point[{1/p, -1}]}; b[p_] := {PointSize[PoiS], RGBColor[0, 0, 0], Point[{p, -1}], RGBColor[0,)

The following pages on the English Wikipedia link to this file (pages on other projects are not listed):