Jump to content

File:Coprime8.svg

Page contents not supported in other languages.
This is a file from the Wikimedia Commons
From Wikipedia, the free encyclopedia

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

Summary

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

Mathematica source

(*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

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.

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

depicts

16 March 2013

image/svg+xml

11c9f78e121193f4c312a7d5fb4de7499fe4f30a

519,369 byte

451 pixel

450 pixel

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)Jgmoxnessupdated point sizes
23:18, 16 March 2013Thumbnail for version as of 23:18, 16 March 2013370 × 366 (4.59 MB)Jgmoxnessbetter colors
22:39, 16 March 2013Thumbnail for version as of 22:39, 16 March 2013360 × 360 (4.36 MB)Jgmoxnessok, one more try
22:18, 16 March 2013Thumbnail for version as of 22:18, 16 March 2013360 × 366 (4.6 MB)Jgmoxnessagain
22:06, 16 March 2013Thumbnail for version as of 22:06, 16 March 2013450 × 450 (4.6 MB)Jgmoxnessfix border issue
21:50, 16 March 2013Thumbnail for version as of 21:50, 16 March 2013360 × 366 (4.6 MB)JgmoxnessUser created page with UploadWizard

The following 3 pages use this file:

Global file usage

The following other wikis use this file:

Metadata