64,164 reputation
19179310
bio website
location California, USA
age
visits member for 3 years, 2 months
seen 13 hours ago

Nov
12
comment Reduce distances between vertices of graph to minimum possible?
Heh, that was what I tried too at first. Try this on your US graph: $ComponentLayouts = {"CircularEmbedding", "HighDimensionalEmbedding", "LayeredDrawing", "LinearEmbedding", "RadialEmbedding", "RandomEmbedding", "SpiralEmbedding", "SpringElectricalEmbedding", "SpringEmbedding"}; $PackingLayouts = {"ClosestPacking", "ClosestPackingCenter", "Layered", "LayeredLeft", "LayeredTop", "NestedGrid"}; Outer[Graph[edges, VertexShapeFunction -> vsf, GraphLayout -> {"ComponentLayout", #, "PackingLayout" -> #2}]~ Labeled~{#, #2} &, $ComponentLayouts, $PackingLayouts] // Grid
Nov
12
comment Reduce distances between vertices of graph to minimum possible?
Something like in this Q&A is what Daniel was referring to. If you modify his answer a little bit to handle circles instead of squares, you end up with this, which looks pretty decent.
Nov
12
comment How do I define functions in TraditionalForm?
No, the intent is not clear — see the example in my above comment (I was editing it when you posted yours).
Nov
12
comment How do I define functions in TraditionalForm?
Even if it is possible, it's probably not a very good idea to indulge in code gymnastics just to be able to make your code look like a latex document. At some point it will break and you'll be left wondering what went wrong. I'd strongly urge keeping code in StandardForm and use TraditionalForm only for output formatting or in labels/text, etc. Besides, how will you differentiate the $f(x)$ in f[x_] = 2 and f[x] = 2? Both are valid definitions, but your usage above makes it ambiguous. (note, I didn't down vote).
Nov
11
reviewed Reviewed Cournot Equilibrium
Nov
11
comment How to perform fuzzy lookup between lists?
@SjoerdC.deVries That's because this is a fuzzy question :D
Nov
11
revised How to expand terms within an integral?
deleted 9 characters in body; edited tags; edited title
Nov
10
comment How to expand terms within an integral?
Please look at the link that Artes posted, which explains why such an expansion would be wrong in general and also a way to do it nevertheless. This is a duplicate of that question and will be closed as such @Artes, please vote to close instead of flagging, since you have the rep to do it :)
Nov
10
reviewed Reviewed Both Sin[x]==0 && Cos[x]==0 as a solution
Nov
10
reviewed Approve How to work with Application Project files in Wolfram Workbench?
Nov
9
reviewed Reviewed How to change coordinates of a differential operator?
Nov
9
comment How to convert output of a For loop into a list
@OleksandrR. Thanks, I forgot about that one.
Nov
9
comment How to convert output of a For loop into a list
@Mel There's a function for that... FixedPoint (or Nest, if you want to do it a certain number of times)
Nov
9
revised How to convert output of a For loop into a list
added 1021 characters in body
Nov
9
answered How to convert output of a For loop into a list
Nov
9
comment How to convert output of a For loop into a list
The first rule about using For loops in Mathematica is that you don't use For loops =)
Nov
9
comment How can I define an option “packet” for plots so I can only alter the definition and all plots with that “packet” will change appearance?
Freda, I agree with tkott — this question was asked previously and has received good answers that address your question.
Nov
9
awarded  Nice Answer
Nov
9
revised Constructing election cartograms?
added 428 characters in body; edited tags
Nov
9
comment Constructing election cartograms?
@acl Don't look at the first graph... scroll down where the states are distorted according to the data