{{{1}}}

Contents

Mathematica

Mathematica is a computational engine. It is probably the closest tool we have to an effective universal computer in its broadest sense.

Applets (Wolfram Demonstrations)

  1. Cavity Quantum Electrodynamics with Bosons: Emission Spectra in the Strong and Weak Coupling Regimes, Fabrice P. Laussy and Elena del Valle, 7 March (2011).
  2. Mollow Triplet, Elena del Valle and Fabrice P. Laussy, 9 December (2013).
  3. Polarized Polariton Fields on the Poincaré Sphere, 12 February (2015).
  4. Rabi and Josephson Oscillations, Amir Rahmani and Fabrice P. Laussy, 11 April (2016).
  5. Dispersion Properties of a Spin-Orbit-Coupled Bose-Einstein Condensate, David Colas, Fabrice P. Laussy and Matthew J. Davis, 15 September (2017).
  6. Polariton and Jaynes-Cummings Blockade, Eduardo Zubizarreta Casalengua, Juan Camilo López Carreño, Fabrice P. Laussy and Elena del Valle, 18 January (2019).

Background

Mathematica is the pinacle of Wolfram research, the company built by Stephen Wolfram, initially to develop Mathematica, now with extended ambitions in various areas of computational interest (see a new kind of science and Wolfram|Alpha as other major examples).

Weaknesses

The main one is that it is proprietary code.

The most annoying practical feature of Mathematica is that it does not have a good text editor, although this is fundamental for anything related to code editing ("writing code"). Particularly crippling is the inability to split windows, to work on remote aspects of the computation in parallel. Someone reports that:

I asked this split screen question to Wolfram in 1994! He tried and convince me I didn't need it.
The following trick—using a palette that makes a duplicate, read-only copy—is useful:
CreatePalette[Button["Duplicate Active Notebook",
   NotebookPut[NotebookGet[InputNotebook[]] /. 
   {Rule[DockedCells, _] :> Sequence[], 
    Rule[WindowMargins, _] :> Rule[WindowMargins, {{0, Automatic}, {0, Automatic}}], 
    Cell[x___] :> Cell[x, Evaluatable -> False]}, 
    Background -> GrayLevel[0.95], Editable -> False, "ClosingSaveDialog" -> False, 
    DockedCells -> With[{sourcenb = InputNotebook[]}, 
      Cell[BoxData[ToBoxes[Button["Update", 
          SelectionMove[InputNotebook[], All, Notebook]; 
          NotebookWrite[InputNotebook[], 
           NotebookGet[sourcenb] /. Cell[x___] :> Cell[x, Evaluatable -> False]]]]],
       "DockedCell", CellContext -> Cell]],
    WindowTitle -> "Duplicate of " <> AbsoluteOptions[InputNotebook[], WindowTitle][[1, 2]]];
   SetSelectedNotebook[InputNotebook[]]], WindowTitle -> "Duplicate"];

See also

In my Blog

Links