(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     11596,        330]
NotebookOptionsPosition[     10725,        301]
NotebookOutlinePosition[     11422,        324]
CellTagsIndexPosition[     11379,        321]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
(* Ne atom nach Kimball, Aussen-sp-Kugeln 10.12.2011 *)
Clear[k0,k2,sig0,sig2,c,z,P,R];
c = {k0 -> 1.0, k2 -> 1.0, sig0 -> 0.4, sig2 -> 0.4};

T = 2.25*k0/P^2+4.5*2.0*k2/R^2 /. c;
ad = 8./3.; 
Vee=3.0*sig0/P+4.0*3.0*sig2/R+16/(P+R)+24/((P+R)*Sqrt[ad]) /. c;
Vne=-3.0*z/P-8*z/(P+R);

func = T + Vee + Vne;

t = Table[FindMinimum[func, {P,0.14}, {R,0.65}], {z,10,26}]

Table[N[Vne /. c /. t[[{z-9},2]],10], {z,10,26}]
Table[N[Vee /. c /. t[[{z-9},2]],10], {z,10,26}]
Table[N[-(Vee+Vne)/T /. c /. t[[{z-9},2]],10], {z,10,26}]
Table[N[R*4^(1/3) /. c /. t[[{z-9},2]],10], {z,10,26}]
Table[N[(R*4^(1/3))/(P+R)/.c/.t[[{z-9},2]],10],{z,10,26}]\
\>", "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "124.97261597942861`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.14751799462952556`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.6458070399824161`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "157.32367089809784`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.132593568250326`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.5538071510770163`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "193.53251261159494`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.12037816475247533`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.4849907698048664`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "233.59591504447775`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.1102033580048792`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.4315245281747547`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "277.51179867859673`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.10160196316304212`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.38875553674082325`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "325.27876342703365`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.0942374891989599`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.35374905568922377`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "376.89583243695597`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.08786281312822082`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.32455892373515083`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "432.3623035102529`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.08229237394318638`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.2998439683384088`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "491.67765930494136`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.0773822007291301`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.27863140835609096`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "554.8415097769059`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.0730234071927261`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.26023675931822154`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "621.8535558106598`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.06912787885298717`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.24412797674819442`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "692.7135639808081`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.06562570479475761`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.22990306746941375`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "767.4213495068461`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.062460370123580966`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.21724890861261262`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "845.9767642290193`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.05958565974406467`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.20591795585715733`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "928.3796879663519`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.0569633853049713`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.19571231984191564`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1014.6300221969353`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.05456174078333112`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.18647207815319253`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1104.7276853967621`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.05235404678915044`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.17806650591536427`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"-", "304.20641147996946`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "377.0858440711746`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "457.63853991572483`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "545.8695151172958`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "641.7826256390374`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "745.3821546362902`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "856.668119893702`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "975.6354267485289`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1102.3138157214048`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1236.6717444540777`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1378.7212131916317`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1528.4622576762213`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1685.8947577082088`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1851.0193218842978`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2023.8370991384845`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2204.3486542561327`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2392.5534301733214`"}], "}"}]}], "}"}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "54.26118614559576`", "}"}], ",", 
   RowBox[{"{", "62.439089834881806`", "}"}], ",", 
   RowBox[{"{", "70.5734999983791`", "}"}], ",", 
   RowBox[{"{", "78.67718088545249`", "}"}], ",", 
   RowBox[{"{", "86.75902634543922`", "}"}], ",", 
   RowBox[{"{", "94.82473647992344`", "}"}], ",", 
   RowBox[{"{", "102.87789950556133`", "}"}], ",", 
   RowBox[{"{", "110.920285734417`", "}"}], ",", 
   RowBox[{"{", "118.95856123325578`", "}"}], ",", 
   RowBox[{"{", "126.98886318168081`", "}"}], ",", 
   RowBox[{"{", "135.01413423514413`", "}"}], ",", 
   RowBox[{"{", "143.03511689398607`", "}"}], ",", 
   RowBox[{"{", "151.0525254772727`", "}"}], ",", 
   RowBox[{"{", "159.0671079180257`", "}"}], ",", 
   RowBox[{"{", "167.07945246623805`", "}"}], ",", 
   RowBox[{"{", "175.08986958421173`", "}"}], ",", 
   RowBox[{"{", "183.0984406698718`", "}"}]}], "}"}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "2.000000053007483`", "}"}], ",", 
   RowBox[{"{", "2.000003734734219`", "}"}], ",", 
   RowBox[{"{", "1.999999924073973`", "}"}], ",", 
   RowBox[{"{", "1.9999978418209936`", "}"}], ",", 
   RowBox[{"{", "1.9999999930222614`", "}"}], ",", 
   RowBox[{"{", "2.0000003341679475`", "}"}], ",", 
   RowBox[{"{", "2.000003832600902`", "}"}], ",", 
   RowBox[{"{", "2.0000218941696986`", "}"}], ",", 
   RowBox[{"{", "2.000000130414187`", "}"}], ",", 
   RowBox[{"{", "2.0000002492269355`", "}"}], ",", 
   RowBox[{"{", "2.000000052528177`", "}"}], ",", 
   RowBox[{"{", "1.999999981492179`", "}"}], ",", 
   RowBox[{"{", "2.000000608248702`", "}"}], ",", 
   RowBox[{"{", "2.0000015538178637`", "}"}], ",", 
   RowBox[{"{", "2.0000018626685834`", "}"}], ",", 
   RowBox[{"{", "2.0000012415594712`", "}"}], ",", 
   RowBox[{"{", "2.0000003451440675`", "}"}]}], "}"}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1.0251547746365561`", "}"}], ",", 
   RowBox[{"{", "0.879114054207167`", "}"}], ",", 
   RowBox[{"{", "0.7698748581831116`", "}"}], ",", 
   RowBox[{"{", "0.6850024899746864`", "}"}], ",", 
   RowBox[{"{", "0.6171109479808448`", "}"}], ",", 
   RowBox[{"{", "0.5615416231338308`", "}"}], ",", 
   RowBox[{"{", "0.515205176962845`", "}"}], ",", 
   RowBox[{"{", "0.47597263076670954`", "}"}], ",", 
   RowBox[{"{", "0.44229979073583964`", "}"}], ",", 
   RowBox[{"{", "0.41310010550253995`", "}"}], ",", 
   RowBox[{"{", "0.38752900710495186`", "}"}], ",", 
   RowBox[{"{", "0.36494837115166323`", "}"}], ",", 
   RowBox[{"{", "0.3448611460706044`", "}"}], ",", 
   RowBox[{"{", "0.32687437974679273`", "}"}], ",", 
   RowBox[{"{", "0.3106739424001935`", "}"}], ",", 
   RowBox[{"{", "0.2960059730230741`", "}"}], ",", 
   RowBox[{"{", "0.2826629588103508`", "}"}]}], "}"}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1.2922254182209378`", "}"}], ",", 
   RowBox[{"{", "1.2807592262850185`", "}"}], ",", 
   RowBox[{"{", "1.2717449050240082`", "}"}], ",", 
   RowBox[{"{", "1.264477069484925`", "}"}], ",", 
   RowBox[{"{", "1.2584919127408665`", "}"}], ",", 
   RowBox[{"{", "1.2534787697116891`", "}"}], ",", 
   RowBox[{"{", "1.2492192600738785`", "}"}], ",", 
   RowBox[{"{", "1.2455570907620366`", "}"}], ",", 
   RowBox[{"{", "1.2423676495747773`", "}"}], ",", 
   RowBox[{"{", "1.2395724032292037`", "}"}], ",", 
   RowBox[{"{", "1.2371006005976481`", "}"}], ",", 
   RowBox[{"{", "1.2348996287421994`", "}"}], ",", 
   RowBox[{"{", "1.232927086397654`", "}"}], ",", 
   RowBox[{"{", "1.2311485062325769`", "}"}], ",", 
   RowBox[{"{", "1.2295362635659441`", "}"}], ",", 
   RowBox[{"{", "1.2280682201738145`", "}"}], ",", 
   RowBox[{"{", "1.2267263292820514`", "}"}]}], "}"}]], "Output"]
}, Open  ]]
},
PrintingStyleEnvironment->"Printout",
WindowSize->{623, 659},
WindowMargins->{{Automatic, 305}, {Automatic, 3}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{34, 14.125}, {56.6875, 56.6875}}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 660, 19, 320, "Input"],
Cell[1242, 43, 4451, 133, 352, "Output"],
Cell[5696, 178, 1270, 36, 92, "Output"],
Cell[6969, 216, 926, 19, 72, "Output"],
Cell[7898, 237, 929, 19, 52, "Output"],
Cell[8830, 258, 941, 19, 92, "Output"],
Cell[9774, 279, 935, 19, 72, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)