Aug
20
comment Error “5 cannot be used as a function” when running command RecurrenceTable
Evaluate a ... you've undoubtedly defined it as 5.
Aug
14
comment Is it possible to use mathematica to find the derivative of a function with respect to some “ax” where “a” is a constant?
"That is left as an exercise to the reader." This is not a textbook.
Aug
6
comment TransformedDistribution
This is a well-known result, see e.g. Nelson, "The sum of values from a normal and a truncated normal distribution." Using that, your example has PDF Erfc[1 + (1 - t)/2]/(2*E^((1 - t)^2/4)*Sqrt[Pi]*Erfc[1/Sqrt[2]]). Here's the PDF in red, compared to histogram in orange of 10^7 RV from your transformed distribution. If time permits, I'll post as answer with explanations, but that paper will get you what you want.
Jul
29
comment Product of a normal distribution and an exponential distribution?
Nice to see that MMA pulls this off. Springer showed that such a product is a MeijerG function back in the 70s...
Jul
19
revised TransformedDistribution doesn't seems to work properly in this case
edited tags
Jul
6
comment Delete elements less than the last largest element
DeleteDuplicatesBy[ Transpose[{list[[All, 1]], FoldList[Max, list[[All, 2]]]}], Last] should do what you're after.
Jun
2
comment Turing patterns
There is a Wolfram Demonstrations Project demo here
May
23
comment Find permutation with highest organization number (OEIS A047838)
@barrycarter - yes, that is equivalent to my function
May
23
comment Find permutation with highest organization number (OEIS A047838)
@J42161217 pernaps, but it then has nothing to do with the OP title nor the oeis sequence.
May
23
comment Find permutation with highest organization number (OEIS A047838)
Read my comments to OP: I believe they have misinterpreted the OEIS entry, and generation is much simpler.
May
23
comment Find permutation with highest organization number (OEIS A047838)
I don't think you've interpreted this correctly. I believe the correct function for the result is Tr@Abs@Differences@Ordering@res where res is a permutation. A maximal example is then simply generated instantly via Join[Range[2, 2 Floor[#/2], 2], {1}, Range[2 Ceiling[#/2] - 1, 3, -2]] & with argument of n desired. The results match OEIS.
May
23
comment Find permutation with highest organization number (OEIS A047838)
Is there a copy error here? I''m not about to debug the jumble, but as is it blows up with a stream of errors under 12 and 11.3 MMA on my machine.
May
14
answered Is there a tool for editing the spelling dictionary?
May
14
comment Is there a tool for editing the spelling dictionary?
Open the options inspector under edit->Preferences->Advanced, lookup SpellingDictionaries, edit the CorrectWords entry...
May
10
comment Removing the square-brackets and their contexts from an expression
+1. I like Head /@ (y[t] + x[t]) for weird usage points...
May
9
comment How to substitute integral operators into polynomials?
Posts without proper example code (that is copypastable) tend to be frowned upon. Please edit your question and add appropriate code examples.
May
9
comment How to generate LogNormalDistributions with mean=10, spanning one order of magnitude?
Nice exposition! +1
May
8
comment Part assignment is not a symbol
I'd venture m = Transpose[{{r, x, y, u, v, n, l, w, s}, Rest@m}] will accomplish what it appears you're after...
May
6
comment Request code for creating sequences
I'm voting to close this question as off-topic because there is zero effort shown: this is not a mechanical turk site.
May
5
comment How to do this Padovan spiral using Mathematica?
There is this very graphic as a demo in the Wolfram Demonstrations Project