>>508
x=(r/p)cosθ
とか工夫してやってみ