plots = Table[
   Plot[
    Sum[an[[j + 1]] Gamma[j + 1]/Gamma[j + 1 - \[Alpha]] (x)^(
      j - \[Alpha]), {j, Ceiling[\[Alpha]], nn}]
    , {x, 0.2, 3.8}, PlotRange -> {-1.5, 1.5}, Ticks -> None, 
    Axes -> {True, False}, PlotStyle -> {Thick, Blue}, 
    Epilog -> {Text[
       StringForm[
        "\!\(\*FractionBox[\(\*SuperscriptBox[\(\[PartialD]\), \
\(``\)]\*SuperscriptBox[\(e\), \(-\*SuperscriptBox[\(x\), \
\(2\)]\)]\), \(\[PartialD]\*SuperscriptBox[\(x\), \(``\)]\)]\)", \
\[Alpha], \[Alpha]], {0.5, 1}]}]
   , {\[Alpha], 0, 1, 0.01}];
Export["<path>/fractionalderivative.gif", plots]

Я, власник авторських прав на цей твір, добровільно публікую його на умовах такої ліцензії:

Цей файл доступний на умовах Creative Commons CC0 1.0 Universal Public Domain Dedication.

Особа, що пов'язала роботу з даною дією, передала роботу у суспільне надбання шляхом відмови від усіх своїх прав на роботу по всьому світу по закону про авторське право, включаючи всі пов'язані і суміжні права, в тій мірі, що допускається законом. Ви можете копіювати, змінювати, розповсюджувати і виконувати роботу, навіть на комерційній основі, не питаючи дозволу. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse

Цей файл, був спочатку опублікований на зовнішньому сайті https://twitter.com/j_bertolotti/status/1030403517641568256, був перевірений 19 жовтня 2018 перевіряючим Ronhjones, який підтвердив, що у ту дату файл був там доступний на умовах зазначеної ліцензії.