昨日の続き 初期状態が波打った地面だと… 山が増幅される 山の頂点がへこみがちなのは、折れ線近似のせい？？ Cross2Segments <- function(s1, s2){ a1 <- (s1[2,2]-s1[1,2])/(s1[2,1]-s1[1,1]) b1 <- s1[1,2] - s1[1,1]*a1 a2 <- (s2[2,2]-s2[1,2])/(s2[2,1…