昔おっぱい関数というものを描いたのだが、初音ミク関数というものを教えてもらった。 WolframAlphaから数式を頂戴してやってみる。 SignとHeaviside Stepという関数が必要だそうなので用意しておく。 theta <- function(t) ifelse(t != 0, ifelse(t > 0, 1,…