File:Coprime8.svg

Original file (SVG file, nominally 450 × 451 pixels, file size: 507 KB)

Captions

Captions

Add a one-line explanation of what this file represents

Summary

edit
Description
English: Coprime number generation graph.
Date
Source Own work
Author Jgmoxness

Mathematica source

edit
(*Modified original from Wikipedia User Stpasha*)
clr@i_:={Red,Orange,Yellow,Green,Cyan,Blue,Purple,Magenta,Pink,Gray,Black}[[i]];
style@n_:={PointSize@((1+n-#)/(4n^2)),clr@#}&/@Range[1+n];
f@x_:={{2#[[1]]-#[[2]],#[[1]]},{2#[[1]]+#[[2]],#[[1]]},{#[[1]]+2#[[2]],#[[2]]}}&/@x;
ticks=5{Range@17-1,Range@9-1};
doPlot@n_:=ListPlot[NestList[Flatten[f@#,1]&,{{2,1}},n],GridLines->ticks,Frame->True,FrameTicks->ticks,AspectRatio->1,PlotRange->{{0,80},{0,40}},LabelStyle->Directive@Medium,PlotStyle->style@n];
n=8;
out=doPlot@n
Export["Coprime"<>ToString@n<>".svg",out]

Licensing

edit
I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution share alike
This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
  • share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.

File history

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

Date/TimeThumbnailDimensionsUserComment
current00:56, 6 December 2023Thumbnail for version as of 00:56, 6 December 2023450 × 451 (507 KB)Jgmoxness (talk | contribs)updated point sizes
23:18, 16 March 2013Thumbnail for version as of 23:18, 16 March 2013370 × 366 (4.59 MB)Jgmoxness (talk | contribs)better colors
22:39, 16 March 2013Thumbnail for version as of 22:39, 16 March 2013360 × 360 (4.36 MB)Jgmoxness (talk | contribs)ok, one more try
22:18, 16 March 2013Thumbnail for version as of 22:18, 16 March 2013360 × 366 (4.6 MB)Jgmoxness (talk | contribs)again
22:06, 16 March 2013Thumbnail for version as of 22:06, 16 March 2013450 × 450 (4.6 MB)Jgmoxness (talk | contribs)fix border issue
21:50, 16 March 2013Thumbnail for version as of 21:50, 16 March 2013360 × 366 (4.6 MB)Jgmoxness (talk | contribs)User created page with UploadWizard

The following 2 pages use this file:

File usage on other wikis

The following other wikis use this file:

Metadata