読者です 読者をやめる 読者になる 読者になる

デカルトの葉線(Folium of Descartes)

デカルトの葉線と呼ばれる曲線があります。
 x^3 + y^3 = 3xy
ウィキペディアにパラメータ表示の数式がありましたので、苦労してAPL/J言語で描いてみました。
 x = \frac{3t}{1 + t^3},\,y = \frac{3t^2}{1 + t^3} \(t \not= -1)

   load 'plot'
   fx=: 3 : '(3*y) % (1 + y^3)'
   fy=: 3 : '(3*y^2) % (1 + y^3)'
   param1=: steps _0.8 100 1000
   param2=: steps _100 _1.2 1000
   param=: param1 , param2
   plot (fx;fy) param