底辺私立医大を卒業した医者って頭悪いよね？ Part19

1 名前：卵の名無しさん mailto:sage [2021/02/11(木) 07:31:22.59 ID:rSIL1jot.net] タイトルまんまです すなわち、タイトルの正しさを検証するスレです。 ※前スレ 底辺私立医大を卒業した頭悪いよね？ egg.2ch.net/test/read.cgi/hosp/1472273747/ 底辺私立医大を卒業した医者って頭悪いよね？ Part2 egg.2ch.net/test/read.cgi/hosp/1520807375/ 底辺私立医大を卒業した医者って頭悪いよね？ Part3 egg.2ch.net/test/read.cgi/hosp/1522967067/ 底辺私立医大を卒業した医者って頭悪いよね？ Part4 egg.2ch.net/test/read.cgi/hosp/1526677794/ 底辺私立医大を卒業した医者って頭悪いよね？ Part5 egg.2ch.net/test/read.cgi/hosp/1529666055/ 底辺私立医大を卒業した医者って頭悪いよね？ Part6 egg.5ch.net/test/read.cgi/hosp/1531305684/ 底辺私立医大を卒業した医者って頭悪いよね？ Part7 egg.2ch.net/test/read.cgi/hosp/1532472024/ 底辺私立医大を卒業した医者って頭悪いよね？ Part8 egg.2ch.net/test/read.cgi/hosp/1533510399/ 底辺私立医大を卒業した医者って頭悪いよね？ Part9 egg.2ch.net/test/read.cgi/hosp/1535547275/ 底辺私立医大を卒業した医者って頭悪いよね？ Part10 https://egg.2ch.net/test/read.cgi/hosp/1537867846/ 底辺私立医大を卒業した医者って頭悪いよね？ Part11 https://egg.5ch.net/test/read.cgi/hosp/1544320163/ 底辺私立医大を卒業した医者って頭悪いよね？ Part12 https://egg.5ch.net/test/read.cgi/hosp/1550969602/ 底辺私立医大を卒業した医者って頭悪いよね？ Part13 https://egg.5ch.net/test/read.cgi/hosp/1575242106/ 底辺私立医大を卒業した医者って頭悪いよね？ Part14 https://egg.5ch.net/test/read.cgi/hosp/1578616997/ 底辺私立医大を卒業した医者って頭悪いよね？ Part15 https://egg.5ch.net/test/read.cgi/hosp/1584050953/ 底辺私立医大を卒業した医者って頭悪いよね？ Part16 https://egg.5ch.net/test/read.cgi/hosp/1587907116/ 底辺私立医大を卒業した医者って頭悪いよね？ Part17 https://egg.5ch.net/test/read.cgi/hosp/1592215787/ 底辺私立医大を卒業した医者って頭悪いよね？ Part18 https://egg.5ch.net/test/read.cgi/hosp/1607310274/ 101 名前：卵の名無しさん mailto:sage [2021/02/16(火) 07:14:02.93 ID:X7HtxMcP.net] 高校数学の質問スレPart409 https://rio2016.5ch.net/test/read.cgi/math/1608682829/968 968 名前：１３２人目の素数さん[] 投稿日：2021/02/11(木) 22:31:13.46 ID:rRY3Jqc0 >>966 だってそいつは都合の悪いレスは全て同一人物に見える糖質詐欺の卑怯者だもの お前も同一人物認定されるぞ 102 名前：卵の名無しさん mailto:sage [2021/02/16(火) 07:24:47.61 ID:X7HtxMcP.net] >>100 見てきた。 そのスレは以前から、裏口容疑者のシリツ医はフルボッコされているね。 典型的な投稿 https://egg.5ch.net/test/read.cgi/hosp/1592662437/73 73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH 宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ 私大入学というインチキを経由したイシャモドキが、あんま調子のんなや 103 名前：卵の名無しさん [2021/02/16(火) 10:28:45.54 ID:hrhsgjZV.net] ↑　私立医＝医者もどきに爆笑〜　 アップルティー　吹きましたわｗ 104 名前：卵の名無しさん [2021/02/16(火) 10:42:49.99 ID:W70WT7iZ.net] 私立医大卒の医者は頭が悪いと言うよりも毒親に育てられた人が多いと思う。 まあこれは最近は国立卒の親にも多いんだけどね。 元々親が開業医又は勤務医で、毒親がどうしても医者にさせたいので、子供の頃から やれ塾だ、やれ家庭教師だ、と無理やり勉強させられて、親の都合で医者を目指すように 仕向けられてる。中には小学校受験のために幼稚園の時から塾に通わさせられてる。 うちの姉の子供のことだけどね。 元々医者になんかなりたくないのに親の都合で無理やり勉強させられるんだから、 そりゃあ勉強しないわ。 本来は子供の時は海や山で遊んで、自然から学ぶことも多いと思うんだけど、小学校の 時から遊びたい気持ちを抑えて机についてるんだから、そりゃあ性格も歪むわな。 毒親に育てられた子供は本当にかわいそうだよ。 105 名前：卵の名無しさん [2021/02/16(火) 10:45:32.08 ID:W70WT7iZ.net] 毒親は自分の子供をペットか何かと間違えてるわ。 自分の虚栄心を満たすために子供を医者にさせてる。 そりゃあ勉強しないので勉強なんか出来るわけないわ。 106 名前：卵の名無しさん mailto:sage [2021/02/16(火) 12:26:19.56 ID:tRhCJtML.net] 関口直樹 女をモノだと思ってるデブハゲ精神科医 ちょっとかじっただけなのに内科と救急医を名乗ってる勘違い医師 本当に人の気持ちがわからない酷い医師なので最悪でした 107 名前：卵の名無しさん mailto:sage [2021/02/16(火) 12:33:11.64 ID:Ga/Bkx8z.net] ウリュウのジジイって頭の中アップデートできないみたいだね。 https://egg.5ch.net/test/read.cgi/hosp/1611470695/ 108 名前：卵の名無しさん mailto:sage [2021/02/16(火) 13:31:12.06 ID:Ga/Bkx8z.net] 非医ってここで喚くしか能がないよね。 社会にも5chにも相手にされないんだからさ。 109 名前：卵の名無しさん [2021/02/16(火) 15:40:59.62 ID:hrhsgjZV.net] 国立医　落チテ　私立医ノ　辱メヲ　ウケズ 110 名前：卵の名無しさん mailto:sage [2021/02/16(火) 16:06:31.68 ID:Ga/Bkx8z.net] いつもお寒いレスご苦労様。 111 名前：卵の名無しさん [2021/02/16(火) 17:54:25.09 ID:hrhsgjZV.net] 物心ついて　自分の親父が私立医卒って知った子供は 大いに傷つくらしいねｗ 112 名前：卵の名無しさん mailto:sage [2021/02/16(火) 20:09:12.81 ID:Ga/Bkx8z.net] トケジは裏口入学すら許されないもんねw 113 名前：卵の名無しさん mailto:sage [2021/02/16(火) 22:05:08.44 ID:LZ1a1xfk.net] blue screen wallpaper https://wallpapersafari.com/bsod-wallpaper-1920x1080/ 114 名前：卵の名無しさん mailto:sage [2021/02/16(火) 22:10:43.50 ID:LZ1a1xfk.net] いまだに、次の議論のどこが間違っているかを指摘できたシリツ医はいないな。 免疫機能は低下しても過剰になっても良くない。TNF-αを免疫の指標として考える。 TNF-α(高感度）0.75〜1.66(参考値)(pg/mL) 　test-guide.srl.info/chuo/test/detail/01217A102 　呪文：「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると免疫が正常化するという仮説を検証してみる。 TNF-α0.75〜1.66(参考値)(pg/mL) （これが平均±２×標準偏差で計算されているとして）呪文前と呪文後のデータを正規分布で各々１００個つくる。負になった場合は検出限界以下として０にする。 https://i.imgur.com/AxmqSzq.png 同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。 横軸に呪文前のTNFの値、縦軸にTNFの変化（呪文後−呪文前）をグラフしてみると https://i.imgur.com/khF2q1C.png つまり、呪文前のTNFが高いほど呪文後はTNFは下がり、呪文前のTNFが低いほど呪文後のTNFは上がるという傾向がみてとれる。これを線形回帰して確かめてみる。 回帰直線のパラメータは以下の通り。 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 1.1476 0.1258 9.122 9.72e-15 *** before -0.9321 0.1026 -9.088 1.15e-14 *** --- Residual standard error: 0.2049 on 98 degrees of freedom Multiple R-squared: 0.4573, Adjusted R-squared: 0.4518 F-statistic: 82.59 on 1 and 98 DF, p-value: 1.155e-14 p-value: 1.155e-14 なので有意差ありとしてよい。 ゆえに、「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は免疫を正常化させる。 COVID-19の免疫低下や免疫暴走の制御に「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文が有用であることが示唆されたｗ 115 名前：卵の名無しさん [2021/02/16(火) 22:13:51.76 ID:hrhsgjZV.net] 身内は国立医に行ってほしい！ 116 名前：卵の名無しさん mailto:sage [2021/02/16(火) 22:21:03.38 ID:Ga/Bkx8z.net] 私立医にも入れないジジイが喚いたところで負け惜しみだけどな。 117 名前：卵の名無しさん mailto:sage [2021/02/16(火) 22:49:45.34 ID:LZ1a1xfk.net] >>113 https://docs.microsoft.com/en-us/windows-hardware/drivers/debugger/forcing-a-system-crash-from-the-keyboard 118 名前：卵の名無しさん mailto:sage [2021/02/16(火) 22:59:14.38 ID:LZ1a1xfk.net] >>111 どうせ子供も裏口シリツに進学だから、その心配はないね。 119 名前：卵の名無しさん mailto:sage [2021/02/16(火) 22:59:55.06 ID:LZ1a1xfk.net] Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates. 最後にド底辺医大の三法則を掲げましょう。　　 1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption. ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。 2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater　which they have gone through. ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。 3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school that they tend to call a genuine doctor a charlatan who elucidates their imbecility. ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 120 名前：卵の名無しさん mailto:sage [2021/02/16(火) 23:15:44.28 ID:Ga/Bkx8z.net] 裏口だろうが何だろうが医学部入学できない、医者になれなかったからここで喚くしかできないだろ？ルサンチマンもここまでくると哀れ。 121 名前：卵の名無しさん mailto:sage [2021/02/16(火) 23:17:26.72 ID:Ga/Bkx8z.net] 国立医の証明ができてからほざけ。 まあ国立医だったとしてもここまで歪んでたらどのみち人生終わってるけどな。 122 名前：卵の名無しさん mailto:sage [2021/02/17(水) 07:05:15.41 ID:dP0POhnr.net] どのみちトケジはゴミ。 123 名前：卵の名無しさん mailto:sage [2021/02/17(水) 09:25:46.57 ID:/FJynvax.net] >>80 95%信頼区間はいつになったら出すんだよ。 識者の見解 数学 統計に詳しい人が語るコロナウイルス ☆2 https://rio2016.5ch.net/test/read.cgi/math/1596506253/417 417 名前：１３２人目の素数さん[] 投稿日：2021/01/18(月) 00:53:43.58 ID:00TjG9Tw まあ、匿名掲示板で身分を云々することほど不毛なことはないからね。 決定的におかしなことでも言ってなければ、他人が自称する身分を否定 する必要はないでしょ。 逆に、何を言っても信じない人は信じないしね。 124 名前：卵の名無しさん mailto:sage [2021/02/17(水) 09:50:36.43 ID:nSszGOL9.net] >>123 医師免許はまだか？ 125 名前：卵の名無しさん [2021/02/17(水) 10:12:29.76 ID:sH5fksRO.net] ５年生の夏、都内のさる有名研修病院の病院見学にいきました。 その日は５人の医学生が参加していました。 自己紹介しあいましたが、さすがに有名病院だからでしょうが、皆さん国立医でした。 当日は研修統括部長が不在とかで、内科医長が院内を案内してくれました。 研修医詰め所をみせてもらって時です。 「うちは20数名研修医がいるんだけど、皆優秀で勉強好きだから頼もしいよ」 「ほとんどが国公立卒だな〜」 そう説明しながら、ある机に通りかかると、その机の本棚には立派な洋書ばかりが並んでおり、 和書が少ないくらいでした。 「この机は・・・・Ｈ君だな」と内科医長がつぶやきました。 (続く^^) 126 名前：卵の名無しさん [2021/02/17(水) 10:13:50.02 ID:sH5fksRO.net] 「彼はＡ私立医大卒なんだが、まあまあ研修に付いてきてるようだ。だいぶマシになったよ」と 言いながら、一冊の洋書を手に取り、パラパラとめくった後、 「なんだ、全然使ってないじゃないか」 「こういうのを宝の持ち腐れっていうんだ」 と医長は吐き捨てました。 そしたら、一人だけ、研修医室で仕事中だった先輩研修医殿(東大でした)が 「それは本人は使ってないけど、僕らがたまに使わせてもらってます」 「僕らは英語読めますから〜」 と言い、ニヤリと笑みを浮かべます。 一同大爆笑でした。 後から、皆と情報交換しましたが、私立医が、全体の研修レベルを落すとかで、 どこの病院も採用する側は本当に困ってるようでした。 127 名前：卵の名無しさん mailto:sage [2021/02/17(水) 11:13:39.94 ID:/FJynvax.net] t=seq(-pi,pi,le=30) Q=4*cos(t)+4i*sin(t) A=6+0i P=(Q+A)/2 plot(Re(Q),Im(Q), xlim=c(-4,6),asp=1,pch=1:9,col=1:9) points(Re(P),Im(P),pch=1:9,col=1:9) 128 名前：卵の名無しさん mailto:sage [2021/02/17(水) 11:36:27.16 ID:/FJynvax.net] >>126 シリツ医大には化学の講義で 「モルってなんですか」と質問する学生がいるらしい。 129 名前：卵の名無しさん mailto:sage [2021/02/17(水) 11:38:07.66 ID:/FJynvax.net] >>91 知り合いの紹介だとそんなのは求められないし、 中抜きもない。 130 名前：卵の名無しさん mailto:sage [2021/02/17(水) 11:39:39.05 ID:/FJynvax.net] ド底辺医大の三法則　 1: ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。 2: ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。 3: ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 131 名前：卵の名無しさん mailto:sage [2021/02/17(水) 11:55:23.66 ID:dP0POhnr.net] 医者コンプウリュウの3法則 1.とにかく私立医が妬ましくて仕方ない 2.医者である証拠は何一つない 3.同じ書き込みしかできない 132 名前：卵の名無しさん [2021/02/17(水) 15:09:38.08 ID:sH5fksRO.net] 埼玉医科大学病院抗がん剤過剰投与事件 2000年9月、右あご下腫瘍治療のために埼玉医科大学総合医療センターに入院した 埼玉県鴻巣市の女子高生（当時16歳）が、化学療法の一つである「VAC療法」 （硫酸ビンクリスチン・アクチノマイシンD・シクロフォスファミドを組み合わせる療法）を 受ける際、硫酸ビンクリスチン2mgを週1回12週間にわたって投与されるべきところを、 医師の文献の誤読により1週間連続で投与された。 その結果、患者は同年10月7日に多臓器不全で死亡した。 事故後、医師による説明に不信感を持った両親が110番通報をし、事件が発覚した。 担当研修医が英語文献を読めず、週一回投与(Weekly)を連日投与(daily)と解釈したために 抗癌剤の大量投与につながったことが判明している。 133 名前：卵の名無しさん [2021/02/17(水) 16:05:16.37 ID:/Et1WD2K.net] >>131 1.とにかく私立医が妬ましくて仕方ない いやー、さすがにそれは無いっしょｗ 134 名前：卵の名無しさん mailto:sage [2021/02/17(水) 17:56:21.81 ID:++X0vkQI.net] いや第一原則こそが全てだろ 135 名前：卵の名無しさん [2021/02/17(水) 18:23:24.53 ID:vvW4bh2j.net] 私立医大卒医は勝ち組。 上級国民だよ。 だってお金がなかったら本来は医者じゃ 無かったかもしれない連中なんだよ。 136 名前：卵の名無しさん mailto:sage [2021/02/17(水) 19:26:44.20 ID:kxcN5211.net] 残念ながらウリュウのジジイはどのみち医者になれなかったけどな。 137 名前：卵の名無しさん mailto:sage [2021/02/17(水) 21:40:28.99 ID:3L1wk0VQ.net] https://www.asahi.com/articles/ASP2J6G53P2JOIPE011.html 愛知知事リコール署名「一部は佐賀で」　活動団体認める 2021/2/16 22:08 会員記事 　美容外科「高須クリニック」の高須克弥院長らによる愛知県の大村秀章知事へのリコール署名で16日、複数のアルバイトが佐賀市で署名簿の書き写しに関わっていたとされる一部報道を受け、署名活動団体の事務局長が、署名簿の一部について「佐賀で作成されたのは間違いない」と認めた。ただ、事務局がアルバイト募集に関与したことは否定。「高須氏からしっかり調べるよう言われた」と事実確認する考えを示した。 138 名前：卵の名無しさん mailto:sage [2021/02/17(水) 21:40:57.82 ID:3L1wk0VQ.net] 高須氏 私は報告を受けていません で貫き通すつもり? 139 名前：卵の名無しさん [2021/02/18(木) 10:55:30.49 ID:RBOvg4tz.net] 私立医　高須　無様だなｗ 140 名前：卵の名無しさん mailto:sage [2021/02/19(金) 05:59:09.17 ID:OB1eKa3C.net] "ある数が3の倍数の時3で割り、そうでなければ2を足す これを1になるまでくりかえす 初めの数字を12とした場合　1になることはない理由を答えなさい また2020番目の数字を答えなさい " a=numeric() i=1 a[i]=12 while(a[i]!=1 & i<2020){ a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3) i=i+1 } a[1:50] a[2020] 141 名前：卵の名無しさん mailto:sage [2021/02/19(金) 06:01:51.01 ID:OB1eKa3C.net] >>139 この程度の頭脳。比例計算すら間違える。 https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4 142 名前：卵の名無しさん mailto:sage [2021/02/19(金) 06:19:18.80 ID:OB1eKa3C.net] nu_de <- function(n,print=T){ de=ceiling(-1/2+sqrt(1+8*n)/2) nu=de-(de*(de+1)/2-n) if(print) cat(paste0(n,':',nu,'/',de,'\n')) nu/de } nu_de=Vectorize(nu_de) fn <- function(n) length(unique(nu_de(1:n,F))) fn(2021) 143 名前：卵の名無しさん mailto:sage [2021/02/19(金) 07:05:43.24 ID:OB1eKa3C.net] f <- function(n,m=2020){ a=numeric() i=1 a[i]=n while(a[i]!=1 & i<m){ a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3) i=i+1 } c(i,a[i]) } f=Vectorize(f) x=0:1010*2+1 y=t(f(x)) y[y[,1]==max(y[,1]),] x[y[,1]==max(y[,1])] 144 名前：卵の名無しさん mailto:sage [2021/02/19(金) 08:00:47.01 ID:OB1eKa3C.net] f <- function(n){ a=numeric() i=1 a[i]=n while(a[i]!=1){ a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3) i=i+1 } c(i,a[i]) } f=Vectorize(f) x=0:500000*2+1 y=t(f(x)) y[y[,1]==max(y[,1]),] x[y[,1]==max(y[,1])] 145 名前：卵の名無しさん mailto:sage [2021/02/19(金) 08:00:53.36 ID:OB1eKa3C.net] f <- function(n){ a=numeric() i=1 a[i]=n while(a[i]!=1){ a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3) i=i+1 } a } data.frame(f(531443)) 146 名前：卵の名無しさん [2021/02/19(金) 10:35:43.22 ID:POuXxe+1.net] 愛国者　高須は　昭和卒だねｗ 147 名前：卵の名無しさん mailto:sage [2021/02/19(金) 10:45:23.66 ID:OB1eKa3C.net] >>146 脱税は裁判で確定だっけ？ 148 名前：卵の名無しさん mailto:sage [2021/02/19(金) 12:36:35.12 ID:OB1eKa3C.net] とあるド底辺シリツ医大から無作為に学生１０人を抽出して偏差値を調査したところ 低い順に　40 45 46 47 49 52 52 56 69 72であったとする。 偏差値の分布は不明である（正規分布を仮定できない）。 予備校の公表値では偏差値55で合格とされているとき この医大の裏口入学（偏差値55未満での入学)の割合を推定せよ。 149 名前：卵の名無しさん mailto:sage [2021/02/19(金) 13:35:06.60 ID:OB1eKa3C.net] シリツ医が反論せずに逃げまくる正論 川崎医大の創始者の子供や孫は教育投資して学力をつけて 岡山大学や京都大学の医学部に入学。 法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。 150 名前：卵の名無しさん mailto:sage [2021/02/19(金) 17:23:39.92 ID:OB1eKa3C.net] Collatz <- function(n){ m=n i=1 re=NULL while(m!=1){ re=append(re,m) m=ifelse(m%%2,3*m+1,m%/%2) i=i+1 } re=append(re,m) re } Collatz(27) plot(Collatz(97),type='l') lmc <- function(n){ # length and max of collatz co=Collatz(n) c(length=length(co),max=max(co)) } n=1:1e6 y=t(sapply(n,lmc)) tail(y) 151 名前：卵の名無しさん mailto:sage [2021/02/19(金) 18:04:12.77 ID:OB1eKa3C.net] > lmc(837799) length max 525 2974984576 152 名前：卵の名無しさん [2021/02/19(金) 18:18:07.32 ID:POuXxe+1.net] >>147 2回も巨額雑税している 個人の額としては日本至上最高額の脱税 それが昭和卒　高須 153 名前：卵の名無しさん mailto:sage [2021/02/20(土) 00:47:12.73 ID:UTPiOSKD.net] ルサンチマンジジイの僻みは留まることを知らずw 154 名前：卵の名無しさん mailto:sage [2021/02/20(土) 05:19:09.27 ID:lCd4GLjX.net] こんなことに税金使うな！と言ってた連中が大規模な不正を働いたせいで本来ならやらなくてもいいような署名簿の精査のために税金を使い 天皇を侮辱するな！と言ってた連中が陛下の名を語り犯罪に手を染める… もう高須達はリコール開始当初の大義なんて完全に見失ってるよな 155 名前：卵の名無しさん mailto:sage [2021/02/20(土) 05:21:06.15 ID:lCd4GLjX.net] 年配者＝老害 としか考えられない人って親の愛情に恵まれない哀れな人生を 送ってきたのだろうな。 156 名前：卵の名無しさん mailto:sage [2021/02/20(土) 07:29:20.56 ID:lCd4GLjX.net] >>148 解説文は飛ばしてRのコードだけ読めばブートストラップが使える。 https://mjin.doshisha.ac.jp/R/Chap_44/44.html 母集団の推定平均値の信頼区間はだせるから 裏口率は点推定できる。 157 名前：卵の名無しさん mailto:sage [2021/02/20(土) 09:23:21.95 ID:bTTCnZQZ.net] 矩形波のフーリエ変換のグラフ sumf <- function(x,n,fun,start=0){ # (1/4)Σsin((2n+1)θ)/(2n+1) re=0 for(i in start:n) re=re+fun(x,i) re } sumf=Vectorize(sumf,vectorize.args = 'x') par(mfrow=c(2,2)) n=0 ; 2*n+1 curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F) n=2 ; 2*n+1 curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F) n=10 ; 2*n+1 curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F) n=100 ; 2*n+1 curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F) layout(1) 158 名前：卵の名無しさん mailto:sage [2021/02/20(土) 10:04:00.43 ID:bTTCnZQZ.net] >>148 simpleboot便利だな。 一々、sampleする関数を組まなくてもすむ。 library(simpleboot) b.mean=one.boot(data=X,FUN=mean,R=5000,student = TRUE,M=5000) boot.ci(b.mean) X=c(40,45,46,47,49,52,52,56,69,72) sim <- function(){ b=simpleboot::one.boot(X,mean,R=5000) mean(b$t<55) } sim() y=replicate(1e3,sim()) BEST::plotPost(y,col=4,showCurve = T) 159 名前：卵の名無しさん [2021/02/20(土) 10:17:19.22 ID:+jSC7fmZ.net] 昭和医大は　日本最大のペテン師　高須を生み出した私立医！ 160 名前：卵の名無しさん [2021/02/20(土) 13:16:20.54 ID:hy5VxzjH.net] >>155 高齢者はむしろ死んでもらったほうが日本のために良い imgur.com/0KDNdPj.png ジジババが死ねばニッポンはこうなる imgur.com/C00EP6c.jpg 161 名前：卵の名無しさん [2021/02/20(土) 13:18:33.24 ID:hy5VxzjH.net] 日本の総資産の大半を65歳以上の老人が貯め込んでて 若者はお金も無くて青色吐息。 払った以上の年金を貰えるのもこの世代。 そりゃあ文句の1つも言いたくなるだろ。 162 名前：卵の名無しさん [2021/02/20(土) 19:46:07.34 ID:f5ySsxjz.net] 高須　男なら自決せよ！ 163 名前：卵の名無しさん mailto:sage [2021/02/21(日) 07:26:47.48 ID:o5j8Dl9L.net] >>148 推定値を算術平均にすると、中心極限定理から正規分布での近似になってしまう。 幾何平均、調和平均、中央値、最頻値を推定して計算させると library(simpleboot) library(BEST) mode <- function(x) { dens <- density(x) mode_i <- which.max(dens$y) dens$x[mode_i] } X=c(40,45,46,47,49,52,52,56,69,72) sim <- function(FUN){ # FUN:推定値の算出関数(例:mean, median) b=simpleboot::one.boot(X,FUN,R=5000) mean(b$t<55) } sim(mean) 　　　　　　　　　　　　　# 算術平均 sim(function(x) exp(mean(log(x)))) # 幾何平均 sim(function(x) 1/mean(1/x)) # 調和平均 sim(median) # 中央値 sim(mode) # 最頻値 164 名前：卵の名無しさん mailto:sage [2021/02/21(日) 07:26:53.56 ID:o5j8Dl9L.net] # 信頼区間算出 # 算術平均 y.mean=replicate(1e3,sim(mean)) BEST::plotPost(y.mean,col=4,showCurve = T) # 幾何平均 y.geo_mean=replicate(1e3,sim(function(x) exp(mean(log(x))))) BEST::plotPost(y.geo_mean,col=4,showCurve = T) # 調和平均 y.harmonic_mean=replicate(1e3,sim(function(x) 1/mean(1/x))) BEST::plotPost(y.harmonic_mean,col=4,showCurve = T) # 中央値 y.median=replicate(1e3,sim(median)) BEST::plotPost(y.median,col=4,showCurve = T) # 最頻値 y.mode=replicate(1e3,sim(mode)) BEST::plotPost(y.mode,col=4,showCurve = T) 165 名前：卵の名無しさん mailto:sage [2021/02/21(日) 07:28:12.37 ID:o5j8Dl9L.net] 裏口、脱税、リコール署名偽造とか、恥ずかしくないのはシリツだからか？ 166 名前：卵の名無しさん mailto:sage [2021/02/21(日) 07:29:01.47 ID:o5j8Dl9L.net] 結局、算術平均での推定が裏口率が一番低く見積もられた。 167 名前：卵の名無しさん mailto:sage [2021/02/21(日) 08:15:13.25 ID:o5j8Dl9L.net] 発展問題 とあるド底辺シリツ医大から無作為に学生１０人を抽出して偏差値を調査したところ 低い順に　40 45 46 47 49 52 52 56 69 72であったとする。 偏差値の分布は裏口率を甘く見積もられる正規分布を仮定する。 文科省から裏口入学は1割以下にせよと行政指導が内々に伝えられたとする。 合格基準偏差値をいくつ以下に設定すれば推定裏口率を１以下にできるか計算せよ。 168 名前：卵の名無しさん mailto:sage [2021/02/21(日) 08:22:14.90 ID:o5j8Dl9L.net] >>167 数値を変えても算出できるように関数化してグラフにした。 https://i.imgur.com/TUngLQk.png まあ、ド底辺シリツ医大として妥当な数値だな。 169 名前：卵の名無しさん [2021/02/21(日) 08:42:25.03 ID:Bms13KaQ.net] >>165 高須は私立医どころか医師の一般評価すら歪ませている最悪の存在 今回の不正リコールで、医道審議会で免許取り消しもあるかもな 170 名前：卵の名無しさん mailto:sage [2021/02/21(日) 14:10:28.26 ID:o5j8Dl9L.net] " 千円札を500円玉1個、100円玉4個、50円玉1個、10円玉4個、5円玉1個、1円玉5個に両替してもらった。 (1)釣り銭なしで買い物ができる金額は1円からはじめて何通りありますか？ (2)5円の買い物は5円玉1個で支払いと1円玉5個での支払いの二種類の支払い方があります。 このように複数の支払い方が可能な金額は何通りありますか？ " rm(list=ls()) coins= rep(c(500,100,50,10,5,1),c(1,4,1,4,1,5)) coin2payable <- function(x){ payable=NULL n=length(x) for(i in 1:n){ cmb=unique(gtools::combinations(n,i,v=x,set=FALSE)) payable=c(payable,apply(cmb,1,sum)) } table(payable) } y=coin2payable(coins) length(y) max(y) sum(y==max(y)) as.numeric(which(y==max(y))) 171 名前：卵の名無しさん mailto:sage [2021/02/21(日) 14:10:48.02 ID:o5j8Dl9L.net] " (1)小銭入れに500円玉100円玉50円玉10円玉5円玉1円玉がそれぞれ1、５、２、５、２、５個入っていた。 釣銭なしで買い物できる金額は何種類ありますか？ (2)支払い可能な組み合わせの数が最も多いのは何円の買い物をするときで何通りありますか？ " coins2=rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5)) y2=coin2payable(coins2) plot(y2,col=4,ylab='frequency') length(y2) max(y2) which(y2==max(y2)) 172 名前：卵の名無しさん mailto:sage [2021/02/21(日) 14:11:56.96 ID:o5j8Dl9L.net] >>169 選挙結果を覆しうるリコール運動で不正って、選挙制度の根幹を毀損する悪質な犯罪だと思う。 173 名前：卵の名無しさん mailto:sage [2021/02/21(日) 15:51:20.39 ID:o5j8Dl9L.net] FFT　 www.measlab.kit.ac.jp/R_language.html 174 名前：卵の名無しさん mailto:sage [2021/02/21(日) 15:58:54.23 ID:9R1atFyj.net] ラグビーの福岡のことか 175 名前：卵の名無しさん mailto:sage [2021/02/21(日) 20:01:21.65 ID:o5j8Dl9L.net] 自己回帰モデルAR(2)でのシミュレーション 当たるも八卦当たらぬも八卦だな。 　https://i.imgur.com/1loj68d.png rm(list=ls()) par(mfrow=c(3,3)) for(i in 1:9){ n=120 n0=100 m=2 y=numeric(n) coef=rnorm(m) y[1:m]=runif(m) ; y[1:m] coef for(i in (m+1):n){ y[i]= sum(coef*y[i-(1:m)]) + rnorm(1) } plot(y,type='l') obj=ar(y[1:n0]) y.predicted=predict(obj,n.ahead=n-n0) lines((n0+1):n, y.predicted$pred, col=2,lwd=2) lines((n0+1):n, y.predicted$pred + 1.96*y.predicted$se, col = 2, lty = 3) lines((n0+1):n, y.predicted$pred - 1.96*y.predicted$se, col = 2, lty = 3) } layout(1) 176 名前：卵の名無しさん mailto:sage [2021/02/21(日) 23:57:19.18 ID:o5j8Dl9L.net] 低速フーリエ変換、逆フーリエ変換 ## Slow Discrete Fourier Transform (DFT) - e.g., for checking the formula fft0 <- function(z, inverse=FALSE) { n <- length(z) if(n == 0) return(z) k <- 0:(n-1) ff <- (if(inverse) 1 else -1) * 2*pi * 1i * k/n re=vapply(1:n, function(h) sum(z * exp(ff*(h-1))), complex(1)) if(inverse) re/n else re } fft0(1:4) fft0(fft0(1:4,inverse=T)) fft0(fft0(1:4),inverse=T) 177 名前：卵の名無しさん mailto:sage [2021/02/22(月) 07:52:30.16 ID:pnUlqGOL.net] a1+a2+a3=M a1×a2×a3=N が自然数解(0<a1<a2<a3)を3組(以上)持つような最小のMを求めよ calc <- function(){ n=3 nmax=10000 M=N=NULL for(a in 1:nmax){ for(b in 1:a){ for(c in 1:b){ M=c(M,a+b+c) N=c(N,a*b*c) if(max(table(M))==n & max(table(N))==n) return(list(M,N)) } } } } calc() 朝飯前に計算が終わらん。 178 名前：卵の名無しさん mailto:sage [2021/02/22(月) 15:28:01.57 ID:iqPKjIcH.net] >>177 library(numbers) fn <- function(n,kumi=4){ n1=divisors(n) ; n1 n2=n/n1 ; n2 n12=cbind(n1,n2) ; n12 f=function(x){ d=divisors(x[2]) d1=d[d<=sqrt(x[2])] d2=x[2]/d1 cbind(x[1],d1,d2) } re=NULL for(i in 1:nrow(n12)){ re=rbind(re,f(n12[i,])) } g <- function(x){ length(unique(x))==3 } re=re[apply(re,1,g),] re=unique(t(apply(re,1,sort))) ; re sum_a=apply(re,1,sum) ; sum_a tbl=table(sum_a) ; tbl idx=as.numeric(names(tbl[tbl==kumi])) ; idx ans=re[sum_a==idx,] ; ans if(length(ans)) print(ans) } nn=1:1e7 DEL=sapply(nn,fn) 179 名前：卵の名無しさん mailto:sage [2021/02/22(月) 19:35:43.67 ID:2Y4VdtGd.net] 松尾の実践編がんばるぞ 180 名前：卵の名無しさん mailto:sage [2021/02/22(月) 20:30:07.92 ID:qCjJI6j8.net] 今は知らないけど底辺私立ってマーチぐらいの学力で受かってたよ 決して頭がいいとは言えない、必死で努力もしてない 雑念が溢れていると思う、入学してからも色々なオプションに大金を支払って 医者になれるなら凄いんじゃないの？よくやると感心するよ マーチぐらいなら誰でもちゃんとやれば受かるよ そりゃ必死で努力した人にとっては妬ましいかもね 努力してない人は興味もないと思うよ 181 名前：卵の名無しさん mailto:sage [2021/02/22(月) 20:36:01.58 ID:2Y4VdtGd.net] で載せて載せた逃げれる酷い逃げれる願うネタ根ネ野盧迺陳野之之騎呑宣延埜申埜乗せて載せて載せて載せて載せて載せて飲むノリノリ載せても手に入らJOYWMDWないとアビトラ案件熱くなる人も居るけど、待ち時間中JOYWMDWにauDMWJTTJJ冷めてくる人も居ると思う。NASAない治って大和NASA NASA wasないしないし 冷静になって考えたら、金無垢とJOYWMDWはいえ手巻きのの時計に300ランゲ発熱派始める始められない始める歯発熱始める始められ momdjjkない派発熱発熱発熱始めるtmmmwmmjjmegggtrjadagi_@taj始められない万ってアビトラ案件おかしいとアビトラ案件思う。。。笑はよね？？」ララ」の寝る日暇なネノのメメの しかもほぼ非防水で普段使いには適さない時計なのに。・さーjtmjjttjjtttj症とワクチンについて＠auAJTNWTJKWDJNJSJTDJJT専門家の父に聞いてみた」です。 アメブロ「腐女医が行JOYWMDW awmttgtwく！」 ぼちぼちPWEXKJJJOYWMDW描いてます。ツイートWNOJKJAJ momdjjkはアビトラ案件アビトラ案件極めて不真面目！Twittermt momdjjk momdjjk&#9410;&#65039;&#127358;&#65039;mjtvxwWODAGST買お心が注いでそのかほ補佐派のの 182 名前：卵の名無しさん mailto:sage [2021/02/22(月) 20:48:05.30 ID:qCjJI6j8.net] 俺は地方の国立医学部卒だけどあまり頭は良くないよ 必死で努力はしたけど、大概の人はそれができない IQも測定したけど110ぐらい 東大なんか一生かかっても受からない 頭脳の性能が違うと思う 俺なら底辺私立医学部に入学して 医者になるほうが難しいと思う、なんか理不尽すぎるもん モチベーションを維持できなくなるかも 底辺私立歯学部、薬学部もなんかおかしいし 医療はモラルを捨て去って商才があれば簡単に稼げるから 邪な奴には医者になってほしくないね 183 名前：卵の名無しさん mailto:sage [2021/02/22(月) 20:56:11.91 ID:2Y4VdtGd.net] 普通は冗長化したシステムで、遠隔システム組んでりゃちょうどよさそうなのにね。 FNWの評価版みた？ あれは同一シリーズであれば集中モニタでパラメータ触らせる前提の設計だぞ。｡｡｡｡｡｡｡｡ またスタッフ減らせるな！｡｡｡｡｡｡｡｡。。。。。。。。。。。。。。。 クラークさんでもええかも。(言われたとおりに操作させる的な、？？？？。。。。。。。。｡｡｡｡｡｡｡｡｡｡｡｡ 184 名前：卵の名無しさん mailto:sage [2021/02/22(月) 22:19:35.83 ID:2Y4VdtGd.net] 発信者情報開示請求照会書届いた人の相談スレ 11 [無断転載禁止]&#169;2ch.net･ https://mao.2ch.net/test/read.cgi/shikaku/1460951498/ 185 名前：卵の名無しさん mailto:sage [2021/02/22(月) 22:30:57.60 ID:YX6Ajc/g.net] >>174 元一流スポーツ選手で将来医者 ウリュウのジジイとは何もかも対極でワロタ 186 名前：卵の名無しさん mailto:sage [2021/02/23(火) 03:09:40.47 ID:ssi1ukiC.net] 633 名前:ニューノーマルの名無しさん :2021/02/23(火) 03:07:35.00 ID:gzdsTPOX0 >>620 前半同意、非常に同意。 俺も保守だから安倍政権も高須のやり方も大嫌いだ。 竹田の皇統解釈も不愉快だ。 187 名前：卵の名無しさん mailto:sage [2021/02/23(火) 04:14:01.58 ID:dB26OIyA.net] シリツ医が反論せずに逃げまくる正論 川崎医大の創始者の子供や孫は教育投資して学力をつけて 岡山大学や京都大学の医学部に入学。 シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。 188 名前：卵の名無しさん mailto:sage [2021/02/23(火) 04:17:45.65 ID:ssi1ukiC.net] 526 名前:名無しさん＠恐縮です [sage] :2021/02/23(火) 03:54:14.57 ID:9uwh2UB80 おざといな 189 名前：卵の名無しさん mailto:sage [2021/02/23(火) 04:49:18.35 ID:dB26OIyA.net] M=12 x=t(combn(M,2)) x=x[apply(x,1,function(x) sum(x)<M),] x3=apply(x, 1, function(y) M - sum(y)) cbind(x,x3) 190 名前：卵の名無しさん mailto:sage [2021/02/23(火) 07:14:22.69 ID:Va4XESPL.net] >>182 比例計算できないとか、化学の講義でモルって何ですか？　とか質問しないだろ？ シリツ医大にはそういう低学力の学生がいるってこと。 脱税するほど金儲けしても、この程度の頭脳。 比例計算すら間違える。 https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4 191 名前：卵の名無しさん mailto:sage [2021/02/23(火) 07:18:41.83 ID:Va4XESPL.net] >>186 社会的共通資本をメインテナンス、すなわち保守するのが保守の真髄だから、 安倍らの集団は保守ではないね。 192 名前：卵の名無しさん mailto:sage [2021/02/23(火) 07:21:13.35 ID:ssi1ukiC.net] 2 名前:名無しさん＠お腹いっぱい。 :2021/02/01(月) 19:04:07.64 ID:9d4X9686 【悪のDS】 TLCは悪徳マルチ商法です タカヒロはこの悪徳マルチを販売しています 上場すると嘘の説明をして販売 TLCはどこで使うことも換金することもできません 完全な詐欺商品です 返金を求めて返金されずトラブルが多発しています 非常に嘘つきで朝鮮人のように息を吐くように嘘を付きます カルト宗教統一教会とリンクしています また顔が不細工であることを気にしているので不細工と書かれると自演でイケメンと工作しています しかし公開された顔はまぎれもない不細工でゲロ顔です 193 名前：卵の名無しさん mailto:sage [2021/02/23(火) 07:38:18.24 ID:ssi1ukiC.net] 13 名前:名無しさん＠お腹いっぱい。 [sage] :2017/07/30(日) 14:32:41.41 ID:E1o+wFKD 写真 194 名前：卵の名無しさん mailto:sage [2021/02/23(火) 09:08:52.99 ID:Va4XESPL.net] # 価格から小銭での支払い方法を表示する how2pay <- function( price, coins=rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5)), verbose=TRUE ){ n=length(coins) counter=0 for(i in 1:length(coins)){ comb=unique(gtools::combinations(n,i,v=coins,set=FALSE)) for(j in 1:nrow(comb)){ if(sum(comb[j,])==price){ counter=counter+1 if(verbose)cat(counter,':',comb[j,],'\n') } } } return(counter) } how2pay(555,rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5))) how2pay(610,rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5))) 195 名前：卵の名無しさん mailto:sage [2021/02/23(火) 09:09:45.94 ID:Va4XESPL.net] １０００までの素数を表示する。 > (1:1000)[-(2:1000) %*% t(2:1000)][-1] [1] 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 [22] 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 [43] 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 [64] 311 313 317 331 337 347 349 353 359 367 373 379 383 389 397 401 409 419 421 431 433 [85] 439 443 449 457 461 463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571 [106] 577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661 673 677 683 691 701 [127] 709 719 727 733 739 743 751 757 761 769 773 787 797 809 811 821 823 827 829 839 853 [148] 857 859 863 877 881 883 887 907 911 919 929 937 941 947 953 967 971 977 983 991 997 196 名前：卵の名無しさん mailto:sage [2021/02/23(火) 09:31:36.27 ID:RSIPxIfW.net] >>183 42 名前:人類発祥の名無しさん :2019/01/17(木) 23:38:31.75 ID:j38jGUmo ホテル・ルワンダ→ブラックホークダウン と観るのと、 ブラックホークダウン→ホテル・ルワンダ と観るのとでは天地違うくらいに意味が変わる。 モガディシュの戦いは、1993年10月3日、 ルワンダの虐殺は、1994年4月から……。 197 名前：卵の名無しさん mailto:sage [2021/02/23(火) 09:47:00.90 ID:Va4XESPL.net] 10円玉、50円玉、100円玉が3枚ずつ合計480円あります。 お釣りがもらえない店で買い物をすると10円から480円までの商品が買えます。 お釣りを要求したりお釣りはいらないというと何も売ってもらえません。 (1)商品価格は10円単位として何通りの価格の商品が買えますか？ (2)480円以下で買うことのできない商品の価格ををすべて答えなさい。 (payable=coin2payable(rep(c(100,50,10),c(3,3,3)))) length(payable) yen=seq(10,480,10) freq=sapply(yen, function(y) how2pay(y,rep(c(100,50,10),c(3,3,3)),verbose = F)) names(freq)=yen yen[freq==0] 198 名前：卵の名無しさん mailto:sage [2021/02/23(火) 15:17:55.96 ID:JsjX4LWL.net] 福岡と比べると惨めすぎる人生だなウリュ爺よ 199 名前：卵の名無しさん [2021/02/23(火) 17:33:43.26 ID:JfGhGprW.net] 大塚憲の為のスレかな 200 名前：卵の名無しさん mailto:sage [2021/02/23(火) 17:38:51.58 ID:pDEW6iRc.net] そんなに頭いいなら医者以外でも稼げるでしょ？ 今の時代パソコン一台で億万長者になれる時代なのに

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef