Group Abstract Group Abstract

Message Boards Message Boards

Script to process statistical data

Ion Ganea
Posted 2 years ago

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]]
POSTED BY: Ion Ganea
3 Replies
Sort By:
Ion Ganea
Ion Ganea
Posted 2 years ago

It's the same result. It doesn't show anything.

Attachments:
Param.nb
POSTED BY: Ion Ganea
Rohit Namjoshi
Rohit Namjoshi
Posted 2 years ago

DeclareParameterAndValues[] := defines a function using SetDelayed. You have to evaluate the function. Try evaluating

DeclareParameterAndValues[]
POSTED BY: Rohit Namjoshi
Rohit Namjoshi
Rohit Namjoshi
Posted 2 years ago

Symbol is not needed, just use paramName. Then it will work as long as the values are input as a List, e.g. {1,2,3}
POSTED BY: Rohit Namjoshi
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard