Reputation
919
Next privilege 1,000 Rep.
See votes, expandable usercard
Badges
4 14
Newest
 Yearling
Impact
~5k people reached

  • 0 posts edited
  • 0 helpful flags
  • 63 votes cast
Mar
15
comment How to batch convert a directory of images to thumbnails?
ParallelDo?
Mar
6
awarded  Yearling
Mar
1
comment Connect points in List plot by individual specification
you can specify the points to connect as a sequence, eg. ListLinePlot[data[[{1, 5, 2}, 2 ;; 3]]] to connect point 1 with 5, 5 with 2.
Feb
22
comment Is it possible to make a standalone OS X app from manipulate?
maybe CDF is the closest option.
Feb
17
comment How to get DateListPlot Epilog to display shapes
Seems like the big number is due to date converted to AbsoluteTime, i.e. seconds since January 1, 1900: DateString[3.36865*10^9] is Sun 1 Oct 2006 00:06:40, the first data point.
Feb
17
comment Different Mesh lines and styles in the same plot
Mesh -> {{Sqrt[(8 n + 3)/ 2]}, {6^.25}}, MeshFunctions -> {#1 &, #2 &}, MeshStyle -> \ {{Thick, Cyan}, {Thick, Red}}
Feb
15
comment Select positive elements from a list of solutions
name your solution as sol, then Select[Table[{H, h} /. sol[[i]], {i, 1, Length[sol]}], Im[#[[1]]] == 0 && Im[#[[2]]] == 0 && Re[#[[1]]] >= 0 && Re[#[[1]]] >= 0 &]
Feb
15
comment Highlighting Mathematica code in $\LaTeX$ document
you can always save .nb file in pdf and use this
Feb
11
comment How to reconstruct a given schematic picture from color image
@garej btw, if you may also be interested in using this
Feb
10
comment Table with List iterator return unpacked list
@matheorem the inner/outer iterator detail by @Daniel Lichtblau can be easily verified: Table[w + ky, {w, 1., 10., 0.01}, {ky, Range[1., 10., 0.01]}] is not packed; Table[w + ky, {w, Range[1., 10., 0.01]}, {ky, 1., 10., 0.01}] is packed
Feb
9
revised Table with List iterator return unpacked list
added 123 characters in body
Feb
9
answered Table with List iterator return unpacked list
Feb
9
comment Table with List iterator return unpacked list
Interesting. One could turn on On["Packing"] to see the warning if unpacking happens so as to manually apply ToPackedArray though.
Feb
9
comment Schrödinger equation for Hydrogen atom
related
Feb
5
comment How to refer a number in a list with two columns, first one is a number and the second one is empty?
Select[list, NumberQ[#[[2]]] &]
Feb
5
comment How define shortcuts to specific OptionInspector points?
Dynamic[counter, SaveDefinitions -> True] may save the counter; but bear in mind SaveDefinitions is considered a bit dangerous here.
Feb
5
comment How to generate two group of $n$ random numbers in $U(0,1)$ such that sum of these two groups equal?
this, and do a rescale maybe?
Feb
5
comment How define shortcuts to specific OptionInspector points?
I think SelectedCells refers to the cell with the input cursor, or selected via the bracket at the right side of the cell.
Feb
5
comment How define shortcuts to specific OptionInspector points?
This will make a button that sets the label to values specified by t. maybe you can use KeyEventTranslations.tr to make a shortcut for it. t = {"a", "b", "c", "d"}; Button["cell frame", SetOptions[SelectedCells[InputNotebook[]][[1]], CellFrameLabels -> {{t[[1]], t[[2]]}, {t[[3]], t[[4]]}}]]
Feb
5
comment I want to plot a list of points with specified t and x[t] coordinates
ListPlot[Table[{Subscript[t, i], x[Subscript[t, i]]}, {i, 0, 2, 1}], Filling -> Axis] works. Typo (i runs through 0 to 2, not t)?