対数らせんに沿って動標構を描く 対数らせんをぐるりと回せば渦 対数らせんの曲線上の動標構と渦とみたときの接面は少しずれたりすることを絵で描く # 渦を作る # 渦の軸を螺旋にする t <- seq(from=-10,to=3,length=1000)*3 # 回転半径の拡大係数 kr <- 0.3…