\psset{unit=.54in}
\hskip-1.in\begin{pspicture}(13,4)
\thicklines
%(\begin{tabular}{|c|ccccc|cc|}
%(\hline
%( len1&gap &  dl  &  rad  &  dr   &  I/A & n I & n I l\\ 
%(  m  &    m  &   m   &   m  & m &  A/mm$^2$ & A & A m \\ 
%(\hline
%( 0.000 & 0.000 &  2.000 &  0.330 &  0.025 & %-100.00 &  5.00 & 10.76  \\
%( 2.000 & 0.000 &  2.000 &  0.330 &  0.025 & %-100.00 &  5.00 & 10.76  \\
%( 4.000 & 0.000 &  2.000 &  0.330 &  0.025 & %-100.00 &  5.00 & 10.76  \\
%( 6.390 & 0.390 &  0.167 &  0.330 &  0.175 & -87.44 &  2.56 &  6.70  \\
%( 6.907 & 0.175 &  0.167 &  0.330 &  0.175 &  75.96 &  2.22 &  5.82  \\
%( 7.942 & 0.868 &  0.330 &  0.770 &  0.080 &  99.24 &  2.62 & 13.33  \\
%( 9.140 & 0.868 &  0.167 &  0.330 &  0.175 &  75.96 &  2.22 &  5.82  \\
%( 9.657 & 0.175 &  0.167 &  0.330 &  0.175 & -75.96 &  2.22 &  5.82  \\
%(10.692 & 0.868 &  0.330 &  0.770 &  0.080 & -99.24 &  2.62 & 13.33  \\
%(11.890 & 0.868 &  0.167 &  0.330 &  0.175 & -75.96 &  2.22 &  5.82  \\
%(12.407 & 0.175 &  0.167 &  0.330 &  0.175 &  87.44 &  2.56 &  6.70  \\
%(12.964 & 0.390 &  2.000 &  0.330 &  0.025 & 100.00 &  5.00 & 10.76  \\
%(14.964 & 0.000 &  2.000 &  0.330 &  0.025 & 100.00 &  5.00 & 10.76  \\
%(16.964 & 0.000 &  2.000 &  0.330 &  0.025 & 100.00 &  5.00 & 10.76  \\
%(\hline
%(\end{tabular}
%(amp turns   49.2308   (MA)
%(amp turns length   127.9291   (MA m)
%(cell length   18.964   (m)
\color{black}
\put(-.75 , 1.2  ){\rotatebox{ 90 }{\bf { \normalsize radii~~~(cm)}}}
%\put( 2.0733,-0.5000){\bf { \normalsize length~~~(m)}}
%\put( 2.1843, 1.3114){\bf { \normalsize -99~}}
\put( 1 , 1 ){\line(1,0){ 10.73333 }}
\put(  1.00,  1.00){\line(0,1){.25}}
\put(  1.00,  0.50){\makebox(0,0){\normalsize  0.0}}
\put(  3.33,  1.00){\line(0,1){.25}}
\put(  3.33,  0.50){\makebox(0,0){\normalsize  2.5}}
\put(  5.67,  1.00){\line(0,1){.25}}
\put(  5.67,  0.50){\makebox(0,0){\normalsize  5.0}}
\put(  8.00,  1.00){\line(0,1){.25}}
\put(  8.00,  0.50){\makebox(0,0){\normalsize  7.5}}
\put( 10.33,  1.00){\line(0,1){.25}}
\put( 10.33,  0.50){\makebox(0,0){\normalsize 10.0}}
\put( 1 , 1 ){\line(0,1){ 2 }}
\put(  1.00,  1.00){\line(1,0){.25}}
\put(  0.00,  1.00){\makebox(0,0){\normalsize     0}}
\put(  1.00,  1.45){\line(1,0){.25}}
\put(  0.00,  1.45){\makebox(0,0){\normalsize    50}}
\put(  1.00,  1.91){\line(1,0){.25}}
\put(  0.00,  1.91){\makebox(0,0){\normalsize   100}}
\put(  1.00,  2.36){\line(1,0){.25}}
\put(  0.00,  2.36){\makebox(0,0){\normalsize   150}}
\put(  1.00,  2.82){\line(1,0){.25}}
\put(  0.00,  2.82){\makebox(0,0){\normalsize   200}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  1.000933  ,  1.322727  )
(  3.117549  ,  1.322727  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  3.117549  ,  1.322727  )
(  3.117549  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  3.117549  ,  1.3  )
(  1.000933  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  1.000933  ,  1.3  )
(  1.000933  ,  1.322727  )
\put( 3.5594, 1.3795){\bf { \normalsize -87~}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  3.481518  ,  1.459091  )
(  3.637371  ,  1.459091  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  3.637371  ,  1.459091  )
(  3.637371  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  3.637371  ,  1.3  )
(  3.481518  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  3.481518  ,  1.3  )
(  3.481518  ,  1.459091  )
\put( 4.0419, 1.3795){\bf { \normalsize ~75~}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  3.96401  ,  1.459091  )
(  4.119863  ,  1.459091  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  4.119863  ,  1.459091  )
(  4.119863  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  4.119863  ,  1.3  )
(  3.96401  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  3.96401  ,  1.3  )
(  3.96401  ,  1.459091  )
\put( 5.0839, 1.7364){\bf { \normalsize ~99~}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  4.929926  ,  1.772727  )
(  5.237899  ,  1.772727  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  5.237899  ,  1.772727  )
(  5.237899  ,  1.7  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  5.237899  ,  1.7  )
(  4.929926  ,  1.7  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  4.929926  ,  1.7  )
(  4.929926  ,  1.772727  )
\put( 6.1259, 1.3795){\bf { \normalsize ~75~}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.047962  ,  1.459091  )
(  6.203815  ,  1.459091  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.203815  ,  1.459091  )
(  6.203815  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.203815  ,  1.3  )
(  6.047962  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.047962  ,  1.3  )
(  6.047962  ,  1.459091  )
\put( 6.6084, 1.3795){\bf { \normalsize -75~}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.530454  ,  1.459091  )
(  6.686307  ,  1.459091  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.686307  ,  1.459091  )
(  6.686307  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.686307  ,  1.3  )
(  6.530454  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.530454  ,  1.3  )
(  6.530454  ,  1.459091  )
\put( 7.6504, 1.7364){\bf { \normalsize -99~}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  7.49637  ,  1.772727  )
(  7.804343  ,  1.772727  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  7.804343  ,  1.772727  )
(  7.804343  ,  1.7  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  7.804343  ,  1.7  )
(  7.49637  ,  1.7  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  7.49637  ,  1.7  )
(  7.49637  ,  1.772727  )
\put( 8.6923, 1.3795){\bf { \normalsize -75~}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  8.614407  ,  1.459091  )
(  8.770259  ,  1.459091  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  8.770259  ,  1.459091  )
(  8.770259  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  8.770259  ,  1.3  )
(  8.614407  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  8.614407  ,  1.3  )
(  8.614407  ,  1.459091  )
\put( 9.1748, 1.3795){\bf { \normalsize ~87~}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  9.096899  ,  1.459091  )
(  9.252751  ,  1.459091  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  9.252751  ,  1.459091  )
(  9.252751  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  9.252751  ,  1.3  )
(  9.096899  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  9.096899  ,  1.3  )
(  9.096899  ,  1.459091  )
\put(10.5500, 1.3114){\bf { \normalsize ~99~}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  9.61672  ,  1.322727  )
(  11.73333  ,  1.322727  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  11.73333  ,  1.322727  )
(  11.73333  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  11.73333  ,  1.3  )
(  9.61672  ,  1.3  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  9.61672  ,  1.3  )
(  9.61672  ,  1.322727  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\psline
(  3.637371  ,  1  )
(  3.637371  ,  1.181818  )
\psset{linewidth= 1.2 pt,linecolor=blue}
\psline
(  3.637371  ,  1.181818  )
(  3.964009  ,  1.181818  )
\psset{linewidth= 1.2 pt,linecolor=blue}
\psline
(  3.964009  ,  1.181818  )
(  3.964009  ,  1  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.15066  ,  1  )
(  4.15066  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.15066  ,  1.590909  )
(  4.617285  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.617285  ,  1.590909  )
(  4.617285  ,  1  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.617285  ,  1  )
(  4.617285  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.617285  ,  1.590909  )
(  5.083911  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.083911  ,  1.590909  )
(  5.083911  ,  1  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.083911  ,  1  )
(  5.083911  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.083911  ,  1.590909  )
(  5.550538  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.550538  ,  1.590909  )
(  5.550538  ,  1  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.550538  ,  1  )
(  5.550538  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.550538  ,  1.590909  )
(  6.017164  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.017164  ,  1.590909  )
(  6.017164  ,  1  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\psline
(  6.203814  ,  1  )
(  6.203814  ,  1.181818  )
\psset{linewidth= 1.2 pt,linecolor=blue}
\psline
(  6.203814  ,  1.181818  )
(  6.530453  ,  1.181818  )
\psset{linewidth= 1.2 pt,linecolor=blue}
\psline
(  6.530453  ,  1.181818  )
(  6.530453  ,  1  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.717103  ,  1  )
(  6.717103  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.717103  ,  1.590909  )
(  7.183729  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.183729  ,  1.590909  )
(  7.183729  ,  1  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.183729  ,  1  )
(  7.183729  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.183729  ,  1.590909  )
(  7.650355  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.650355  ,  1.590909  )
(  7.650355  ,  1  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.650355  ,  1  )
(  7.650355  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.650355  ,  1.590909  )
(  8.116982  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.116982  ,  1.590909  )
(  8.116982  ,  1  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.116982  ,  1  )
(  8.116982  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.116982  ,  1.590909  )
(  8.583607  ,  1.590909  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.583607  ,  1.590909  )
(  8.583607  ,  1  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\psline
(  8.746926  ,  1  )
(  8.746926  ,  1.181818  )
\psset{linewidth= 1.2 pt,linecolor=blue}
\psline
(  8.746926  ,  1.181818  )
(  9.073565  ,  1.181818  )
\psset{linewidth= 1.2 pt,linecolor=blue}
\psline
(  9.073565  ,  1.181818  )
(  9.073565  ,  1  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  1.000934  ,  1.059603  )
(  1.094258  ,  1.057922  )
(  1.187584  ,  1.056168  )
(  1.280909  ,  1.054607  )
(  1.374234  ,  1.053491  )
(  1.467559  ,  1.053012  )
(  1.560885  ,  1.05325  )
(  1.65421  ,  1.054153  )
(  1.747535  ,  1.055554  )
(  1.84086  ,  1.057214  )
(  1.934185  ,  1.058877  )
(  2.027511  ,  1.060308  )
(  2.120836  ,  1.061327  )
(  2.214161  ,  1.061818  )
(  2.307486  ,  1.06174  )
(  2.400811  ,  1.061126  )
(  2.494137  ,  1.060084  )
(  2.587462  ,  1.058785  )
(  2.680787  ,  1.05745  )
(  2.774112  ,  1.056331  )
(  2.867438  ,  1.055681  )
(  2.960763  ,  1.055722  )
(  3.054088  ,  1.056622  )
(  3.147413  ,  1.058473  )
(  3.240739  ,  1.061201  )
(  3.334064  ,  1.064407  )
(  3.427389  ,  1.067241  )
(  3.520714  ,  1.068508  )
(  3.614039  ,  1.067637  )
(  3.707365  ,  1.065786  )
(  3.80069  ,  1.064804  )
(  3.894015  ,  1.065596  )
(  3.98734  ,  1.067629  )
(  4.080666  ,  1.069384  )
(  4.173991  ,  1.069784  )
(  4.267316  ,  1.069156  )
(  4.360641  ,  1.06835  )
(  4.453966  ,  1.067965  )
(  4.547291  ,  1.068277  )
(  4.640617  ,  1.069323  )
(  4.733942  ,  1.070971  )
(  4.827267  ,  1.072972  )
(  4.920592  ,  1.075004  )
(  5.013918  ,  1.076741  )
(  5.107243  ,  1.077929  )
(  5.200568  ,  1.078457  )
(  5.293893  ,  1.078376  )
(  5.387218  ,  1.077869  )
(  5.480544  ,  1.077175  )
(  5.573869  ,  1.076509  )
(  5.667194  ,  1.076013  )
(  5.760519  ,  1.07571  )
(  5.853844  ,  1.07545  )
(  5.94717  ,  1.074823  )
(  6.040495  ,  1.073117  )
(  6.13382  ,  1.069724  )
(  6.227145  ,  1.065213  )
(  6.32047  ,  1.061311  )
(  6.413796  ,  1.059435  )
(  6.507121  ,  1.059799  )
(  6.600446  ,  1.061448  )
(  6.693771  ,  1.063098  )
(  6.787097  ,  1.064293  )
(  6.880422  ,  1.065406  )
(  6.973747  ,  1.066915  )
(  7.067072  ,  1.069057  )
(  7.160398  ,  1.071824  )
(  7.253723  ,  1.075036  )
(  7.347048  ,  1.078407  )
(  7.440373  ,  1.081578  )
(  7.533699  ,  1.084173  )
(  7.627024  ,  1.085874  )
(  7.720349  ,  1.086505  )
(  7.813674  ,  1.086088  )
(  7.907  ,  1.084825  )
(  8.000324  ,  1.083014  )
(  8.09365  ,  1.080965  )
(  8.186975  ,  1.078934  )
(  8.2803  ,  1.077084  )
(  8.373626  ,  1.075443  )
(  8.46695  ,  1.07384  )
(  8.560276  ,  1.071819  )
(  8.653601  ,  1.068738  )
(  8.746926  ,  1.064581  )
(  8.840251  ,  1.060699  )
(  8.933577  ,  1.058766  )
(  9.026902  ,  1.059425  )
(  9.120227  ,  1.061848  )
(  9.213552  ,  1.064211  )
(  9.306877  ,  1.065184  )
(  9.400203  ,  1.064972  )
(  9.493528  ,  1.064476  )
(  9.586853  ,  1.064287  )
(  9.680179  ,  1.064491  )
(  9.773503  ,  1.064843  )
(  9.866829  ,  1.065024  )
(  9.960155  ,  1.06482  )
(  10.05348  ,  1.064146  )
(  10.1468  ,  1.063039  )
(  10.24013  ,  1.061625  )
(  10.33346  ,  1.06009  )
(  10.42678  ,  1.058584  )
(  10.52011  ,  1.058052  )
(  10.61343  ,  1.057448  )
(  10.70676  ,  1.057311  )
(  10.80008  ,  1.057583  )
(  10.89341  ,  1.058149  )
(  10.98673  ,  1.058875  )
(  11.08006  ,  1.059639  )
(  11.17338  ,  1.060348  )
(  11.26671  ,  1.060946  )
(  11.36003  ,  1.061412  )
(  11.45336  ,  1.064727  )
(  11.54668  ,  1.073076  )
(  11.64001  ,  1.084991  )
(  11.73333  ,  1.099194  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  1.000934  ,  1.1231  )
(  1.094258  ,  1.116403  )
(  1.187584  ,  1.11205  )
(  1.280909  ,  1.118481  )
(  1.374234  ,  1.119846  )
(  1.467559  ,  1.116075  )
(  1.560885  ,  1.115546  )
(  1.65421  ,  1.128612  )
(  1.747535  ,  1.136654  )
(  1.84086  ,  1.139323  )
(  1.934185  ,  1.136526  )
(  2.027511  ,  1.128389  )
(  2.120836  ,  1.11752  )
(  2.214161  ,  1.125028  )
(  2.307486  ,  1.127767  )
(  2.400811  ,  1.126059  )
(  2.494137  ,  1.124074  )
(  2.587462  ,  1.117491  )
(  2.680787  ,  1.121113  )
(  2.774112  ,  1.121669  )
(  2.867438  ,  1.117644  )
(  2.960763  ,  1.109541  )
(  3.054088  ,  1.123619  )
(  3.147413  ,  1.138016  )
(  3.240739  ,  1.149667  )
(  3.334064  ,  1.158474  )
(  3.427389  ,  1.163111  )
(  3.520714  ,  1.16021  )
(  3.614039  ,  1.147378  )
(  3.707365  ,  1.128394  )
(  3.80069  ,  1.12962  )
(  3.894015  ,  1.136043  )
(  3.98734  ,  1.141306  )
(  4.080666  ,  1.144122  )
(  4.173991  ,  1.144461  )
(  4.267316  ,  1.139998  )
(  4.360641  ,  1.13877  )
(  4.453966  ,  1.13829  )
(  4.547291  ,  1.136271  )
(  4.640617  ,  1.132855  )
(  4.733942  ,  1.136689  )
(  4.827267  ,  1.144276  )
(  4.920592  ,  1.16172  )
(  5.013918  ,  1.176611  )
(  5.107243  ,  1.188341  )
(  5.200568  ,  1.196564  )
(  5.293893  ,  1.20132  )
(  5.387218  ,  1.202983  )
(  5.480544  ,  1.202079  )
(  5.573869  ,  1.199063  )
(  5.667194  ,  1.194259  )
(  5.760519  ,  1.187739  )
(  5.853844  ,  1.179229  )
(  5.94717  ,  1.167851  )
(  6.040495  ,  1.151901  )
(  6.13382  ,  1.148703  )
(  6.227145  ,  1.140855  )
(  6.32047  ,  1.130277  )
(  6.413796  ,  1.123441  )
(  6.507121  ,  1.120232  )
(  6.600446  ,  1.116074  )
(  6.693771  ,  1.112426  )
(  6.787097  ,  1.118114  )
(  6.880422  ,  1.121352  )
(  6.973747  ,  1.123425  )
(  7.067072  ,  1.145032  )
(  7.160398  ,  1.165376  )
(  7.253723  ,  1.184182  )
(  7.347048  ,  1.20103  )
(  7.440373  ,  1.215251  )
(  7.533699  ,  1.225975  )
(  7.627024  ,  1.232289  )
(  7.720349  ,  1.233643  )
(  7.813674  ,  1.230109  )
(  7.907  ,  1.222373  )
(  8.000324  ,  1.211315  )
(  8.09365  ,  1.197735  )
(  8.186975  ,  1.182202  )
(  8.2803  ,  1.174391  )
(  8.373626  ,  1.174116  )
(  8.46695  ,  1.171524  )
(  8.560276  ,  1.165259  )
(  8.653601  ,  1.153057  )
(  8.746926  ,  1.137714  )
(  8.840251  ,  1.123007  )
(  8.933577  ,  1.107358  )
(  9.026902  ,  1.102408  )
(  9.120227  ,  1.106257  )
(  9.213552  ,  1.112006  )
(  9.306877  ,  1.133552  )
(  9.400203  ,  1.149678  )
(  9.493528  ,  1.161757  )
(  9.586853  ,  1.170757  )
(  9.680179  ,  1.176487  )
(  9.773503  ,  1.177907  )
(  9.866829  ,  1.173974  )
(  9.960155  ,  1.164229  )
(  10.05348  ,  1.155502  )
(  10.1468  ,  1.153568  )
(  10.24013  ,  1.145598  )
(  10.33346  ,  1.131822  )
(  10.42678  ,  1.122345  )
(  10.52011  ,  1.109393  )
(  10.61343  ,  1.09309  )
(  10.70676  ,  1.097245  )
(  10.80008  ,  1.104561  )
(  10.89341  ,  1.121865  )
(  10.98673  ,  1.14354  )
(  11.08006  ,  1.159646  )
(  11.17338  ,  1.169466  )
(  11.26671  ,  1.172574  )
(  11.36003  ,  1.168835  )
(  11.45336  ,  1.164485  )
(  11.54668  ,  1.177683  )
(  11.64001  ,  1.200664  )
(  11.73333  ,  1.226328  )
\end{pspicture}

%\psset{unit=.27in}
\hskip-1in\begin{pspicture}(13,4)
\thicklines
\bw
\color{black}
%\put( 0.1000, 9.5000){\bf { \normalsize ~ex6~~1/2~rf~90~deg~~~~1+.5+.5~absorber~~emit=9mm~~}}
\put( 5.0733,-0.000){\bf { \normalsize length~~(m)}}
\put(-.75 , 1.3  ){\rotatebox{ 90 }{\bf { \normalsize axial~and~dipole~B~(T)}}}
\put( 1 , 1 ){\line(1,0){ 10.73333 }}
\put(  1.00,  1.00){\line(0,1){.25}}
\put(  1.00,  0.50){\makebox(0,0){\normalsize  0.0}}
\put(  3.33,  1.00){\line(0,1){.25}}
\put(  3.33,  0.50){\makebox(0,0){\normalsize  2.5}}
\put(  5.67,  1.00){\line(0,1){.25}}
\put(  5.67,  0.50){\makebox(0,0){\normalsize  5.0}}
\put(  8.00,  1.00){\line(0,1){.25}}
\put(  8.00,  0.50){\makebox(0,0){\normalsize  7.5}}
\put( 10.33,  1.00){\line(0,1){.25}}
\put( 10.33,  0.50){\makebox(0,0){\normalsize 10.0}}
\put( 1 , 1 ){\line(0,1){ 3 }}
\put(  1.00,  1.00){\line(1,0){.25}}
\put(  0.00,  1.00){\makebox(0,0){\normalsize -5.0}}
\put(  1.00,  1.75){\line(1,0){.25}}
\put(  0.00,  1.75){\makebox(0,0){\normalsize -2.5}}
\put(  1.00,  2.50){\line(1,0){.25}}
\put(  0.00,  2.50){\makebox(0,0){\normalsize  0.0}}
\put(  1.00,  3.25){\line(1,0){.25}}
\put(  0.00,  3.25){\makebox(0,0){\normalsize  2.5}}
\put(  1.00,  4.00){\line(1,0){.25}}
\put(  0.00,  4.00){\makebox(0,0){\normalsize  5.0}}
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  1  ,  2.5  )
(  11.73333  ,  2.5  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.000001  ,  1.56589  )
(  1.093333  ,  1.56625  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.093333  ,  1.56625  )
(  1.186667  ,  1.56667  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.186667  ,  1.56667  )
(  1.28  ,  1.56715  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.28  ,  1.56715  )
(  1.373333  ,  1.56769  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.373333  ,  1.56769  )
(  1.466667  ,  1.56829  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.466667  ,  1.56829  )
(  1.56  ,  1.56901  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.56  ,  1.56901  )
(  1.653333  ,  1.56982  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.653333  ,  1.56982  )
(  1.746667  ,  1.57078  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.746667  ,  1.57078  )
(  1.84  ,  1.57186  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.84  ,  1.57186  )
(  1.933333  ,  1.57312  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  1.933333  ,  1.57312  )
(  2.026667  ,  1.57462  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.026667  ,  1.57462  )
(  2.12  ,  1.57642  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.12  ,  1.57642  )
(  2.213333  ,  1.57873  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.213333  ,  1.57873  )
(  2.306667  ,  1.58152  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.306667  ,  1.58152  )
(  2.4  ,  1.58515  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.4  ,  1.58515  )
(  2.493333  ,  1.59016  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.493333  ,  1.59016  )
(  2.586667  ,  1.59733  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.586667  ,  1.59733  )
(  2.68  ,  1.60813  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.68  ,  1.60813  )
(  2.773333  ,  1.62523  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.773333  ,  1.62523  )
(  2.866667  ,  1.65265  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.866667  ,  1.65265  )
(  2.96  ,  1.69465  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  2.96  ,  1.69465  )
(  3.053334  ,  1.74835  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.053334  ,  1.74835  )
(  3.146667  ,  1.79035  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.146667  ,  1.79035  )
(  3.24  ,  1.77997  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.24  ,  1.77997  )
(  3.333333  ,  1.69657  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.333333  ,  1.69657  )
(  3.426667  ,  1.57867  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.426667  ,  1.57867  )
(  3.52  ,  1.53427  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.52  ,  1.53427  )
(  3.613333  ,  1.6759  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.613333  ,  1.6759  )
(  3.706667  ,  2.00965  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.706667  ,  2.00965  )
(  3.8  ,  2.44204  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.8  ,  2.44204  )
(  3.893333  ,  2.86993  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.893333  ,  2.86993  )
(  3.986667  ,  3.19711  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  3.986667  ,  3.19711  )
(  4.08  ,  3.34216  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.08  ,  3.34216  )
(  4.173334  ,  3.30976  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.173334  ,  3.30976  )
(  4.266667  ,  3.19456  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.266667  ,  3.19456  )
(  4.36  ,  3.0856  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.36  ,  3.0856  )
(  4.453333  ,  3.01849  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.453333  ,  3.01849  )
(  4.546667  ,  2.99419  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.546667  ,  2.99419  )
(  4.64  ,  3.00241  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.64  ,  3.00241  )
(  4.733334  ,  3.03121  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.733334  ,  3.03121  )
(  4.826667  ,  3.06886  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.826667  ,  3.06886  )
(  4.92  ,  3.1042  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  4.92  ,  3.1042  )
(  5.013334  ,  3.12742  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.013334  ,  3.12742  )
(  5.106667  ,  3.1321  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.106667  ,  3.1321  )
(  5.2  ,  3.1168  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.2  ,  3.1168  )
(  5.293334  ,  3.08566  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.293334  ,  3.08566  )
(  5.386667  ,  3.04705  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.386667  ,  3.04705  )
(  5.48  ,  3.01171  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.48  ,  3.01171  )
(  5.573334  ,  2.99128  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.573334  ,  2.99128  )
(  5.666667  ,  2.99764  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.666667  ,  2.99764  )
(  5.76  ,  3.0427  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.76  ,  3.0427  )
(  5.853333  ,  3.13336  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.853333  ,  3.13336  )
(  5.946667  ,  3.25567  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.946667  ,  3.25567  )
(  6.04  ,  3.34774  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.04  ,  3.34774  )
(  6.133334  ,  3.3073  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.133334  ,  3.3073  )
(  6.226667  ,  3.07771  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.226667  ,  3.07771  )
(  6.32  ,  2.707813  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.32  ,  2.707813  )
(  6.413333  ,  2.292217  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.413333  ,  2.292217  )
(  6.506667  ,  1.92232  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.506667  ,  1.92232  )
(  6.6  ,  1.6927  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.6  ,  1.6927  )
(  6.693333  ,  1.65223  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.693333  ,  1.65223  )
(  6.786666  ,  1.74433  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.786666  ,  1.74433  )
(  6.88  ,  1.86676  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.88  ,  1.86676  )
(  6.973333  ,  1.95745  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.973333  ,  1.95745  )
(  7.066667  ,  2.00248  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.066667  ,  2.00248  )
(  7.16  ,  2.00887  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.16  ,  2.00887  )
(  7.253333  ,  1.98841  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.253333  ,  1.98841  )
(  7.346667  ,  1.9531  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.346667  ,  1.9531  )
(  7.44  ,  1.91449  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.44  ,  1.91449  )
(  7.533333  ,  1.88332  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.533333  ,  1.88332  )
(  7.626667  ,  1.86802  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.626667  ,  1.86802  )
(  7.72  ,  1.87267  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.72  ,  1.87267  )
(  7.813334  ,  1.89589  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.813334  ,  1.89589  )
(  7.906667  ,  1.93123  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.906667  ,  1.93123  )
(  8  ,  1.96891  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8  ,  1.96891  )
(  8.093333  ,  1.99768  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.093333  ,  1.99768  )
(  8.186666  ,  2.0059  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.186666  ,  2.0059  )
(  8.280001  ,  1.9816  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.280001  ,  1.9816  )
(  8.373334  ,  1.91452  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.373334  ,  1.91452  )
(  8.466667  ,  1.80556  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.466667  ,  1.80556  )
(  8.56  ,  1.69033  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.56  ,  1.69033  )
(  8.653334  ,  1.65793  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.653334  ,  1.65793  )
(  8.746667  ,  1.80304  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.746667  ,  1.80304  )
(  8.84  ,  2.13019  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.84  ,  2.13019  )
(  8.933333  ,  2.558077  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  8.933333  ,  2.558077  )
(  9.026668  ,  2.99047  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.026668  ,  2.99047  )
(  9.12  ,  3.32425  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.12  ,  3.32425  )
(  9.213334  ,  3.46588  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.213334  ,  3.46588  )
(  9.306666  ,  3.42145  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.306666  ,  3.42145  )
(  9.400001  ,  3.30358  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.400001  ,  3.30358  )
(  9.493334  ,  3.22015  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.493334  ,  3.22015  )
(  9.586667  ,  3.20977  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.586667  ,  3.20977  )
(  9.68  ,  3.25177  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.68  ,  3.25177  )
(  9.773334  ,  3.30547  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.773334  ,  3.30547  )
(  9.866667  ,  3.34744  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.866667  ,  3.34744  )
(  9.960001  ,  3.37486  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  9.960001  ,  3.37486  )
(  10.05333  ,  3.39196  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.05333  ,  3.39196  )
(  10.14667  ,  3.40279  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.14667  ,  3.40279  )
(  10.24  ,  3.40993  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.24  ,  3.40993  )
(  10.33333  ,  3.41494  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.33333  ,  3.41494  )
(  10.42667  ,  3.41857  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.42667  ,  3.41857  )
(  10.52  ,  3.42136  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.52  ,  3.42136  )
(  10.61333  ,  3.42373  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.61333  ,  3.42373  )
(  10.70667  ,  3.42553  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.70667  ,  3.42553  )
(  10.8  ,  3.42703  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.8  ,  3.42703  )
(  10.89333  ,  3.42829  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.89333  ,  3.42829  )
(  10.98667  ,  3.42937  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  10.98667  ,  3.42937  )
(  11.08  ,  3.4303  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  11.08  ,  3.4303  )
(  11.17333  ,  3.43111  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  11.17333  ,  3.43111  )
(  11.26667  ,  3.43183  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  11.26667  ,  3.43183  )
(  11.73333  ,  3.4318  )
\end{pspicture}