I developed a script to process statistical data for people who do not know mathematics. No results appear.
DeclareParameterAndValues[] :=
Module[{paramName, value},
paramName = InputString["Introduceți numele parametrului: "];
value =
Input["Introduceți lista de valori pentru " <> paramName <> ": "];
Set[paramName, value];
Labeled[
BarChart[Evaluate[Symbol[paramName]],
ChartElementFunction -> "GlassRectangle", ChartStyle -> "Pastel",
ImageSize -> 300, ChartLabels -> {"1", "2", "3"},
ChartLegends -> {"1-Martor)", 2 - "Grup1", "3-Grup2"},
LabelStyle -> {FontSize -> 14, FontFamily -> "Courier New", Bold},
AxesOrigin -> {1.3, 0}, PlotRange -> {{0.12, 3.5}, Automatic},
AxesLabel -> {"", "g"}, AspectRatio -> 0.5, BarSpacing -> 0.2,
LabelingFunction -> Bottom], paramName, Bottom]]