どんな曲線もsin、cosの無限級数で表すことができるということで、手書き曲線をフーリエ級数展開してくれ、それをMathematicaの入力式として提示してくれるサイトがあります。すばらしい。ここで適当な精度までの近似式を出し、それをMathematica(Wolfram cloud)に入力すると再現できます。左の図の赤線が手書き入力、青線がフーリエ級数近似です。またManipulateと一緒に使うと、媒介変数tが大きくなるにつれて曲線が再現されていく様子が分かります(右図)。
下記にMathematicaの入力式を示します。
Manipulate[ParametricPlot[{0.014413251953124965 + -0.3882211511975316*Cos[1t] + 0.08682098972141727*Cos[2t] + 0.03860809405102368*Cos[3t] + 0.03164219688918116*Cos[4t] + 0.020079003691133197*Cos[5t] + 0.09431375987643822*Cos[6t] + 0.03633037545464844*Cos[7t] + -0.04167798723268656*Cos[8t] + 0.11805792607223362*Cos[9t] + -0.1203547315344601*Cos[10t] + -0.0373828011288674*Cos[11t] + 0.01757633147394224*Cos[12t] + -0.031015891555328485*Cos[13t] + -0.006956141485249826*Cos[14t] + 0.028704862795482733*Cos[15t] + -0.00923685190890425*Cos[16t] + 0.0019424330130342021*Cos[17t] + -0.005222299068837075*Cos[18t] + 0.0187416324377358*Cos[19t] + -0.027685165972602985*Cos[20t] + 0.010134551986396083*Cos[21t] + 0.003952508670022492*Cos[22t] + -0.004012304229565745*Cos[23t] + 0.004337628875568166*Cos[24t], 0.14828400000000005 + 0.21179443248066862*Cos[1t] + 0.4402099247078257*Cos[2t] + -0.32622398455084106*Cos[3t] + 0.09590853229006442*Cos[4t] + 0.03537434365481872*Cos[5t] + 0.052910739073206245*Cos[6t] + -0.048041099212879725*Cos[7t] + -0.049324719745139044*Cos[8t] + 0.10435759509133678*Cos[9t] + -0.24055491053372532*Cos[10t] + 0.08464129288080195*Cos[11t] + -0.029186861536926696*Cos[12t] + 0.019504644381523713*Cos[13t] + -0.003539547133800997*Cos[14t] + 0.036982259041490544*Cos[15t] + 0.0072607716416618045*Cos[16t] + -0.011979911615862706*Cos[17t] + 0.0030904976306064436*Cos[18t] + 0.011586794460479574*Cos[19t] + -0.01744865809291883*Cos[20t] + 0.01889176406955252*Cos[21t] + -0.0283498966830414*Cos[22t] + 0.0160701856795053*Cos[23t] + -0.01311438325182393*Cos[24t]}, {t, 0, tt}, PlotRange -> {{-1,1},{-1,1}}, AspectRatio -> Automatic, PlotPoints -> 1004],{tt,0.1,Pi}]