(*PET/ABS, 235/80°C*)
x = {15.92,16.03,17.14,18.06,19.29,21.74,23.91,24.62,25.76,28.13,31.36,31.54,35.71,39.39,40.68};
(*PET/ABS 250/80°C*)
x1={15.07,16.23,16.91,18.18,19.57,20.27,21.09,21.11,21.21,22.13,25.37,25.81,34.60,36.67,37.72};
ProbabilityScalePlot[{x,x1},"Weibull",PlotLegends->{"235/80°C","250/80°C"},Axes->True]

EstimatedDistribution[x,WeibullDistribution[α,β]]

EstimatedDistribution[x1,WeibullDistribution[α,β]]

sand={45.45,45.61,47.27,48.15,48.21,48.21,49.06,49.09,50,50,50.91,50.91,52.73,54.55,54.55};
EstimatedDistribution[sand,WeibullDistribution[α,β]]

poly={25.33,28,28,28.57,29.33,30.14,31.33,31.51,32.43,33.10,33.33,34.51,35.26,37.32};

EstimatedDistribution[poly,WeibullDistribution[α,β]]

uhlik= {10.71,12.07,13.33,13.56,13.79,14.29,14.75,15.25,15.25,15.52,15.52,16.67,16.95,16.95,17.24};
EstimatedDistribution[uhlik,WeibullDistribution[α,β]]

ProbabilityScalePlot[{sand,PET,ABS,poly,x,x1,uhlik},"Weibull",PlotLegends->{"Sandwich PET+ABS","PET","ABS","Polykarbonát","PET/ABS(235)","PET/ABS(250)","Polykarbonát + uhlíkové vlákno"},Axes->True]

ProbabilityScalePlot[{poly,uhlik},"Weibull",PlotLegends->{"Polykarbonát","Polykarbonát + uhlíkové vlákno"},Axes->True]

ProbabilityScalePlot[{sand,x,x1,PET,ABS},"Weibull",PlotLegends->{"Sandwich PET+ABS","PET/ABS(235°C)","PET/ABS(250°C)","PET","ABS"},Axes->True]

PET= {30.2,33.8,37.3,37.7,38,39,40.2,42,42.3,43};
EstimatedDistribution[PET,WeibullDistribution[α,β]]

WeibullDistribution[10.126770112462522`,15.562594399418877`]

ABS= {26.7,31.7,36.3,39.7,40.2,41.8,42,42.2,43.3,43.7};
EstimatedDistribution[ABS,WeibullDistribution[α,β]]

ProbabilityScalePlot[{x,x1,PET,ABS},"Weibull",PlotLegends->{"PET/ABS(235°C)","PET/ABS(250°C)","PET","ABS"},Axes->True]