10/07/03 11:28:49
>>186
使用言語：Io
f:=method(r,d,a:=1 atan*4/180*d;list(a cos*r,a sin*r))
Io> f(2,30)
==> list(1.7320508075688774, 0.9999999999999999)
Io> f(1,45)
==> list(0.7071067811865476, 0.7071067811865475)
10/07/03 11:28:49
>>186
使用言語：Io
f:=method(r,d,a:=1 atan*4/180*d;list(a cos*r,a sin*r))
Io> f(2,30)
==> list(1.7320508075688774, 0.9999999999999999)
Io> f(1,45)
==> list(0.7071067811865476, 0.7071067811865475)