(%i1) load("/home/vcaeken/Desktop/rfMaxima.mac")$

Result

Smith Chart Plotting

(%i2) %Gamma(%omega):=(40+%i*%omega*1e-9-50)/(40+%i*%omega*1e-9+50);
PlotSmithChart([
    parametric,
    realpart(%Gamma(%omega)),
    imagpart(%Gamma(%omega)),
    [%omega,2*%pi*1e6,2*%pi*10e9],
    [nticks,1000]]);
PrintSmithChart([
    parametric,
    realpart(%Gamma(%omega)),
    imagpart(%Gamma(%omega)),
    [%omega,2*%pi*1e6,2*%pi*10e9],
    [nticks,1000]],
    ps,
    "~/SmithChart.eps");

Result

(%i5) tex1(%Gamma(%omega));

Result

Created with wxMaxima.