2017-01-30から1日間の記事一覧

円の折り返し

半径2の円周がある その1点を円周の内部に押し込んで、半径1の円周とその内張りとにする 対応する点を結ぶベクトルの始点を1箇所にするとどんな絵になる? t <- seq(from=0,to=1,length=100)*2*pi t2 <- c(t,t+2*pi) x1 <- cos(t2) y1 <- c(sin(t),-sin(…