# Tag Info

2

A not-that-fast solution could be easily written: f[dat_, part_] := Outer[SortBy[#, -# &] & /@ Internal`PartitionRagged[##] &, Permutations@dat, part, 1, 1]; PlanePartitions[n_] := Module[{pt = IntegerPartitions@n, inp}, inp = {#, IntegerPartitions@Length@#} & /@ pt; Select[Flatten[f @@@ inp, 2], With[{t = PadRight[#, {n, ...

6

This is due to the interpolation. If you turn off the interpolation by InterpolationOrder -> 0 you will see symmetric plot. data = Flatten[Table[{x, y, If[x == y, 1, 0]}, {x, 0, 1, 1/10}, {y, 0, 1, 1/10}], 1]; dataR = data; dataL = data /. {x_, y_, z_} :> {-x, y, z}; data0 = Join[dataL,dataR] ListDensityPlot[data0, ...

2

There was no problem exporting at the correct frame rate when I initially tried it with a small number of test frames, given that the code in the question doesn't produce any actual frames. However, I now tried again with a large table of frames to replicate the specific number of 979 frames in the question. Indeed, in this case the resulting movie has the ...

5

The rectangle (0,0), (0.5,0), (0,1),(0.5,1) should be covered, however it is not. The 29 rectangles in your original tabla cover the region 1/31 <=b < 1/2 && 0 <= a <= 1. ClearAll[tabla] tabla[n_] := Table[{1/(k + 1) <= b && 1/k > b}, {k, 2, n, 1}]; You can specify a large enough value for PlotPoints to see all 29 ...

4

Wrap the call to the function that is likely to generate errors and return unevaluated in a Check expression. In the case of correct execution, Check will pass through the value returned by its argument; in case of an error, it will return an expression of your choice. This "failure indicator" won't trigger recalculation, and can be made very recognizable ...

Top 50 recent answers are included