\thicklines
\color{black}
%\put( 2.0733,-0.5000){\bf {   cm}}
\put(-1,1){
\color{red}
\put( 0.5000, 9.6000){\bf {   \bf{\Large a)}\normalsize LHC like~}}
\color{blue}
\put( 1.0000, 9.0000){\bf {   Beam~aperture~~4.35~~~~(cm)~}}
\put( 1.0000, 8.5000){\bf {   Dipole~field~~~~8.4~~~~(T)~}}
\put( 1.0000, 8.0000){\bf {   Conductor~dr~~~~5.4~~~~(cm)~}}
\put( 1.0000, 7.5000){\bf {   Yoke~radius~~~~35.3~~~~(cm)~}}
\put( 1.0000, 7.0000){\bf {   Packing~factor~80.0~~~~(\%)~}}
\put( 1.0000, 6.5000){\bf {   Stored~Energy~~388~~~~(MJ/m)~}}
}
\put(-1,-2){
\color{black}
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.32131  ,  4.741413  )
(  5.20291  ,  4.513651  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.251753  ,  4.784511  )
(  5.072089  ,  4.594709  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.209022  ,  4.827608  )
(  4.99172  ,  4.675767  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.180333  ,  4.870706  )
(  4.937763  ,  4.756825  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.161549  ,  4.913804  )
(  4.902434  ,  4.837883  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.150834  ,  4.956902  )
(  4.88228  ,  4.918942  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.147344  ,  5  )
(  4.875718  ,  5  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.150834  ,  5.043098  )
(  4.88228  ,  5.081058  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.161549  ,  5.086196  )
(  4.902434  ,  5.162117  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.180333  ,  5.129294  )
(  4.937763  ,  5.243175  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.209022  ,  5.172392  )
(  4.99172  ,  5.324233  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.251753  ,  5.215489  )
(  5.072089  ,  5.405291  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.32131  ,  5.258587  )
(  5.20291  ,  5.486349  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.317818  ,  4.743013  )
(  5.297069  ,  4.753625  )
(  5.2707  ,  4.770144  )
(  5.237669  ,  4.796834  )
(  5.199138  ,  4.840624  )
(  5.163169  ,  4.909142  )
(  5.147344  ,  5  )
(  5.163169  ,  5.090858  )
(  5.199138  ,  5.159376  )
(  5.237669  ,  5.203166  )
(  5.2707  ,  5.229856  )
(  5.297069  ,  5.246375  )
(  5.317818  ,  5.256987  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.196343  ,  4.516663  )
(  5.157318  ,  4.536622  )
(  5.107724  ,  4.56769  )
(  5.0456  ,  4.617888  )
(  4.973131  ,  4.700247  )
(  4.905482  ,  4.829114  )
(  4.875718  ,  5  )
(  4.905482  ,  5.170886  )
(  4.973131  ,  5.299753  )
(  5.0456  ,  5.382112  )
(  5.107724  ,  5.43231  )
(  5.157318  ,  5.463378  )
(  5.196343  ,  5.483337  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.590158  ,  4.741413  )
(  5.708557  ,  4.513651  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.659714  ,  4.784511  )
(  5.839378  ,  4.594709  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.702446  ,  4.827608  )
(  5.919746  ,  4.675767  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.731134  ,  4.870706  )
(  5.973704  ,  4.756825  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.749918  ,  4.913804  )
(  6.009034  ,  4.837883  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.760634  ,  4.956902  )
(  6.029187  ,  4.918942  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.764123  ,  5  )
(  6.035749  ,  5  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.760634  ,  5.043098  )
(  6.029187  ,  5.081058  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.749918  ,  5.086196  )
(  6.009034  ,  5.162117  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.731134  ,  5.129294  )
(  5.973704  ,  5.243175  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.702446  ,  5.172392  )
(  5.919746  ,  5.324233  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.659714  ,  5.215489  )
(  5.839378  ,  5.405291  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.590158  ,  5.258587  )
(  5.708557  ,  5.486349  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.593649  ,  4.743013  )
(  5.614399  ,  4.753625  )
(  5.640768  ,  4.770144  )
(  5.673798  ,  4.796834  )
(  5.712329  ,  4.840624  )
(  5.748298  ,  4.909142  )
(  5.764123  ,  5  )
(  5.748298  ,  5.090858  )
(  5.712329  ,  5.159376  )
(  5.673798  ,  5.203166  )
(  5.640768  ,  5.229856  )
(  5.614399  ,  5.246375  )
(  5.593649  ,  5.256987  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.715125  ,  4.516663  )
(  5.754149  ,  4.536622  )
(  5.803743  ,  4.56769  )
(  5.865867  ,  4.617888  )
(  5.938336  ,  4.700247  )
(  6.005985  ,  4.829114  )
(  6.035749  ,  5  )
(  6.005985  ,  5.170886  )
(  5.938336  ,  5.299753  )
(  5.865867  ,  5.382112  )
(  5.803743  ,  5.43231  )
(  5.754149  ,  5.463378  )
(  5.715125  ,  5.483337  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.143176  ,  4.741413  )
(  7.024777  ,  4.513651  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.073619  ,  4.784511  )
(  6.893955  ,  4.594709  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.030888  ,  4.827608  )
(  6.813587  ,  4.675767  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.002199  ,  4.870706  )
(  6.759629  ,  4.756825  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.983415  ,  4.913804  )
(  6.7243  ,  4.837883  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.9727  ,  4.956902  )
(  6.704146  ,  4.918942  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.96921  ,  5  )
(  6.697584  ,  5  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.9727  ,  5.043098  )
(  6.704146  ,  5.081058  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.983415  ,  5.086196  )
(  6.7243  ,  5.162117  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.002199  ,  5.129294  )
(  6.759629  ,  5.243175  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.030888  ,  5.172392  )
(  6.813587  ,  5.324233  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.073619  ,  5.215489  )
(  6.893955  ,  5.405291  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.143176  ,  5.258587  )
(  7.024777  ,  5.486349  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  7.139684  ,  4.743013  )
(  7.118935  ,  4.753625  )
(  7.092566  ,  4.770144  )
(  7.059536  ,  4.796834  )
(  7.021004  ,  4.840624  )
(  6.985036  ,  4.909142  )
(  6.96921  ,  5  )
(  6.985036  ,  5.090858  )
(  7.021004  ,  5.159376  )
(  7.059536  ,  5.203166  )
(  7.092566  ,  5.229856  )
(  7.118935  ,  5.246375  )
(  7.139684  ,  5.256987  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  7.018209  ,  4.516663  )
(  6.979184  ,  4.536622  )
(  6.92959  ,  4.56769  )
(  6.867467  ,  4.617888  )
(  6.794998  ,  4.700247  )
(  6.727348  ,  4.829114  )
(  6.697584  ,  5  )
(  6.727348  ,  5.170886  )
(  6.794998  ,  5.299753  )
(  6.867467  ,  5.382112  )
(  6.92959  ,  5.43231  )
(  6.979184  ,  5.463378  )
(  7.018209  ,  5.483337  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.412024  ,  4.741413  )
(  7.530423  ,  4.513651  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.48158  ,  4.784511  )
(  7.661244  ,  4.594709  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.524312  ,  4.827608  )
(  7.741613  ,  4.675767  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.553001  ,  4.870706  )
(  7.795571  ,  4.756825  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.571785  ,  4.913804  )
(  7.8309  ,  4.837883  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.5825  ,  4.956902  )
(  7.851054  ,  4.918942  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.585989  ,  5  )
(  7.857616  ,  5  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.5825  ,  5.043098  )
(  7.851054  ,  5.081058  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.571785  ,  5.086196  )
(  7.8309  ,  5.162117  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.553001  ,  5.129294  )
(  7.795571  ,  5.243175  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.524312  ,  5.172392  )
(  7.741613  ,  5.324233  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.48158  ,  5.215489  )
(  7.661244  ,  5.405291  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  7.412024  ,  5.258587  )
(  7.530423  ,  5.486349  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  7.415516  ,  4.743013  )
(  7.436265  ,  4.753625  )
(  7.462634  ,  4.770144  )
(  7.495664  ,  4.796834  )
(  7.534196  ,  4.840624  )
(  7.570164  ,  4.909142  )
(  7.585989  ,  5  )
(  7.570164  ,  5.090858  )
(  7.534196  ,  5.159376  )
(  7.495664  ,  5.203166  )
(  7.462634  ,  5.229856  )
(  7.436265  ,  5.246375  )
(  7.415516  ,  5.256987  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  7.536991  ,  4.516663  )
(  7.576016  ,  4.536622  )
(  7.625609  ,  4.56769  )
(  7.687733  ,  4.617888  )
(  7.760202  ,  4.700247  )
(  7.827851  ,  4.829114  )
(  7.857616  ,  5  )
(  7.827851  ,  5.170886  )
(  7.760202  ,  5.299753  )
(  7.687733  ,  5.382112  )
(  7.625609  ,  5.43231  )
(  7.576016  ,  5.463378  )
(  7.536991  ,  5.483337  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  8.529274  )
(  7.596656  ,  8.338049  )
(  8.693357  ,  7.785094  )
(  9.537925  ,  6.930332  )
(  10.03884  ,  5.866389  )
(  10.14182  ,  4.70856  )
(  9.835698  ,  3.582312  )
(  9.153658  ,  2.609693  )
(  8.169604  ,  1.8961  )
(  6.990175  ,  1.518862  )
(  5.743178  ,  1.518859  )
(  4.563746  ,  1.896091  )
(  3.579688  ,  2.60968  )
(  2.897643  ,  3.582295  )
(  2.591519  ,  4.708541  )
(  2.69449  ,  5.866372  )
(  3.195398  ,  6.930317  )
(  4.039961  ,  7.785083  )
(  5.13666  ,  8.338043  )
(  6.366648  ,  8.529274  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  8.976488  )
(  7.752515  ,  8.761031  )
(  8.988185  ,  8.138009  )
(  9.939774  ,  7.174935  )
(  10.50416  ,  5.976174  )
(  10.62019  ,  4.671629  )
(  10.27528  ,  3.402669  )
(  9.506814  ,  2.306803  )
(  8.398065  ,  1.502787  )
(  7.069183  ,  1.077748  )
(  5.664172  ,  1.077744  )
(  4.335288  ,  1.502777  )
(  3.226535  ,  2.306789  )
(  2.458064  ,  3.40265  )
(  2.113148  ,  4.671609  )
(  2.229168  ,  5.976154  )
(  2.793549  ,  7.174918  )
(  3.745132  ,  8.137997  )
(  4.980798  ,  8.761024  )
(  6.366645  ,  8.976488  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  8.472736  )
(  7.576952  ,  8.284574  )
(  8.656084  ,  7.740478  )
(  9.487123  ,  6.899409  )
(  9.980012  ,  5.85251  )
(  10.08134  ,  4.713228  )
(  9.780126  ,  3.605023  )
(  9.109012  ,  2.647985  )
(  8.140722  ,  1.945823  )
(  6.980186  ,  1.574629  )
(  5.753166  ,  1.574626  )
(  4.592628  ,  1.945815  )
(  3.624335  ,  2.647972  )
(  2.953216  ,  3.605006  )
(  2.651995  ,  4.713211  )
(  2.753317  ,  5.852492  )
(  3.246201  ,  6.899394  )
(  4.077235  ,  7.740467  )
(  5.156364  ,  8.284568  )
(  6.366648  ,  8.472736  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  5.455729  ,  5.7715  )
(  5.724605  ,  5.729698  )
(  5.964344  ,  5.608822  )
(  6.148966  ,  5.421971  )
(  6.258466  ,  5.189393  )
(  6.280977  ,  4.936291  )
(  6.21406  ,  4.690093  )
(  6.064966  ,  4.477479  )
(  5.849851  ,  4.321487  )
(  5.592028  ,  4.239023  )
(  5.319434  ,  4.239022  )
(  5.06161  ,  4.321485  )
(  4.846495  ,  4.477476  )
(  4.6974  ,  4.690089  )
(  4.630481  ,  4.936287  )
(  4.65299  ,  5.189389  )
(  4.762489  ,  5.421968  )
(  4.947111  ,  5.60882  )
(  5.186849  ,  5.729697  )
(  5.455725  ,  5.7715  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.455729  ,  5.2873  )
(  5.555856  ,  5.271733  )
(  5.645133  ,  5.22672  )
(  5.713884  ,  5.157138  )
(  5.754662  ,  5.070529  )
(  5.763044  ,  4.976275  )
(  5.738125  ,  4.884593  )
(  5.682603  ,  4.805418  )
(  5.602497  ,  4.747327  )
(  5.506485  ,  4.716619  )
(  5.404974  ,  4.716618  )
(  5.308962  ,  4.747327  )
(  5.228855  ,  4.805416  )
(  5.173334  ,  4.884592  )
(  5.148414  ,  4.976274  )
(  5.156796  ,  5.070527  )
(  5.197572  ,  5.157137  )
(  5.266324  ,  5.226719  )
(  5.3556  ,  5.271733  )
(  5.455727  ,  5.2873  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  5.455729  ,  5.2173  )
(  5.53146  ,  5.205526  )
(  5.598985  ,  5.17148  )
(  5.650986  ,  5.118852  )
(  5.681827  ,  5.053344  )
(  5.688168  ,  4.982056  )
(  5.66932  ,  4.912712  )
(  5.627326  ,  4.852827  )
(  5.566737  ,  4.80889  )
(  5.494119  ,  4.785664  )
(  5.41734  ,  4.785664  )
(  5.344722  ,  4.80889  )
(  5.284132  ,  4.852826  )
(  5.242138  ,  4.912711  )
(  5.22329  ,  4.982055  )
(  5.22963  ,  5.053343  )
(  5.260471  ,  5.118851  )
(  5.312472  ,  5.17148  )
(  5.379996  ,  5.205526  )
(  5.455728  ,  5.2173  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  5.455729  ,  5.2673  )
(  5.548886  ,  5.252817  )
(  5.631948  ,  5.210938  )
(  5.695913  ,  5.146199  )
(  5.733851  ,  5.065619  )
(  5.741651  ,  4.977927  )
(  5.718466  ,  4.892627  )
(  5.66681  ,  4.818963  )
(  5.592279  ,  4.764917  )
(  5.502952  ,  4.736346  )
(  5.408507  ,  4.736345  )
(  5.319179  ,  4.764916  )
(  5.244648  ,  4.818962  )
(  5.192992  ,  4.892626  )
(  5.169807  ,  4.977925  )
(  5.177606  ,  5.065617  )
(  5.215543  ,  5.146198  )
(  5.279509  ,  5.210937  )
(  5.362571  ,  5.252817  )
(  5.455727  ,  5.2673  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  7.277605  ,  5.7715  )
(  7.546481  ,  5.729698  )
(  7.78622  ,  5.608822  )
(  7.970842  ,  5.421971  )
(  8.080342  ,  5.189393  )
(  8.102853  ,  4.936291  )
(  8.035936  ,  4.690093  )
(  7.886842  ,  4.477479  )
(  7.671727  ,  4.321487  )
(  7.413904  ,  4.239023  )
(  7.14131  ,  4.239022  )
(  6.883486  ,  4.321485  )
(  6.668371  ,  4.477476  )
(  6.519276  ,  4.690089  )
(  6.452357  ,  4.936287  )
(  6.474866  ,  5.189389  )
(  6.584365  ,  5.421968  )
(  6.768987  ,  5.60882  )
(  7.008725  ,  5.729697  )
(  7.277601  ,  5.7715  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  7.277605  ,  5.2873  )
(  7.377732  ,  5.271733  )
(  7.467009  ,  5.22672  )
(  7.53576  ,  5.157138  )
(  7.576538  ,  5.070529  )
(  7.58492  ,  4.976275  )
(  7.560001  ,  4.884593  )
(  7.504479  ,  4.805418  )
(  7.424373  ,  4.747327  )
(  7.328362  ,  4.716619  )
(  7.22685  ,  4.716618  )
(  7.130838  ,  4.747327  )
(  7.050731  ,  4.805416  )
(  6.99521  ,  4.884592  )
(  6.97029  ,  4.976274  )
(  6.978672  ,  5.070527  )
(  7.019448  ,  5.157137  )
(  7.0882  ,  5.226719  )
(  7.177476  ,  5.271733  )
(  7.277603  ,  5.2873  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  7.277605  ,  5.2173  )
(  7.353336  ,  5.205526  )
(  7.420861  ,  5.17148  )
(  7.472862  ,  5.118852  )
(  7.503703  ,  5.053344  )
(  7.510044  ,  4.982056  )
(  7.491196  ,  4.912712  )
(  7.449202  ,  4.852827  )
(  7.388613  ,  4.80889  )
(  7.315995  ,  4.785664  )
(  7.239216  ,  4.785664  )
(  7.166598  ,  4.80889  )
(  7.106009  ,  4.852826  )
(  7.064014  ,  4.912711  )
(  7.045166  ,  4.982055  )
(  7.051506  ,  5.053343  )
(  7.082347  ,  5.118851  )
(  7.134348  ,  5.17148  )
(  7.201872  ,  5.205526  )
(  7.277604  ,  5.2173  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  7.277605  ,  5.2673  )
(  7.370762  ,  5.252817  )
(  7.453824  ,  5.210938  )
(  7.517789  ,  5.146199  )
(  7.555727  ,  5.065619  )
(  7.563527  ,  4.977927  )
(  7.540342  ,  4.892627  )
(  7.488686  ,  4.818963  )
(  7.414155  ,  4.764917  )
(  7.324828  ,  4.736346  )
(  7.230383  ,  4.736345  )
(  7.141055  ,  4.764916  )
(  7.066525  ,  4.818962  )
(  7.014868  ,  4.892626  )
(  6.991683  ,  4.977925  )
(  6.999482  ,  5.065617  )
(  7.037419  ,  5.146198  )
(  7.101385  ,  5.210937  )
(  7.184447  ,  5.252817  )
(  7.277603  ,  5.2673  )
}
\put(11,0){
\color{red}
\put( 0.5000, 9.6000){\bf {   \bf {\Large b)}\normalsize~Cost minimum }}
\color{blue}
\put( 1.0000, 9.0000){\bf {   Beam~aperture~~1.38~~~~(cm)~}}
\put( 1.0000, 8.5000){\bf {   Dipole~field~~~~4.5~~~~(T)~}}
\put( 1.0000, 8.0000){\bf {   Conductor~dr~~~~1.0~~~~(cm)~}}
\put( 1.0000, 7.5000){\bf {   Yoke~radius~~~~~8.7~~~~(cm)~}}
\put( 1.0000, 7.0000){\bf {   Packing~factor~89.1~~~~(\%)~}}
\put( 1.0000, 6.5000){\bf {   Stored~Energy~~~29~~~~(MJ/m)~}}
\put(-1,-1){
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.000127  ,  4.874729  )
(  5.950485  ,  4.779234  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.939506  ,  4.924838  )
(  5.843651  ,  4.86754  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.918291  ,  4.974946  )
(  5.806264  ,  4.955847  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.918291  ,  5.025054  )
(  5.806264  ,  5.044153  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.939506  ,  5.075162  )
(  5.843651  ,  5.13246  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.000127  ,  5.125271  )
(  5.950485  ,  5.220766  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.998435  ,  4.875505  )
(  5.969606  ,  4.893071  )
(  5.926536  ,  4.948306  )
(  5.926536  ,  5.051694  )
(  5.969606  ,  5.106929  )
(  5.998435  ,  5.124495  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.947504  ,  4.780601  )
(  5.896698  ,  4.811559  )
(  5.820795  ,  4.908899  )
(  5.820795  ,  5.091101  )
(  5.896698  ,  5.188441  )
(  5.947504  ,  5.219399  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  5.942704  ,  4.771657  )
(  5.889826  ,  4.803876  )
(  5.810829  ,  4.905186  )
(  5.810829  ,  5.094814  )
(  5.889826  ,  5.196124  )
(  5.942704  ,  5.228343  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.130369  ,  4.874729  )
(  6.180011  ,  4.779234  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.19099  ,  4.924838  )
(  6.286845  ,  4.86754  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.212205  ,  4.974946  )
(  6.324232  ,  4.955847  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.212205  ,  5.025054  )
(  6.324232  ,  5.044153  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.19099  ,  5.075162  )
(  6.286845  ,  5.13246  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.130369  ,  5.125271  )
(  6.180011  ,  5.220766  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.13206  ,  4.875505  )
(  6.16089  ,  4.893071  )
(  6.203959  ,  4.948306  )
(  6.203959  ,  5.051694  )
(  6.16089  ,  5.106929  )
(  6.13206  ,  5.124495  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.182992  ,  4.780601  )
(  6.233798  ,  4.811559  )
(  6.309701  ,  4.908899  )
(  6.309701  ,  5.091101  )
(  6.233798  ,  5.188441  )
(  6.182992  ,  5.219399  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  6.187792  ,  4.771657  )
(  6.240669  ,  4.803876  )
(  6.319666  ,  4.905186  )
(  6.319666  ,  5.094814  )
(  6.240669  ,  5.196124  )
(  6.187792  ,  5.228343  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.602965  ,  4.874729  )
(  6.553323  ,  4.779234  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.542344  ,  4.924838  )
(  6.446489  ,  4.86754  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.521129  ,  4.974946  )
(  6.409102  ,  4.955847  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.521129  ,  5.025054  )
(  6.409102  ,  5.044153  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.542344  ,  5.075162  )
(  6.446489  ,  5.13246  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.602965  ,  5.125271  )
(  6.553323  ,  5.220766  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.601274  ,  4.875505  )
(  6.572444  ,  4.893071  )
(  6.529374  ,  4.948306  )
(  6.529374  ,  5.051694  )
(  6.572444  ,  5.106929  )
(  6.601274  ,  5.124495  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.550342  ,  4.780601  )
(  6.499536  ,  4.811559  )
(  6.423633  ,  4.908899  )
(  6.423633  ,  5.091101  )
(  6.499536  ,  5.188441  )
(  6.550342  ,  5.219399  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  6.545542  ,  4.771657  )
(  6.492664  ,  4.803876  )
(  6.413667  ,  4.905186  )
(  6.413667  ,  5.094814  )
(  6.492664  ,  5.196124  )
(  6.545542  ,  5.228343  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.733206  ,  4.874729  )
(  6.782848  ,  4.779234  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.793828  ,  4.924838  )
(  6.889683  ,  4.86754  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.815042  ,  4.974946  )
(  6.927069  ,  4.955847  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.815042  ,  5.025054  )
(  6.927069  ,  5.044153  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.793828  ,  5.075162  )
(  6.889683  ,  5.13246  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.733206  ,  5.125271  )
(  6.782848  ,  5.220766  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.734898  ,  4.875505  )
(  6.763727  ,  4.893071  )
(  6.806798  ,  4.948306  )
(  6.806798  ,  5.051694  )
(  6.763727  ,  5.106929  )
(  6.734898  ,  5.124495  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.78583  ,  4.780601  )
(  6.836636  ,  4.811559  )
(  6.912539  ,  4.908899  )
(  6.912539  ,  5.091101  )
(  6.836636  ,  5.188441  )
(  6.78583  ,  5.219399  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  6.79063  ,  4.771657  )
(  6.843507  ,  4.803876  )
(  6.922504  ,  4.905186  )
(  6.922504  ,  5.094814  )
(  6.843507  ,  5.196124  )
(  6.79063  ,  5.228343  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  5.870473  )
(  6.670036  ,  5.823308  )
(  6.94053  ,  5.686926  )
(  7.148838  ,  5.476104  )
(  7.272385  ,  5.213689  )
(  7.297783  ,  4.928118  )
(  7.222281  ,  4.650336  )
(  7.05406  ,  4.410446  )
(  6.81135  ,  4.234443  )
(  6.520451  ,  4.141399  )
(  6.212887  ,  4.141399  )
(  5.921988  ,  4.234441  )
(  5.679276  ,  4.410443  )
(  5.511054  ,  4.650332  )
(  5.435551  ,  4.928113  )
(  5.460948  ,  5.213685  )
(  5.584494  ,  5.4761  )
(  5.7928  ,  5.686923  )
(  6.063293  ,  5.823307  )
(  6.366662  ,  5.870473  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  6.170473  )
(  6.774589  ,  6.107054  )
(  7.138307  ,  5.923668  )
(  7.418405  ,  5.640189  )
(  7.584531  ,  5.287335  )
(  7.618684  ,  4.903345  )
(  7.517161  ,  4.529828  )
(  7.290964  ,  4.207262  )
(  6.964605  ,  3.970601  )
(  6.573451  ,  3.845491  )
(  6.159889  ,  3.84549  )
(  5.768734  ,  3.970598  )
(  5.442374  ,  4.207257  )
(  5.216176  ,  4.529822  )
(  5.11465  ,  4.903338  )
(  5.1488  ,  5.28733  )
(  5.314925  ,  5.640184  )
(  5.595022  ,  5.923665  )
(  5.958739  ,  6.107052  )
(  6.366661  ,  6.170473  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  5.863931  )
(  6.667756  ,  5.817121  )
(  6.936217  ,  5.681764  )
(  7.14296  ,  5.472526  )
(  7.265578  ,  5.212083  )
(  7.290786  ,  4.928658  )
(  7.215851  ,  4.652964  )
(  7.048895  ,  4.414876  )
(  6.808008  ,  4.240196  )
(  6.519295  ,  4.147852  )
(  6.214043  ,  4.147851  )
(  5.92533  ,  4.240194  )
(  5.684442  ,  4.414873  )
(  5.517484  ,  4.65296  )
(  5.442548  ,  4.928654  )
(  5.467754  ,  5.212079  )
(  5.590372  ,  5.472523  )
(  5.797112  ,  5.681761  )
(  6.065573  ,  5.81712  )
(  6.366662  ,  5.863931  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.065275  ,  5.1392  )
(  6.113788  ,  5.131658  )
(  6.157043  ,  5.109848  )
(  6.190354  ,  5.076135  )
(  6.210111  ,  5.034172  )
(  6.214172  ,  4.988505  )
(  6.202099  ,  4.944084  )
(  6.175198  ,  4.905723  )
(  6.136385  ,  4.877577  )
(  6.089867  ,  4.862699  )
(  6.040683  ,  4.862699  )
(  5.994165  ,  4.877577  )
(  5.955352  ,  4.905722  )
(  5.928451  ,  4.944084  )
(  5.916377  ,  4.988504  )
(  5.920438  ,  5.034171  )
(  5.940195  ,  5.076135  )
(  5.973506  ,  5.109848  )
(  6.016761  ,  5.131658  )
(  6.065274  ,  5.1392  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.065275  ,  5.0692  )
(  6.089392  ,  5.065451  )
(  6.110895  ,  5.054608  )
(  6.127455  ,  5.037849  )
(  6.137277  ,  5.016988  )
(  6.139296  ,  4.994286  )
(  6.133294  ,  4.972203  )
(  6.119921  ,  4.953132  )
(  6.100626  ,  4.93914  )
(  6.0775  ,  4.931744  )
(  6.05305  ,  4.931744  )
(  6.029924  ,  4.93914  )
(  6.010629  ,  4.953132  )
(  5.997256  ,  4.972202  )
(  5.991254  ,  4.994285  )
(  5.993273  ,  5.016987  )
(  6.003094  ,  5.037848  )
(  6.019654  ,  5.054608  )
(  6.041158  ,  5.065451  )
(  6.065274  ,  5.0692  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.065275  ,  5.1192  )
(  6.106817  ,  5.112741  )
(  6.143858  ,  5.094066  )
(  6.172383  ,  5.065197  )
(  6.189301  ,  5.029262  )
(  6.192779  ,  4.990157  )
(  6.18244  ,  4.952118  )
(  6.159404  ,  4.919268  )
(  6.126168  ,  4.895167  )
(  6.086334  ,  4.882426  )
(  6.044217  ,  4.882426  )
(  6.004382  ,  4.895166  )
(  5.971146  ,  4.919268  )
(  5.94811  ,  4.952117  )
(  5.93777  ,  4.990156  )
(  5.941248  ,  5.029262  )
(  5.958166  ,  5.065196  )
(  5.986691  ,  5.094065  )
(  6.023732  ,  5.112741  )
(  6.065274  ,  5.1192  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.668059  ,  5.1392  )
(  6.716571  ,  5.131658  )
(  6.759827  ,  5.109848  )
(  6.793138  ,  5.076135  )
(  6.812895  ,  5.034172  )
(  6.816957  ,  4.988505  )
(  6.804883  ,  4.944084  )
(  6.777982  ,  4.905723  )
(  6.73917  ,  4.877577  )
(  6.692651  ,  4.862699  )
(  6.643467  ,  4.862699  )
(  6.596949  ,  4.877577  )
(  6.558136  ,  4.905722  )
(  6.531235  ,  4.944084  )
(  6.519161  ,  4.988504  )
(  6.523222  ,  5.034171  )
(  6.542979  ,  5.076135  )
(  6.57629  ,  5.109848  )
(  6.619545  ,  5.131658  )
(  6.668058  ,  5.1392  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.668059  ,  5.0692  )
(  6.692176  ,  5.065451  )
(  6.713679  ,  5.054608  )
(  6.730239  ,  5.037849  )
(  6.740061  ,  5.016988  )
(  6.74208  ,  4.994286  )
(  6.736078  ,  4.972203  )
(  6.722704  ,  4.953132  )
(  6.70341  ,  4.93914  )
(  6.680284  ,  4.931744  )
(  6.655834  ,  4.931744  )
(  6.632708  ,  4.93914  )
(  6.613413  ,  4.953132  )
(  6.60004  ,  4.972202  )
(  6.594038  ,  4.994285  )
(  6.596057  ,  5.016987  )
(  6.605878  ,  5.037848  )
(  6.622438  ,  5.054608  )
(  6.643941  ,  5.065451  )
(  6.668058  ,  5.0692  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.668059  ,  5.1192  )
(  6.709601  ,  5.112741  )
(  6.746642  ,  5.094066  )
(  6.775167  ,  5.065197  )
(  6.792085  ,  5.029262  )
(  6.795563  ,  4.990157  )
(  6.785224  ,  4.952118  )
(  6.762188  ,  4.919268  )
(  6.728952  ,  4.895167  )
(  6.689117  ,  4.882426  )
(  6.647001  ,  4.882426  )
(  6.607166  ,  4.895166  )
(  6.57393  ,  4.919268  )
(  6.550894  ,  4.952117  )
(  6.540555  ,  4.990156  )
(  6.544032  ,  5.029262  )
(  6.56095  ,  5.065196  )
(  6.589475  ,  5.094065  )
(  6.626516  ,  5.112741  )
(  6.668058  ,  5.1192  )
}}

\put(22,0){
\color{red}
\put( 0.5000, 9.6000){\bf {   {\bf\Large c)} \bf\normalsize~For CERN~ }}
\color{blue}
\put( 1.0000, 9.0000){\bf {   Beam~aperture~~1.20~~~~(cm)~}}
\put( 1.0000, 8.5000){\bf {   Dipole~field~~~~7.0~~~~(T)~}}
\put( 1.0000, 8.0000){\bf {   Conductor~dr~~~~1.4~~~~(cm)~}}
\put( 1.0000, 7.5000){\bf {   Yoke~radius~~~~14.9~~~~(cm)~}}
\put( 1.0000, 7.0000){\bf {   Packing~factor~81.3~~~~(\%)~}}
\put( 1.0000, 6.5000){\bf {   Stored~Energy~~~81~~~~(MJ/m)~}}

\put(0,-1){
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.948879  ,  4.882866  )
(  5.873023  ,  4.736944  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.892194  ,  4.929719  )
(  5.745723  ,  4.842166  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.872358  ,  4.976573  )
(  5.701175  ,  4.947389  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.872358  ,  5.023427  )
(  5.701175  ,  5.052611  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.892194  ,  5.070281  )
(  5.745723  ,  5.157834  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  5.948879  ,  5.117134  )
(  5.873023  ,  5.263056  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.947297  ,  4.883591  )
(  5.92034  ,  4.900017  )
(  5.880067  ,  4.951664  )
(  5.880067  ,  5.048336  )
(  5.92034  ,  5.099983  )
(  5.947297  ,  5.116409  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.86947  ,  4.738573  )
(  5.808932  ,  4.775461  )
(  5.718489  ,  4.891448  )
(  5.718489  ,  5.108552  )
(  5.808932  ,  5.224539  )
(  5.86947  ,  5.261427  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  5.86467  ,  4.729629  )
(  5.80206  ,  4.767778  )
(  5.708523  ,  4.887734  )
(  5.708523  ,  5.112266  )
(  5.80206  ,  5.232222  )
(  5.86467  ,  5.270371  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.070661  ,  4.882866  )
(  6.146516  ,  4.736944  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.127345  ,  4.929719  )
(  6.273816  ,  4.842166  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.147181  ,  4.976573  )
(  6.318364  ,  4.947389  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.147181  ,  5.023427  )
(  6.318364  ,  5.052611  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.127345  ,  5.070281  )
(  6.273816  ,  5.157834  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.070661  ,  5.117134  )
(  6.146516  ,  5.263056  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.072242  ,  4.883591  )
(  6.099199  ,  4.900017  )
(  6.139472  ,  4.951664  )
(  6.139472  ,  5.048336  )
(  6.099199  ,  5.099983  )
(  6.072242  ,  5.116409  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.150069  ,  4.738573  )
(  6.210608  ,  4.775461  )
(  6.30105  ,  4.891448  )
(  6.30105  ,  5.108552  )
(  6.210608  ,  5.224539  )
(  6.150069  ,  5.261427  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  6.154869  ,  4.729629  )
(  6.217479  ,  4.767778  )
(  6.311016  ,  4.887734  )
(  6.311016  ,  5.112266  )
(  6.217479  ,  5.232222  )
(  6.154869  ,  5.270371  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.662673  ,  4.882866  )
(  6.586817  ,  4.736944  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.605989  ,  4.929719  )
(  6.459518  ,  4.842166  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.586153  ,  4.976573  )
(  6.414969  ,  4.947389  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.586153  ,  5.023427  )
(  6.414969  ,  5.052611  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.605989  ,  5.070281  )
(  6.459518  ,  5.157834  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.662673  ,  5.117134  )
(  6.586817  ,  5.263056  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.661091  ,  4.883591  )
(  6.634135  ,  4.900017  )
(  6.593862  ,  4.951664  )
(  6.593862  ,  5.048336  )
(  6.634135  ,  5.099983  )
(  6.661091  ,  5.116409  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.583265  ,  4.738573  )
(  6.522726  ,  4.775461  )
(  6.432283  ,  4.891448  )
(  6.432283  ,  5.108552  )
(  6.522726  ,  5.224539  )
(  6.583265  ,  5.261427  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  6.578465  ,  4.729629  )
(  6.515855  ,  4.767778  )
(  6.422318  ,  4.887734  )
(  6.422318  ,  5.112266  )
(  6.515855  ,  5.232222  )
(  6.578465  ,  5.270371  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.784455  ,  4.882866  )
(  6.860311  ,  4.736944  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.841139  ,  4.929719  )
(  6.98761  ,  4.842166  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.860976  ,  4.976573  )
(  7.032159  ,  4.947389  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.860976  ,  5.023427  )
(  7.032159  ,  5.052611  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.841139  ,  5.070281  )
(  6.98761  ,  5.157834  )
\psset{linewidth= 1.2 pt,linecolor=red}
\psline
(  6.784455  ,  5.117134  )
(  6.860311  ,  5.263056  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.786037  ,  4.883591  )
(  6.812994  ,  4.900017  )
(  6.853266  ,  4.951664  )
(  6.853266  ,  5.048336  )
(  6.812994  ,  5.099983  )
(  6.786037  ,  5.116409  )
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.863863  ,  4.738573  )
(  6.924402  ,  4.775461  )
(  7.014845  ,  4.891448  )
(  7.014845  ,  5.108552  )
(  6.924402  ,  5.224539  )
(  6.863863  ,  5.261427  )
\color{blue}
\psset{linewidth= 1.2 pt,linecolor=blue}
\pscurve
(  6.868663  ,  4.729629  )
(  6.931273  ,  4.767778  )
(  7.02481  ,  4.887734  )
(  7.02481  ,  5.112266  )
(  6.931273  ,  5.232222  )
(  6.868663  ,  5.270371  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  6.494067  )
(  6.887365  ,  6.413115  )
(  7.351637  ,  6.179029  )
(  7.709173  ,  5.817178  )
(  7.921227  ,  5.366773  )
(  7.964822  ,  4.876623  )
(  7.835231  ,  4.399842  )
(  7.546499  ,  3.988098  )
(  7.129914  ,  3.686009  )
(  6.63062  ,  3.526311  )
(  6.102722  ,  3.526309  )
(  5.603426  ,  3.686005  )
(  5.18684  ,  3.988092  )
(  4.898106  ,  4.399835  )
(  4.768513  ,  4.876615  )
(  4.812104  ,  5.366766  )
(  5.024156  ,  5.817172  )
(  5.38169  ,  6.179025  )
(  5.845961  ,  6.413112  )
(  6.366659  ,  6.494067  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  6.794067  )
(  6.991918  ,  6.69686  )
(  7.549414  ,  6.415771  )
(  7.978741  ,  5.981263  )
(  8.233375  ,  5.440419  )
(  8.285722  ,  4.85185  )
(  8.130111  ,  4.279334  )
(  7.783403  ,  3.784914  )
(  7.28317  ,  3.422167  )
(  6.68362  ,  3.230402  )
(  6.049723  ,  3.230401  )
(  5.450172  ,  3.422163  )
(  4.949937  ,  3.784907  )
(  4.603227  ,  4.279325  )
(  4.447613  ,  4.85184  )
(  4.499957  ,  5.44041  )
(  4.754588  ,  5.981255  )
(  5.183912  ,  6.415766  )
(  5.741406  ,  6.696856  )
(  6.366657  ,  6.794067  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  6.475469  )
(  6.880883  ,  6.395524  )
(  7.339376  ,  6.164353  )
(  7.692461  ,  5.807006  )
(  7.901876  ,  5.362208  )
(  7.944928  ,  4.878159  )
(  7.816951  ,  4.407313  )
(  7.531813  ,  4.000694  )
(  7.120413  ,  3.702365  )
(  6.627334  ,  3.544655  )
(  6.106008  ,  3.544654  )
(  5.612927  ,  3.702362  )
(  5.201526  ,  4.000689  )
(  4.916386  ,  4.407306  )
(  4.788406  ,  4.878151  )
(  4.831455  ,  5.3622  )
(  5.040867  ,  5.807  )
(  5.393951  ,  6.164348  )
(  5.852443  ,  6.395522  )
(  6.366659  ,  6.475469  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.009783  ,  5.1301  )
(  6.055125  ,  5.123051  )
(  6.095552  ,  5.102667  )
(  6.126686  ,  5.071158  )
(  6.145151  ,  5.031938  )
(  6.148947  ,  4.989256  )
(  6.137663  ,  4.94774  )
(  6.112521  ,  4.911886  )
(  6.076245  ,  4.885581  )
(  6.032768  ,  4.871675  )
(  5.9868  ,  4.871675  )
(  5.943322  ,  4.88558  )
(  5.907047  ,  4.911885  )
(  5.881905  ,  4.947739  )
(  5.87062  ,  4.989256  )
(  5.874415  ,  5.031937  )
(  5.89288  ,  5.071157  )
(  5.924014  ,  5.102667  )
(  5.964442  ,  5.123051  )
(  6.009783  ,  5.1301  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.009783  ,  5.0601  )
(  6.030729  ,  5.056844  )
(  6.049405  ,  5.047427  )
(  6.063787  ,  5.032872  )
(  6.072317  ,  5.014754  )
(  6.07407  ,  4.995037  )
(  6.068858  ,  4.975858  )
(  6.057243  ,  4.959295  )
(  6.040486  ,  4.947144  )
(  6.020401  ,  4.94072  )
(  5.999166  ,  4.94072  )
(  5.979082  ,  4.947144  )
(  5.962324  ,  4.959295  )
(  5.950709  ,  4.975858  )
(  5.945497  ,  4.995037  )
(  5.94725  ,  5.014753  )
(  5.95578  ,  5.032871  )
(  5.970162  ,  5.047427  )
(  5.988838  ,  5.056844  )
(  6.009783  ,  5.0601  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.009783  ,  5.1101  )
(  6.048154  ,  5.104135  )
(  6.082367  ,  5.086884  )
(  6.108715  ,  5.060219  )
(  6.124341  ,  5.027028  )
(  6.127554  ,  4.990908  )
(  6.118004  ,  4.955773  )
(  6.096727  ,  4.925431  )
(  6.066028  ,  4.90317  )
(  6.029234  ,  4.891402  )
(  5.990333  ,  4.891402  )
(  5.953539  ,  4.90317  )
(  5.92284  ,  4.925431  )
(  5.901563  ,  4.955773  )
(  5.892013  ,  4.990908  )
(  5.895226  ,  5.027028  )
(  5.910852  ,  5.060219  )
(  5.937199  ,  5.086884  )
(  5.971412  ,  5.104134  )
(  6.009783  ,  5.1101  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.72355  ,  5.1301  )
(  6.768891  ,  5.123051  )
(  6.809319  ,  5.102667  )
(  6.840453  ,  5.071158  )
(  6.858918  ,  5.031938  )
(  6.862714  ,  4.989256  )
(  6.851429  ,  4.94774  )
(  6.826287  ,  4.911886  )
(  6.790012  ,  4.885581  )
(  6.746534  ,  4.871675  )
(  6.700566  ,  4.871675  )
(  6.657089  ,  4.88558  )
(  6.620813  ,  4.911885  )
(  6.595671  ,  4.947739  )
(  6.584386  ,  4.989256  )
(  6.588182  ,  5.031937  )
(  6.606647  ,  5.071157  )
(  6.637781  ,  5.102667  )
(  6.678208  ,  5.123051  )
(  6.723549  ,  5.1301  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.72355  ,  5.0601  )
(  6.744495  ,  5.056844  )
(  6.763171  ,  5.047427  )
(  6.777554  ,  5.032872  )
(  6.786084  ,  5.014754  )
(  6.787837  ,  4.995037  )
(  6.782624  ,  4.975858  )
(  6.77101  ,  4.959295  )
(  6.754252  ,  4.947144  )
(  6.734168  ,  4.94072  )
(  6.712933  ,  4.94072  )
(  6.692848  ,  4.947144  )
(  6.676091  ,  4.959295  )
(  6.664476  ,  4.975858  )
(  6.659263  ,  4.995037  )
(  6.661016  ,  5.014753  )
(  6.669547  ,  5.032871  )
(  6.683928  ,  5.047427  )
(  6.702604  ,  5.056844  )
(  6.72355  ,  5.0601  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.72355  ,  5.1101  )
(  6.761921  ,  5.104135  )
(  6.796134  ,  5.086884  )
(  6.822482  ,  5.060219  )
(  6.838108  ,  5.027028  )
(  6.841321  ,  4.990908  )
(  6.831771  ,  4.955773  )
(  6.810494  ,  4.925431  )
(  6.779795  ,  4.90317  )
(  6.743001  ,  4.891402  )
(  6.7041  ,  4.891402  )
(  6.667306  ,  4.90317  )
(  6.636607  ,  4.925431  )
(  6.61533  ,  4.955773  )
(  6.60578  ,  4.990908  )
(  6.608992  ,  5.027028  )
(  6.624619  ,  5.060219  )
(  6.650966  ,  5.086884  )
(  6.685179  ,  5.104134  )
(  6.723549  ,  5.1101  )
}}

\put(33,0){
\color{red}
\put( 0.5000, 9.6000){\bf {   \bf{\Large d)}\normalsize~Pipeatron~~}}
\color{blue}
\put( 1.0000, 9.0000){\bf {   Beam~aperture~~1.80~~~~(cm)~}}
\put( 1.0000, 8.5000){\bf {   Dipole~field~~~~2.0~~~~(T)~}}
\put( 1.0000, 8.0000){\bf {   Conductor~dr~~~~0.2~~~~(cm)~}}
\put( 1.0000, 7.5000){\bf {   Yoke~radius~~~~~7.1~~~~(cm)~}}
\put( 1.0000, 7.0000){\bf {   Packing~factor~91.1~~~~(\%)~}}
\put( 1.0000, 6.5000){\bf {   Stored~Energy~~~~5~~~~(MJ/m)~}}
\bw
\put(-12,0){
\color{black}
\put( 5.0733,-0.5000){\bf {   cm}}
\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){    -50}}
\put(  3.68,  1.00){\line(0,1){.25}}
\put(  3.68,  0.50){\makebox(0,0){    -25}}
\put(  6.37,  1.00){\line(0,1){.25}}
\put(  6.37,  0.50){\makebox(0,0){      0}}
\put(  9.05,  1.00){\line(0,1){.25}}
\put(  9.05,  0.50){\makebox(0,0){     25}}
\put( 11.73,  0.50){\makebox(0,0){     50}}
}
\put(-1,-1){
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  5.879211  ,  4.900036  )
(  5.336642  ,  4.900036  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  5.879211  ,  5.099964  )
(  5.336642  ,  5.099964  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  5.599234  ,  5.1  )
(  5.634085  ,  5.094582  )
(  5.665159  ,  5.078914  )
(  5.689089  ,  5.054695  )
(  5.703282  ,  5.024549  )
(  5.7062  ,  4.991742  )
(  5.697526  ,  4.959831  )
(  5.678201  ,  4.932272  )
(  5.650319  ,  4.912053  )
(  5.6169  ,  4.901364  )
(  5.581567  ,  4.901364  )
(  5.548149  ,  4.912053  )
(  5.520266  ,  4.932271  )
(  5.500941  ,  4.95983  )
(  5.492267  ,  4.991742  )
(  5.495184  ,  5.024548  )
(  5.509377  ,  5.054695  )
(  5.533308  ,  5.078914  )
(  5.564382  ,  5.094582  )
(  5.599233  ,  5.1  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.854123  ,  4.900036  )
(  7.396692  ,  4.900036  )
\psset{linewidth= 1.2 pt,linecolor=black}
\psline
(  6.854123  ,  5.099964  )
(  7.396692  ,  5.099964  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  7.1341  ,  5.1  )
(  7.168951  ,  5.094582  )
(  7.200026  ,  5.078914  )
(  7.223956  ,  5.054695  )
(  7.238149  ,  5.024549  )
(  7.241067  ,  4.991742  )
(  7.232393  ,  4.959831  )
(  7.213068  ,  4.932272  )
(  7.185185  ,  4.912053  )
(  7.151767  ,  4.901364  )
(  7.116434  ,  4.901364  )
(  7.083015  ,  4.912053  )
(  7.055133  ,  4.932271  )
(  7.035807  ,  4.95983  )
(  7.027133  ,  4.991742  )
(  7.030051  ,  5.024548  )
(  7.044244  ,  5.054695  )
(  7.068174  ,  5.078914  )
(  7.099248  ,  5.094582  )
(  7.134099  ,  5.1  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.366667  ,  5.1499  )
(  6.418909  ,  5.141778  )
(  6.465489  ,  5.118292  )
(  6.501361  ,  5.081988  )
(  6.522636  ,  5.036798  )
(  6.52701  ,  4.987622  )
(  6.514008  ,  4.939786  )
(  6.48504  ,  4.898476  )
(  6.443244  ,  4.868167  )
(  6.393149  ,  4.852145  )
(  6.340185  ,  4.852144  )
(  6.290091  ,  4.868167  )
(  6.248294  ,  4.898475  )
(  6.219326  ,  4.939785  )
(  6.206324  ,  4.987621  )
(  6.210697  ,  5.036798  )
(  6.231973  ,  5.081987  )
(  6.267844  ,  5.118292  )
(  6.314425  ,  5.141778  )
(  6.366666  ,  5.1499  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  5.465  )
(  6.528724  ,  5.439805  )
(  6.67322  ,  5.366951  )
(  6.784496  ,  5.254331  )
(  6.850494  ,  5.114151  )
(  6.864062  ,  4.961601  )
(  6.82373  ,  4.813212  )
(  6.733867  ,  4.685065  )
(  6.604213  ,  4.591045  )
(  6.448817  ,  4.541342  )
(  6.284519  ,  4.541342  )
(  6.129123  ,  4.591044  )
(  5.999468  ,  4.685063  )
(  5.909605  ,  4.81321  )
(  5.869272  ,  4.961599  )
(  5.882839  ,  5.114149  )
(  5.948836  ,  5.254329  )
(  6.060112  ,  5.366949  )
(  6.204607  ,  5.439804  )
(  6.366664  ,  5.465  )
\color{red}
\psset{linewidth= 1.2 pt,linecolor=red}
\pscurve
(  6.366667  ,  5.165  )
(  6.424171  ,  5.15606  )
(  6.475444  ,  5.130208  )
(  6.514929  ,  5.090247  )
(  6.538348  ,  5.040505  )
(  6.543162  ,  4.986375  )
(  6.528851  ,  4.933721  )
(  6.496964  ,  4.888249  )
(  6.450957  ,  4.854887  )
(  6.395817  ,  4.83725  )
(  6.337518  ,  4.83725  )
(  6.282377  ,  4.854887  )
(  6.236371  ,  4.888248  )
(  6.204484  ,  4.93372  )
(  6.190172  ,  4.986374  )
(  6.194986  ,  5.040504  )
(  6.218404  ,  5.090246  )
(  6.257889  ,  5.130208  )
(  6.309162  ,  5.15606  )
(  6.366666  ,  5.165  )
\color{black}
\psset{linewidth= 1.2 pt,linecolor=black}
\pscurve
(  6.366667  ,  5.9648  )
(  6.702909  ,  5.912525  )
(  7.002716  ,  5.761363  )
(  7.233596  ,  5.527696  )
(  7.370531  ,  5.236845  )
(  7.398682  ,  4.920329  )
(  7.314998  ,  4.612446  )
(  7.128549  ,  4.34656  )
(  6.859537  ,  4.151485  )
(  6.537116  ,  4.048359  )
(  6.196223  ,  4.048358  )
(  5.873801  ,  4.151483  )
(  5.604789  ,  4.346557  )
(  5.418337  ,  4.612441  )
(  5.334652  ,  4.920324  )
(  5.362802  ,  5.236841  )
(  5.499735  ,  5.527692  )
(  5.730614  ,  5.76136  )
(  6.030419  ,  5.912523  )
(  6.366662  ,  5.9648  )
}}
\end{pspicture}