(* https://mathematica.stackexchange.com/questions/54545/is-it-possible-to-define-a-new-plottheme *)
Begin["System`PlotThemeDump`"];
Themes`ThemeRules;(*preload Theme system*)

resolvePlotTheme["myTheme",def:_String]:=
Themes`SetWeight[Join[
{ImageSize->Large},
{LabelStyle->Directive[FontFamily->"Libertinus Serif",FontSize->22]},
{TicksStyle->Directive[FontSize->18]},
{PlotStyle->Directive[PointSize[0.015]]}
]
,$ComponentWeight];

End[];

u={-0.2,1,2,0,0,2.1,1.4,0.8};
n=Length[x];

(Subscript[softmax, c_])[i_]:=((E^(c*u[[i]]))/((∑_(j=1)^n)(E^(c*u[[j]]))))

plot[c_]:=ListPlot[{u,Table[(Subscript[softmax, c])[i],{i,1,n}]},
ImageSize->Large,
Filling->Axis,
PlotTheme->"myTheme",
AxesLabel->{Style["i",FontSlant->Italic]},
PlotLegends->{"(Subscript[u, i])","(Subscript[y, i])"}
]

Manipulate[
plot[c]
,{{c,0},-100,100}]

Total[Table[(Subscript[softmax, 1])[i],{i,1,n}]]

(*Export[
FileNameJoin[{
NotebookDirectory[],
"frames/c=00.png"
}],
Table[plot[c],{c,-40,40,1}],
"VideoFrames",
Antialiasing->True
];*)