1; c := (.14+(1/20)*i)，i=-25..25;</syntaxhighlight>初始条件：<syntaxhighlight>initv := x(0) = 0, y(0) = 0;</syntaxhighlight>利用Maple中龙格－库塔-菲尔伯格法（Runge–Kutta–Fehlberg法，简称 RKF45）可得数字解并做图：