48,687 reputation
771176
bio website none
location Argentina
age
visits member for 2 years, 3 months
seen 10 mins 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 Integral equation
What is F[] ?
21h
comment How to the take derivatives of a parametric function?
basically you use y'[x]=y'[t]/x'[t]
2d
comment Selection of the position of the variable
Instead of #1 I used a. What other difference is between my try and your intent?
2d
comment Selection of the position of the variable
Something like this? f[x_, y_] := Sin[x/y]; funPlot[f_, var_] := Plot[f, var]; GraphicsRow[{funPlot[f[a, 1], {a, 1, 2}], funPlot[f[1, a], {a, 1, 2}]}]
Apr
21
comment How to determine three last bindings made to a variable when evaluating an expression?
Trace[expr,i=_]
Apr
21
comment Definite Integral, Piecewise, Error
For the record (i.stack.imgur.com/H1YHW.png) :)
Apr
21
comment Plot of a periodic triangular wave
Plot[Abs@TriangleWave[x/4], {x, -4, 4}, AspectRatio -> 1/8]
Apr
21
comment RandomVariate does not evaluate a Hyperbolic Distribution
Apparently 3.428 10^-9 is too small. 3.428 10^-7 works OK, though
Apr
20
comment Issue with Set function
If you've a problem with Set[], then post a minimal example. The rest of the code (notwithstanding how clever it could be) is just impedance to understand the question.
Apr
19
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"
Apr
19
comment Questions about CountryData
It really smells like homework. Anyway SortBy[{#, CountryData[#, "InternetUsers"]/CountryData[#, "Population"]} & /@ CountryData[All], -Last@# &]
Apr
19
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]