ciao

# 4,352 Actions

 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