Maxima 2d graf

Zdravím, mám takový problém s programováním v Maximě, je to pro mě relativně nový program, a tak v něm tak moc dobře neumím, mohl by my někdo poradit? Zde je program:

a:176.6;
b:296.6;
l:832.6;
p:422.3;
n:0.3;
E:210000;
sra: (-p);
srb: (0);
dl: (0);
A: ((p*a**2)/(b**2-a**2));
B: ((p*a**2*b**2)/(b**2-a**2));
R:float((p*%pi*a**2)*(1-2*n));
Sr: (A-(B/r^2));
St: (A+(B/r^2));
Sa: ((2*n*p*a**2)/(b**2-a**2));
Tmax: (St1-Sr1)/2;
wxplot2d([Sr(r),St(r)],[r,a,b]);

Nevím si rady s tím grafem, pořád se mi nechce vykreslit, v čem dělám chybu?

Už jsem na to přišel sám