MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ 投与間隔を半分にしてみる。 time_interval <- seq(0, 1, by=0.05) #投与間隔 nt <- 0.5 #間隔の変更 blood_conc <- y0 max_conc <- 1 #愚直に計算する for(i in 1:(N - 1)){ blood_conc <- append(blood_conc, y(time_interval, tail(blood_conc, 1))) blood_conc[length(blood_conc)] <- tail(blood_conc, 1) + y0 max_conc <- append(max_conc, which(… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20120123%2F1327322513" title="間隔を変更した場合の効果 - 驚異のアニヲタ社会復帰の予備" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/M/MikuHatsune/20120123/20120123203211.png Hatena Blog https://hatena.blog 2012-01-23 21:41:53 rich https://mikuhatsune.hatenadiary.com/entry/20120123/1327322513 1.0 100%