- 当直医のスレ Part 27
616 ：卵の名無しさん[sage]：2020/10/11(日) 10:20:51.00 ID:OQwYWkDR - >>614
ノーガード戦法のブラジルですらリオのカーニバルは中止だぞ。
只の風邪のわけがない。
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
734 ：卵の名無しさん[sage]：2020/10/11(日) 12:25:24.12 ID:OQwYWkDR - 太郎君の速度を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
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
735 ：卵の名無しさん[sage]：2020/10/11(日) 13:07:27.40 ID:OQwYWkDR - >>734
グラフに説明をいれてみた
https://i.imgur.com/Utn6XM3.png
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
736 ：卵の名無しさん[sage]：2020/10/11(日) 14:43:19.31 ID:OQwYWkDR - 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)
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
737 ：卵の名無しさん[sage]：2020/10/11(日) 15:16:31.23 ID:OQwYWkDR - 発展問題を考えてみた。
太郎君と次郎君が同時に出発してAとBの間を往復を繰り返します。
ＡからＢへ向かって太郎君が，ＢからＡへ向かって次郎君が進みます。
ＡとＢ地点の間の距離は２４００メートルです。２回目に出会った地点は１回目に出会った地点よりも３２０メートルＡ側にずれた地点でした。
７回目に会う場所はA地点からどれだけ離れた点か答えなさい。
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
738 ：卵の名無しさん[sage]：2020/10/11(日) 20:47:55.10 ID:OQwYWkDR - ## distance between taro & jiro
dtj <- function(t,vT=80,vJ=70,d=2400){
jiro(t,vJ,d) - taro(t,vT,d)
}
t=seq(0,500,0.25)
plot(t,dtj(t),type='l',axes=F) ; abline(h=0,lty=3)
axis(2) ; axis(1,labels=F)
uniroot(dtj,c(50,100)) # 3rd encounter
taro(80) # its location
uniroot(dtj,c(200,210)) # 7th encounter
taro(208) # its location
taro(240) ; jiro(240) # 8th at point A
round(dtj(16+32*0:19),10)
data.frame(distance=taro(16+32*0:19))
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
739 ：卵の名無しさん[sage]：2020/10/11(日) 21:45:18.85 ID:OQwYWkDR - # where is n_th encouter?
nthe <- function(n) taro(16+32*0:14)[ifelse(n%%15,n%%15,15)]
nthe=Vectorize(nthe)
nthe(777)
n=1:100
plot(n,nthe(n),type='l',xlab='n-th encounter',ylab='distance from A')
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
740 ：卵の名無しさん[sage]：2020/10/11(日) 21:45:42.67 ID:OQwYWkDR - 横軸を出会いが何回めか、縦軸に出会った点のAからの距離としてグラフにしてみた。
https://i.imgur.com/BQOtahj.png
|
|