Jonie
• Member for 8 years, 10 months
• Last seen more than 5 years ago

Here's an attempt (without select) lst = {1, 2, 2, 1, 2, 5, 2, 4}; n = 4; p = 1; Flatten[If[Abs[Take[#, -1] - Mean[Drop[#, -1]]][[1]] > p *StandardDeviation[Drop[#, -1]], Take[#, -1], {}] & /@...

Firstly, a bit about SQLite insert performances: https://stackoverflow.com/questions/1711631/how-do-i-improve-insert-per-second-performance-of-sqlite https://stackoverflow.com/questions/3852068/...

This works: Plot[1 - x, {x, 0, 1}, Filling -> { 1 -> Top, 1 -> {Bottom, {Green, Blue}}} ] but I think there may be a neater solution.

I'm presuming that you already have a command which generates a graphics and you're trying to retrieve it through the MathKernel. If so, try the following: 1. Set the CaptureGraphics Property on ...

Ahh good fun questions. Anyway this isn't a comprehensive answer but rather just a quick test on the basics: list = {0.1, I, 2 + I, 0, 2 , 2 x, x, xxx, 2^x, x^2, x^x, x^ (2 x), X, xX, "y", "yy", "Y"}...

One possible solution list = {{{2, 3}, {2, 4}}, {{{3, 4}}}, {{5, 6}, {7, 8}}} {{{2, 3}, {2, 4}}, {{{3, 4}}}, {{5, 6}, {7, 8}}} list1 = Flatten[list, 1] list1[[1]] = {2, 8}; list1 {{2, 3}, {2, ...

You could use a replacement rule to change all the negatives to positives, followed by DeleteDuplicates[]. array = {1, x1, -x1, x2, x5, x3, -x2, -x4} DeleteDuplicates[array /. Times[-1, x_] -> x] ...

See edit at the bottom for faster solution. To get this working in an actual implementation there are a few things to note, as it took me a lot more effort to get it from the prototype to the ...