penguin77
• Member for 6 years, 10 months
• Last seen more than 1 year ago
• Antarctica, Icy Hills, 5, Penguin Blvd

@Wizard, @Kuba, Sorry I do not have sufficient reputation for adding comments, therefore I take the liberty to post it as an Answer. Your solution result not only contains (A1,A2) but also contains (...

You may consider spec = Sequence @@ (Span @@ # & /@ rect); Part[t, spec] or t[[spec]] This would lead to: With[{spec = Sequence @@ (Span @@ # & /@ rect)}, t[[spec]] = Map[f, t[[spec]]...

That's like a breeze: result = {{0.148148, {t -> 0.333333}}, {0.204148, {t -> 0.384677}}} Flatten /@ result /. x_Rule :> x[[2]] // ListLinePlot PS: Because there are only 2 points better ...

I would suggest to take out of Do any evaluation that need to be done only once and make sure to clear variables between successive runs. Clear[L, LL, k, config] L = 50; LL = L!; Do[t = LL/(k! (L -...

In your first line of your code the variable a is assigned the string ["/Users/pedrofonsecazuccolo...." and then trying to use the Part function that is a[[1,Range[1,19],2]] which indeed is a wrong ...

Here the code using ListAnimate data1 = {{{0, 2}, {1, 4}}, {{0, 2}, {1, 8}}}; data2 = {{{0, 3}, {3, 4}}, {{1, 5}}}; Show /@ Transpose @ (Table[ ListLinePlot[#[[n]], PlotRange -> {0, ...

Try WolframAlpha["Forest Gump", "FullOutput"] runs about 1 sec. on my computer. Hint: Make sure you have fast Internet connection. Here an extract of screenshot of result

You may consider: 1) Use the menu item 'Save As' and choose and Save as type: Latex Document instead of Export if you need the whole document as mentioned in your question. 2) Make sure you use ...

I know, I know, Kuba's and Pickett's solutions are preferable. For those who fancy Patterns here is an alternative. StringReplace[res, t : __ :> t <> " "] // StringJoin // #~StringDrop~...

On my computer Windows 7, Mathematica 9, your code renders a perfectly black bar! To understand if problem may be OS or Mathematica version related, please specify OS and Mathematica version.

This pre-pends to each result set retrieved by Financial Data (data=Map[Financial......) the db ids. For appending swap the arguments in Transpose Transpose[{lis[[All, 1]], data}] // ((f \[Function] ...

You may consider this: DateListPlot[{{1, 1, 2, 3, 5, 8, 11}, {5, 8, 9, 6, 2, 4, 7}}, {2013,1,1}, Joined -> True, CoordinatesToolOptions -> {"DisplayFunction" -> (DateString@First@# &)}...

No erratic behavior on my computer M9. However a simple workaround could be considered that achieves its purpose. Workaround for moving a symbol from one context to another can be achieved by: For ...

Easy work around without needing to figure out URL Remove all symbols used for retrieving example data from the Context Remove["DataPacletsExampleDataDump*"] This will permit you still to ...