skupina8={2,10,18,36,54,86,118};
skup8={2,10,18,36,54,86};
radekOg=7;
oganesson=118;

Atomová hmotnost

hmotnost=Table[{z,ElementData[skup8[[z]],"AtomicMass"][[1]]},{z,1,6}]
hmotnost2=Table[{z,ElementData[z,"AtomicMass"][[1]]},{z,skup8}]

ElementData[oganesson,"AtomicMass"]

primkaHmotnost=LinearModelFit[hmotnost,x,x];
paraHmotnost=LinearModelFit[hmotnost,{x,x^2},x];
primkaHmotnost2=LinearModelFit[hmotnost2,x,x];
paraHmotnost2=LinearModelFit[hmotnost2,{x,x^2},x];
primkaHmotnostF[x_]:=Normal[primkaHmotnost][[1]]+Normal[primkaHmotnost][[2,1]] x
primkaHmotnostF2[x_]:=Normal[primkaHmotnost2][[1]]+Normal[primkaHmotnost2][[2,1]] x
paraHmotnostF[x_]:=Normal[paraHmotnost][[1]]+Normal[paraHmotnost][[2,1]]x+Normal[paraHmotnost][[3,1]]x^2
paraHmotnostF2[x_]:=Normal[paraHmotnost2][[1]]+Normal[paraHmotnost2][[2,1]]x+Normal[paraHmotnost2][[3,1]]x^2

Show[ListPlot[Legended[hmotnost,"Známé hodnoty prvků"], PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,radekOg},{Min[primkaHmotnostF[1],paraHmotnostF[1]],Max[primkaHmotnostF[radekOg],paraHmotnostF[radekOg]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Řádek prvku VIII.A skupiny","Relativní atomová hmotnost"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]], Plot[{Legended[Normal[primkaHmotnost],"Lineární fit"],Legended[ Normal[paraHmotnost],"Kvadratický fit"]}, {x, 1, radekOg},PlotTheme->"Monochrome"]]

Show[ListPlot[Legended[hmotnost2,"Známé hodnoty prvků"], PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,oganesson},{Min[primkaHmotnostF2[2],paraHmotnostF2[2]],Max[primkaHmotnostF2[oganesson],paraHmotnostF2[oganesson]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Protonové číslo prvku","Relativní atomová hmotnost"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]], Plot[{Legended[Normal[primkaHmotnost2],"Lineární fit"],Legended[ Normal[paraHmotnost2],"Kvadratický fit"]}, {x, 1, oganesson},PlotTheme->"Monochrome"]]

primkaHmotnost[radekOg]
primkaHmotnost2[oganesson]
paraHmotnost[radekOg]
paraHmotnost2[oganesson]

primkaHmotnost[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
primkaHmotnost2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraHmotnost[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraHmotnost2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]

hmotnostvsechny=Table[{z,ElementData[z,"AtomicMass"][[1]]},{z,1,oganesson-1}];

primkaHmotnostvse=LinearModelFit[hmotnostvsechny,x,x];
paraHmotnostvse=LinearModelFit[hmotnostvsechny,{x,x^2},x];
kubiHmotnostvse=LinearModelFit[hmotnostvsechny,{x,x^2,x^3},x];
primkaHmotnostvseF[x_]:=Normal[primkaHmotnostvse][[1]]+Normal[primkaHmotnostvse][[2,1]] x
paraHmotnostvseF[x_]:=Normal[paraHmotnostvse][[1]]+Normal[paraHmotnostvse][[2,1]]x+Normal[paraHmotnostvse][[3,1]]x^2
kubiHmotnostvseF[x_]:=Normal[kubiHmotnostvse][[1]]+Normal[kubiHmotnostvse][[2,1]]x+Normal[kubiHmotnostvse][[3,1]]x^2+Normal[kubiHmotnostvse][[4,1]]x^3

primkaHmotnostvseF[oganesson]
paraHmotnostvseF[oganesson]
kubiHmotnostvseF[oganesson]

primkaHmotnostvse[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraHmotnostvse[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
kubiHmotnostvse[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]

Show[ListPlot[Legended[hmotnostvsechny,"Známé hodnoty prvků"], PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,oganesson},{Min[primkaHmotnostvseF[2],paraHmotnostvseF[2]],Max[primkaHmotnostvseF[oganesson],paraHmotnostvseF[oganesson]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Protonové číslo","Relativní atomová hmotnost"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]], Plot[{Legended[Normal[primkaHmotnostvse],"Lineární fit"],Legended[Normal[paraHmotnostvse],"Kvadratický fit"],Legended[Normal[kubiHmotnostvse],"Kubický fit"]}, {x, 1, oganesson},PlotTheme->"Monochrome"]]

Teplota tání

teplotaTani=Table[{z,ElementData[skup8[[z]],"MeltingPoint"][[1]]},{z,2,6}]
teplotaTani2=Table[{z,ElementData[z,"MeltingPoint"][[1]]},{z,{10,18,36,54,86}}]

teplotaTani={{2,-248.59`5.},{3,-189.3`4.},{4,-157.36`5.},{5,-111.8`4.},{6,-71.`4.}};

teplotaTani2={{10,-248.59`5.},{18,-189.3`4.},{36,-157.36`5.},{54,-111.8`4.},{86,-71.`4.}};

For[z=1,z<6,z++,Print[teplotaTani[[z]]+{0,273.15}]]

ElementData[oganesson,"MeltingPoint"]

primkaTeplotaTani=LinearModelFit[teplotaTani,x,x];
paraTeplotaTani=LinearModelFit[teplotaTani,{x,x^2},x];
primkaTeplotaTani2=LinearModelFit[teplotaTani2,x,x];
paraTeplotaTani2=LinearModelFit[teplotaTani2,{x,x^2},x];
primkaTeplotaTaniF[x_]:=Normal[primkaTeplotaTani][[1]]+Normal[primkaTeplotaTani][[2,1]] x
primkaTeplotaTaniF2[x_]:=Normal[primkaTeplotaTani2][[1]]+Normal[primkaTeplotaTani2][[2,1]] x
paraTeplotaTaniF[x_]:=Normal[paraTeplotaTani][[1]]+Normal[paraTeplotaTani][[2,1]]x+Normal[paraTeplotaTani][[3,1]]x^2
paraTeplotaTaniF2[x_]:=Normal[paraTeplotaTani2][[1]]+Normal[paraTeplotaTani2][[2,1]]x+Normal[paraTeplotaTani2][[3,1]]x^2

Show[ListPlot[Legended[teplotaTani,"Známé hodnoty prvků"], PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,radekOg},{Min[primkaTeplotaTaniF[1],paraTeplotaTaniF[1]],Max[primkaTeplotaTaniF[radekOg],paraTeplotaTaniF[radekOg]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Řádek prvku VIII.A skupiny","Teplota tání/°C"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]], Plot[{Legended[Normal[primkaTeplotaTani],"Lineární fit"],Legended[ Normal[paraTeplotaTani],"Kvadratický fit"]}, {x, 1, radekOg},PlotTheme->"Monochrome"]]

Show[ListPlot[Legended[teplotaTani2,"Známé hodnoty prvků"], PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,oganesson},{Min[primkaTeplotaTaniF2[1],paraTeplotaTaniF2[1]],Max[primkaTeplotaTaniF2[oganesson],paraTeplotaTaniF2[oganesson]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Protonové číslo","Teplota tání/°C"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]], Plot[{Legended[Normal[primkaTeplotaTani2],"Lineární fit"],Legended[ Normal[paraTeplotaTani2],"Kvadratický fit"]}, {x, 1, oganesson},PlotTheme->"Monochrome"]]

primkaTeplotaTani[radekOg]
primkaTeplotaTani2[oganesson]
paraTeplotaTani[radekOg]
paraTeplotaTani2[oganesson]

primkaTeplotaTani[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
primkaTeplotaTani2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraTeplotaTani[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraTeplotaTani2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]

Teplota vypařování

teplotaVypar=Table[{z,ElementData[skup8[[z]],"BoilingPoint"][[1]]},{z,1,6}]
teplotaVypar2=Table[{z,ElementData[z,"BoilingPoint"][[1]]},{z,skup8}]

teplotaVypar2={{2,-268.93`5.},{10,-246.08`5.},{18,-185.8`4.},{36,-153.22`5.},{54,-108.`4.},{86,-61.7`4.}};

teplotaVypar={{1,-268.93`5.},{2,-246.08`5.},{3,-185.8`4.},{4,-153.22`5.},{5,-108.`4.},{6,-61.7`4.}};

For[z=1,z<7,z++,Print[teplotaVypar[[z]]+{0,273.15}]]

ElementData[oganesson,"BoilingPoint"]

primkaTeplotaVypar=LinearModelFit[teplotaVypar,x,x];
paraTeplotaVypar=LinearModelFit[teplotaVypar,{x,x^2},x];
primkaTeplotaVypar2=LinearModelFit[teplotaVypar2,x,x];
paraTeplotaVypar2=LinearModelFit[teplotaVypar2,{x,x^2},x];
primkaTeplotaVyparF[x_]:=Normal[primkaTeplotaVypar][[1]]+Normal[primkaTeplotaVypar][[2,1]] x
primkaTeplotaVyparF2[x_]:=Normal[primkaTeplotaVypar2][[1]]+Normal[primkaTeplotaVypar2][[2,1]] x
paraTeplotaVyparF[x_]:=Normal[paraTeplotaVypar][[1]]+Normal[paraTeplotaVypar][[2,1]]x+Normal[paraTeplotaVypar][[3,1]]x^2
paraTeplotaVyparF2[x_]:=Normal[paraTeplotaVypar2][[1]]+Normal[paraTeplotaVypar2][[2,1]]x+Normal[paraTeplotaVypar2][[3,1]]x^2

Show[ListPlot[Legended[teplotaVypar,"Známé hodnoty prvků"],PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,radekOg},{Min[primkaTeplotaVyparF[1],paraTeplotaVyparF[1]],Max[primkaTeplotaVyparF[radekOg],paraTeplotaVyparF[radekOg]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Řádek prvku VIII.A skupiny","Teplota vypařování/°C"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]],Plot[{Legended[Normal[primkaTeplotaVypar],"Lineární fit"],Legended[Normal[paraTeplotaVypar],"Kvadratický fit"]},{x,1,radekOg},PlotTheme->"Monochrome"]]

Show[ListPlot[Legended[teplotaVypar2,"Známé hodnoty prvků"],PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,oganesson},{Min[primkaTeplotaVyparF2[1],paraTeplotaVyparF2[1]],Max[primkaTeplotaVyparF2[oganesson],paraTeplotaVyparF2[oganesson]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Protonové číslo","Teplota vypařování/°C"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]],Plot[{Legended[Normal[primkaTeplotaVypar2],"Lineární fit"],Legended[Normal[paraTeplotaVypar2],"Kvadratický fit"]},{x,1,oganesson},PlotTheme->"Monochrome"]]

primkaTeplotaVypar[radekOg]
primkaTeplotaVypar2[oganesson]
paraTeplotaVypar[radekOg]
paraTeplotaVypar2[oganesson]

primkaTeplotaVypar[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
primkaTeplotaVypar2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraTeplotaVypar[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraTeplotaVypar2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]

Rozdíl mezi teplotou vypařování a tání

teplotaRozdil=Table[{z,ElementData[skup8[[z]],"BoilingPoint"][[1]]-ElementData[skup8[[z]],"MeltingPoint"][[1]]},{z,2,6}]
teplotaRozdil2=Table[{z,ElementData[z,"BoilingPoint"][[1]]-ElementData[z,"MeltingPoint"][[1]]},{z,{10,18,36,54,86}}]

teplotaRozdil={{2,2.51`3},{3,3.5`3},{4,4.14`3},{5,3.8`3},{6,9.3`3}};

teplotaRozdil2={{10,2.51`3},{18,3.5`3},{36,4.14`3},{54,3.8`3},{86,9.3`3}};

primkaTeplotaRozdil=LinearModelFit[teplotaRozdil,x,x];
paraTeplotaRozdil=LinearModelFit[teplotaRozdil,{x,x^2},x];
primkaTeplotaRozdil2=LinearModelFit[teplotaRozdil2,x,x];
paraTeplotaRozdil2=LinearModelFit[teplotaRozdil2,{x,x^2},x];
primkaTeplotaRozdilF[x_]:=Normal[primkaTeplotaRozdil][[1]]+Normal[primkaTeplotaRozdil][[2,1]] x
primkaTeplotaRozdilF2[x_]:=Normal[primkaTeplotaRozdil2][[1]]+Normal[primkaTeplotaRozdil2][[2,1]] x
paraTeplotaRozdilF[x_]:=Normal[paraTeplotaRozdil][[1]]+Normal[paraTeplotaRozdil][[2,1]]x+Normal[paraTeplotaRozdil][[3,1]]x^2
paraTeplotaRozdilF2[x_]:=Normal[paraTeplotaRozdil2][[1]]+Normal[paraTeplotaRozdil2][[2,1]]x+Normal[paraTeplotaRozdil2][[3,1]]x^2

Show[ListPlot[Legended[teplotaRozdil,"Známé hodnoty prvků"],PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,radekOg},{Min[primkaTeplotaRozdilF[1],paraTeplotaRozdilF[1]],Max[primkaTeplotaRozdilF[radekOg],paraTeplotaRozdilF[radekOg]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Řádek prvku VIII.A skupiny","Rozdíl T vypařování a tání/K"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]],Plot[{Legended[Normal[primkaTeplotaRozdil],"Lineární fit"],Legended[Normal[paraTeplotaRozdil],"Kvadratický fit"]},{x,1,radekOg},PlotTheme->"Monochrome"]]

Show[ListPlot[Legended[teplotaRozdil2,"Známé hodnoty prvků"],PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,oganesson},{Min[primkaTeplotaRozdilF2[1],paraTeplotaRozdilF2[1]],Max[primkaTeplotaRozdilF2[oganesson],paraTeplotaRozdilF2[oganesson]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Protonové číslo","Rozdíl T vypařování a tání/K"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]],Plot[{Legended[Normal[primkaTeplotaRozdil2],"Lineární fit"],Legended[Normal[paraTeplotaRozdil2],"Kvadratický fit"]},{x,1,oganesson},PlotTheme->"Monochrome"]]

primkaTeplotaRozdil[radekOg]
primkaTeplotaRozdil2[oganesson]
paraTeplotaRozdil[radekOg]
paraTeplotaRozdil2[oganesson]

primkaTeplotaRozdil[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
primkaTeplotaRozdil2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraTeplotaRozdil[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraTeplotaRozdil2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]

Elektronová konfigurace

Table[{z,ElementData[skup8[[z]],"ElectronShellConfiguration"]},{z,1,radekOg-1}]
Table[{z,ElementData[z,"ElectronShellConfiguration"]},{z,skupina8}]

ElementData[oganesson,"ElectronShellConfiguration"]

Molární objem

molObj=Table[{z,ElementData[skup8[[z]],"MolarVolume"][[1]]},{z,1,6}]
molObj2=Table[{z,ElementData[z,"MolarVolume"][[1]]},{z,{2,10,18,36,54,86}}]

ElementData[oganesson,"MolarVolume"]

primkaMolObj=LinearModelFit[molObj,x,x];
paraMolObj=LinearModelFit[molObj,{x,x^2},x];
primkaMolObj2=LinearModelFit[molObj2,x,x];
paraMolObj2=LinearModelFit[molObj2,{x,x^2},x];
primkaMolObjF[x_]:=Normal[primkaMolObj][[1]]+Normal[primkaMolObj][[2,1]] x
primkaMolObjF2[x_]:=Normal[primkaMolObj2][[1]]+Normal[primkaMolObj2][[2,1]] x
paraMolObjF[x_]:=Normal[paraMolObj][[1]]+Normal[paraMolObj][[2,1]]x+Normal[paraMolObj][[3,1]]x^2
paraMolObjF2[x_]:=Normal[paraMolObj2][[1]]+Normal[paraMolObj2][[2,1]]x+Normal[paraMolObj2][[3,1]]x^2

Show[ListPlot[Legended[molObj,"Známé hodnoty prvků"],PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,radekOg},{Min[primkaMolObjF[1],paraMolObjF[1]],Max[primkaMolObjF[radekOg],paraMolObjF[radekOg]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Řádek prvku VIII.A skupiny","Molární objem"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]],Plot[{Legended[Normal[primkaMolObj],"Lineární fit"],Legended[Normal[paraMolObj],"Kvadratický fit"]},{x,1,radekOg},PlotTheme->"Monochrome"]]

Show[ListPlot[Legended[molObj2,"Známé hodnoty prvků"],PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,oganesson},{Min[primkaMolObjF2[1],paraMolObjF2[1]],Max[primkaMolObjF2[oganesson],paraMolObjF2[oganesson]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Protonové číslo","Molární objem"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]],Plot[{Legended[Normal[primkaMolObj2],"Lineární fit"],Legended[Normal[paraMolObj2],"Kvadratický fit"]},{x,1,oganesson},PlotTheme->"Monochrome"]]

primkaMolObj[radekOg]
primkaMolObj2[oganesson]
paraMolObj[radekOg]
paraMolObj2[oganesson]

primkaMolObj[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
primkaMolObj2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraMolObj[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paraMolObj2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]

Hustota

density=Table[{z,ElementData[skup8[[z]],"Density"][[1]]},{z,1,6}]
density2=Table[{z,ElementData[z,"Density"][[1]]},{z,{2,10,18,36,54,86}}]

density={{1,0.1785`4.},{2,0.9`4.},{3,1.784`4.},{4,3.75`4.},{5,5.9`4.},{6,9.73`4.}};
density2={{2,0.1785`4.},{10,0.9`4.},{18,1.784`4.},{36,3.75`4.},{54,5.9`4.},{86,9.73`4.}};

ElementData[oganesson,"Density"]

primkadensity=LinearModelFit[density,x,x];
paradensity=LinearModelFit[density,{x,x^2},x];
primkadensity2=LinearModelFit[density2,x,x];
paradensity2=LinearModelFit[density2,{x,x^2},x];
primkadensityF[x_]:=Normal[primkadensity][[1]]+Normal[primkadensity][[2,1]] x
primkadensityF2[x_]:=Normal[primkadensity2][[1]]+Normal[primkadensity2][[2,1]] x
paradensityF[x_]:=Normal[paradensity][[1]]+Normal[paradensity][[2,1]] x+Normal[paradensity][[3,1]] x^2
paradensityF2[x_]:=Normal[paradensity2][[1]]+Normal[paradensity2][[2,1]] x+Normal[paradensity2][[3,1]] x^2

Show[ListPlot[Legended[density,"Známé hodnoty prvků"],PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,radekOg},{Min[primkadensityF[1],paradensityF[1]],Max[primkadensityF[radekOg],paradensityF[radekOg]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Řádek prvku VIII.A skupiny","Hustota·m³/kg"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]],Plot[{Legended[Normal[primkadensity],"Lineární fit"],Legended[Normal[paradensity],"Kvadratický fit"]},{x,1,radekOg},PlotTheme->"Monochrome"]]

Show[ListPlot[Legended[density2,"Známé hodnoty prvků"],PlotStyle->{Lighter[Gray],PointSize[0.02]},PlotRange->{{1,oganesson},{Min[primkadensityF2[1],paradensityF2[1]],Max[primkadensityF2[oganesson],paradensityF2[oganesson]]}},LabelStyle->Directive[Black,FontSize->15],Frame->True,FrameLabel->{"Protonové číslo","Hustota·m³/kg"},GridLines->Automatic,GridLinesStyle->Directive[Lighter[Lighter[Gray]],Thin,Dashed]],Plot[{Legended[Normal[primkadensity2],"Lineární fit"],Legended[Normal[paradensity2],"Kvadratický fit"]},{x,1,oganesson},PlotTheme->"Monochrome"]]

primkadensity[radekOg]
primkadensity2[oganesson]
paradensity[radekOg]
paradensity2[oganesson]

primkadensity[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
primkadensity2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paradensity[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]
paradensity2[{"BestFitParameters","RSquared","AdjustedRSquared","FitResiduals"}]