12

You can convert your notebooks to packages as shown here:- convert[notebook_, package_] := Module[{nb, str}, nb = NotebookOpen[notebook, Visible -> False]; SelectionMove[nb, All, Notebook]; str = First[ FrontEndExecute[ FrontEnd`ExportPacket[NotebookSelection[nb], "InputText"]]]; NotebookClose[nb]; Export["text.txt", ...


2

Just a very quick-n-dirty. The correct route is to investigate the appropriate multi-urn distributions, which when/if time permits I will do so and update. A move/result function: domoves[boxes_, from_, to_, count_] := Module[{moves = Join @@ Permutations /@ IntegerPartitions[count, {Length@boxes[[1]]}, Range[0, count]], pmf}, Table[...


2

I solved this numerically by simulation as follows: SeedRandom[1]; draw[list_, n_] := TakeDrop[RandomSample[list], n]; simulate[] := Module[{ a = {x, x, y, y, y, y, z}, b = {x, x, y, y, y, z}, c = {x, x, x, x, y, y, y, y}, t}, {t, a} = draw[a, 2]; b = Join[b, t]; {t, b} = draw[b, 2]; c = Join[c, t]; {t, c} = draw[c, 3]; a = Join[a, t]; ...


2

Block[{z = x + I y}, ParametricPlot[ReIm[(z + 1)/(z - 1)], {x, -6, 6}, {y, -6, 6}, MeshFunctions -> Automatic, Mesh -> {Range[-4, 4], Range[-4, 4]}, Axes -> False, PlotStyle -> None, Axes -> False, MeshStyle -> Blue, BoundaryStyle -> Directive[Dotted, Red, Thick], PlotPoints -> 50]]; Block[{z = x + I y}, ...


Only top voted, non community-wiki answers of a minimum length are eligible