楕円は要らないという人は引数のKを削り16行の「K*」も削れば正円専用になりますが秒間3800個くらいへと高速になります。