Drawing a sequence of circlesArcs of rotation for anglesDrawing pairs (planar graph, circle packing)Coloring circles based on radiusPlot Two Circles and color their differenceHow to demonstrate a limit without having to pre-calculate certain pointsDraw all the circles that touch the x-axis and a unit circleHow to visualize the Cremona method for cardioid generationDrawing Circle using Image[Graphics[]] - incorrect coordinates
Converting list into Integer
Car as a good investment
What are the differences between prismatic, lensatic, and optical sighting compasses?
Is it safe to pay bills over satellite internet?
In the twin paradox does the returning twin also come back permanently length contracted flatter than the twin on earth?
I need an automatic way of making a lot of numbered folders
Why do Computer Science degrees contain a high proportion of mathematics?
Why is Trump releasing (or not) his tax returns such a big deal?
Where does the upgrade to macOS Catalina move root "/" directory files?
Charges from Dollar General have never shown up on my debit card. How can I resolve this?
Should I trust the p value in statistical testings
Hebrew Vowels change the word
Making the sound of 'th' in 'with'
Does obfuscation give any measurable security benefit?
RGB palette to predetermined CMYK palette in InDesign and/or Illustrator
Why does Principal Vagina say, "no relation" after introducing himself?
If we should encrypt the message rather than the method of transfer, why do we care about wifi security? Is this just security theatre?
Should I avoid "big words" when writing to a younger audience?
Which culture used no personal names?
Vergil Book XII, Line 756 | Meter Question
Why is my paper "under review" if it contains no results?
What would be the effect of a giant magical fireball burning in the ocean?
Company indirectly discriminating against introverts, specifically INTJ
How do I count the number of elements in a list which are between two determined values?
Drawing a sequence of circles
Arcs of rotation for anglesDrawing pairs (planar graph, circle packing)Coloring circles based on radiusPlot Two Circles and color their differenceHow to demonstrate a limit without having to pre-calculate certain pointsDraw all the circles that touch the x-axis and a unit circleHow to visualize the Cremona method for cardioid generationDrawing Circle using Image[Graphics[]] - incorrect coordinates
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty
margin-bottom:0;
.everyonelovesstackoverflowposition:absolute;height:1px;width:1px;opacity:0;top:0;left:0;pointer-events:none;
$begingroup$
For every natural number from 1 to 150, draw a circle centered on the x-axis in that number and with the diameter equal to the number of divisors of the number. I don't know what should I do.
graphics number-theory
edited 10 hours ago
m_goldberg
92.1k8 gold badges76 silver badges210 bronze badges
asked 10 hours ago
fangmiao niufangmiao niu
262 bronze badges
New contributor
fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
$endgroup$
add a comment
|
$begingroup$
For every natural number from 1 to 150, draw a circle centered on the x-axis in that number and with the diameter equal to the number of divisors of the number. I don't know what should I do.
graphics number-theory
edited 10 hours ago
m_goldberg
92.1k8 gold badges76 silver badges210 bronze badges
asked 10 hours ago
fangmiao niufangmiao niu
262 bronze badges
New contributor
fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
$endgroup$
2
$begingroup$
Welcome to Mathematica.SE. Are you sure you are posting on the right site? There is nothing in your question making it clear that it is concerned with Mathematica software.
$endgroup$
– m_goldberg
10 hours ago
$begingroup$
What have you tried so far?
$endgroup$
– user6014
10 hours ago
add a comment
|
$begingroup$
For every natural number from 1 to 150, draw a circle centered on the x-axis in that number and with the diameter equal to the number of divisors of the number. I don't know what should I do.
graphics number-theory
edited 10 hours ago
m_goldberg
92.1k8 gold badges76 silver badges210 bronze badges
asked 10 hours ago
fangmiao niufangmiao niu
262 bronze badges
New contributor
fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
$endgroup$
For every natural number from 1 to 150, draw a circle centered on the x-axis in that number and with the diameter equal to the number of divisors of the number. I don't know what should I do.
graphics number-theory
graphics number-theory
edited 10 hours ago
m_goldberg
92.1k8 gold badges76 silver badges210 bronze badges
asked 10 hours ago
fangmiao niufangmiao niu
262 bronze badges
New contributor
fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
edited 10 hours ago
m_goldberg
92.1k8 gold badges76 silver badges210 bronze badges
asked 10 hours ago
fangmiao niufangmiao niu
262 bronze badges
New contributor
fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
edited 10 hours ago
m_goldberg
92.1k8 gold badges76 silver badges210 bronze badges
edited 10 hours ago
m_goldberg
92.1k8 gold badges76 silver badges210 bronze badges
edited 10 hours ago
m_goldberg
92.1k8 gold badges76 silver badges210 bronze badges
92.1k8 gold badges76 silver badges210 bronze badges
asked 10 hours ago
fangmiao niufangmiao niu
262 bronze badges
New contributor
fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
asked 10 hours ago
fangmiao niufangmiao niu
262 bronze badges
asked 10 hours ago
fangmiao niufangmiao niu
262 bronze badges
262 bronze badges
New contributor
fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
New contributor
fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
2
$begingroup$
Welcome to Mathematica.SE. Are you sure you are posting on the right site? There is nothing in your question making it clear that it is concerned with Mathematica software.
$endgroup$
– m_goldberg
10 hours ago
$begingroup$
What have you tried so far?
$endgroup$
– user6014
10 hours ago
add a comment
|
2
$begingroup$
Welcome to Mathematica.SE. Are you sure you are posting on the right site? There is nothing in your question making it clear that it is concerned with Mathematica software.
$endgroup$
– m_goldberg
10 hours ago
$begingroup$
What have you tried so far?
$endgroup$
– user6014
10 hours ago
2
2
$begingroup$
Welcome to Mathematica.SE. Are you sure you are posting on the right site? There is nothing in your question making it clear that it is concerned with Mathematica software.
$endgroup$
– m_goldberg
10 hours ago
$begingroup$
Welcome to Mathematica.SE. Are you sure you are posting on the right site? There is nothing in your question making it clear that it is concerned with Mathematica software.
$endgroup$
– m_goldberg
10 hours ago
$begingroup$
What have you tried so far?
$endgroup$
– user6014
10 hours ago
$begingroup$
What have you tried so far?
$endgroup$
– user6014
10 hours ago
add a comment
|
2 Answers
2
active
oldest
votes
$begingroup$
Graphics[
r = Length[Divisors@#]/2;
ColorData["Rainbow"][(r - 1)/7],
Circle[#, 0, r] & /@
Range[150],
ImageSize -> 504]
answered 9 hours ago
Bob HanlonBob Hanlon
66.6k3 gold badges37 silver badges102 bronze badges
$endgroup$
add a comment
|
$begingroup$
You can get the radii using the built-in function DivisorSigma directly:
n = 50;
radii = DivisorSigma[0, Range @ n]/2;
Coloring the circles based on radius:
Graphics[MapThread[Thick, ColorData["Rainbow", 0, Max@radii]@#2, Circle[#, 0, #2] &,
Range[n], radii]]
Coloring the circles based on the horizontal coordinate of the center:
Graphics[ MapThread[Thick, ColorData["Rainbow", 0, n]@#, Circle[#, 0, #2] &,
Range[n], radii]]
answered 6 hours ago
kglrkglr
220k10 gold badges250 silver badges507 bronze badges
$endgroup$
add a comment
|
Your Answer
StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);
else
createEditor();
);
function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/4.0/"u003ecc by-sa 4.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);
);
fangmiao niu is a new contributor. Be nice, and check out our Code of Conduct.
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f207583%2fdrawing-a-sequence-of-circles%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
$begingroup$
Graphics[
r = Length[Divisors@#]/2;
ColorData["Rainbow"][(r - 1)/7],
Circle[#, 0, r] & /@
Range[150],
ImageSize -> 504]
answered 9 hours ago
Bob HanlonBob Hanlon
66.6k3 gold badges37 silver badges102 bronze badges
$endgroup$
add a comment
|
$begingroup$
Graphics[
r = Length[Divisors@#]/2;
ColorData["Rainbow"][(r - 1)/7],
Circle[#, 0, r] & /@
Range[150],
ImageSize -> 504]
answered 9 hours ago
Bob HanlonBob Hanlon
66.6k3 gold badges37 silver badges102 bronze badges
$endgroup$
add a comment
|
$begingroup$
Graphics[
r = Length[Divisors@#]/2;
ColorData["Rainbow"][(r - 1)/7],
Circle[#, 0, r] & /@
Range[150],
ImageSize -> 504]
answered 9 hours ago
Bob HanlonBob Hanlon
66.6k3 gold badges37 silver badges102 bronze badges
$endgroup$
Graphics[
r = Length[Divisors@#]/2;
ColorData["Rainbow"][(r - 1)/7],
Circle[#, 0, r] & /@
Range[150],
ImageSize -> 504]
answered 9 hours ago
Bob HanlonBob Hanlon
66.6k3 gold badges37 silver badges102 bronze badges
answered 9 hours ago
Bob HanlonBob Hanlon
66.6k3 gold badges37 silver badges102 bronze badges
answered 9 hours ago
Bob HanlonBob Hanlon
66.6k3 gold badges37 silver badges102 bronze badges
answered 9 hours ago
Bob HanlonBob Hanlon
66.6k3 gold badges37 silver badges102 bronze badges
66.6k3 gold badges37 silver badges102 bronze badges
add a comment
|
add a comment
|
$begingroup$
You can get the radii using the built-in function DivisorSigma directly:
n = 50;
radii = DivisorSigma[0, Range @ n]/2;
Coloring the circles based on radius:
Graphics[MapThread[Thick, ColorData["Rainbow", 0, Max@radii]@#2, Circle[#, 0, #2] &,
Range[n], radii]]
Coloring the circles based on the horizontal coordinate of the center:
Graphics[ MapThread[Thick, ColorData["Rainbow", 0, n]@#, Circle[#, 0, #2] &,
Range[n], radii]]
answered 6 hours ago
kglrkglr
220k10 gold badges250 silver badges507 bronze badges
$endgroup$
add a comment
|
$begingroup$
You can get the radii using the built-in function DivisorSigma directly:
n = 50;
radii = DivisorSigma[0, Range @ n]/2;
Coloring the circles based on radius:
Graphics[MapThread[Thick, ColorData["Rainbow", 0, Max@radii]@#2, Circle[#, 0, #2] &,
Range[n], radii]]
Coloring the circles based on the horizontal coordinate of the center:
Graphics[ MapThread[Thick, ColorData["Rainbow", 0, n]@#, Circle[#, 0, #2] &,
Range[n], radii]]
answered 6 hours ago
kglrkglr
220k10 gold badges250 silver badges507 bronze badges
$endgroup$
add a comment
|
$begingroup$
You can get the radii using the built-in function DivisorSigma directly:
n = 50;
radii = DivisorSigma[0, Range @ n]/2;
Coloring the circles based on radius:
Graphics[MapThread[Thick, ColorData["Rainbow", 0, Max@radii]@#2, Circle[#, 0, #2] &,
Range[n], radii]]
Coloring the circles based on the horizontal coordinate of the center:
Graphics[ MapThread[Thick, ColorData["Rainbow", 0, n]@#, Circle[#, 0, #2] &,
Range[n], radii]]
answered 6 hours ago
kglrkglr
220k10 gold badges250 silver badges507 bronze badges
$endgroup$
You can get the radii using the built-in function DivisorSigma directly:
n = 50;
radii = DivisorSigma[0, Range @ n]/2;
Coloring the circles based on radius:
Graphics[MapThread[Thick, ColorData["Rainbow", 0, Max@radii]@#2, Circle[#, 0, #2] &,
Range[n], radii]]
Coloring the circles based on the horizontal coordinate of the center:
Graphics[ MapThread[Thick, ColorData["Rainbow", 0, n]@#, Circle[#, 0, #2] &,
Range[n], radii]]
answered 6 hours ago
kglrkglr
220k10 gold badges250 silver badges507 bronze badges
answered 6 hours ago
kglrkglr
220k10 gold badges250 silver badges507 bronze badges
answered 6 hours ago
kglrkglr
220k10 gold badges250 silver badges507 bronze badges
answered 6 hours ago
kglrkglr
220k10 gold badges250 silver badges507 bronze badges
220k10 gold badges250 silver badges507 bronze badges
add a comment
|
add a comment
|
fangmiao niu is a new contributor. Be nice, and check out our Code of Conduct.
fangmiao niu is a new contributor. Be nice, and check out our Code of Conduct.
fangmiao niu is a new contributor. Be nice, and check out our Code of Conduct.
fangmiao niu is a new contributor. Be nice, and check out our Code of Conduct.
Thanks for contributing an answer to Mathematica Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f207583%2fdrawing-a-sequence-of-circles%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
2
$begingroup$
Welcome to Mathematica.SE. Are you sure you are posting on the right site? There is nothing in your question making it clear that it is concerned with Mathematica software.
$endgroup$
– m_goldberg
10 hours ago
$begingroup$
What have you tried so far?
$endgroup$
– user6014
10 hours ago