780 reputation
111
bio website
location
age
visits member for 9 months
seen 16 hours ago
stats profile views 41

Feb
5
revised Obtaining better quality in ListPlot
added 580 characters in body
Feb
5
comment Obtaining better quality in ListPlot
with this approach what you need to do is increase imagesize and add scaling code to the postscript output to scale it back down to fit the page. This will effectivly shrink everything, points, lineweights, etc.
Feb
5
comment Efficiently compute double sum
this seems a miniscule bit faster..: Flatten[ Table[ m[[i]] n[[j]] , {i, n1}, {j, n2}] ].Flatten[Table[f[t[[i]],z[[j]]], {i, n1}, {j, n2}]].
Feb
5
answered Obtaining better quality in ListPlot
Feb
4
comment Obtaining better quality in ListPlot
Perhaps some system dependacy? On linux export to EPS produces a real vector eps file with no preview. The file size is essentilaly unchanged if you vary ImageSize.
Feb
3
comment intersection between two curves in Mathematica
do you need an approach that works with tabular data or can you use the actual function? If you interpolate the tabular data you of course end up with an approximate solution. I only see one curve in your example by the way.
Feb
1
comment Represent Plot Scale with an offset
IT might be simpler for you to explicitly put in the ticks you want. Ticks->{{{0,0},{50,5},{100,10},{{0,0},{100,10}},{{400000,40000},{500000,50000}}} Lookup Ticks[] in the manual if you dont understand
Feb
1
comment Represent Plot Scale with an offset
In some cases its simple to just change the data.. Plot3D[0.1 Sin[(10 x) (10 y)], {x, 0, .4}, {y, 0, .4}, Mesh -> None] should achieve the same.. Of course its often not so simple..
Feb
1
comment MiniMaxApproximation
after loading the package you will find minmax doesnt like it when you request a numerator of the same order as the polynomial expressions,..x^2, {x , {8,10},1,2} works
Feb
1
comment MiniMaxApproximation
answered over here.. stackoverflow.com/questions/14650207/…
Jan
22
comment What algorithm does Plot use to determine abscissas?
a more interesting varient on belisarius suggestion: ListPlot[Reap[Plot[Sow[x]; 1/(x - .5)^2, {x, 0, 1}]][[2, 1]]]. You can see that there is an adaptive curvitue based algorithm. Oddly it seems to never eval at the lower bound..
Jan
20
comment Find all the last weekends in a year
It might be cleaner to just find last Saturday or last Sunday, depending on how you mean to handle the wrap around weekends.
Jan
18
comment Saving graph as a .ps file without legend
"Mathematica for Students gives you all of the functionality of the standard version for a low price." What is it $150? Do they tell you about this feature before you buy?
Jan
17
comment How to use If with long instructions?
try If[ ... , Print @ Grid[...]; ]
Jan
9
comment Ignore missing data while doing a Mean
interesting, this effect of an empty Sequence[] seems to be undocumented. Learn something new every day.
Jan
8
comment Ignore missing data while doing a Mean
in a nutshell convert the list of 2x2 matrices to a 2x2 matrix of lists of the individual components. Use select on each component list to drop non-numeric values, then take the mean.
Jan
8
revised Ignore missing data while doing a Mean
added 108 characters in body
Jan
8
revised Ignore missing data while doing a Mean
edited body
Jan
8
answered Ignore missing data while doing a Mean
Jan
8
comment Import a file only if it contains a certain pattern
If its a large file with tag info at the beginning you might want the do raw open/read operations to get the key you need, then import only as needed. For small files my guess is you are just as well off to import the whole thing and descard what yuo dont need.