Mathematica demonstration illustrating Melitz’ trade model

Melitz, again. I took a Mathematica class this semester where we had to build a demonstration that could be uploaded to Wolfram’s demonstration project site. I created an animated version of figure 2 from Melitz’ paper (based on the calculations done in one of the Mathematica notebooks presented below), which IMO is well suited to do a comparative statics analysis of autarky and the open economy.

The online demonstration is available here.