Discussion about math, puzzles, games and fun. Useful symbols: ÷ × ½ √ ∞ ≠ ≤ ≥ ≈ ⇒ ± ∈ Δ θ ∴ ∑ ∫ • π ƒ -¹ ² ³ °
| |
|
|
You are not logged in. #1 2006-08-02 21:36:33
Perfect Squares forming some kind of wavei was programming a program that can generate all numbers, then delete all primes/squares/palindromes etc, or keep them, and also painting a picture with dots at the numbers positions (and no dot where a nmber has been deleted). #2 2006-08-03 00:13:53#3 2006-08-03 05:30:58
Re: Perfect Squares forming some kind of waveInteresting. Here's a picture 10x10000: Last edited by krassi_holmz (2006-08-03 05:34:54) IPBLE: Increasing Performance By Lowering Expectations. #4 2006-08-03 06:03:47
Re: Perfect Squares forming some kind of waveYou mean 10x1000, no? "In the real world, this would be a problem. But in mathematics, we can just define a place where this problem doesn't exist. So we'll go ahead and do that now..." #5 2006-08-03 06:35:42
Re: Perfect Squares forming some kind of waveHere's better:(It's flipped) Last edited by krassi_holmz (2006-08-03 06:42:13) IPBLE: Increasing Performance By Lowering Expectations. #6 2006-08-03 06:38:25
Re: Perfect Squares forming some kind of wave
Yes IPBLE: Increasing Performance By Lowering Expectations. #7 2006-08-03 06:46:42
Re: Perfect Squares forming some kind of waveConnecting the points: Last edited by krassi_holmz (2006-08-03 06:47:06) IPBLE: Increasing Performance By Lowering Expectations. #8 2006-08-03 07:52:22
Re: Perfect Squares forming some kind of waveI have played for a while with mathematica, and I founded interesting patterns. Code:ToCoords[x_][c_] := {Floor[c/x], c - x Floor[c/x]};
SqueezedDotPlot[x_, list_, ops___] := Show[Graphics[Point /@ (ToCoords[x] /@ list)], ops];
SqueezedLinePlot[x_, list_, ops___] := Show[Graphics[Line[ToCoords[x] /@ list]], ops];Here I will actually use only the first plotting function. Code:SqueezedDotPlot[10, Range[100]^2] Picture 2: If you use irrational numbers, there can be interestiong results. Code:SqueezedDotPlot[4, Range[1000]^Sqrt[2]] Picture 3: But for most of the numbers, you will get the ordinary noise. Code:SqueezedDotPlot[Sqrt[10], Range[10000]^3] Picture 4: Some non-trivial structure Code:SqueezedDotPlot[Sqrt[2], Range[10000]^2] Picture 5: The previous zoomed Code:SqueezedDotPlot[Sqrt[2], Range[1000]^2] Picture 6: Noise again, but different from the ordinary. Code:SqueezedDotPlot[3, Range[10000]^1.5] Picture 7: And what if the exponent is smaller than 1? Code:SqueezedDotPlot[2, Range[10000]^0.9] Picture 8: interesting... Code:SqueezedDotPlot[1, Range[10000]^0.99] Picture 9: What a wave! Code:SqueezedDotPlot[2, Range[10000]^0.999] Picture 10: this is beautiful!!! Code:SqueezedDotPlot[0.1, Range[10000]^0.5] Last edited by krassi_holmz (2006-08-03 07:55:32) IPBLE: Increasing Performance By Lowering Expectations. #9 2006-08-03 07:54:15
Re: Perfect Squares forming some kind of waveI'll upload the pictures soon... IPBLE: Increasing Performance By Lowering Expectations. #10 2006-08-03 07:55:37
Re: Perfect Squares forming some kind of wavehttp://www.geocities.com/tibiihost/Squarelines.bmp
nice, cool, im waiting Last edited by Kurre (2006-08-03 07:57:54) #11 2006-08-03 07:57:19
Re: Perfect Squares forming some kind of wavePictures 1-5: Last edited by krassi_holmz (2006-08-03 07:58:38) IPBLE: Increasing Performance By Lowering Expectations. #12 2006-08-03 08:01:12
Re: Perfect Squares forming some kind of wavePictures 6-10: Last edited by krassi_holmz (2006-08-03 08:05:37) IPBLE: Increasing Performance By Lowering Expectations. |