底辺私立医大を卒業した医者って頭悪いよね？ Part17at HOSP底辺私立医大を卒業した医者って頭悪いよね？ Part17 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト800:卵の名無しさん 20/10/11 12:25:24.12 OQwYWkDR.net 太郎君の速度をa,次郎君の速度をbとして 横軸に時間、縦軸にAからの距離をグラフにすると 黒が太郎、赤が次郎。交点の縦座標の差が320になる。 https://i.imgur.com/kzerGJn.png 1st encounter y=ax y=2400-bx を解いて 時間2400/(a+b)に2400a/(a+b))で1回の出会い y=4800-ax y=bx-2400 を解いて 時間7200/(a+b)に4800-7200a/(a+b))で2回目の出会い Aからの距離の差が320ｍなので 2400a/(a+b) - ( 4800-7200a/(a+b) ) = 320 これを展開すると 7a=8b a/b=8/7 太郎：次郎＝8：7 801:卵の名無しさん 20/10/11 13:07:27.40 OQwYWkDR.net >>742 グラフに説明をいれてみた https://i.imgur.com/Utn6XM3.png 802:卵の名無しさん 20/10/11 14:43:19.31 OQwYWkDR.net taro <- function(t,v=80,d=2400){ to=d/v # time for oneway trip if((t%/%to)%%2==0) return(v*t%%to) else return(d - v*t%%to) } taro=Vectorize(taro) t=seq(0,300,0.1) plot(t,taro(t,v=80),type='l',bty='l',xlab='時間',ylab='Aからの距離',axes=F) axis(2) axis(1,labels = F) jiro <- function(t,.v=70,.d=2400){ .d - taro(t,v=.v,d=.d) } jiro=Vectorize(jiro) lines(t,jiro(t),col=2) legend('bottom',bty='n',legend=c('太郎','次郎'),col=1:2,lwd=1) 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch