penguin77
  • Member for 6 years, 10 months
  • Last seen more than 1 year ago
Find all disjoint subsets of equal length
2 votes

@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 (...

View answer
Perform operation on part of a table / create a reference
1 votes

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]]...

View answer
How to plot a table of the results of findmaximum?
1 votes

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 ...

View answer
calculating subsets of a matrix (L=40X40)
1 votes

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 -...

View answer
Function for importing and plotting data from excel spreadsheet
Accepted answer
1 votes

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 ...

View answer
How to show several plots with ListAnimate
Accepted answer
1 votes

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, ...

View answer
Clicking on "Show all results" in a W|A pod hangs Mathematica
1 votes

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

View answer
Exporting a Mathematica Document as LaTeX
1 votes

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 ...

View answer
Opposite of StringSplit
1 votes

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~...

View answer
Making a black bar in BarChart when using GlassRectangle
1 votes

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.

View answer
Selective data append to nested list
1 votes

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] ...

View answer
SetOptions for CoordinatesToolOptions for DateListPlot?
0 votes

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@# &)}...

View answer
Why is a symbol still found after changing its context?
0 votes

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 ...

View answer
Auto Execute Notebook on Open
0 votes

Yes you can do it using the option IntializationCell, moreover there are complementary options for controlling its behavior. Here is the documentation on how to achieve it https://reference.wolfram....

View answer
What is the URL of the site used by ExampleData?
0 votes

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

View answer
1
2