Skip to main content

Teaching

  • 2012-2013, 2013-2014 - Teaching assistant for physics examples classes.

Mathematica code for class on the 23/01/2014 for E&M Week16:

a = 1;
b = 2;
c = 3;
d = 6;


B1 = (r - a^2/r)/(b^2 - a^2);
B2 = 1/r;
B3 = (r + (d^2 - 2 c^2)/r)/(d^2 - c^2);
B4 = 2/r;

Show[Plot[B1, {r, a, b}], Plot[B2, {r, b, c}],Plot[B3, {r, c, d}], Plot[B4, {r, d, 1.5*d}],PlotRange -> {{0, 1.5*d}, Automatic}]

Hit shift+return to run