reset;  
    unset multiplot  
    set encoding iso_8859_1  
    cd ’ihr Verzeichnis’;  
    set terminal win;  
    complex(x,y) = x*{1,0}+y*{0,1}  
    conformal(z) = (z-1)/(z+1)  
    pi = 4*atan(1)  
    lblIMRE(x) = 1.05*real(conformal(complex(0,x)))-0.025  
    lblIMIM(x) = 1.05*imag(conformal(complex(0,x)))  
    lblRERE(x) = real(conformal(complex(x,0)))+0.005  
 
    set nokey  
    set size square  
    set parametric  
    unset xlabel  
    unset ylabel  
    set title "Smith-Chart" font "Arial,24"  
    unset logscale x  
    unset logscale y  
    set xrange[-1.1:1.1]  
    set yrange[-1.1:1.1]  
    set samples 1500  
 
 
    set label 1 "0" at lblIMRE(0),lblIMIM(0) font "Arial,8"  
    set label 2 "0.1" at lblIMRE(0.1),lblIMIM(0.1) font "Arial,8"  
    set label 3 "0.2" at lblIMRE(0.2),lblIMIM(0.2) font "Arial,8"  
    set label 4 "0.3" at lblIMRE(0.3),lblIMIM(0.3) font "Arial,8"  
    set label 5 "0.4" at lblIMRE(0.4),lblIMIM(0.4) font "Arial,8"  
    set label 6 "0.5" at lblIMRE(0.5),lblIMIM(0.5) font "Arial,8"  
    set label 7 "0.6" at lblIMRE(0.6),lblIMIM(0.6) font "Arial,8"  
    set label 8 "0.7" at lblIMRE(0.7),lblIMIM(0.7) font "Arial,8"  
    set label 9 "0.8" at lblIMRE(0.8),lblIMIM(0.8) font "Arial,8"  
    set label 10 "0.9" at lblIMRE(0.9),lblIMIM(0.9) font "Arial,8"  
    set label 20 "1" at lblIMRE(1),lblIMIM(1) font "Arial,8"  
    set label 21 "2" at lblIMRE(2),lblIMIM(2) font "Arial,8"  
    set label 22 "3" at lblIMRE(3),lblIMIM(3) font "Arial,8"  
    set label 23 "4" at lblIMRE(4),lblIMIM(4) font "Arial,8"  
    set label 24 "5" at lblIMRE(5),lblIMIM(5) font "Arial,8"  
    set label 25 "6" at lblIMRE(6),lblIMIM(6) font "Arial,8"  
    set label 26 "7" at lblIMRE(7),lblIMIM(7) font "Arial,8"  
 
    set label 102 "-0.1" at lblIMRE(-0.1),lblIMIM(-0.1) font "Arial,8"  
    set label 103 "-0.2" at lblIMRE(-0.2),lblIMIM(-0.2) font "Arial,8"  
    set label 104 "-0.3" at lblIMRE(-0.3),lblIMIM(-0.3) font "Arial,8"  
    set label 105 "-0.4" at lblIMRE(-0.4),lblIMIM(-0.4) font "Arial,8"  
    set label 106 "-0.5" at lblIMRE(-0.5),lblIMIM(-0.5) font "Arial,8"  
    set label 107 "-0.6" at lblIMRE(-0.6),lblIMIM(-0.6) font "Arial,8"  
    set label 108 "-0.7" at lblIMRE(-0.7),lblIMIM(-0.7) font "Arial,8"  
    set label 109 "-0.8" at lblIMRE(-0.8),lblIMIM(-0.8) font "Arial,8"  
    set label 1010 "-0.9" at lblIMRE(-0.9),lblIMIM(-0.9) font "Arial,8"  
    set label 1020 "-1" at lblIMRE(-1),lblIMIM(-1) font "Arial,8"  
    set label 1021 "-2" at lblIMRE(-2),lblIMIM(-2) font "Arial,8"  
    set label 1022 "-3" at lblIMRE(-3),lblIMIM(-3) font "Arial,8"  
    set label 1023 "-4" at lblIMRE(-4),lblIMIM(-4) font "Arial,8"  
    set label 1024 "-5" at lblIMRE(-5),lblIMIM(-5) font "Arial,8"  
    set label 1025 "-6" at lblIMRE(-6),lblIMIM(-6) font "Arial,8"  
    set label 1026 "-7" at lblIMRE(-7),lblIMIM(-7) font "Arial,8"  
 
    set label 2000 "0" at lblRERE(0),0.025 font "Arial,8"  
    set label 2001 "0.1" at lblRERE(0.1),0.025 font "Arial,8"  
    set label 2002 "0.2" at lblRERE(0.2),0.025 font "Arial,8"  
    set label 2003 "0.3" at lblRERE(0.3),0.025 font "Arial,8"  
    set label 2004 "0.4" at lblRERE(0.4),0.025 font "Arial,8"  
    set label 2005 "0.5" at lblRERE(0.5),-0.025 font "Arial,8"  
    set label 2006 "0.6" at lblRERE(0.6),0.025 font "Arial,8"  
    set label 2007 "0.7" at lblRERE(0.7),-0.025 font "Arial,8"  
    set label 2008 "0.8" at lblRERE(0.8),0.025 font "Arial,8"  
    set label 2009 "0.9" at lblRERE(0.9),-0.025 font "Arial,8"  
    set label 2010 "1" at lblRERE(1),0.025 font "Arial,8"  
    set label 2011 "2" at lblRERE(2),0.025 font "Arial,8"  
    set label 2012 "3" at lblRERE(3),0.025 font "Arial,8"  
    set label 2013 "4" at lblRERE(4),0.025 font "Arial,8"  
    set label 2014 "5" at lblRERE(5),0.025 font "Arial,8"  
 
    set label 3000 "Imagin\"{a}rteil" at -1,0.6 rotate by 45 font "Arial,12"  
    set label 3001 "Realteil" at -0.5,0.1 font "Arial,12"  
 
 
    set label 30 "inf" at 1.01,0  
 
    a=-1  
    set multiplot  
    load ’smithloop.plt’  
    unset multiplot  
    unset parametric  
 
 

    a = a+1  
    set trange [-60:60]  
    plot real(conformal(complex(a,t))),imag(conformal(complex(a,t))) lt 3  
    plot real(conformal(complex(0.1*a,t))),imag(conformal(complex(0.1*a,t))) lt 3  
 
    set trange [0:120]  
    plot real(conformal(complex(t,a))),imag(conformal(complex(t,a))) lt 2  
    plot real(conformal(complex(t,a))),-imag(conformal(complex(t,a))) lt 2  
    plot real(conformal(complex(t,0.1*a))),imag(conformal(complex(t,0.1*a))) lt 2  
    plot real(conformal(complex(t,0.1*a))),-imag(conformal(complex(t,0.1*a))) lt 2  
 
 
    if(a<10) reread