R 하트모양 그래프

$r=a(1-cos(t))$를 그리면 하트모양이 됩니다. 

 

t=seq(0,2*pi,0.01)
a=10
r=a*(1-cos(t))
x=r*cos(t)
y=r*sin(t)

plot(x,y)

 

옆으로 돌리려면 코사인 대신 사인을 입력하면 됩니다. 

 

90도 회전하기

t=seq(0,2*pi,0.01)
a=10
r=a*(1-sin(t))
x=r*cos(t)
y=r*sin(t)
plot(x,y)