User Portlet
| Discussions |
|---|
| Yes, I found a lack of robust MCMC in Mathematica is surprising, and disappointing, too! In the last couple decades full Bayesian analysis has become fairly popular and MCMC is at present one of the most powerful methods to obtain any posterior... |
| Hello, I suspect there are no closed-form solutions for this equation. Given admissible X values, however, the corresponding Y values can be determined, as shown in the plot below: ListLinePlot[ Table[{x, y /. NSolve[(4.208... |
| To delete also a numeric quantity, add to what Sander gives as follows: DeleteCases[{False, True, False, False, False, 1/128 (6 + 18 Sqrt[5] - 96 Subscript[a, 11]) == 0, -(1/4) Sqrt[3] Subscript[a, 12] == 0, (Sqrt[3]... |
| Many thanks, Neil, this is exactly what I'm looking for and what I intuitively expected of the format that NumberForm would have supported! I think Wolfram should make it a built-in capability. Will also have a closer read of the link you... |
| Is this what you are looking for? u = 5 + 3 x + 4 x^2; u /. {x^n_ -> x^n, x -> 0} It will produce 5 + 4 x^2. |
| The following is what I got after some revisions of your code: UpperChain = {-10, 1, 2, 3, 4}; LowerChain = {-10, 1, 2, 3, 4}; SpinResult = 7; Win[Chain_] := Append[Chain, Chain[[2]] + Chain[[-1]]]; Lose[Chain_] :=... |
| There is no solution in real domain for the three equations, and the intersection point you give is incorrect as can be easily seen by checking the second equation; i.e. 3 + 8 != 10. For plotting, I think Sander gives excellent advice on showing... |
| Many thanks for these excellent solutions, Szabolcs! DirectedGraph with option of either "Acyclic" or "Random" works fine for me now. Thanks also for your effort creating IGraph/M, I'm sure I'll use it someday in future! |
| Thanks, very kind of you! |