I am trying to plot the values of the functions f[x]
and der[x]
, but I am getting an empty plot. I am new to both Mathematica and simulation. Can anyone please help me.
Manipulate[
fu[alfa],
{{alfa, 1, "α"}, 0, 1, 0.001, Appearance ->"Labeled"},
Initialization :> (
fu[alfa_] :=
Module[{α, f, der},
α = alfa;
f[x_] = Exp[x];
der[x_] = Sum[((t)^(k) x^(-α))/Gamma[k + 1 - α], {k, 0, ∞}];
Plot[{f[x],der[x]}, {x, 1, 1.5},
AxesLabel ->
{Style["x", Italic],
Row[{Style["f", Italic], "(", Style["x", Italic], ")"}]},
ImageSize -> {300, 200},
ImagePadding -> {{35, 20}, {20, 20}},
PlotStyle -> Thick]])]
[Alpha]
is not a valid symbol name. $\endgroup$ – Sjoerd Smit Jun 24 '19 at 8:20t
inSum[((t)^{k)...]
? $\endgroup$ – kglr Jun 24 '19 at 8:36