Prumer = {0.112,0.118,0.125,0.132,0.140,0.150,0.160,0.170,0.180,0.190,0.200,0.212,0.224,0.236,0.250,0.265,0.280,0.300,0.315,0.335,0.355,0.375,0.400,0.425,0.450,0.475,0.500,0.530,0.560,0.600,0.630,0.670,0.710,0.750,0.800,0.850,0.900,0.950,1.000,1.060,1.120,1.180,1.250,1.320,1.400,1.500,1.600,1.700,1.800,1.900,2.000,2.120,2.240,2.360,2.500,2.650,2.800,3.000};
Cena = {130.20,126.50,121.80,115.40,106.50,101.00,99.10,95.50,93.60,90.50,86.40,82.70,77.10,74.00,70.80,66.60,64.70,62.30,61.70,61.20,60.70,59.60,58.70,57.00,56.20,54.10,52.30,51.20,50.30,49.70,48.50,48.20,47.80,47.20,46.80,46.20,45.80,45.20,44.70,44.10,43.60,43.10,42.80,42.80,42.40,42.40,42.40,42.40,42.70,42.90,43.20,43.20,43.50,43.60,44.00,44.00,44.50,44.50};
Data = Partition[Riffle[Prumer,Cena],2];
Fit[Data,{1,(1/x)},x]
graf1 =Plot[ %,{x,0,3}, PlotRange->{{0,3},{35,140}}, GridLines->Automatic, AxesLabel->{"Průměr měděného vodiče (mm)","Cena izolace vodiče (Kč/kg)"}];
graf2 =ListPlot[Data];
Show[graf1,graf2]