48,617 reputation
771175
bio website none
location Argentina
age
visits member for 2 years, 3 months
seen 5 hours ago

Code for my breathing avatar here


You may contact me at: BelisariusForSO@gmail.com

But please don't email me with requests about Q&A. Post them in the site instead.

Infix should be used only where it is essential... like in "feliz año nuevo" @rm-rf


21h
comment Questions about CountryData
@Nasser From WikiP: "In 2003, Niue became the world's first "Wi-Fi nation", in which free wireless Internet access is provided throughout the country by The Internet Users Society-Niue"
1d
comment Questions about CountryData
It really smells like homework. Anyway SortBy[{#, CountryData[#, "InternetUsers"]/CountryData[#, "Population"]} & /@ CountryData[All], -Last@# &]
1d
comment Visualization of matrix transformations
@pxc3110 Try ImagePerspectiveTransformation[ExampleData[{"TestImage", "Lena"}], {{1/2, 1/10}, {1/10, 1/4}}]
Apr
16
comment Displaying primes as a 3D array of spheres
Yup. That's a cheap way to get 10^3 sequential integers. How the bijection goes is arbitrary, as ever.
Apr
16
comment Displaying primes as a 3D array of spheres
Try Flatten@Table[100 i + 10 j + k + 1, {i, 0, 9}, {j, 0, 9}, {k, 0, 9}] and Flatten@Table[100 i + 10 j + k + 1, {i, 1, 10}, {j, 1, 10}, {k, 1, 10}]
Apr
16
comment Displaying primes as a 3D array of spheres
Try Graphics3D[Table[If[PrimeQ[100 i + 10 j + k + 1], Sphere[{i, j, k}, 1/2]], {i, 0, 9}, {j, 0, 9}, {k, 0, 9}]]
Apr
16
comment Displaying primes as a 3D array of spheres
Prime /@ Range@PrimePi[1000] gives you the prime numbers ... now you should solve how to "number" the 3D cells from 1 to 1000 ...
Apr
15
comment combining plots
@Kuba :) I think I answered in a comment and then the question was deleted (and the OP was kicked away by the mods)
Apr
15
comment combining plots
@Kuba The code is mine.I answered a previous question with it.
Apr
14
comment Can TreeForm be displayed “sideways”?
I think it's documented here reference.wolfram.com/mathematica/GraphUtilities/tutorial/…
Apr
11
comment Setting an initial value for ListAnimate?
Also, not completely equivalent, but ... Animate[Plot[Sin[p x], {x, -1, 1}], {{p, 3}, 1, 4, 1}, AnimationRunning -> False]
Apr
11
comment Setting an initial value for ListAnimate?
Yup. I know. That's why I haven't posted it as an answer
Apr
11
comment Setting an initial value for ListAnimate?
You could use ListAnimate[RotateLeft[Table[...],n],....]
Apr
10
comment How to put the labels in the minimun and maximun option in the slide verticals? Manipulate
@MikaIke See for example mathematica.stackexchange.com/a/5341/193
Apr
10
comment Constraining function found by NDSolve to stay positive
If x'[t]== -10 then x[t] will get to 0 after one second (starting form x[0] == 10). It seems that a "positive" solution isn't possible
Apr
10
comment UnitStep in Mathematica when t varies differently
A piss wise master :)
Apr
9
comment inequalities in equations and constraints
You should provide more context. For example NMinimize[{x1 + x2 + x3 + x4, .5 < x1 < x2 < x3 < x4 < 40}, {x1, x2, x3, x4}] works OK
Apr
9
comment Capture an image by non-default device
Or it may prove you've dismantled your laptop
Apr
9
comment Capture an image by non-default device
Evaluate this in your front end Information["ImageAcquisition`CaptureDump`*"]
Apr
9
comment Capture an image by non-default device
Perhaps something in here may help ?ImageAcquisition'CaptureDump'*