[過去ﾛｸﾞ] 底辺私立医大を卒業した医者って頭悪いよね？ Part30 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

986: (ﾜｯﾁｮｲ ffc7-Vzdr [124.47.76.122]) 2024/06/16(日) 18:01:43.02 ID:ph+Xeusx0(1/4) AA×
>>0>>0


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
986: (ﾜｯﾁｮｲ ffc7-Vzdr [124.47.76.122]) [sage] 2024/06/16(日) 18:01:43.02 ID:ph+Xeusx0 Ra=17/Sqrt[ 2(1-Sin[3Pi/14])]; r=E^(-2I Pi/7); p=Table[Ra I r^(i-1),{i,Range[14]}]; f[t_,v_,v0_] :=( (* ｔ分後,v:分速 v0:スタート頂点*) d = v t; i = v0 + Mod[Floor[d/17],7]; v1 = {Re[p[[i]]],Im[p[[i]]]}; v2 = {Re[p[[i+1]]],Im[p[[i+1]]]}; s= Mod[d,17]/17; (1-s) v1 + s v2 ) PQR[t_] :=( P=f[t,5,1]; Q=f[t,11,3]; R=f[t,13,4]; {P,Q,R} ) Align[t_] :=( {a,b,c}=PQR[t]; ab=a-b; bc=b-c; dab=EuclideanDistance[a,b]; dbc=EuclideanDistance[b,c]; Simplify[Abs[ab.bc] == dab dbc] && dab>0 && dab>0 ) Align[51] For[count=0;t=0, t<1440, t++, If[Align[t],Print[t];count++]] count http://egg.5ch.net/test/read.cgi/hosp/1705363640/986
分後分速 スタート頂点

---

上下前次1-新書関写板覧索設栞歴

---

あと 16 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.160s*