7.11.2 Greatest hits from previous weeks

7.11.2.1 How can I draw the Olympic rings with Mathematica?

https://mathematica.stackexchange.com/landing/r/digest?cta=question&id=8885

How can I draw the 5 interlocking Olympic rings with Mathematica? 
(SVG version) 
Edit 
 
Hard choice, but some pretty cool answers here. I didn't have 3D answers in mind when I posted the question, but ... 
[graphics] [generative-art]
 

asked by Mike Honeychurch https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=77 44 votes

answered by cormullion https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=61 23 votes

7.11.2.2 Plot, extract data to a file

https://mathematica.stackexchange.com/landing/r/digest?cta=question&id=19859

I need to save data that Mathematica uses inside the  Plot  command. The format that I would like to have is: 
 
 x1 y1 
x2 y2 
..... 
 
 
... 
[plotting] [export]
 

asked by molkee https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=5097 30 votes

answered by Mr.Wizard https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=121 47 votes

7.11.2.3 What does "Tag Integer is Protected" message mean?

https://mathematica.stackexchange.com/landing/r/digest?cta=question&id=6738

(Newbie question) 
 
For every function I define I get this message: 
When I close and reopen Mathematica, and re-enter the function definition, I don't get the message anymore. What does it mean? 
[warning-messages]
 

asked by stevenvh https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=1450 11 votes

answered by J. M.'s ennui https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=50 13 votes

7.11.2.4 Selecting every n-th element from a list

https://mathematica.stackexchange.com/landing/r/digest?cta=question&id=64003

I have a list: 
 
 data = {4, 5, 7, 8, 9, 5, 3, 2, 1, 2, 13, 12}; 
 
 
I want to take those elements in the list which are located at equal distances, say, every third ... 
[list-manipulation] [filtering]
 

asked by Suro https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=20003 37 votes

answered by Szabolcs https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=12 33 votes

7.11.2.5 Labeling individual curves in Mathematica

https://mathematica.stackexchange.com/landing/r/digest?cta=question&id=4444

I need to create a plot for export and inclusion in a report. Is there a better way to label curves than  PlotLegends ? From what I've read and my personal experience,... 
[plotting] [legending]
 

asked by Tianxiang Xiong https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=1041 63 votes

answered by Artes https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=184 47 votes

7.11.2.6 Help find a bright object on Mars!

https://mathematica.stackexchange.com/landing/r/digest?cta=question&id=11819

In today's news, scientists found a bright object on one of Curiosity's photos (it's near the bottom of the picture below). It's a bit tricky to find - I actually spent quite some time staring at the ... 
[image-processing]
 

asked by Victor K. https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=1351 201 votes

answered by Niki Estner https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=242 261 votes

7.11.2.7 Plotting the frequency spectrum of a data series using Fourier

https://mathematica.stackexchange.com/landing/r/digest?cta=question&id=18082

 testData = Table[N@Sin[500 x], {x, 0, 100}]; 
ListLinePlot[Abs[Fourier[testData]], PlotRange -> Full] 
 
 
Gives me 
Which I do not expect because the Fourier ... 
[fourier-analysis]
 

asked by C. E. https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=731 14 votes

answered by KennyColnago https://mathematica.stackexchange.com/landing/r/digest?cta=user&id=3246 16 votes