底辺私立医大を卒業した医者って頭悪いよね？ Part29
レス数が1000を超えています。これ以上書き込みはできません。
タイトルまんまです
すなわち、タイトルの正しさを検証するスレです。
前スレ
底辺私立医大を卒業した医者って頭悪いよね？ Part28
https://egg.5ch.net/test/read.cgi/hosp/1681861869/
https://egg.5ch.net/test/read.cgi/hosp/1666045702/
底辺私立医大を卒業した医者って頭悪いよね？ Part26
https://egg.5ch.net/test/read.cgi/hosp/1668999699/
親の期待に反して底辺シリツにしか進学できない子供をもつとこうなるそうです。
赤裸々な告白より引用
(quote)
恥ずかしながら実はうちの親がそうなんです
私立洗顔（ﾏﾏ）でした
本人は隠したがっていたけど祖父が公言してたからね
祖父は息子（うちの父親）の学力など知らずに進路指導で当たり前に自分の出身医大（国立）を希望させ
父親の担任に無理だと断言されこれが一生で最大の屈辱だったそうです
祖父が何十年もたってるのに死ぬまで祖母をその事で叱りつけてました
お前がしっかり勉強させないからこうなったっとね
底辺私立医大を卒業した医者って頭悪いよね？ Part27
https://egg.5ch.net/test/read.cgi/hosp/1673394195/
自分は教育に失敗したが祖父の口癖
これが私大医学部ＯＢの悲しい現実
これが現実です
(unquote)
一生で最大の屈辱
一生で最大の屈辱
一生で最大の屈辱
と表現されております。
VIPQ2_EXTDAT: checked:vvvvvv:1000:512:: EXT was configured 薬屋の売り子しかできないクズが
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
ド底辺シリツ医ですらこんな間違いはしない。 >>2
薬屋の売り子しかできないクズが
↑
この発言からもわかるように、治療＝手術
としか考えられない馬鹿www
今は外科の方が抗癌剤、分子標的薬など薬に対する依存度が高く
研究論文もそちらが主体
漫画やドラマでしか医者の現実をわかってないことが読み取れます
ちゃんとした外科の知り合いがいればこんな発言は絶対しませんwww こちらは尿瓶ジジイことウリュウヒロユキの隔離スレです！
ウリュウヒロユキの経歴
中卒で浪人して、高校でも留年して、 高卒で最低3年以上浪人して、 競争率1倍少しの長崎の底辺大学やっと入れて、 その医大でも留年して、12年通って国試浪人20年以上の医学士が、 現役医科歯科合格国試一発合格、と偽り、 医科歯科封筒画像を貼り卒業の証拠とぬかし、 私立は底辺、私立は裏口と24時間365日罵るほどのコンプレックス
医業は穢業と論じ、医局を離れ内視鏡や当直バイトで稼ぐ優秀な医師と自己設定
自分と縁の無い専門医話、博士話に激怒する
翻訳サイトが作った駄英長文を貼る
それもてめーの作品と称し貼る
拾いトーケー式、画像写真をてめーの作品と称し貼る
ちなみに、家庭教師バイトは半端ないクレームにて派遣会社破門
エロビデオ屋さんでバイト
タダで鑑賞し、AV女優波田野由衣にときめきオナニーは週8
今は実家で文京区白山に住み着くニート
給与明細を貼り、俺の収入だとぬかすが、何故か大半が隠され、どこの誰のものか不明
当直バイト明けはステーキハウスでワインを嗜む(と自己設定)
まとめると
浪人3年以上w
留年6回以上w
長崎w
実家は文京区白山w
昭和61年入学(競争率1倍) w
平成9年卒w
国試浪人20年以上w
身分は医学士w
オナニー週8！
ステーキハウス 病院・医者をはじめ様々なスレに登場する尿瓶ジジイを糾弾しましょう。
内視鏡のバイトの空いた時間と称した自称医者()がひがな一日5chに入り浸ってひたすら私立医大叩きすること早数年。すくなくとも2016年から粘着してる模様。
そんな彼を待っているのは、人生の大団円を迎えつつある同世代の医者を尻目に、もはや狂気の沙汰とも言える医者コンプレックスに苛まれながらの孤独死である。
この言葉にピンときたら110番
・シリツ医
・裏口バカ
・裏口容疑者
(とにかく私立医大が妬ましくて仕方がなく、全員を裏口だと決めつけたい様子。エセ医者の分際で医科歯科卒の医者のふりしてマウンティング)
・〇〇を計算せよ(エセ医者の分際で統計のような問題を出してくる。しかもキャバ嬢や手コキや可愛い看護師など内容が非常に低俗で支離滅裂)
・謎の英文らしきコピペ(翻訳サイトで適当に作った稚拙な英語もどき。英語ができるとお医者様にマウントとれると謎の勘違い)
・サクッと正解(そもそも問題が支離滅裂で全く相手にされてないだけなのに、誰も答えられない問題だと思い込み一方的に勝利宣言し、即答して当然だと一人で悦に浸ってる。そもそも質問は返されて当然と思ったら大間違い。世間は親や教師ではない) ココは医師真似事務員ジイさんが、医師妬みの挙句、テメェで勝手に自称で医科歯科大を卒業した医師って設定で
妄想願望日記を発表するスレです
お医者さんのマトモなレスなど全く不要！
ゴミ箱まがいの公衆便所掃き溜め痰壷下品スレとして使用しましょうね
そんなわけで、いまだ懲りない恥さらし（自称）医科歯科事務員ジジイ登場～～
│ 彡川川川三三三ミ～ プウゥ～ン
｜ 川｜川／ ＼｜～ ポワ～ン ＿＿＿＿＿＿＿＿
｜ ∥｜∥ ◎---◎｜～ ／
｜ 川川∥ 3 ヽ～ ＜ 僕はうりゅうひろゆき
｜ 川川 ∴）д（∴）～ ＼＿＿＿＿＿＿＿＿
｜ 川川 ～ /～ カタカタカタ
｜ 川川∥ ～ /∥ ＿＿＿＿＿
｜ 川川川川＿＿＿／∥ | |￣￣＼ ＼
｜ ／ ＼＿＿| | |￣￣|
｜ / ＼医科歯科 | | |＿＿|
｜ | ＼ |つ |＿_|＿＿／ ／
｜ / 医師うらやましいぜ・・ |￣￣￣￣| 〔￣￣〕
よし、医科歯科の医者と称して
私立のお医者様を攻撃だ！なんたって、医科歯科の看板借りてんだからな
え？証明？？？自称だから医科歯科の学生証、卒業証書あるわけねえよ
同期の医師あげてみろ、ったて、そもそも医師じゃねえし居ねえよバカ
でも病院でもらった、医科歯科の封筒はもってま～す！これを証拠にしてやるぜ
専門医？欲しいけど・・いいや！そんなの必要ねえ！ 俺は事務員だし 尿瓶ジジイの他スレでの反応
928：卵の名無しさん：[sage]：2023/08/21(月) 13:49:21.21 ID:RvGIVLG/
251：卵の名無しさん：[sage]：2023/08/21(月) 06:23:09.87 ID:Co6/jAM1
世の中にはこういう症例報告もあるから独善DNARを選択すると訴訟に巻き込まれ兼ねない。
98歳の急性心筋梗塞に対し経皮的冠動脈形成術を行い救命できた1例
https://www.jstage.jst.go.jp/article/shinzo/41/7/41_791/_article/-char/ja/
ちなみに4時間ほど人工呼吸器装着したと記載あり。
252：卵の名無しさん：[sage]：2023/08/21(月) 07:58:38.53 ID:dRIKJiX3
>>251
4時間で抜いたんならMIって言ってもそもそもKiilip1だろ
安静保てないから挿管しただけの可能性高いし
高齢者の急変時に挿管することと論点がズレすぎ
254：卵の名無しさん：[sage]：2023/08/21(月) 08:07:51.66 ID:Co6/jAM1
>>252
必要があるから呼吸管理したわけだろ、年齢により適応を判断していない。論点がずれてるのはあんたの方じゃね？
260：卵の名無しさん：[sage]：2023/08/21(月) 12:32:16.79 ID:UmkySA00
>>254
必要があるから呼吸管理したなら4時間後に抜管出来るわけないだろ
心不全じゃなくても挿管することはあるの
それと、105歳に挿管するのとは議論が別
急性期とかちゃんと診たことないの？本当に医者かお前？言動もちらほら怪しいし 食道抜去はおろか血栓除去ができるスキルもないクズ医者発見。
クズ医者曰く、
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
ド底辺シリツ医ですらこんな間違いはしないから、脳内医者確定！ >>9
本当品性のかけらも無いなお前www
性格的にクズ医者は否定せんが、少なくともお前と違ってちゃんと国家資格をもった医者だけどな
そんなに医者が羨ましければ再受験でもすればいいのにwww
お前は受かんないと思うけどwww 術後のケモも薬屋の売り子としてやっていたなぁ。
カイトリルやらイメンドやらも薬屋の推奨のままに売り子をやっていた。 >>9
複数のアプローチの意味が曖昧過ぎてようわからんが
非開胸食道再建すんのは、後縦隔と胸骨後の2通りあるって書いてるけどwww
それか、上へ引き抜くとか下へ引き抜くとか
どっちにしろ複数あるっぽいぞ
お前本当はわかって書いて無いだろwww
馬鹿なんだから無理して書くなよ
↓
http://journal.jsgs.or.jp/pdf/018091961.pdf
https://www.jstage.jst.go.jp/article/jbes1950/44/2/44_2_96/_pdf >>11
カイトリルもイメンドもケモの時に使うってだけで制吐剤なんですがwww
術後のケモって抗癌剤だと思ってたの？www
ここまで来るとわざと笑かしに来てるのかと思えるレベルwww スチームグリルで大きめのお好み焼き調理中。
まあ、ひっくり返さなくていいので楽だが、ふんわりお好み焼きになるなぁ。 >>12
アプローチなんぞ仰臥位で頸部と腹部からアプローチ以外にはない。
再建経路はアプローチじゃないね。
いずれにしてもやったことないんだろう。
そんなスキルがありそうにないしな。
薬屋の売り子しかできない脳内医師だろう。 >>17
脳内医者はお前だろwww
抗癌剤と制吐剤の区別もついてないくせに何でそんな偉そうに出来るかわからんわ
頸部と腹部からってそれ既に複数のアプローチだと思うんだけどwww
日本語不自由な人なのかな？ 日本語っていうか言葉が不自由みたいだね統失だから
サラダになるw 抗がん剤と制吐剤一緒にしてたの？ww
胆汁ドレナージといいとんだお笑いだね 薬の売り子の一つ覚えw
尿瓶ジジイのようなバカにつける薬はないがなw https://www.science.org/doi/10.1126/sciimmunol.adg7327
IgG4 exists only in primates, but macaque IgG4 lacks the CH2 domain and hinge region changes seen in human IgG4, and, unlike human IgG4, this simian Ig subclass is functionally inflammatory and does not undergo Fab arm exchange (5).
5 M. Warncke, T. Calzascia, M. Coulot, N. Balke, R. Touil, F. Kolbinger, C. Heusser, Different adaptations of IgG effector function in human and nonhuman primates and implications for therapeutic antibody treatment. J. Immunol. 188, 4405–4411 (2012). >>22
別に混同してないけど、全部合わせてケモだよ。
ケモにステロイドを組み合わせたたりするし。
んで、血栓除去やったことあるの？ >>24
制吐剤と抗がん剤の区別もつかない分際で何がケモだよw 尿瓶ジジイは保存的加療って概念もないみたいだし脳内ブラックジャックすぎて制吐剤と抗がん剤の区別もつかないみたいだね >>24
化学療法の話してたのに何で先に制吐剤が出るんだよ
どうせ効果とかよくわかってなかったんだろ？丸わかりだわ 咽頭痛あり、発熱なし。
新型コロナ抗原検査：陰性
職員なのでPCRやったら陽性。
まあ、３８サイクル陽性だったのでスーパースプレッダーにはならんだろうと希望的憶測。 咽頭痛あり、発熱なし。
新型コロナ抗原検査：陰性
職員なのでPCRやったら陽性。
まあ、３８サイクル陽性だったのでスーパースプレッダーにはならんだろうと希望的憶測。 尿瓶ジジイコロナで逝ったか・・・
最後の発言が制吐剤と抗癌剤をごっちゃにして終わるとか恥ずかしい最期だったな
お悔やみ申し上げます 少なくとも2015年から医師板を中心に発狂し続けて来たみたいだからにわかには信じがたいがな
経過観察としますかw m3でIgG4の投稿をしていたからね。
自己免疫性膵炎でしか知らなかったがコロナでIgG4の話がでてくるとは。
んで、尿瓶おまる洗浄係はどこの国立を落ちたの？ 先月は救急のインセンティブだけで１２諭吉ついていた。
地球儀を注文した。 今日は内視鏡が１０件と少なめだったので早めに帰宅できて( ・∀・)ｲｲ!! >>36
脳内医療のアンタはコロナ見る資格ないだろ
非東大卒の僻みお疲れ様w 尿瓶ジジイこの前まで発狂しまくってたのにこれじゃ張り合いがないね
そんなにボコボコにされたのが効いたのかな？ >>38
これ、どう見てもお前の書き込みだろwww
コロナかかったのに今日もせっせと脳内医療を書き込みか？それともコロナ陽性ってのも脳内か？ 外貨預金の含み益が増えて気分が( ・∀・)ｲｲ!! 脳内医療でよかったね
誰も病院でうつす必要ないもんw 309：卵の名無しさん：[sage]：2023/08/25(金) 12:04:02.25 ID:SQ6UgYDe
>>305
これを読むとワクチン接種業務は特殊詐欺業務に感じてきた。
接種バイトは受け子の闇バイトだな。
尿瓶ジジイ、ワクチンのバイトが許せない模様w One dimentinal sand pile model
The rules are as follows:
There are 10 spaces.
Pick a random space. Drop a grain of sand.
a. If the space has 0 grains of sand, add 1 grain of sand, for a total of 1. b. If it has 1 grain of sand, it now has two and the pile collapses. Distribute one of these grains to each neighbour. If the neighbour has 0 grains of sand, add one. If it has two grains of sand, distribute one to each neighbour. Continue until no more spaces have more than 1 grain. The grains fall off the edge at 0 and 11. カイトリルが出る前はシスプラチンを使うときは
プリンペランを大量に使っていたなぁ。
錐体外路症状がでたこともある。
胃がんの肝メタにEAPをやったことある。
腫瘍は縮小したが、予後が伸びたかどうかは誰もわからん。
大腸がんの肝メタ切除後に肝動脈にポートを留置して再発時にケモできるようにしたこともあるんだが、
結局、肝には再発なくて使うことがなかった。FOLFOXとか登場前の話。
最近のトピックは知らん。
抗ドーパミン薬といえばこれ！
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
ド底辺シリツ医ですらこんな間違いはしないから、脳内医者確定！ According to the self-organized
criticality theory, when the immune system of the host is continually overstimulated
by antigen exposure at concentrations higher than the immune system’s self-organized
criticality can tolerate, systemic autoimmunity inevitably occurs [147]
[147]
Shiozawa, S. Cause of systemic lupus erythematosus: A novel self-organized criticality theory of autoimmunity. Expert Rev. Clin.
Immunol. 2011, 7, 715–717.
課題： Rを使ってself-organaizded criticality の sandpile modelを作れ スーパーで刺身用の鯛がアラ付きで売っていたので炊き込みご飯の具として使用。
アラはグリルで焼いてから出汁をとる方法で調理。この出汁を使って炊き込みご飯。
きのこやごぼうをいれて炊き込みご飯にするより、鯛めしにした方が美味しかったと妻に言われた。
The more the betterというわけじゃないのに納得。
プロのレシピーはそれなりの試行錯誤を繰り返しての選択なんだな、と思った。 >>27
QOLを落とさずに如何にケモをするかが臨床医の努め。
血栓除去すらできない脳内医師にはわからんだろう。
分子標的薬を使うケモをやったら速攻でMRが情報提供と称してやってきていたなぁ。
問屋から情報がいくのだろうな。薬屋の売り子だよなぁと実感した。
まあ、
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
なんてのは脳内医師だろう。ド底辺シリツ医ですらこんな間違いはしない、
というより、国試だと禁忌肢だと思う。 肝臓切離断端に置いた腹腔ドレーンは主として胆汁ドレナージが目的。
血液のドレナージになったらなら手技に問題がある。
生食と空気をまぜてリークテストすると胆汁リークが減らせると教わってから
それを標準手技にするようにした。
生食だけでのリークテストより蟹の泡のようにリークが視認できた。安心感があるのは確か。
こういうのは血栓除去すらできない脳内売り子医師にはわからんだろうね。
日曜日の救急当番は個室空床が少なかったので患者移動してもらって個室を確保してもらった。
懇意なｗ看護師がいると何かと助かる。
そういえば、師長（当時は婦長と呼ばれた）から
「先生、手をつけるのは各部署１人にしてください、夜勤を組むのが大変なんですから」
とのありがたいｗ助言をもらったことがある。
まあ、看護師同伴での学会出張のアリバイ作りには協力してくれた婦長だったので助言には従った。
どの看護師にどの医師が手をつけているかを把握したり、
執刀医への謝礼の金額相場を患者家族に伝えるのも婦長の仕事だと教えてくれた。
患者から担当医の卒業大学を聞かれるのも普通だといってた。
国立だと正直に伝えて、シリツだと「私達にはそういう情報は伝えられてないんです」と答えるのだという。 >>51
QOLの前にちゃんと治療するのが臨床医の努めだよwwwしかも、薬屋の売り子をするって薬屋の言われるがままに出すってことだろ
抗癌剤を薬屋の言われるがままに出す馬鹿がどこにいるんだよwww
ちゃんとエピデンスをもとにやるんだよケモってのは
まあ、抗癌剤と制吐剤の区別もついてない脳内医者にはわからんだろうなwww
そんなに医者が羨ましいなら再受験すれば？ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
なんてのは脳内医師だろう。ド底辺シリツ医ですらこんな間違いはしない、
というより、国試だと禁忌肢だと思う。 >>53
んで、あんたは血栓除去や食道抜去したことあんの？
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ってド底辺シリツ医すらそんなことは言わないぞ。
脳内医師確定！ シャントが作れる腎臓内科医とか小児麻酔のできる小児科医とかと
仕事をしたことがあるけど、
あんたは薬屋の売り子以外になにかできるの？ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
というのができる脳内医師であるのは知っているけどね。 >>56
乳児の腸重積の緊急手術のときは腸重積を診断した小児科医が麻酔をしてくれてありがたかった。
東大卒の謙虚な先生だったのを覚えている。 自分が執刀する手術の麻酔は自分で麻酔する能力を身につけるべきという
整形外科部長（東大卒）のいる地方の病院に勤務したことがある。
まあ、部長自身も緊急手術時には麻酔をしていた。
その哲学に同意する整形外科医が東大から派遣されていたから、そこの整形は医師不足ということもなかったな。
確かに開業したときに役立つ技術が取得できる。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
なんてのは脳内医師だろう。ド底辺シリツ医ですらこんな間違いはしない。
わざと間違えたとか言う言い訳は見苦しいぞ。
そう思わない？ >>55
したことあるの？
↑
したことあるのは出来るってことじゃないって何回も言ってるだろwww
脳内ブラックジャックは何でも出来て羨ましいなぁwww
それ言い出したら研修医ん時に一通り経験したから出来るってことになるよ俺も 看護師と失踪した医師の話とか、他言できないsuicideの裏話とか
懇意ｗになるといろいろ教えてくれたよ。 >>61
んで、あんたは血栓除去できるの？
俺はフォガティーがない離島で胆管結石用のリトリーバルバルーンで血栓除去した。
除去できた血栓は5cm程あったなぁ。
んで、薬屋の売り子以外に何ができんの？ >>61
んで、血栓除去やったことあんの？
シャント作ったことある？
帝王切開の緊急全麻やったことある？ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ってド底辺シリツ医すらそんなことは言わないぞ。
これをわざと間違えたとか言い訳するから、脳内医師確定！ >>61
血栓除去して足側動脈の拍動触知できるようになったけど、
revascacularization syndrome(当時の呼称)の話をしてオペの同意を得たが、
脳梗塞患者の健側だったからこっちの足も使えなくなるのかと覚悟したという思いを患者から吐露された。
salvageできたので山羊をくれると言われたけど丁重にお断りした。
んで、あんたは血栓除去できる技術はあんの？
その技術がある医師が適用なしと判断するのと
それすらできない脳内クズが適応なしと判断するのは大違い。
オペやカテ治療の適用ないと判断した脳卒中患者も
基幹病院に転送してお墨付きをもらうことは普通にあるな。
貴院でしか施行できない治療の適応外であれば当院で加療させていただきます
と紹介状に書いてから転送。
ちなみに
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
と紹介状に書いたことはないなぁ。 尿瓶ジジイ朝から大発狂じゃんw
相変わらず脳内医者丸出しで草 薬屋の売り子の脳内医師って
肩関節脱臼や顎関節脱臼すら
やったことないから整復できません、
という脳内医師なんだろうな。
まあ、難しい症例はあるけどね。
近隣の開業医から整復困難で麻酔下に整復してくれてと照会された肩関節脱臼の症例を
俺の上司の一般外科医が無麻酔Zero Positionで整復していたのには感服した。
当時はZero Positionとかいう呼称もなっかた時代だが
KocherやHippocratesではなく前方挙上で整復できるケースを経験的に習得していた。 脳内医者ってやったことあるって言えばなんでもできる脳内ブラックジャックなんだなw
じゃあスーパーローテートの研修医とか全員ブラックジャックってことだw
何のための専門医？ww >>70
んで、あんたは麻酔くらいできるの？
麻酔科標榜医を持つ内科医を複数知っている。
腸重積の乳児に麻酔してくれた小児科はありがたかった。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ってスーパーローテーション以前の問題。
国試の禁忌肢じゃねぇかよ。
まあ、脳内医師だろな。
良くて裏口医だな。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ってどこで習うの？
ド底辺シリツ医大でもそんなことは教えていないと思うんだが？
やっぱり脳内医師？
血栓除去も麻酔もできない薬屋の売り子専従医だって
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
と言わないから、脳内医師なんだろう？ 肩関節脱臼整復にプロポフォールで寝かせてくれと頼まれたこともあるなぁ。
フルストマックでなかったので引き受けた。
先発品のディプリバンより後発品の丸石のプロポーションの方が血管痛が少ないね。
薬屋の売り子の医師にはこういうのは経験ないだろうね。
脳内もしくは裏口医師の可能性が高いね。 >>71
誰かれなく噛みついてるところみるとよっぽど腹立ってるんだなwww
尿瓶ジジイの逆鱗に触れてしまったか
お前、１人にしか攻撃されてないと思ってるのか？攻撃してくる奴はみんな同じに見えてるんだろ？そう言うの何て言うか知ってるか？統合失調症の症状で被害妄想って言うんだ。発言も言葉のサラダになってるし、診断は間違って無いはずだよwww
自分が医者ってのも誇大妄想だから早く治療した方が良いよ。多分、手遅れだけどwww >>71
そりゃアンタが麻酔かけたら犯罪だからねw 気に食わないレスには即発狂w
内科医を目の敵にしてるみたいだがいじめられたのか？まあ尿瓶ジジイみたいなアホはバカにされて当然だけどw >>58
乳児の腸重積を整復しないで、いきなり
一般外科と小児科医で手術しだすとか状況的に、かなりイカれてると思うんだけどwww
俺が親だったら、ブチギレて早く専門の施設に送れって言うわwww
脳内ブラックジャック半端ねぇな >>63
馬鹿だからわかんないと思うけど
盲目的にバルーンを血管内に持っていって、枝とかに迷入してたら、バルーン膨らました時点で血管破れて即死すると思うけどwww
リカバリーも出来ないし >>56
仕事をしたことがあるだけ(脳内)でアンタができるわけじゃないでしょ
何偉そうにしてんの？ n10=10
n11=n10+1
n12=n10+2
sp=matrix(0,n12,n12) # sp : sand pile
drop=\(sp,print=FALSE){
i=sample(2:n11,1)
j=sample(2:n11,1)
sp[i,j]=sp[i,j]+1
M=sp[2:n11,2:n11]
while(any(M>=4)){
I=(which(M>=4)-1)%%n10+1
J=(which(M>=4)-1)%/%n10+1
i=I+1
j=J+1
for(k in 1:length(i)){
sp[i[k],j[k]] = sp[i[k],j[k]]-4
sp[i[k]-1,j[k]] = sp[i[k]-1,j[k]]+1
sp[i[k]+1,j[k]] = sp[i[k]+1,j[k]]+1
sp[i[k],j[k]-1] = sp[i[k],j[k]-1]+1
sp[i[k],j[k]+1] = sp[i[k],j[k]+1]+1
}
M=sp[2:n11,2:n11]
}
if(print) print(c(i,j))
sp
}
count=0
while(count<1000){
count=count+1
sp=drop(sp)
# print(count) ; print(sp) ; cat('\n')
}
sp
(M=sp[2:n11,2:n11])
sum(sp)-sum(M) matrix(1:48,m,n)
idx=28
I=(idx-1)%%n+1
J=(idx-1)%/%m+1
c(I,J) 尿瓶ジジイ数学板でも高校生にバカにされまくってもう何も言えないか？ 統合失調症の治療して我に返ったんじゃないか？自分がただの医療事務だと気づいてしまったんだよ m=7
n=11
mat=matrix(sample(m*n,replace=T),m,n) ; mat
Mat2ij=\(mat,a){
m=nrow(mat)
b=which(mat==a)
i=ifelse(b%%m,b%%m,m)
j=ifelse(b%%m,b%/%m+1,b%/%m)
cbind(i,j)
}
Mat2ij(mat,mat[1,1]) self-organized criticality theory
のsand pile モデルがようやく完成。
Rで作ったコードはみつからなかったので自作。 >>87
やったことないのはアンタだろ
ただの脳内医者なんだから >>78
んで、あんたはやった経験あんの？
小児科で整復できなから外科にコンサルトされてオペになったに決まってるじゃん。
なんにもできないクズってやっぱり脳内医者じゃないの？
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ってスーパーローテーション以前の問題。
国試の禁忌肢じゃねぇかよ。
まあ、脳内医師だろな。
良くて裏口医だな。 >>88
経験も技術もないんじゃね？
薬屋の売り子の仕事すら、マトモにできてないようだし。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。 mat2ij = function(mat,a){
m=nrow(mat)
b=which(mat==a)
i=(b-1)%%m + 1
j=(b-1)%/%m + 1
cbind(i,j)
}
Mat2ij=\(mat,a){
m=nrow(mat)
b=which(mat==a)
i=ifelse(b%%m,b%%m,m)
j=ifelse(b%%m,b%/%m+1,b%/%m)
cbind(i,j)
}
f1=\(m=11, n=13){
mat=matrix(sample(m*n,replace=T),m,n)
mat2ij(mat,mat[1,1])
}
f2=\(m=11, n=13){
mat=matrix(sample(m*n,replace=T),m,n)
Mat2ij(mat,mat[1,1])
}
> system.time(replicate(1e5,f1()))
user system elapsed
3.50 0.11 3.68
> system.time(replicate(1e5,f2()))
user system elapsed
4.65 0.00 4.74
予想通り、ifelseを使った方が処理速度が遅いな。
アルゴリズムがわかりやすくはあるが。 >>90
胆汁ドレナージなんて使ってるやつは脳内医者に決まってるだろ
内視鏡スレより
256：卵の名無しさん：[sage]：2023/08/21(月) 09:42:36.61 ID:YOqPFqww
胆汁ドレナージがおかしいと思わない人レスして下さいw
1週間以上が経過したが当然ながら尿瓶ジジイを庇うレスは一つもつきませんでしたw nurseの複数形、いやnurseの綴りすらまともに綴ることのできない胆汁ドレナージジイの英語力は中学生にすらバカにされるレベルw
724 卵の名無しさん (ﾜｯﾁｮｲ 3358-8TD4 [14.13.16.0])[sage] 2022/10/05(水) 13:30:27.35 ID:rczEbvNg0
I told my colleage nureses that I have such allergy to beauties that I feel itchy everywhere when I work with them.
Ahahahahahah
>nureses
>nureses
>nureses
> colleage
> colleage
> colleage 手術はできない、カテもできない、内視鏡もできない、麻酔もできない
って、薬屋の売り子だろうと推測していたが、
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
というのをドヤ顔で書くようだから、
薬屋の売り子ですらなさそう。
脳内医者なんだろうな。
ド底辺シリツ医でもこんな間違いはしないね。 f=\(b,d,print=FALSE){
th=acos((1^2+1^2-(1/2)^2)/(2*1*1))
tot=2*pi-3*th
A=1+0i
F=exp(-1i*th)
E=exp(-2i*th)
if(b<0|b>tot) return(NA)
# b=runif(1,0,tot)
B=exp(1i*b)
c=b+th
C=exp(1i*c)
# d=c+runif(1,0,2*pi-b-3*th)
if(d<0|d>2*pi-b-3*th) return(NA)
D=exp(1i*d)
S=ABC2S(A,B,C)+ABC2S(A,C,D)+ABC2S(A,D,E)+ABC2S(A,E,F)
if(print){
Plot(-1,1,zero=FALSE,axes=FALSE)
Cir(0i,1,lty=3,col=8)
pta(A)
pta(F)
pta(B)
pta(C)
pta(D)
pta(E)
Polygon(A,B,C,D,E,F,Lty=3)
seg(B,C,col=4,lwd=2)
seg(F,A,col=4,lwd=2)
seg(E,F,col=4,lwd=2)
legend('center',bty='n',legend=round(S,3))}
return(S)
}
optim(runif(2,0,pi),\(x) f(x[1],x[2]))$value
optim(runif(2,0,pi),\(x) f(x[1],x[2]),control=list(fnscale=-1))$value >>87
これだけ指摘してやってもまだこんな事言ってるのなwww
察しろよ
統合失調症に言っても無駄かもしれんが >>94
この、悪性症候群にドーパミンうんぬんも
それ以外反撃出来る頭無いからすがるしかないんだろうな
わざと間違えたって論破されてるのにwww
頭悪すぎて1週間ぐらい気づいてなかったけど
たまに食い付きそうな間違いしてあげないと、尿瓶ジジイ黙っちゃうからね
滑稽過ぎて笑えるわwww Rが使える人はこのスレにも高校数学スレにもいないようだ。
薬屋の売り子の脳内医者と尿瓶おまる洗浄係にRが使えないのは歴然。
自作のsand modelをどうやって検証するかと思っていたら
こういうのに遭遇。
https://www.mit.edu/~8.334/grades/projects/projects12/V.%20A.%20Golyk.pdf
そこのFig.1に5×5のBak-Tang-Wiesenfeld (BTW) sandpile modelの結果が載っていた。
これで検証してみる。
> drop(mat,3,3)
$topple
[1] 9
$dissipate
[1] 5
$M
[,1] [,2] [,3] [,4] [,5]
[1,] 1 0 1 0 3
[2,] 0 2 2 2 2
[3,] 3 0 2 3 3
[4,] 2 1 3 2 0
[5,] 2 2 1 1 1
FIG. 1: Ilustration of toppling avalanche in a small 5 × 5
sandpile. A grain falling at the site with Zcr = 3 grains on
it at the center of the grid triggers an avalanche with size of
nine toppling events, i.e. s = 9. As a result of the avalanche,
the system loses 5 grains of sand.
という記述と合致。最終結果も合致！ 高校数学スレより
243：１３２人目の素数さん：[sage]：2023/07/25(火) 19:35:19.66 ID:hrc4XW/3
6つの辺の長さが3,4,5,6,7,8である四面体は（ ア ）種類ある。
269：１３２人目の素数さん：[sage]：2023/07/26(水) 18:45:05.79 ID:sev74d4g
>>243
車輪の再発明の神のお告げによれば、39通り
274：１３２人目の素数さん：[sage]：2023/07/26(水) 19:22:12.39 ID:pzlYX2uz
鏡像を同じとみなすなら四面体の各辺に3〜8の数字をあてがう方法は30通りしかない
同じと見做さないなら答えは偶数
78：１３２人目の素数さん：[sage]：2023/08/14(月) 13:03:44.28 ID:8HExdy5D
>>68
おい尿瓶リタラシージジイ、これにはダンマリか
神のお告げが完全にトンチンカンだったわけだけど一体どこから出て来たんだよw
また脳内妄想か？w
80：１３２人目の素数さん：[sage]：2023/08/14(月) 13:45:00.39 ID:aOMMoiEh
>>78
バビンスキー反射をババンスキー反射というみたいなもんじゃね？ 329：卵の名無しさん：[sage]：2023/08/31(木) 15:44:00.31 ID:ZIHOWkhI
>>322
肝臓切離断端にドレーンおいて胆汁ドレナージしたことないの？
胆汁ドレナージジイ脳内医者であるが故に何がおかしいのかもわからない >>98
経験も技術もないんじゃね？
薬屋の売り子の仕事すら、マトモにできてないようだし。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。 胆汁ドレナージジイが医者のふりして仕事したら犯罪ですからw >>106
今日は内視鏡１１件。全例sedationなし。
画面をみる余裕のある人にはリアルタイムで説明しながら検査すると効率的で( ・∀・)ｲｲ!!
心拍動の影響をうける部位だと静止画像よりリアルタイムの方がピントがあっていて説明しやすい。
まあ、反射が強い人は撮影した写真で検査後に説明しているけど。
写真よりリアルの方が美しいのは看護婦みたいですねぇ、とヨイショするのは忘れない。
それに笑顔が返ってくる楽しい職場！ >>108
今は「看護婦」じゃなくて「看護師」って呼ぶんだよ
実際の臨床現場にいれば呼び方にも気おつけるのは当たり前だし今時そんな呼び方してる医者を見たことありません
これだけでも、脳内医者だとわかるな いや、検診の内視鏡を受けているのは６０〜７０代が多いから看護婦の方が意味が通じやすい。
フェミだと従軍慰安婦でなくて従軍慰師というかもしれんがな。 写真よりリアルの方が美しいのは看護師みたいですね
だと気持ちわるぅ。 気持ち悪いのはアンタだろ
看護婦がどうとか
看護師にキモがられてるただの患者だろ >>112
看護婦発言関係なく、発言の内容がマジでキモいwww フォンドボーが届いたので
今日は時間をかけて赤ワインソースを作ろう。
次回はフォンドボーでなくて牛の骨髄を使ってつくるかな。 赤ワインソースを煮詰めている時間にｍ３クイズをやってみた。
https://i.imgur.com/sBvxLME.png
最近の国試って簡単な問題に高正解率を求めているようだな。
こんなこと投稿するアホが国試合格しているとするとは考え難いので
脳内医師だんだろうな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。 398：卵の名無しさん：[sage]：2023/09/02(土) 08:59:00.26 ID:CLUFbPxa
老健入所時に急変時DNARとの文書があった患者が吐血して搬送されてきたが、
緊急内視鏡もせずに見殺しにされていたなぁ。
主治医の退院サマリーには
緊急で内視鏡をしなかかった言い訳として
DNARなので
と記載されていた。
こういうのは三百代言の格好の餌食だと思う。
405：卵の名無しさん：[sage]：2023/09/02(土) 13:12:13.62 ID:JzL7LL5i
>>398
吐血してるぐらいなら死んでないんだから家族に連絡して急性期病院に送るかぐらい聞くわ
緊急内視鏡しないと見殺しとか（笑）
輸液とか補液してたら耐えれる症例の方が多いだろ、ドラマの見すぎじゃね？
尿瓶ジジイの脳内医とくとご覧あれ！ おい尿瓶ジジイまたダンマリかよ
ほとぼりが覚めたらしれっと登場するつもりか？尿瓶ジジイみたいな鳥頭じゃないからそんなの何の意味もないけどなw >>111
315 卵の名無しさん (ﾜｯﾁｮｲ 8dc7-80Lh [124.47.76.122])[sage] 2022/10/23(日) 15:56:41.41 ID:BLoU24fa0
ある病院でSpO2をパルスオキシメーターからとってパルスと呼ぶ看護師がいたけど、
脈拍数と誤認するから止めるように勧めた。
夜勤看護師：「せんせ、パルスが70ですけど」
当直医：「様子をみてください」
という医療事故が起こりそう。
昔、トロンビンを静注した医療事故は１バイアルの意味で
トロンビン １V 投与
と記載があったのを静注と誤認したからだという。
これアンタの書き込みだろ
言ってること矛盾してるのに気づかないほどバカなのか？ 当直で救急を受けてインセンティブ1.5諭吉。
オマール海老を発注。テルミドールをつくってみようっと。 論破されたからダンマリ決め込んでしれっと関係ないこと書き込みか
全く張り合いのない ik2xyz=\(i,k){ # 緯度i経度k -> x,y,z
x=cos(i)*cos(k)
y=cos(i)*sin(k)
z=sin(i)
c(x,y,z)
}
xyz2ik=\(x,y,z){ # xyz => 緯度i経度k
i=asin(z/sqrt(x^2+y^2+z^2))
k=sign(y)*acos(x/sqrt(x^2+y^2))
c(i,k)
}
f=\(){
ib=runif(1,-pi/2,pi/2)
kb=runif(1,-pi,pi)
ic=runif(1,-pi/2,pi/2)
kc=runif(1,-pi,pi)
O=c(0,0,0)
A=c(0,0,1)
B=ik2xyz(ib,kb)
C=ik2xyz(ic,kc)
P=A/2+B/2
Q=B/2+C/2
R=C/2*A/2
max(abs( P-O),abs(Q-O),abs(R-O))
} on.sphere =\(n){
z=runif(n,-1,1)
t=runif(n,-pi,pi)
x=sqrt(1-z^2)*cos(t)
y=sqrt(1-z^2)*sin(t)
i=asin(z)
k=sign(y)*acos(x/sqrt(x^2+y^2))
cbind(i=i,k=k,x=x,y=y,z=z)
}
f=\(){
ABC=on.sphere(3)[,c('x','y','z')]
A=ABC[1,]
B=ABC[2,]
C=ABC[3,]
P=A/2+B/2
Q=B/2+C/2
R=C/2+A/2
max(sqrt(sum(P^2)),sqrt(sum(Q^2)),sqrt(sum(R^2)))
}
y=replicate(1e6,f())
hist(y,col=2)
summary(y) 点Oを中心とする半径1の球面上に無作為に（＝一様分布で）3点A,B,Cを選ぶ。
AB,BC,CAの中点をそれぞれP,Q,Rとするとき、OP,OQ,OQの長さのうち最大のもの値をｙとする。
（１）ｙの期待値を求めよ
（２）ｙの中央値を求めよ
（３）ｙの分布を図示せよ。 南仏風ビーフシチュー（ドーブ）作ってみた。
オレンジの皮は防カビ剤が嫌で、オレンジジュースを煮詰めて代用。
嫁からは合格点をもらえた。早起きして作った価値があった。
有給休暇が法定どおりとれる有料職場は( ・∀・)ｲｲ!! 437：卵の名無しさん：[sage]：2023/09/05(火) 13:30:10.51 ID:jIkExdUw
>>435
？？？
それなら最初に観た医者が悪いんじゃないの？入院時にムンテラしたの当直医でしょ
擁護できないとか言うなら診療部長がやるように言えばいいんじゃないの？止血やってるような病院なのにカンファとかしないの？
ツッコミどころ多いんだけど
流石に作り話でしょ？（笑）
脳内医者丸出しで草 ABC=abc2ABC(3,4,5)
A=ABC[1]
B=ABC[2]
C=ABC[3]
f=\(stu){
s=stu[1]
t=stu[2]
u=stu[3]
if(s<0|t<0|u<0|s>1|t>1|u>1) return(NA)
P=s*A
Q=t*C
R=u*A+(1-u)*C
(abs(P-Q)-abs(Q-R))^2 + (abs(Q-R)-abs(R-P))^2
}
opt=optim(runif(3),f) ; opt
stu=opt$par
s=stu[1]
t=stu[2]
u=stu[3]
P=s*A
Q=t*C
R=u*A+(1-u)*C
P
Q
R
ABC2S(P,Q,R) 最近の国試は簡単すぎだな。
まあ、簡単な問題に高正解率を求めているようだし、
禁忌肢を選ぶようなのは排除しようとしている。
https://i.imgur.com/cAUX3ZG.png
こんなことを書くのは脳内医師だろうな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。 尿瓶ジジイってもうそれしか言えないんだね
それも論破されてるけど、認められないのかw 945：１３２人目の素数さん：[sage]：2023/08/28(月) 22:14:13.18 ID:ByTZqf1j
28：卵の名無しさん (ﾜｯﾁｮｲ 03c7-rJ/h [124.47.76.122])：[sage]：2023/08/27(日) 10:17:46.72 ID:f0eAIkUv0
咽頭痛あり、発熱なし。
新型コロナ抗原検査：陰性
職員なのでPCRやったら陽性。
まあ、３８サイクル陽性だったのでスーパースプレッダーにはならんだろうと希望的憶測。
38：卵の名無しさん (JP 0Hff-cjuf [91.193.7.154 [上級国民]])：[sage]：2023/08/28(月) 15:06:04.94 ID:ytR3LuHDH
今日は内視鏡が１０件と少なめだったので早めに帰宅できて( ・∀・)ｲｲ!!
41：卵の名無しさん (JP 0H47-W0Bl [202.253.111.210])：[sage]：2023/08/28(月) 17:25:39.31 ID:XuctPsPbH
>>38
これ、どう見てもお前の書き込みだろwww
コロナかかったのに今日もせっせと脳内医療を書き込みか？それともコロナ陽性ってのも脳内か？
尿瓶ジジイ、コロナ陽性なのに内視鏡をやってる設定で速攻ツッコまれるw
ID変えても文体は尿瓶丸出しww シーフードトマトクリームレゾット完成。
レシピーに加えてソテーしたマシュルームも追加。
嫁から100点満点の評価。
但し、いくらでも食べられるのが欠点ｗ 取っ手の取れるフライパンはそのまま食卓にもってこれるので楽で( ・∀・)ｲｲ!! おい尿瓶ジジイ
医者相手がダメでも高校生相手ならイキれると思ったら大間違いだぞw A=4i
B=3i
P=s*A
Q=t*A+(1-t)*B
R=(Q-P)*exp(-1i*pi/3)+P
((t-s)*4i+(1- t)*3i)*(cos(-pi/3)+1i*sin(-pi/3))+s*4i
R=1/2 sqrt(3) (-4 s + t + 3) + 1/2 i (4 s + t + 3)
4*s+t+3=0
0<1/2*sqrt(3)*(-4*s + t + 3)<3 >>144
遅w
論破されたかどうかはアンタが決めることじゃないw 尿瓶ジジイ
内視鏡スレで1人でブツブツつぶやいてて草www
誰も相手してないのに
ポスト急性期スレでもボコボコにされてるなwww
けどここでは料理のことしか呟けないチキン野郎www わりと面倒な計算が必要だった。
方程式を立式してあとはRで数値解を算出させた。
3辺の長さが3,4,5である直角三角形の周上に3点P,Q,Rを、△PQRが正三角形となるようにとる。
このような△PQRの面積の最小値は（ イ ）である。 >>145
それはあなたの意見ですよね。
きょうはビーツのドレッシングを作ろう。 >>149
論破されてないって論破された本人が発狂してるのは恥ずかしいことだってこともいちいち言ってあげないとダメなのか尿瓶はw これは論破すらされてないぞ。
わざと間違えたとか苦しい言い訳をしていたがｗ
こんなことを書くのは脳内医師だろうな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。 これはってことは他のものは論破されたってことか？w >>151
お前、いつも論破されてその後ダンマリじゃん。ここでも数学板でもポスト急性期スレでも、空気読まずに他の奴から総スカンくらって偽医者扱いされてたじゃんwww
俺もよっぽど書き込んでやろうかと思ったわ
「その人医者じゃありません！」ってwww 何食わぬ顔で医者として書き込んでるつもりだろうがいつも尿瓶丸出しなんだよなw >>1
いや、頭の悪いのはすべての勤務医。
奴隷労働を強いられどこの誰とも
知らない院長という肩書きの赤の他人に
無理難題を押し付けられ、病院から
搾取されまくってるのが勤務医。
その上、看護師からタメ口をきかれたりもする。
医師がいないと病院は1円も稼ぐことが出来ない
ので、その理屈でいくと、自分が給料払ってる
看護師からタメ口をきかれてるようなもの。 AB2C=function(A,B,a,b){
c=abs(B-A)
alpha=acos((b^2+c^2-a^2)/(2*b*c))
c(b*exp(1i*(Arg(B-A)+alpha))+A,b*exp(1i*(Arg(B-A)-alpha))+A)
}
AB2C(0i,2+0i,2,2)
AB2C(0i,3+0i,4,5) AB2C=function(A,B,a,b){
c=abs(B-A)
alpha=acos((b^2+c^2-a^2)/(2*b*c))
c(b*exp(1i*(Arg(B-A)+alpha))+A,b*exp(1i*(Arg(B-A)-alpha))+A)
}
AB2C(0i,2+0i,2,2)
AB2C(0i,3+0i,4,5) 拡張子をRにするとQuickEditでRをコンパイルできるのに気づいた。これは便利！ 拡張子をRにするとQuickEditでRをコンパイルできるのに気づいた。これは便利！ \(x) をfunction(x)にすればちゃんと動作する。
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.362 1.435 1.646 1.767 2.064 2.900
S
1.3620665 0.4249802 0.3219943 0.5935560
[1] 0.2270111
S
2.89984047 0.56281756 0.00511069 0.13740987
[1] 0.4833067 \(x) をfunction(x)にすればちゃんと動作する。
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.362 1.435 1.646 1.767 2.064 2.900
S
1.3620665 0.4249802 0.3219943 0.5935560
[1] 0.2270111
S
2.89984047 0.56281756 0.00511069 0.13740987
[1] 0.4833067 #△ABCに内接する△PQRについて面積比△PQR/△ABCをARとする。
#△ABCの辺の長さがa,b,c、△PQRの辺の長さの比がL:M:Nであるとき
#ARの最小値と最大値を求めよ。 オマール海老のテルミドール完成！
当直明けの代休を使って妻と一緒に料理するのは楽しくて( ・∀・)ｲｲ!!
オマール海老の殻から出汁をとってリゾットにしようっと。 オマール海老 homardはホマール海老とは呼ばないな。
ヘンリ4世ではなくてアンリ4世
整形外科の手術器具にホーマン鈎というのがある。 1953年イラン
1954年グアテマラ
1963年南ベトナム
1964年ブラジル
1973年チリ
2013年エジプト
2014年ウクライナ
2022年パキスタン >>158
拡張子をpyにすると、Pythonを走らせることができた。
神アプリだな。 R Promrgamming Compilerは契約更新を辞めた。
グラフ出力はできないが、QuickEditで十分。
Python他の言語も拡張子を変えたら簡単なコードはコンパイルしてくれる神アプリだと思う。 >>171
カテ室とかオペ室のナースはアクティブな人材の宝庫。
まあ、同僚の外科医と穴兄弟ｗ >>172
そう？
気持ちよかったぞｗｗｗ
高学歴の女医はフェラ嫌いが多い
エビデンレベルV：個人の体験 俺の作業仮説
臨床やっている女医は不細工か不倫している
n=21ではaffirmativeな結果であった。 仕事ができるナースだと、お掃除blowjobも厭わないｗｗｗ >>175
もう医者じゃないとバレたから本性出してきたな。妄想も大概にしろよジジイ
周りもお前のこと気持ち悪ぃって思ってるよ
品性のかけらも無い奴だな 数学板ではまだ脳内医者みたいだよ
アホ丸出しレスなのに素人ならバレないとでも思ってるのかね p=1/6
n=407
sim=\(){
rbinom(n,1,p) |> rle() -> x
cbind(x$values,x$lengths) -> d
any((d[d[,1]==1,])[,2]>=3)
}
k=1e6
replicate(k,sim()) |> mean() >>179
ナースからも相手にされない気の毒な椰子を発見。 nurseもまともに綴れない尿瓶ジジイが相手にされるわけないだろww "
サイコロを1000回振って目をすうれつとして記録する。
その数列に
1,2,3,4,5,6の数列が含まれる確率を求めよ。
有効数字2桁でよい。
"
n=1000
sim=\(x=sample(6,n,replace=TRUE)){
y=rle(diff(x))
z=cbind(y$value,y$length)
any(z[z[,1]==1,]==5)
}
replicate(1e5,sim()) |> mean() "
サイコロを1000回振って目を数列として記録する。
その数列に
1,2,3,4,5,6の数列が含まれる確率を求めよ。
答は有効数字2桁でよい。
"
n=1000
sim=\(x=sample(6,n,replace=TRUE)){
y=rle(diff(x))
z=cbind(y$value,y$length)
any(z[z[,1]==1,]==5)
}
replicate(1e5,sim()) |> mean() 黒玉90個と白玉3個の合計10個の玉を円環状に並べる。
このとき、どの白玉と白玉の間にも、少なくとも1個の黒玉がある確率と95%信頼区間(信用区間)を求めよ。
https://i.imgur.com/rapxIkZ.png ピンチヒッターで引き受けた内視鏡バイトを、あと半年延長してくれないかと打診された。
Homan鈎とhomard thermidorの話が通じるナースが可愛いので延長することにした。
某健診センターの方が賃金が高かったが、
仲介業者を介して照会してもらったら止血クリップも電気メスもないとのことだったのでそっちへの応募はやめた。
Hope for the best, prepare for the worst.
だな。 Pythonのinput関数をRに実装
input <- \(msg,n=NULL){
cat(msg)
if(is.null(n)){
cat('(Hit ESC to quit.)')
readLines(stdin(),n=-1L,encoding = "utf8")
}else{
readLines(stdin(),n=n,encoding = "utf8")
}
}
string=input('Enter any word.' )
string
num=scan(stdin())
num library(MASS)
#(2)
(3/6)*mean(4:6)+(3/6)*mean(1:6) |> fractions()
#(3)
(3/6)*mean(4:6)+(3/6)*((2/6)*mean(5:6)+(4/6)*mean(1:6)) |> fractions()
sim=\(){
d1=sample(6,1)
if(d1>3.5) re=d1
else{
d2=sample(6,1)
re=ifelse(d2>4.25,d2,sample(6,1))
}
re
}
replicate(1e5,sim()) |> mean() library(MASS)
f=\(n) (7-n)/6*mean(n:6) + (n-1)/6*mean(1:6)
sapply(1:6,f)
# 1回めでn1以上の目が出たら終了
# 2回目でn2以上の目が出たら終了
calc=\(n1,n2){
p=(7-n2)/6*mean(n2:6) + (n2-1)/6*mean(1:6)
(7-n1)/6*mean(n1:6) + (n1-1)/6*p
}
calc(4,5)
calc(5,5)
calc=Vectorize(calc)
outer(1:6,1:6,calc) データ解析に特化したスクリプト言語であるRを使っている方は普段、標準入力や標準出力に触れる機会が滅多にないと思います。プログラミング試験があるけど、データサイエンティストとか目指してるからRしか分からないという方に向けて解説していきます。
https://multivariate-statistics.com/2020/11/04/r-programming-stdin-stdout/#Kagami_Mochi n=1:5
f=\(n) (7-n)/6*mean(n:6) + (n-1)/6*mean(1:6)
n=rev(n)
a=numeric()
a[1]=f(1)
for(i in n){
a[i]=f(i)
a[i+1]=(7-i)/6*mean(i:6) + a[i]*(i-1)/6*mean(1:6)
}
a calc1=\(n1) (7-n1)/6*mean(n1:6) + (n1-1)/6*mean(1:6)
calc1(4)
calc2=\(n1,n2){
a=(7-n2)/6*mean(n2:6) + (n2-1)/6*mean(1:6)
(7-n1)/6*mean(n1:6) + (n1-1)/6*a
}
calc2(4,4)
calc2(5,5)
calc2(4,5)
calc3=\(n1,n2,n3){
a1=(7-n3)/6*mean(n3:6) + (n3-1)/6*mean(1:6)
a2=(7-n2)/6*mean(n2:6) + (n2-1)/6*a1
(7-n1)/6*mean(n1:6) + (n1-1)/6*a2
}
calc3(4,4,4)
calc3(5,5,5)
calc3(4,5,5) calcn=\(N){
f=\(j,a) (7-j)/6*mean(j:6) + (j-1)/6*a
n=length(N)
a=numeric(n)
a[n]=f(N[n],mean(1:6))
for(i in (n-1):1){
a[i]=f(N[i],a[i+1])
}
a[1]
}
calcn(c(4,4,4))
calcn(c(5,5,5))
calcn(c(6,6,6))
calcn(4:6)
calcn(rep(6,5)) calcn=function(N){
f=function(j,a) (7-j)/6*mean(j:6) + (j-1)/6*a
n=length(N)
a=numeric(n)
a[n]=f(N[n],mean(1:6))
for(i in (n-1):1){
a[i]=f(N[i],a[i+1])
}
a[1]
}
gr=expand.grid(1:6,1:6,1:6,1:6,1:6)
y=apply(gr,1,calcn)
max(y)
gr[which(y==max(y)),]
calcn(c(6,6,6,6,6)) calcn(c(6,6,6,6,6))
sim=function(n=6){
a=sample(6,n,replace=TRUE)
ifelse(6 %in% a[1:(n-1)],6,a[n])
}
y=replicate(1e5,sim())
summary(y)
mean(y>=5)
mean(y==6)
table(y) >>201
757：１３２人目の素数さん：[sage]：2023/09/17(日) 11:37:15.54 ID:pz+w/E83
こんな簡単な話ですら何一つ計算機使いこなせないクズ
何一つ人並みにできない能無し 尿瓶ジジイ、散々論破されたことに懲りたのか医者板では1人でブツブツ呟いてるだけw
高校数学スレでは誰彼構わず噛みついているのにw import statistics
def f(j,a):
return (7-j)/6*statistics.mean(range(j,7))+ (j-1)/6*a
def calcn(N):
n=len(N) #5
a=[]
for i in range(n):
a.append(0) #[0,0,0,0,0]
a[n-1]=f(N[n-1],3.5) # [0,0,0,0,a4]
for i in range(n-2,-1,-1): # range(3,-1,-1) i in [3,2,1,0]
a[i]=f(N[i],a[i+1])
print(N)
print(a[0])
calcn([6,6,6,6,6])
calcn([6,5,5,5,4])
calcn([5,4])
calcn([4,4])
calcn([4,5]) Rで3:0で済むのをrange(3,-1,-1)と書かなくちゃならんのは面倒。 >>202
それ書いている椰子はどうやらシリツらしい。 # '3:0' -> [3,2,1,0]
def rrange(s):
n=[]
for i in s.split(':'):
n.append(int(i))
return list(range(n[0],n[1]-1,-1))
print(rrange('3:0')) # '3:0' -> [3,2,1,0]
def rrange(s):
n=[]
for i in s.split(':'):
n.append(int(i))
return list(range(n[0],n[1]-1,-1))
print(rrange('3:0')) ここにはこんなのがいる。
クズ医者曰く、
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
ド底辺シリツ医ですらこんな間違いはしないから、脳内医者確定！ gr=expand.grid(1:6,1:6,1:6)
f=\(x,n1,n2){
if(x[1]>=n1) return(x[1])
if(x[2]>=n2) return(x[2])
return(x[3])
}
apply(gr,1,\(x) f(x,4,4)) |> mean() -> y44
apply(gr,1,\(x) f(x,4,5)) |> mean() -> y45
apply(gr,1,\(x) f(x,5,4)) |> mean() -> y54
apply(gr,1,\(x) f(x,5,5)) |> mean() -> y55
cbind(y44,y45,y54,y55) >>210
それすら論破されてるのにも関わらずコピペで発狂w >>212
わざと間違えたという虚偽弁解を論破とは言わん。 # '3:0' -> [3,2,1,0]
def rrange(s):
n=[]
for i in s.split(':'):
n.append(int(i))
return list(range(n[0],n[1]-1,-1))
print(rrange('3:0'))
print('animals'.index('a'))
[(x, y) for x in range(5) for y in range(5)] # '3:0' -> [3,2,1,0]
def rrange(s):
n=[]
for i in s.split(':'):
n.append(int(i))
return list(range(n[0],n[1]-1,-1))
print(rrange('3:0'))
print('animals'.index('a'))
[(x, y) for x in range(5) for y in range(5)] import statistics as stat
gr = [(x,y,z) for x in range(1,7) for y in range(1,7) for z in range(1,7)]
def f(x,n1,n2):
if x[0]>=n1:
return x[0]
if x[1]>=n2:
return x[1]
else:
return x[2]
def g(n1,n2):
y=[]
for i in range(len(gr)):
y.append(f(gr[i],n1,n2))
return stat.mean(y)
ij=[(x,y) for x in range(1,7) for y in range(1,7)]
z=[]
for k in range(len(ij)):
z.append(g(ij[k][0],ij[k][1]))
maxz=max(z)
idx=z.index(maxz)
print('max = {} @ (n1,n2) ={}'.format(maxz,ij[idx])) >>213
じゃあ虚偽だってどうやって証明するんだよ？数学得意なら証明してよw
それにアンタが論破されてないって発狂するのはみっともないだけだからなw import statistics
def f(j,a):
return (7-j)/6*statistics.mean(range(j,7))+ (j-1)/6*a
def calcn(N):
n=len(N) #5
a=[]
for i in range(n):
a.append(0)
a[n-1]=f(N[n-1],3.5)
for i in range(n-2,-1,-1):
a[i]=f(N[i],a[i+1])
return a[0]
gr=[(a,b,c,d,e) for a in range(1,7) for b in range(1,7) for c in range(1,7) for d in range(1,7) for e in range(1,7) ]
y=[]
for i in range(len(gr)):
y.append(calcn(gr[i]))
maxy=max(y)
idx=y.index(maxy)
print( 'max = {} @ {}'.format(maxy,gr[idx])) >>217
直後に訂正しているのに
随分経てからわざと間違えたと言い訳。
裏口シリツがコネも「実力」のうち、というみたいで見苦しいぞ。 これをPython使って解けたので気分が( ・∀・)ｲｲ!!
Pythonだと平均値を出すだけでもモジュール読み込みが必要なのは面倒。円周率、ヒストグラムも別々のモジュールが必要。
Rの方が俺には使いやすいがPythonの方が普及している。
問題
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか？ >>219
尿瓶ジジイに実力も何もあったもんじゃないだろ
ネットで発狂してるだけだし証拠も何もない
アンタが論破されたと言う事実を認めようとしないだけ >>217
直後に訂正でなくて、釣れた！ とでも投稿していれば
わざと間違えたという言い訳と整合性があるかもしれんが
It is no the case.である。
Q.E.D. 標準でパイプが使えないのもPythonは使い勝手が悪い。 ここにはこんなのがいる。
クズ医者曰く、
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
直後に訂正しているのに後からわざと間違えたと言い訳。 >>222
論破されてない〜って本人が発狂してるだけでは何の意味もないんだが
チンパンの脳内ではQEDみたいだねw >>224
直後に訂正してるなら、わざと間違えてるんだろ。すぐに訂正してないなら言い訳だけど
論理破綻してるぞお前
馬鹿だろ >>227
発狂時期大体被るから明らかに尿瓶ジジイとこの糞ゴミニート同一人物だよな
わかりやすいわ >>226
直後に訂正するなら、間違いを投稿する必要がない
Q.E.D. >>230
全然証明出来てなくて草
お前数学とか出来ない奴だろ # Pr(Rn>=k)=Pr(Rn-1>=k)+(1-Pr(Rn-k-1>=k)*(1-p)*p^k
p=1-339/407
k=3
N=407
P=numeric(N)
P[k]=p^k
P[k+1]=p^(k+1)+2*(1-p)*p^k
for(n in (k+2):N) P[n]=P[n-1] + (1-P[n-k-1])*(1-p)*p^k
head(P)
tail(P)
# P[10]==P[9]+(1-P[10-3-1])*p^3*(1-p)
f=function(k,r=339/407,N=407){
p=1-r
P=numeric(N)
P[k]=p^k
P[k+1]=p^(k+1)+2*(1-p)*p^k
for(n in (k+2):N) P[n]=P[n-1] + (1-P[n-k-1])*(1-p)*p^k
P[N]
}
f(1) # ; 1-(339/407)^407
f(2)
f(3)
f(4)
sota=function(k) f(k) - f(k+1)
k=2:10
options(scipen=10)
y=sapply(k,sota)
cbind(k,y) ここにはこんなのがいる。
クズ医者曰く、
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！ >>234
よっぽどそいつ恨んでるんだなw
そんなにボコられて悔しかったんか？
女々しい奴 高校数学スレより
847：１３２人目の素数さん：[sage]：2023/09/20(水) 08:00:22.90 ID:J1WQWmrA
>>844
オフェブもピレスパも知らんだろ。
んで、どこの国立を落ちたの？
尿瓶ジジイ、発狂しすぎて板名すら読めないw クソワロタ
863：１３２人目の素数さん：[sage]：2023/09/20(水) 11:46:43.48 ID:MnhI0OwR
言葉のサラダって調べたけど
まさにこの偽医者の発言そのまんまでワロタ
統合失調症確定じゃん
866：１３２人目の素数さん：[sage]：2023/09/20(水) 11:59:19.46 ID:J1WQWmrA
>>863
俺は、医科歯科を蹴って慶応に行きましたといわれても何とも思わんけど、
理Iくらい合格していれば理Iを蹴って医科歯科に行きましたといわれても普通は何とも思わんだろ？
まあ、東大合格通知を受け取ったこともないような輩だと反応が違うんだろうね。
868：１３２人目の素数さん：[sage]：2023/09/20(水) 12:14:07.34 ID:aEMlte7G
>>863
言葉のサラダすら調べなければならない時点で
東大非合格者であることがわかるよね。
一般常識を欠如しているから。
Q.E.D. f=function(k,r=339/407,N=407){
p=1-r
P=numeric(N)
P[k]=p^k
P[k+1]=p^(k+1)+2*(1-p)*p^k
for(n in (k+2):N) P[n]=P[n-1] + (1-P[n-k-1])*(1-p)*p^k
P[N]
}
f(3) >>237
こいつのレス、マジで意味不明だよな
会話のキャッチボールが出来ていない
尿瓶ジジイは統合失調症もしくは発達障害
証明終わり 藤井聡太の勝利確率を339/407とする
407局の対局で何連敗する確率が最も高いか？
その確率を求めよ。
def f(k,r=339/407,N=407):
p=1-r
P=[]
for i in range(N):
P.append(0)
P[k-1]=p**k
P[k]=p**(k+1) +2*(1-p)*p**k
for n in range(k+1,N):
P[n]=P[n-1]+(1-P[n-k-1])*(1-p)*p**k
return P[N-1]
def g(k,r=339/407,N=407):
return f(k,r,N) - f(k+1,r,N)
re=[]
for i in range(1,10):
re.append(g(i))
print(re) Pythonは配列を初期化するのが面倒だなぁ。
Rだとデフォルトで０で埋めてくれる。 def f(k,r=339/407,N=407):
p=1-r
P=[]
for i in range(N):
P.append(0)
P[k-1]=p**k
P[k]=p**(k+1) +2*(1-p)*p**k
for n in range(k+1,N):
P[n]=P[n-1]+(1-P[n-k-1])*(1-p)*p**k
return P[N-1]
def g(k,r=339/407,N=407):
return f(k,r,N) - f(k+1,r,N)
re=[]
for i in range(1,10):
re.append(g(i))
print(re) ゴーヤを薄切りしてコンベンションオーブンで70℃2時間で乾燥させて
ゴーヤチップスを作る。味噌汁にいれるとアクセントとして旨い。
まあ、子供は嫌がりそうだが。
料理友達のナースに教えておこう。 >>244
お前にナースの友達なんぞいないだろ
妄想も大概にしろよ 手を付けるのは一部署一人にしてください夜勤を組むのが大変なんですから。 def f(k,p,N):
P=[]
for i in range(N):P.append(0)
P[k-1]=p**k
for n in range(k,N):P[n]=P[n-1]+(1-P[n-k-1])*(1-p)*p**k
return P[N-1]
def g(k,p,N):return f(k,p,N) - f(k+1,p,N)
print('1000回投げて6回以上1の目が続く確率: {}'.format(f(6,1/6,1000)))
print('1000回投げて6回1の目が続く確率:{}'.format(g(6,1/6,1000)))
re=[]
re.append(0)
for i in range(1,11):re.append(g(i,1/6,2023))
print('2023回投げて1の目が連続する最頻値 : {}'.format(re.index(max(re))))
# 藤井聡太 : 勝率339/407
print('3連敗の以上の確率 : {}'.format(f(3,1-339/407,407)))
print('3連敗の確率 : {}'.format(g(3,1-339/407,407)))
re=[]
re.append(0)
for i in range(1,50):re.append(g(i,339/407,407))
print('最頻連勝数 : {}'.format(re.index(max(re)))) 外国人の遷延する咳嗽でGERDが疑われてEGD
きれいな正円のSCJでGERDなし。
料理好きの懇意なナースに、次に何を検査したらいいかときかれて
◯スポット検査でしょうね、Gじゃないよと答えたら
今日はビッグなジョークですねと笑顔で答えてくれた。 >>250
マジで気持ち悪いなお前
妄想も大概にしろよ
咳嗽だけでTスポットやるわけないだろ
先に画像検査するわ偽医者が 540：卵の名無しさん：[sage]：2023/09/22(金) 14:44:11.62 ID:pZIJQPnb
うちは急性期病棟がなくなって地域包括病棟になった。
自宅復帰率の縛りがあるので転院退院は避けろという。
そのくせ救急は断るなという。
生命に関わる疾患は対応できないのにどうしろというんだと思う。入院させて見殺しをデフォにしろと言うことか？
また言葉のサラダになってるw smoking_ca_dag <- dagify(cardiac_disease ~ cholesterol,
cholesterol ~ smoking + weight,
smoking ~ ~unhealthy,
weight ~ unhealthy,
cholesterol ~ alcohol,
alcohol ~ unhealthy,
lung_disease ~ smoking,
cardiac_disease ~ ~ lung_disease,
labels = c(
"lung_disease" = "呼吸器疾患",
"cardiac_disease" = "心疾患",
"smoking" = "喫煙",
"cholesterol" = "脂質異常症",
"unhealthy" = "不摂生",
"weight" = "肥満",
"alcohol" = '飲酒'
),
# labels = c(
# "lung_disease" = "肺",
# "cardiac_disease" = "心臓",
# "smoking" = "喫煙",
# "cholesterol" = "脂質",
# "unhealthy" = "不摂生",
# "weight" = "肥満",
# "alcohol" = '飲酒'
# ),
latent = "unhealthy",
exposure = "smoking",
outcome = "cardiac_disease"
)
ggdag(smoking_ca_dag, text = FALSE, use_labels = "label") >>251
業界ネタのジョークすら理解できない椰子って
ナースからも嫌われていそう。
作業仮説：臨床をやっている女医は不細工か不倫している
(エビデンスレベルV：個人の経験 n=22) 作業仮説 ： 国立卒の女医はフェラを嫌う。
但し、新設国立は逆に思える（四国の大学とかｗ） >>251
気管支結核は画像診断だと確定しにくいね。
昔、吐血という触れ込みで緊急内視鏡になった患者がいたが、結核だったなぁ。
まあ、吐血ではなかったんだが。
問題 吐血と診断された理由を推測せよ。 >>251
こんな投稿をドヤ顔でする椰子が脳内医師じゃねｊｋ
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。 >>257
当たり前ですって。
国試だと禁忌肢だろうから、
こんなのかくのは脳内医師か、裏口シリツと推定される。 Rのggdagを使うとこうゆう作図が簡単にできて( ・∀・)ｲｲ!!
https://i.imgur.com/1KNMyma.png 朝の練習問題
a=BC=4,b=CA=5,c=AB=6の△ABCの辺CA上に点Pを、以下の条件を満たすようにとる。
（条件）
△BPAの内接円の半径と、△BPCの内接円の半径が等しい
APの値を求めよ。
参考図
立式してRに計算させて、その数値を使っての作図。
https://i.imgur.com/fJh6JGk.png 胸部X線・CTに異常がないからEGDに回ってきたことに想到できないって
脳内医者だと思う。
こんな投稿をドヤ顔でする椰子だから。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。 >>256
気管支結核でもCTなら異常出るから
逆食疑って内視鏡に回ってくることはありません
知らんくせに適当な事言うなボケ 545：卵の名無しさん：[sage]：2023/09/23(土) 04:41:52.88 ID:LHHOZBKX
扁平上皮癌による無気肺かと思ったら気管支結核だったことがあるぁ。
クオンティフェロン登場前の時代の経験。
◯スポットのジョークを笑えるナースがいる職場は楽しいね。
尿瓶ジジイ懲りずに急性期スレにもこんなこと書いてる >>254
アンタの業界ネタ()がジョークなんだろ
そんな気色悪い同僚仮にいたらドン引きで誰も相手にしないわ
セクハラは患者で間に合ってんだよ
というかアンタ患者だろ？ 尿瓶ジジイって誰も書き込んでないであろう早朝しか発狂できないのか？
前日までのアホレスはなかったことにしたいのか？ Modern Epidemiologyを面白そうな箇所を広い読みしていたが、
祝日でまとまった時間がとれたのでRでDAGを学習。
https://i.imgur.com/E2erhfw.png
colliderのdescendantでadjustしたときの影響。
https://i.imgur.com/KBcIXyA.png >>262
遷延性咳嗽で画像診断せずに
最初からEGDに回ってくるわけないだろ。
アホかよ。
こんな投稿をドヤ顔でする椰子だから、まあ、アホは確定。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
あんたこそ、脳内医師じゃねぇのｗ >>264
国立卒の女医はフェラ嫌いが多いが、四国の新設国立は逆である。
エビデンスレベルV ： 個人の経験
学生時代には息子が女子医大生に大変お世話になりましたｗ >>268
気管支結核だったらCTだったら少なくとも肺の異常はわかるから
内視鏡に回ってこないって言ってんだけど
相変わらず理解力皆無だなw
日本語理解できる？ 尿瓶ジジイの低俗な妄想止まらないね
これが60オーバーのジジイが毎日発狂してるのかと思うと情けなくて日本のお先真っ暗感がすごい 電子書籍だと図表とその説明がページを跨ぐと読みづらいが
最近は複数のデバイスで同時閲覧できるから何とかなる
Modern Epidemiologyの最新版は紙版を買うとオフラインでも読めるようになっていてありがたい。紙と違って文字の大きさを変えることができるのもいい。 >>262
気管支結核のCT所見を即答してみ。
脳内医者には無理じゃね? # 軽症 重症
# 国立大学 10/10 10/90
# 底辺私立 70/90 0/10
# 放置 40/50 5/50
library(fmsb)
# total
rateratio(20,70,100,100)$p.value # 国立vs私立*****
rateratio(20,45,100,100)$p.value # 国立VS放置*
rateratio(70,45,100,100)$p.value # 私立vs放置*
# mild
rateratio(10,70,10,90)$p.value # 国立vs私立
rateratio(10,40,10,50)$p.value # 国立VS放置
rateratio(70,40,90,50)$p.value # 私立vs放置
# serious
rateratio(10,0,90,10)$p.value # 国立vs私立
rateratio(10,5,90,50)$p.value # 国立VS放置
rateratio(0,5,10,50)$p.value # 私立vs放置 >>277
気管支結核は気管支壁の肥厚と内腔の狭小化とかが教科書的だが実際には結節影、粒状影無気肺とか様々な所見が出るから
CTかけて総スルーとか絶対にありえん
少なくとも咳嗽で内視鏡に回してくるような医者なら気づく
なのでTスポットをやるっていう発想はお前が素人の証拠だわ 尿瓶ジジイはネットで仕入れた医療用語を適当に貼り合わせてるだけみたいだねw 一文字の誤植に気付くまで理解できなかった
Rule 2: x and y are d-connected, conditioned on a set Z of nodes, if there is a collider-tree path between x and y that traverses no member of Z. If no such path exists, we say that x and y are d-separated by Z, We also say then that every path between x and y is "blocked" by Z. 一文字の誤植に気付くまで理解できなかった
Rule 2: x and y are d-connected, conditioned on a set Z of nodes, if there is a collider-tree path between x and y that traverses no member of Z. If no such path exists, we say that x and y are d-separated by Z, We also say then that every path between x and y is "blocked" by Z. 一文字の誤植に気付くまで理解できなかった
Rule 2: x and y are d-connected, conditioned on a set Z of nodes, if there is a collider-tree path between x and y that traverses no member of Z. If no such path exists, we say that x and y are d-separated by Z, We also say then that every path between x and y is "blocked" by Z. 一文字の誤植に気付くまで理解できなかった
Rule 2: x and y are d-connected, conditioned on a set Z of nodes, if there is a collider-tree path between x and y that traverses no member of Z. If no such path exists, we say that x and y are d-separated by Z, We also say then that every path between x and y is "blocked" by Z. 感染初期はCTでも異常が捉えられない、が正答でした。
AIGの初期を内視鏡だけで診断するのが困難なのと同じ。
こんな投稿をドヤ顔でする脳内医師の答だな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。 ベテランナースはクオンティフェロンは知っていたいたけど
Tスポットは知らなかった。
因みにGの方は知っていたｗ 高校数学の質問スレ Part431
346：１３２人目の素数さん：[sage]：2023/08/25(金) 14:02:36.99 ID:YPG0YjFf
尿瓶ジジイの自称学歴信じる人いたらレスして下さい
非東大卒でも可
548：１３２人目の素数さん：[sage]：2023/09/09(土) 10:27:42.51 ID:oI/tY4dY
尿瓶ジジイの自称学歴と自称医者というのが本当だと思う方レスしてください
当然レスなしw
このスレ全員が尿瓶ジジイ＝ID:zPU2YNKo＝ ID:mQHt1DGpのことを妄想だと思ってる模様 >>290
はい、アホ発見
慢性咳嗽って概念わかってないだろ？
GERD疑って内視鏡やるぐらいの咳嗽なら、普通は1ヶ月以上続いてるから調べんるんだよ
その時点での気管支結核ならCTで所見は絶対でる
というか、お前言い訳ばっかだな
どう考えても後付多いしお前の人生言い訳ばかりなんだろうな こんな投稿をドヤ顔でする脳内医師の答だな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ
んで、
言い訳がわざと間違えたですって。
裏口シリツ医でもそんな苦しい言い訳はしないから脳内医師だろうな。 >>294
それもとっくに論破されてるのに見苦しいねw 575：卵の名無しさん：[sage]：2023/09/25(月) 07:48:44.20 ID:Xbn8nx06
自分には打たないワクチン接種するのは
闇バイトの受け子かdrug dealerだな。
576：卵の名無しさん：[sage]：2023/09/25(月) 07:52:19.45 ID:Xbn8nx06
天皇家はブースター接種を受けていない。
受けたという宮内庁発表はなし。
ブースター推奨は不敬。
Q.E.D.
はい、アホ発見 Power Toy : Text Extractor
Win+shift+T >>298
おい尿瓶ジジイ>>293には何も言い返せないのか？ >>298
頭悪くて何も思い浮かばなかったんだな
ドンマイw rm(list=ls())
par(bty='l',pch=16)
set.seed(123)
n=300
x=rnorm(n,50,10)
y=rnorm(n,3000,600)
z=rbinom(n,1,1/5)
data=data.frame(x,y,z)
pairs(~x+y+z,data)
w=ifelse(z==0,40*x+y,60*x+(2/3)*y)
i=which(w>=5000)
lm=lm(y[i]~x[i])
plot(x[i],y[i],xlab='合格者の成績',ylab='合格者の寄付金') ; abline(lm,col=2)
par(mfrow=c(2,2)) ; plot(lm) ; layout(1)
summary(lm)
cor(x[i],y[i])
library(ggdag)
library(ggplot2)
theme_set(theme_dag())
dat.dag <- dagify(w~x,w~y,w~z,exposure = 'x',outcome = 'y',
labels=c(x='成績',y='寄付金',z='コネ',w='合格'))
dat.dag %>% ggdag(text = FALSE, use_labels = "label")
dat.dag %>% ggdag_dconnected(controlling_for = 'w',text = FALSE, use_labels = "label") colliderをconditionするとparent variables間に相関が生じる、というDAGのruleを使った「統計処理」
こういう説明よりは具体的な数字を使って（PC上で）実験して体感できるのは( ・∀・)ｲｲ!!。
https://www.igaku-shoin.co.jp/paper/archive/y2021/3423_06 >>300
画像で電子化されている書籍からTextを引き出させて
ほんと便利。いつでも画面をOCRできるToolで( ・∀・)ｲｲ!!
Google Driveにアップロードしなくてもよくなった。 >>295
わざと間違えたが論破とは、
底辺シリツ医でもいわんわ。
こんな投稿をドヤ顔でする脳内医師の答だな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ
んで、
言い訳がわざと間違えたですって。
裏口シリツ医でもそんな苦しい言い訳はしないから脳内医師だろうな。 >>304
お前それしか言ってねえな
気管支結核の話はどうしたんだよw
頭悪すぎ >>304
0274卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd9f-ZmF9 [49.105.77.69])2023/06/17(土) 10:56:21.05ID:8gbikhN+d>>269
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
>>252でお前は、悪性高熱症に抗ドーパミン薬止めるって書いてるよな？それが全く病態理解出来てないって話なんだが
会話成り立た無さすぎだろ。話をはぐらかしてんのか？
↓ この間1分
0275卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd9f-ZmF9 [49.105.77.69])2023/06/17(土) 10:57:36.82ID:8gbikhN+d>>274
抗ドーパミン薬→抗パーキンソン病薬
↓この間5日。しかも他の書き込みはあり。
0283卵の名無しさん (ﾜｯﾁｮｲ 5f58-WBpu [14.13.16.0])2023/06/22(木) 14:25:34.41ID:LJgEduw70>>274
抗ドーパミン薬ってプリンペランのことかよ！
これはタイプミスとは思えんくらい恥ずかしいぞ。
>>
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
<<
俺は抗パ剤と書いたのに抗ドーパミン薬だってさ。
ダントレン溶解したこともないんじゃね？
逆に聞きたいんだけど、わざと間違えたわけでも無いのに1分後に修正出来るわけ無いと思うんだけどwww
知らなかったんならどうやって1分後に修正できる知識みにつけれるの？教えて欲しいわ
お前はこんな誰でもわかる間違いを5日かかってやっと理解したからわざわざ書き込んだんだろ？
どうやったらそんなに訂正指摘するのに時間かかるの?教えてよwww 最底辺の川崎医大だって、東京理科大の最難関学部と同じ偏差値やぞ
医学部受験をなめんなよ 980：１３２人目の素数さん：[sage]：2023/09/27(水) 09:26:06.55 ID:DO0foeEw
>>960
古株ナースに◯スポットTBの話をしても話が通じなかったが
若手のナースだとすぐにわかった。
古株にはクオンティフェロンの進化版ですといったら理解した。
◯はGじゃないからね、といったらどちらも大笑いしていた。
楽しい職場ｗｗｗ デフォルトでパイプ演算子が使えるRの方が使いやすい。
data11 <- read.csv("causality-main/data11.csv")
tail(data11)
summary(data11)
attach(data11)
library(MatchIt)
m.out1=matchit(t1~x1+x2+x3+x4+x5+x6,data=data11,replace=TRUE,
distance="glm",method="nearest")
m.out1 |> summary() |> plot()
傾向スコアによるマッチング前後のcovarianceの分布の描写
https://i.imgur.com/pjwXUVX.png summary(m.out1)$sum.all[,'Std. Mean Diff.'] -> diffa
summary(m.out1)$sum.matched[,'Std. Mean Diff.'] -> diffb
diff1=rev(diffa)
diff2=rev(diffb)
maxx=max(diff1,diff2)
labels0=rownames(summary(m.out1)$sum.all)
labels1=rev(labels0)
dotchart(diff1,xlim=c(0,maxx),labels=c(labels1))
abline(v=0,col=8)
abline(v=0.1,col=8)
abline(v=0.05,lty=2,col=8)
par(new=TRUE)
dotchart(diff2,
が1行でできた。
まあ、何をしているのが理解して作図の方がいいけどとは思うが手間がかからないのも( ・∀・)ｲｲ!!
plot(summary(m.out1),position='top')
https://i.imgur.com/qMFiwxB.png data11 <- read.csv("causality-main/data11.csv")
tail(data11)
summary(data11)
attach(data11)
library(MatchIt)
library(lmtest)
library(sandwich)
m.out1=matchit(t1~x1+x2+x3+x4+x5+x6,data=data11,replace=TRUE,
distance="glm",method="nearest")
m.out1 |> summary() |> plot()
m.out1$model$fitted.values -> ps1 # propensity score
m.data1<-match.data(m.out1)
model1=lm(y3~t1,data=m.data1,weights = weights)
model2=lm(y3~t1+x1+x2+x3+x4+x5+x6,data=m.data1,weights = weights)
m.out2=matchit(t1~x1+x2+x3+x4+x5+x6,data=data11,replace=FALSE,
distance="glm",method="nearest")
m.out2$model$fitted.values -> ps1 # propensity score
m.data2<-match.data(m.out2)
model3=lm(y3~t1,data=m.data2,weights = weights)
model4=lm(y3~t1+x1+x2+x3+x4+x5+x6,data=m.data2,weights = weights)
coeftest(model2,vcov. = vcovCL,cluster=~weights)
coefci(model2,vcov. = vcovCL,cluster=~weights)
summary(m.out1) |> names() summary(m.out1)$sum.all[,'Std. Mean Diff.'] -> diffa
summary(m.out1)$sum.matched[,'Std. Mean Diff.'] -> diffb
diff1=rev(diffa)
diff2=rev(diffb)
maxx=max(diff1,diff2)
labels0=rownames(summary(m.out1)$sum.all)
labels1=rev(labels0)
dotchart(diff1,xlim=c(0,maxx),labels=c(labels1))
abline(v=0,col=8)
abline(v=0.1,col=8)
abline(v=0.05,lty=2,col=8)
par(new=TRUE)
dotchart(diff2,xlim=c(0,maxx),labels=c(labels1),pch=16,xlab='Absolute Standardized Mean Difference')
plot(summary(m.out1),position='top')
attach(data11)
head(data11)
mean(y1t)-mean(y0t)
mean(y1t[t1==1])-mean(y0t[t1==1]) sub=5
m.out2=matchit(t1~x1+x2+x3+x4+x5+x6,
data=data11,method = 'subclass',subclass=sub,estimand = 'ATE',min.n=2)
m.data2=match.data(m.out2)
psp=psvar=nps=robustvar=NULL
for(j in 1:sub){
dataps=m.data2[m.data2$subclass==j,]
model4=lm(y3~t1+x1+x2+x3+x4+x5+x6,data=dataps)
psp[j]=summary(model4)$coef[2,1]
psvar[j]=summary(model4)$coef[2,2]^2
nps[j]=nrow(dataps)
robustvar[j]=coeftest(model4,vcov. = vcovCL,cluster=~weights)[2,2]
}
psp
psvar
nps
robustvar
データはPCに読み込ませて
コマンドは手入力した方が身につくなぁ。
パッケージの原理を理解して、計算そのものはプログラムに任せる。
マクローリン展開の数値を入力して計算するのは手計算でする気にならんのと同じ。 尿瓶ジジイ脳内医療へのツッコミはもうダンマリ決め込むしかないのか？ こんな投稿をドヤ顔でする脳内医師だろうなぁ。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ 傾向スコアも算出法が種々あるようだ。
デフォルトのreplace=FALSEは今ひとつだな。
rm(list=ls())
library(MatchIt)
?matchit
data11=read.csv("./causality-main/data11.csv")
head(data11)
attach(data11)
mean(y3[t1==1]) - mean(y3[t1==0]) # naive 15.809
mean(y1t)-mean(y0t) # ATE 3.756
mean(y1t[t1==1]) - mean(y0t[t1==1]) # ATT 2.889
f=\(){
m.out |> print()
m.data=match.data(m.out)
# lm(y3~t1,data=m.data,weights = weights) |> print()
lm(y3~t1+x1+x2+x3+x4+x5+x6,data=m.data,weights = weights) |> print()
}
m.out=matchit(t1~x1+x2+x3+x4+x5+x6,data=data11) ; f()
m.out=matchit(t1~x1+x2+x3+x4+x5+x6,data=data11,replace=TRUE,distance='glm',method = 'nearest') ; f()
m.out=matchit(t1~x1+x2+x3+x4+x5+x6,data=data11,replace=TRUE,distance='mahalanobis') ; f()
m.out=matchit(t1~x1+x2+x3+x4+x5+x6,data=data11,replace=TRUE,method='optimal') ; f()
m.out=matchit(t1~x1+x2+x3+x4+x5+x6,data=data11,,method = 'subclass',subclass = 5, min.n = 2) ; f() >>316
んで、薬屋の売り子以外にあんたなんかできんの？
カテとか食道切除くらいできるんの？
薬屋の売り子にしても
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ
ですって。
シリツ医未満の頭脳だから、脳内医師決定！
◯スポットのジョークに付き合ってくれるような懇意なナースもいないようだね。 >>325
アンタしかいないんだけどダンマリ決め込んでるアホ東大卒脳内医者は ↓以下、ダンマリ決め込んでチンパン数学()を再開する尿瓶ジジイの発狂 傾向スコア使ってATTでなくATEも算出できるんだな。
星野の赤本は数式だらけで理解不能だったが、
Rのコードで解説されると理解が捗る。
f=\(){
m.out |> print()
m.data=match.data(m.out)
# lm(y3~t1,data=m.data,weights = weights) |> print()
lm(y3~t1+x1+x2+x3+x4+x5+x6,data=m.data,weights = weights) |> print()
}
# stratification
m.out=matchit(t1~x1+x2+x3+x4+x5+x6,data=data11, method = 'subclass',subclass = 5, min.n = 2) ; f()
f()
m.out |> summary()
summary(m.out)$sum.all[,'Std. Mean Diff.'] |> abs() |> rev() -> diff1
summary(m.out)$sum.across[,'Std. Mean Diff.'] |> abs() |> rev() -> diff2
Max=max(c(diff1,diff2))
dotchart(diff1,xlim=c(0,Max))
par(new=TRUE)
dotchart(diff2,pch=16,xlim=c(0,0.6))
# IPV(inverse probability weighting)
model=glm(t1~x1+x2+x3+x4+x5+x6,data=data11,family=binomial(link='logit'))
ps=model$fitted.values
w8=ifelse(t1==1,1/ps,1/(1-ps))
lm(y3~t1,data=data11,weights = w8) |> summary()
lm(y3~t1+x1+x2+x3+x4+x5+x6,data=data11,weights = w8) |> summary()
library(lmtest) ; library(sandwich)
lm(y3~t1+x1+x2+x3+x4+x5+x6,weights = w8) |> lmtest::coefci(vcov.=vcovCL,cluster=w8) >>327
薬屋の売り子って言葉好きだなw
お前よりは何でも出来るよ脳内医者w
前から言ってるが「カテ」って言っても様々な種類あるのにどれのこと言ってんだよ
PCI？TAE？EVT？血栓回収？今はペースメーカとかでもカテーテル使うんだが
脳内医者だから「カテ」って言葉しか出てこないんだろ？
医者だったら正確に使い分けるんだけどな～
言葉は正確に使えよ脳内医者君www 尿瓶ジジイは脳内医者の分際で内科医を見下してるのか？
脳内ブラックジャックって滑稽極まりないんだがw >>333
んで、あんたはオペとかカテとかできんの？
んで、薬屋の売り子以外にあんたなんかできんの？
カテとか食道切除くらいできるんの？
薬屋の売り子にしても
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ
ですって。
シリツ医未満の頭脳だから、脳内医師決定！
◯スポットのジョークに付き合ってくれるような懇意なナースもいないようだね。 rm(list=ls())
par(bty='l')
n=1000
c1=130
x1=rnorm(n,150,25)
y0t=x1+rnorm(n,0,10)
y1t=10*sqrt(x1)+rnorm(n,0,10)
t1=x1>c1
y3=ifelse(t1,y1t,y0t)
plot(x1,y0t,pch=2,col=ifelse(t1,8,1))
plot(x1,y1t,pch=1,col=ifelse(t1,1,8))
plot(x1,y3,pch=ifelse(t1,1,2))
model0=lm(y3[!t1]~x1[!t1])
model1=lm(y3[t1]~x1[t1])
abline(model0,lty=2)
abline(model1)
abline(v=c1,lty=3) rm(list=ls())
par(bty='l')
set.seed(1)
n=1000
c1=130
x1=rnorm(n,150,25)
y0t=x1+rnorm(n,0,10)
y1t=10*sqrt(x1)+rnorm(n,0,10)
t1=x1>c1
y3=ifelse(t1,y1t,y0t)
ylim=c(50,250)
ylim=ylim
plot(x1,y0t,ylim=ylim,pch=2,col=ifelse(t1,8,1))
plot(x1,y1t,ylim=ylim,pch=1,col=ifelse(t1,1,8))
plot(x1,y3,ylim=ylim,pch=ifelse(t1,1,2))
model0=lm(y3[!t1]~x1[!t1])
model1=lm(y3[t1]~x1[t1])
abline(model0,lty=2)
abline(model1)
abline(v=c1,lty=3) >>335
だからさ、オペとかカテとか具体的になんなんだよwww
そんなアバウトな解答で良いならオペもカテも出来るわ
お前みたいな脳内医者と違ってなwww >>338
非開胸食道抜去とか血栓除去とかできないだろ？
薬屋の売り子以外に何かできんの？
まぁ、これじゃ薬屋の売り子としても失格。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
こんな投稿をドヤ顔でする椰子が脳内医師じゃねｊｋ >>340
それもとっくに論破されてるのに見苦しいね尿瓶ジジイ
最近はなんで朝しか発狂できないんだ？ジジイだから朝しか元気がないのか？ >>340
お前の基準で言ったら「出来る」
だって、お前一回見たことあったら何でも出来るようになってるって勘違いしてるんだろ？www血栓除去の知識とか素人丸わかりだもんな
血栓除去とか全部フォガティカテでやると思ってるんだろ？脳内ブラックジャックは夢見れて良いよなwww羨ましいわ >>340
0274卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd9f-ZmF9 [49.105.77.69])2023/06/17(土) 10:56:21.05ID:8gbikhN+d>>269
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
>>252でお前は、悪性高熱症に抗ドーパミン薬止めるって書いてるよな？それが全く病態理解出来てないって話なんだが
会話成り立た無さすぎだろ。話をはぐらかしてんのか？
↓ この間1分
0275卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd9f-ZmF9 [49.105.77.69])2023/06/17(土) 10:57:36.82ID:8gbikhN+d>>274
抗ドーパミン薬→抗パーキンソン病薬
↓この間5日。しかも他の書き込みはあり。
0283卵の名無しさん (ﾜｯﾁｮｲ 5f58-WBpu [14.13.16.0])2023/06/22(木) 14:25:34.41ID:LJgEduw70>>274
抗ドーパミン薬ってプリンペランのことかよ！
これはタイプミスとは思えんくらい恥ずかしいぞ。
>>
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
<<
俺は抗パ剤と書いたのに抗ドーパミン薬だってさ。
ダントレン溶解したこともないんじゃね？
逆に聞きたいんだけど、わざと間違えたわけでも無いのに1分後に修正出来るわけ無いと思うんだけどwww
知らなかったんならどうやって1分後に修正できる知識みにつけれるの？教えて欲しいわ
お前はこんな誰でもわかる間違いを5日かかってやっと理解したからわざわざ書き込んだんだろ？
どうやったらそんなに訂正指摘するのに時間かかるの?教えてよwww >>345
おい、尿瓶ジジイ
これにもコメントしろよ
国立医だぞ おい尿瓶ジジイ
あんなに威勢よく発狂してたのに何も言い返せなくなると急にダンマリかよ
いつもの言葉のサラダで発狂してみ？w 843 卵の名無しさん (ﾜｯﾁｮｲ 2b58-QWSH [14.13.16.0])[sage] 2022/10/10(月) 11:50:10.17 ID:B2/o7LfA0
>>842
尿瓶とは尿瓶おまる洗浄係のオマエの商売道具だろ。
俺はマックグラスとかN1200が商売道具。
んで、あんたどこ卒？
>747をみてみ
母校に誇りのある国立大学卒業の人はちゃんと卒業大学を言えるぞ。
850卵の名無しさん (ﾜｯﾁｮｲ bac9-eoYI [59.139.198.126])2022/10/10(月) 13:43:32.38ID:hItGoz5b0>>858
N1200って何ですか？？w
858卵の名無しさん (ﾜｯﾁｮｲ 2b58-QWSH [14.13.16.0])2022/10/11(火) 06:58:48.90ID:5u0EIbP40
>>850
内視鏡医の業界用語
213 卵の名無しさん (ﾌﾞｰｲﾓ MM59-h29o [220.156.14.55])[sage] 2023/06/04(日) 08:15:13.67 ID:K5P3M+MCM
今月から市の胃がん検診が始まった。
細径内視鏡での検査希望が増えて来たので1200Nを1本増やしてもらえた。経鼻は前処置に時間がかかるのと鼻出血の合併症合併症ありうるので原則経口。
洗浄での待ち時間が短縮できて( ・∀・)ｲｲ!!
間違いを認めなかった分際で後でしれっと修正した脳内医者尿瓶ジジイw 46：１３２人目の素数さん：[sage]：2023/10/02(月) 16:06:15.28 ID:TyrASYCq
統計的因果推論の理論と実装 (Wonderful R) を未消化ながらも読了。
読了後の課題：臨床実地問題ｗ
身長154cm バスト88cm(Hカップ) ウェスト60cm ヒップ92cmの22歳女性の体重と股下長を推定したい。
(1)下記のデータを使って推定せよ。
若年成人女子の人体計測データからみた体格・体型特性
https://www.jstage.jst.go.jp/article/jje1965/33/2/33_2_97/_pdf/-char/ja
(2)推定値の95%CI(Credibule Interval)を算出せよ。
あらゆるリソースを用いてよい。
尿瓶ジジイ、数日ぶりの書き込みがこれw 多変量正規乱数
分散共分散行列=分散対角行列%*%相関行列%*%分散対角行列
MASS::mvrnorm(個数, 平均値ベクトル,分散共分散行列) Expectation-Maximization (w/ Bootstraping)
rm(list=ls())
options(digits = 7)
n=5 # （完全データの）サンプルサイズ
x=c(415,415,239,239) # リストワイズ除去済欠損データ <- ブートストラップ標本：415,415,239,239,NA
mu=sample(100,1) # 初期値
for(i in 1:100){
mu[i+1]=(sum(x)+(n-length(x))*mu[i]) /n
# {1308 + (5 - 4 ) * mu[i]} /5
# （完全データ総和 + 欠損データ数＊直前の平均値）/ サンプルサイズ
if(mu[i+1]-mu[i]<1e-5) break # 収束判定条件
}
mu[length(mu)] ; i
plot(mu)
# 平均mean,標準偏差sdの対数正規分布乱数
Rlnorm <- function(n, mean=1, sd=1) {
sdlog <- sqrt(log((sd/mean)^2 + 1))
meanlog <- log(mean) - (sdlog^2) / 2
rlnorm(n, meanlog = meanlog, sdlog = sdlog)
} どこの国立を落ちたのか？の問にダンマリを決め込む椰子がいるなぁ
東大合格通知の書式すら知らなかったから東大合格者でないのは確定。
おそらく、シリツだな。 >>357
おい、>>354にコメントしろよ
この女医国立医だぞ n=50
set.seed(123) ; Yt=round(Rlnorm(n,60,15)) # 完全データ
hist(Yt,'scott')
mean(Yt)
sd(Yt)
Yobs=Yt
Yobs[sample(n,20)]=NA
Yobs # 観察値
hist(Yobs)
EMB=\(){
x=sample(Yobs,50,replace=TRUE) # bootstrap標本
x=x[!is.na(x)] # bootstrap標本からNAを除く
mu=50 # 初期値
i=1
mu[i+1]=(sum(x)+(n-length(x))*mu[i])/n
flg <- abs(mu[i+1]-mu[i])<1e-6 # 収束条件
while(!flg){
mu[i+1]=(sum(x)+(n-length(x))*mu[i])/n
flg <- abs(mu[i+1]-mu[i])<1e-6
i=i+1
}
M=mu[length(mu)]
return(M)
} 身長154cm バスト88cm(Hカップ) ウェスト60cm ヒップ92cmの22歳女性の体重と股下長を推定したい。
(1)下記のデータを使って推定せよ。
若年成人女子の人体計測データからみた体格・体型特性
https://www.jstage.jst.go.jp/article/jje1965/33/2/33_2_97/_pdf/-char/ja
(2)推定値の95%CI(Credible Interval)を算出せよ。
課題 ： Ameliaでなくmiceを使ってプログラム 身長154cm バスト88cm(Hカップ) ウェスト60cm ヒップ92cmの22歳女性の体重と股下長を推定したい。
(1)下記のデータを使って推定せよ。
若年成人女子の人体計測データからみた体格・体型特性
https://www.jstage.jst.go.jp/article/jje1965/33/2/33_2_97/_pdf/-char/ja
(2)推定値の95%CI(Credible Interval)を算出せよ。
課題 ： Ameliaでなくmiceを使ってプログラム いつものナースが子供の運動会で休み。
別の懇意なナースが代替勤務。
「センセ、お久しぶり、今はウロにいますけど、膀胱鏡を受けませんか」とのお誘いがあったが、
「がっかりされちゃいますから」とお断りしたら爆笑だった。 >>364
お前、いつもこんなことやってんのか？
本当に気持ち悪いな 内視鏡のデータからピロリ感染の有無を判断するのも
こういう欠損データ補充と同様。
欠測データ処理: Rによる単一代入法と多重代入法 (統計学One Point)
を独学中。星野の本は難しすぎて諦めた。 >>367
そもそも日本語すらよく理解してないだろチンパン まあリアルでこんな奴いたら誰にも相手にされず孤独死だけどここでは思う存分バカにしてもらえる
この時代に生きててよかったな尿瓶ジジイw imp=mice(dat)
re=with(imp,lm(y ~ x1 +x2))
summary(pool(re)) >>370
おい尿瓶ジジイ
素人相手にはイキリ散らかしてるのにここじゃ何も言えないのか set.seed(1) ; sample(9)
sample(9)
sample(9)
rm(.Random.seed)
sample(9) set.seed(1)
temp0=matrix(c(
154.87,76.8,59.46,88.91,38.8,68,46.96,
164.51,90.84,68.93,90.95,42.21,76.63,60.96,
160.53,74.79,53.1,81.92,35.48,75.74,37.98,
162.99,82.58,60.89,89.4,38.82,74.91,51.33,
157.21,86.72,67.01,89.05,37.28,75.6,47.69,
155.12,79.4,61.1,86.29,36.95,71.42,45.34,
160.61,79.79,58.61,87.44,36.91,72.48,45.37,
166.59,85.43,61.72,92.55,39.5,72.67,48.29,
161.35,77.68,62.16,92.13,40.01,74.13,53.19,
166.66,81.98,59.18,92.81,39.93,75.44,47.64,
160.4,79.64,58.96,85.76,40.24,72.09,46.51,
162.62,83.38,66.68,89.78,41.37,73.07,51.73,
160.64,85.04,62.89,91.93,41.01,70.57,51.95,
151.2,75.61,58.58,86.17,35.54,70.39,42.34,
162.19,89.91,72.88,99.34,39.62,72.09,64.54,
166.24,83.63,64.87,89.35,40.21,74.91,51.5,
159.8,71.97,61.73,88.7,44.39,74.95,47.95,
162.8,79.53,59.45,88.72,39.37,73.49,51.13,
154.05,76.93,60.21,82.52,36.1,69.75,44.3,
151.66,86.47,61.7,85.62,34.85,68.5,44.93),nrow=20,by=TRUE)
colMeans(temp0)
colnames(temp0)=c('身長','胸囲','腹囲','腰囲','肩幅','股下','体重')
for(i in 1:7){
temp0[sample(20,i+3),i]=NA
}
temp0
summary(temp0) f=function(x) c(x[1],log(x[2]),log(x[3]),log(x[4]),x[5],x[6],log(x[7]))
temp1=t(apply(temp0,1,f)) # スリーサイズ体重の対数化
temp1=temp0
library(mice)
m.out=mice(temp1,print=FALSE)
temp2=complete(m.out)
g=function(x) c(x[1],exp(x[2]),exp(x[3]),exp(x[4]),x[5],x[6],exp(x[7]))
temp3=t(apply(temp2,1,g))
temp3=temp2
summary(temp3)
m.lm.w8=with(m.out,lm(体重~身長+胸囲+腹囲+腰囲+肩幅+股下))
summary(pool(m.lm.w8))
m.lm.b=with(m.out,lm(胸囲~身長+腹囲+腰囲+肩幅+股下+体重))
summary(pool(m.lm.b)) 欠損値を含む女子大学生20人のスペックから
線形回帰する
身長 胸囲 腹囲 腰囲 肩幅 股下 体重
[1,] NA NA 59.46 88.91 NA 68.00 46.96
[2,] NA 90.84 68.93 NA 42.21 76.63 NA
[3,] 160.53 74.79 53.10 81.92 NA 75.74 37.98
[4,] NA 82.58 60.89 89.40 38.82 74.91 51.33
[5,] 157.21 NA 67.01 NA 37.28 75.60 47.69
[6,] 155.12 79.40 61.10 86.29 NA NA NA
[7,] NA 79.79 NA 87.44 36.91 NA NA
[8,] 166.59 85.43 61.72 92.55 39.50 NA NA
[9,] 161.35 77.68 NA NA 40.01 NA 53.19
[10,] 166.66 81.98 NA NA NA 75.44 NA
[11,] 160.40 NA 58.96 85.76 40.24 72.09 46.51
[12,] 162.62 83.38 66.68 89.78 NA NA 51.73
[13,] 160.64 85.04 62.89 91.93 41.01 70.57 NA
[14,] 151.20 NA NA NA 35.54 70.39 NA
[15,] 162.19 89.91 NA 99.34 NA NA NA
[16,] 166.24 83.63 64.87 89.35 NA 74.91 51.50
[17,] 159.80 71.97 61.73 NA 44.39 NA NA
[18,] 162.80 NA 59.45 88.72 39.37 NA 51.13
[19,] 154.05 76.93 60.21 82.52 NA NA NA
[20,] 151.66 86.47 NA NA 34.85 68.50 44.93
腹囲が1cm増えると体重はどうなるか？ 答: 約510g増える
胸囲の場合はどうか？ # 平均値m 分散vの事前ベータ分布で
# 成功s回 失敗f回の事後分布の平均値
mv2post=function(m,v,s,f){
a = -(m *(m^2 - m + v))/v
b = ((m - 1)* (m^2 - m + v))/v
A=a+s
B=b+f
c(A/(A+B),A*B/(A+B)^2/(1+A+B))
}
mv2post(1/2,1/12,1,0) # m=1/2 v=1/12 : 一様分布
mv2post(1/2,1/12,10,0)
mv2post(1/2,1/12,100,0) income=c(244,200,NA,215,432,439,346,452,526,NA,486,NA,424,507,NA,571,NA,NA,726,NA)
age=c(NA,24,30,32,34,37,38,41,NA,43,44,45,46,48,49,50,51,55,57,60)
df1=data.frame(income,age)
attach(df1)
library(Amelia)
library(MKmisc)
library(mice)
set.seed(1)
a.out=amelia(df1,p2s=0,m=5)
#a.out$imp
mi.t.test(a.out$imp,x='income',mu=300)
m.out=mice(df1,method='norm.boot',print=FALSE)
m.imp=list()
for (i in 1:5) m.imp[[i]]=complete(m.out,i)
#m.imp
mi.t.test(m.imp,x='income',mu=300) 学生時代には女子医大生には息子が大変お世話になりました。 miceのデフォルトのpmmだとameliaの結果と乖離するけど
method='norm.boot'でブートストラップで計算させると似たような結果になるなぁ。
Multiple Imputation One Sample t-test
data: Variable income
t = 4.4366, df = 15.419, p-value = 0.000451
alternative hypothesis: true mean is not equal to 300
95 percent confidence interval:
383.7515 537.9284
sample estimates:
mean SD
460.8400 162.1269
Multiple Imputation One Sample t-test
data: Variable income
t = 4.4545, df = 15.081, p-value = 0.0004578
alternative hypothesis: true mean is not equal to 300
95 percent confidence interval:
386.2641 544.4201
sample estimates:
mean SD
465.3421 165.9966 miceのデフォルトのpmmだとameliaの結果と乖離するけど
method='norm.boot'でブートストラップで計算させると似たような結果になるなぁ。
Multiple Imputation One Sample t-test
data: Variable income
t = 4.4366, df = 15.419, p-value = 0.000451
alternative hypothesis: true mean is not equal to 300
95 percent confidence interval:
383.7515 537.9284
sample estimates:
mean SD
460.8400 162.1269
Multiple Imputation One Sample t-test
data: Variable income
t = 4.4545, df = 15.081, p-value = 0.0004578
alternative hypothesis: true mean is not equal to 300
95 percent confidence interval:
386.2641 544.4201
sample estimates:
mean SD
465.3421 165.9966 miceのデフォルトのpmmだとameliaの結果と乖離するけど
method='norm.boot'でブートストラップで計算させると似たような結果になるなぁ。
Multiple Imputation One Sample t-test
data: Variable income
t = 4.4366, df = 15.419, p-value = 0.000451
alternative hypothesis: true mean is not equal to 300
95 percent confidence interval:
383.7515 537.9284
sample estimates:
mean SD
460.8400 162.1269
Multiple Imputation One Sample t-test
data: Variable income
t = 4.4545, df = 15.081, p-value = 0.0004578
alternative hypothesis: true mean is not equal to 300
95 percent confidence interval:
386.2641 544.4201
sample estimates:
mean SD
465.3421 165.9966 >>377
高偏差値大学卒の女医はblowjob を嫌がる。
エビデンスレベルV(個人の経験)
今号、症例を増やして仮説を補強する所存です。 相関係数から分散共分散行列をつくって
多変量正規分布をつくってみたが1600もあると
正規分布だと負の数が乱数として発生するなぁ。
台が正数のガンマ分布の方が良さげ。 相関係数から分散共分散行列をつくって
多変量正規分布をつくってみたが1600もあると
正規分布だと負の数が乱数として発生するなぁ。
台が正数のガンマ分布の方が良さげ。 男子学生のスリーサイズの方がキモいと俺は思うがね。
学生時代は女子医大性には息子が大変お世話になりました。 男子学生のスリーサイズの方がキモいと俺は思うがね。
学生時代は女子医大性には息子が大変お世話になりました。 男子学生のスリーサイズの方がキモいと俺は思うがね。
学生時代は女子医大性には息子が大変お世話になりました。 尿瓶ジジイの下の世話なんて誰がやりたがるんだよw
さっさと精神科でお薬もらってこい 格安SIMのご利用には必ずAPNの設定が必要で通話機能の利用も「VoLTE」をOFFする必要があり if (!require("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("limma") 1634人のデータの各項目につき無作為に300箇所を欠損データとする。
例
> head(t0) ; tail(t0)
Ht B W H W8
1 154.87 76.80 59.46 88.91 46.96
2 164.51 90.84 NA 90.95 60.96
3 160.53 NA NA 81.92 NA
4 162.99 82.58 60.89 89.40 NA
5 157.21 NA 67.01 NA 47.69
6 155.12 79.40 NA 86.29 NA
Ht B W H W8
1629 164.49 87.38 66.23 92.96 59.34
1630 NA NA 67.43 87.94 50.32
1631 155.78 86.29 65.56 93.37 51.66
1632 152.35 NA NA 85.79 48.05
1633 165.00 NA 68.65 94.24 54.95
1634 160.28 NA NA 87.76 46.86
完全データでは
> summary(d0)
Ht B W H W8
Min. :141.0 Min. : 66.74 Min. :50.15 Min. : 76.99 Min. :34.58
1st Qu.:154.9 1st Qu.: 79.97 1st Qu.:59.58 1st Qu.: 87.05 1st Qu.:46.68
Median :158.5 Median : 83.32 Median :62.55 Median : 90.19 Median :50.66
Mean :158.5 Mean : 83.44 Mean :62.68 Mean : 90.46 Mean :51.15
3rd Qu.:162.0 3rd Qu.: 86.87 3rd Qu.:65.56 3rd Qu.: 93.44 3rd Qu.:55.18
Max. :175.6 Max. :103.00 Max. :77.45 Max. :107.32 Max. :75.38
体重の平均値は51.15kg 欠損値を除いた集計では
> summary(t0)
Ht B W H W8
Min. :141.0 Min. : 66.74 Min. :50.15 Min. : 78.18 Min. :34.58
1st Qu.:154.9 1st Qu.: 80.04 1st Qu.:59.72 1st Qu.: 86.94 1st Qu.:46.70
Median :158.4 Median : 83.31 Median :62.63 Median : 90.07 Median :50.74
Mean :158.4 Mean : 83.42 Mean :62.79 Mean : 90.34 Mean :51.21
3rd Qu.:161.8 3rd Qu.: 86.73 3rd Qu.:65.63 3rd Qu.: 93.25 3rd Qu.:55.20
Max. :175.6 Max. :103.00 Max. :77.45 Max. :105.80 Max. :75.38
NA's :300 NA's :300 NA's :300 NA's :300 NA's :300
体重の平均値は51.21kg
multiple imputationでどこまで完全データでの値に近づけるかを体感。
ameliaで算出
> a.out=amelia(t0,m=m1,p2s=0)
> mi.t.test(a.out$imputations,x='W8',mu=50)$estimate[1]
mean
51.14553
> m.out=mice(t0,m=m1,method='pmm',print=FALSE)
> m.imp=list()
> for(i in 1:m1){
+ m.imp[[i]]=complete(m.out,i)
+ }
> mi.t.test(m.imp,x='W8',mu=50)$estimate[1]
mean
51.14234
どちらも完全データでの平均値に近づいている。 回帰係数も多重代入の方が完全データでの値に近いのが
体感できる。
> lm(B~.,data=d0)
Call:
lm(formula = B ~ ., data = d0)
Coefficients:
(Intercept) Ht W H W8
56.18926 -0.16625 0.41169 0.04345 0.46654
> lm(B~.,data=t0)
Call:
lm(formula = B ~ ., data = t0)
Coefficients:
(Intercept) Ht W H W8
59.8741 -0.2078 0.3578 0.1048 0.4804
> with(a.out,lm(B~Ht+W+H+W8)) |> pool() |> summary()
term estimate std.error statistic df p.value
1 (Intercept) 59.30410301 5.19155217 11.4231931 261.9120 8.623277e-25
2 Ht -0.17243368 0.02487907 -6.9308737 296.9925 2.606620e-11
3 W 0.40299763 0.04206615 9.5800938 320.8586 2.771344e-19
4 H 0.02492666 0.04655008 0.5354806 316.7679 5.926933e-01
5 W8 0.46888246 0.04826869 9.7140089 227.8700 6.914332e-19
> with(m.out,lm(B~Ht+W+H+W8)) |> pool() |> summary()
term estimate std.error statistic df p.value
1 (Intercept) 59.82935129 4.71268243 12.6953921 379.5358 5.045110e-31
2 Ht -0.17337757 0.02354751 -7.3628824 364.5294 1.208634e-12
3 W 0.39831085 0.03982993 10.0002911 398.5623 3.717785e-21
4 H 0.01959464 0.04398971 0.4454368 396.3035 6.562474e-01
5 W8 0.47673464 0.04268344 11.1690766 350.6734 5.507768e-25 正規性を前提にした統計処理なので各スペックの正規性を検討
> data.frame(spec=items.names,p.value=round(p,7))
spec p.value
1 Ht 0.2013145
2 B 0.0453929
3 W 0.0005871
4 H 0.0000260
5 S 0.2559369
6 L 0.8407437
7 W8 0.0000000
8 BWR 0.2836054
9 HWR 0.1104844
10 BMI 0.0000134
スリーサイズも体重も正規性を仮定できないことが判明 スリーサイズと体重を対数変換して正規性を検討
> p=numeric()
> for(i in 1:ncol(L0)){
+ L0[,i] |> shapiro.test() -> tmp
+ p[i]=(tmp$p.value)
+ }
> data.frame(spec=items.names,p.value=round(p,7))[1:7,]
spec p.value
1 Ht 0.2013145
2 B 0.7362414
3 W 0.6460378
4 H 0.1406157
5 S 0.2559369
6 L 0.8407437
7 W8 0.2472923
正規性は棄却されないことが判明した。 https://i.imgur.com/N1bRhrm.png
BMIが増えるとB,W,Hも増えるが、
BW=胸囲/腹囲、H/W=腰囲/腹囲
の相関係数の正負は面白い結果になった。 対数化しての結果
> colMeans(df0)[c('W8','B')] # 完全データでの平均
W8 B
51.14988 83.44192
> colMeans(L0,na.rm=TRUE)[c('W8','B')] |> exp() # リストワイズ除去
W8 B
50.71664 83.26005
> c(mi.t.test(a.imp,x='W8',mu=50)$estimate[1] |> exp(),mi.t.test(a.imp,x='B', mu=80)$estimate[1] |> exp())
mean mean
50.78579 83.26605
> c(mi.t.test(m.imp,x='W8',mu=50)$estimate[1] |> exp(),mi.t.test(m.imp,x='B', mu=80)$estimate[1] |> exp())
mean mean
50.79269 83.26615 多重線形性の検討
> library(car)
> re=NULL
> for(i in 1:m1){
+ lm(W8~.,data=a.imp[i][[1]]) |> vif() -> tmp
+ re=rbind(re,tmp)
+ }
> colMeans(re)
Ht B W H S L
3.650653 2.851796 3.487157 3.217817 1.313498 3.083669
>
> re=NULL
> for(i in 1:m1){
+ lm(W8~.,data=m.imp[i][[1]]) |> vif() -> tmp
+ re=rbind(re,tmp)
+ }
> colMeans(re)
Ht B W H S L
3.650818 2.842113 3.478377 3.221669 1.313639 3.079955
variance inflation factorは全部10未満なので多重共線性に問題なし。 胸囲/腹囲比 腰囲/腹囲比を加えると多重共線性が露骨に
現れる。
car::vif関数は便利だな。
> vif(lm(W8~.,data=df0))
Ht B W H S L BWR HWR
4.334500 495.249562 445.988820 260.951770 1.339959 3.019707 243.225975 203.640363
BMI
6.309390 問題
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか。
そのときの期待値と合わせて答えよ。
calcn=function(N){
f=function(j,a) (7-j)/6*mean(j:6) + (j-1)/6*a
n=length(N)
a=numeric(n)
a[n]=f(N[n],mean(1:6))
for(i in (n-1):1){
a[i]=f(N[i],a[i+1])
}
a[1]
}
gr=expand.grid(1:6,1:6,1:6,1:6,1:6,1:6)
y=apply(gr,1,calcn)
gr[which.max(y),] キモいのはスリーサイズじゃなくて尿瓶ジジイのほうなんだけどw
どこをどう読んだらそういう解釈になるんだよ統失
87：１３２人目の素数さん：2023/10/10(火) 08:24:17.21 ID:vAC0oysq
>>84
どうも尿瓶チンパフェチは女子大学生がキモいらしいね。
俺には男子大学生のスリーサイズの方がよっぽどキモいがね。 女子大学生がキモいという尿瓶チンパンフェチは薔薇族の疑いがでてきたね。 キモいのはアンタだけだよ尿瓶ジジイw
スリーサイズだのってほんと低俗だねw USBメモリの容量が32GBまで減ってしまった時の解決法
diskmgmt.msc
右クリックメニューから"ボリュームの削除"を選択
ボリュームがすべて"未割り当て"になっていることを確認し、"未割り当て"をクリックして"新しいシンプルボリューム”をクリック で、尿瓶ジジイはなんで非東大卒のアホなの？やっぱりチンパンだから？ 女子大学生がキモいという尿瓶チンパンフェチは薔薇族である確率とその信頼区間を求めよ。 キモいのは尿瓶ジジイの発言ということも理解できないチンパン >>409
薔薇族wwwいつの時代の話だよ
女子高生がキモいんじゃなくて、いい歳こいて若い女に執着してるお前がキモいって言ってんだよ
理解出来ますか？ 国立大学で学位審査員している俺スゲー。とうとうここまで登り詰めたかと胸熱🤒もう変な書き込みはできないな(^｡^) Rを実行できるサイトでも処理に時間がかかると中断されるし、
ライブラリがインストールされていなかったり、Rのバージョンが古くて
パイプに対応していなかったりで使いにくかった。
自宅のPCをchromeのリモートデスクトップで操作すればその制約がなくなる。
R compilerは来年は更新せず。 Windows10のHome Editionだとレモートデスクトップは使えなかったが、
chromeを使うとその制約がなくて( ・∀・)ｲｲ!! import statistics
import numpy
def f(j,a):
return (7-j)/6*statistics.mean(range(j,7))+ (j-1)/6*a
def calcn(N):
n=len(N)
a=[]
for i in range(n):
a.append(0)
a[n-1]=f(N[n-1],3.5)
for i in range(n-2,-1,-1):
a[i]=f(N[i],a[i+1])
return a[0]
gr=[(a,b,c,d,e) for a in range(1,7) for b in range(1,7) for c in range(1,7) for d in range(1,7) for e in range(1,7) ]
y=[]
for i in range(len(gr)):
y.append(calcn(gr[i]))
maxy=max(y)
idx=y.index(maxy)
print( 'max = {} @ {}\n'.format(maxy,gr[idx]))
# トップ10
order=numpy.argsort(y)[::-1]
for i in range(10):
print(gr[order[i]])
# ６以外は再試行
print ( '\n{} @[6,6,6,6,6]'.format(calcn([6,6,6,6,6])) ) 東大非合格問題者には解けていない問題
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか。
そのときの期待値と合わせて答えよ。 === stdout ===
max = 5.274691358024691 @ (6, 5, 5, 5, 4)
(6, 5, 5, 5, 4)
(6, 6, 5, 5, 4)
(6, 5, 5, 4, 4)
(6, 5, 5, 5, 5)
(6, 5, 5, 5, 3)
(5, 5, 5, 5, 4)
(6, 6, 5, 4, 4)
(5, 6, 5, 5, 4)
(6, 5, 5, 4, 3)
(6, 5, 5, 4, 5)
4.995306069958849 @[6,6,6,6,6]
課題 シミュレーションして検算してみよ。 Rで100万回シミュレーション
sim=function(x){
d=sample(6,6,rep=TRUE)
for(i in 1:5){
if(d[i]>=x[i]) return(d[i])
}
return(d[6])
}
replicate(1e6,sim(c(6,5,5,5,4))) |> mean()
replicate(1e6,sim(c(6,6,6,6,6))) |> mean() >>427
アンタが解いたら？アホ非東大卒代表としてさw # Rでレジストリファイルを作る。
# スライドショーの間隔を変更
as.hexmode(20000) # 1sec=1000msec
slideshow=\(sec){
HEX=sprintf("%08x",1000*sec) ; HEX
txt=paste0("Windows Registry Editor Version 5.00\n
\\[HKEY_CURRENT_USER\\Control Panel\\Personalization\\Desktop Slideshow\\]
\"LastTickLow\"=dword:00000000
\"LastTickHigh\"=dword:00000000
\"Interval\"=dword:",HEX,"\n",
"\"Shuffle\"=dword:00000001\n")
cat(txt)
filename=paste0('スライドショー',sec,'秒.reg')
writeLines(txt,filename)
} おいアホ非東大卒代表いつになったらチンパン数学の問題とくんだ？ 尿瓶チンパフェチはPythonすら使えないことが判明。
どこの国立を落ちたの？ 尿瓶チンパンジジイは39通りで恥をかかされた哀れな非東大卒だねw >>440
Pythonを医学と全く関係ないどうでもいいことに使っててワロス
お前のは使えてるとは言わんわ
本当に医者だったらもっと有意義に使うよ >>440
Pythonを医学と全く関係ないどうでもいいことに使っててワロス
お前のは使えてるとは言わんわ
本当に医者だったらもっと有意義に使うよ 尿瓶チンパンフェチってペドか老婆フェチみたいだな。 >>441
誤差補正しないと39通りが返ってきたよ。
あなたは答だなすら出せない。
で、どこの国立を落ちたの？ chromeのリモートデスクトップ機能を使うと出先からオンラインの講演の画面キャプチャーが可能になっていい。
R onlineとかも自宅のPCにさせればtime outもない。 chromeのリモートデスクトップ機能を使うと出先からオンラインの講演の画面キャプチャーが可能になっていい。
R onlineとかも自宅のPCにさせればtime outもない。 chromeのリモートデスクトップ機能を使うと出先からオンラインの講演の画面キャプチャーが可能になっていい。
R onlineとかも自宅のPCにさせればtime outもない。 医局のPCを自宅から操作
Chrome リモート デスクトップ用にカーテンモードを有効にする
HKEY_LOCAL_MACHINE\Software\Policies\Google\Chrome\RemoteAccessHostRequireCurtain を 1 に設定します。
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\fDenyTSConnections を 0 に設定します。
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\UserAuthentication を 0 に設定します。
Windows 10 環境向けの追加のレジストリキー:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\SecurityLayer を 1 に設定します。 >>447
で、正しい答えはいつ出せたの？w
アホ非東大卒はアンタだけだけど、どこの国立行きたかったの？ 自宅PCのRをリモート操作して実行。
> sim=function(x){
+
+ d=sample(6,6,rep=TRUE)
+
+ for(i in 1:5){
+
+ if(d[i]>=x[i]) return(d[i])
+
+ }
+
+ return(d[6])
+
+ }
>
> replicate(1e6,sim(c(6,5,5,5,4))) |> mean()
[1] 5.273564
>
> replicate(1e6,sim(c(6,6,6,6,6))) |> mean()
[1] 4.996048
>
100万回のシミュレーション完遂。
webで実行可能なサイトだとタイムアウト。
有料のRcompilerでも過負荷の警告が出て終了した。
remote desktopは便利。
出先からNASのお宝ファイルにアクセスできる。 >>453
とっくに出せているよ。
誤差補正したから。
んで、どこの国立を落ちたの？
俺は理Iを蹴って医科歯科進学。 >>455
で、アホ非東大卒さんはいつになったら卒業証書と医師免許だせるんだ？ セキュリティソフトをOFFにしないとNASの設定ができない。 ・「次のDNSサーバーアドレスを使う）」をクリック。
・下のDNSアドレスに置き換え。
IPv4:
優先 1.1.1.1
代替 1.0.0.1
IPv6:
優先 2606:4700:4700::1111
代替 2606:4700:4700::1001 PC（Windows）
・「スタート」メニューをクリックして、「コントロールパネル」をクリックします。
・「ネットワークと共有センター」をクリックします。
・接続しているWi-Fiネットワークを右クリックして、「プロパティ」をクリックします。
・「インターネットプロトコルバージョン4」（または「バージョン6」）を選択します。
・「プロパティ」を選択します。
・「次のDNSサーバーアドレスを使う）」をクリックします。
・下のDNSアドレスに置き換えます。
IPv4:
優先 1.1.1.1
代替 1.0.0.1
IPv6:
優先 2606:4700:4700::1111
代替 2606:4700:4700::1001
・「OK」をクリックして「Close（閉じる）」をクリックします。 尿瓶ジジイなにも反論できないの？
やっぱり脳内医者のチンパンだから？ セキュリティ強化したら
If you are using a firewall or antivirus software which guards access to local network ports, add an exclusion for the RStudio and rsession executables. Rstudioとその子プロセスをwhite listに追記することで回避できた。 二重ルータのチェック
tracert -d 8.8.8.8 家電のWifi接続設定は2.4Gアクセスポイントを自動接続に設定してから操作。 設定後は５GのAPから司令可能なので自動接続を５GのAPに戻す。 >>474
で、どこの国立を落ちたの？
Pythonすら使えないようだから、シリツだろ？ ルーターを更新。
近隣との電波干渉しないチャンネルを探索中。
Wifi Analyzerの推奨を検証。 >>432
俺はR とPythonを使って答を出せているよ。
自称東大卒でPythonすら使えないってありえんよなぁ。
医科歯科卒の俺でも使える。 >>478
自称医科歯科卒が39通り？
笑わせないでw フルボッコにされるってわかるから脳内医療を喚くのはもうやめたんだねw 206：１３２人目の素数さん：[sage]：2023/10/27(金) 16:00:10.52 ID:ksgNoDUB
東大非合格問題者には解けていない問題
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか。
そのときの期待値と合わせて答えよ。
214：１３２人目の素数さん：2023/10/27(金) 18:21:18.31 ID:3aaQXrKR
>>206
>東大非合格問題者には解けていない問題
熟語の形容についてプアな出題者の問題てこと？ m=8
n=5
f=\(x){
a=x[1]
b=x[2]
c=x[3]
d=x[4]
sum(c(m^3,m^2,m,1)*c(a,b,c,d))==sum(c(n^3,n^2,n,1)*c(d,c,b,a))
}
gr=expand.grid(0:n,0:n,0:n,0:n)
gr[apply(gr,1,f),] calc=\(m=8,n=5){
f=\(x){
a=x[1]
b=x[2]
c=x[3]
d=x[4]
sum(c(m^3,m^2,m,1)*c(a,b,c,d))==sum(c(n^3,n^2,n,1)*c(d,c,b,a))
}
gr=expand.grid(0:n,0:n,0:n,0:n)
sum(apply(gr,1,f)) > 1
}
calc(16,10)
m=16
n=10
f=\(x){
a=x[1]
b=x[2]
c=x[3]
d=x[4]
sum(c(m^3,m^2,m,1)*c(a,b,c,d))==sum(c(n^3,n^2,n,1)*c(d,c,b,a))
}
gr=expand.grid(0:(n-1),0:(n-1),0:(n-1),0:(n-1))
head(gr)
gr[apply(gr,1,f),] 当直室の娯楽用PCはメモリ４Gで
高負荷の計算をRにさせるとフリーズすることがしばしばあったが
リモートデスクトップで自宅のメモリ16GのPCにやらせることができるようになって( ・∀・)ｲｲ!! 分子 分母
1 52163 16604
2 52518 16717
3 52873 16830
4 53228 16943
5 53583 17056
6 53938 17169
7 54293 17282
8 54648 17395
9 55003 17508
10 55358 17621 uAutoPagerize
Link to Text Fragment
Awesome Screenshot & Screen Recorder 円周率3.141592653589793...
の近似として
355/113=3.14159292035
が知られているが、
3.141592までは合致している。
問題
円周率3.1415926まで合致する分数で分母が最も小さい分数を求めよ。
AIなどあらゆるリソースを用いてよい。 uAutoPagerize
は、とても便利。
検索結果が再クリックなしで表示されて( ・∀・)ｲｲ!! 時間をかけても東大非合格問題者には解けていない問題
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか。
そのときの期待値と合わせて答えよ。 NTTには５G対応の無線LANカードは提供されないようなので解約した。 >>490
uAutoPagerize は便利。
検索結果でページめくらなくてすむ。 RもしくはPythonが使えれば朝飯前に答がだせる問題
円周率3.141592653589793...
の近似として
355/113=3.14159292035
が知られているが、
3.141592までは合致している。
問題
円周率3.1415926まで合致する分数で分母が最も小さい分数を求めよ。
AIなどあらゆるリソースを用いてよい。
尿瓶チンパフェチのキーキー電卓では答が出せないようである。 >>496
途中まで答を出していたな。
そのあとは俺が出題した円周率の分数近似問題に着手していたな。
誤答だったので想定解は投稿した。 >>499
アンタみたいなチンパンをおちょくるのにはもう飽きたみたいだね 集団ストーカーに変な薬飲まされる
内臓おかしくなる DISM.exe /Online /Cleanup-image /Restorehealth
sfc /scannow rm(list=ls())
library(gtools)
sim=\(k=1000){
p=gtools::rdirichlet(k,c(11,1,1,1,1,1))
f=\(x) all(x[1]>x[-1])
apply(p,1,f) |> mean()
}
p=replicate(10000,sim())
hist(p,freq=FALSE,col=2)
HDInterval::hdi(p) ある正六面体サイコロは各面に1,2,3,4,5,6が書かれており、各目が出る確率はそれぞれa,b,c,d,e,fである。
a,b,c,d,e,fは正の実数の定数でa+b+c+d+e+f=1であることは分かっているが、これらの大小関係は不明である。
このサイコロを10回振ったところ1の目が10連続で出た。「1の目が最も出やすい」という仮説を95%信頼区間で検定せよ。 >>506
これに触発されて改題
どの目がでる確率が等しいという触れ込みのサイコロを１０回ふったところ
１が４回、２が３回、３が２回、４が１回でた。
どの程度の確信をもって、このサイコロは1の目が最も出やすいと言えるか？
ちなみに、確率とはは確信度を表す指標である。
例：降水確率
例：尿瓶チンパポンコツフェチがシリツ卒である確率
東大合格者の数値解レスを希望します。 尿瓶ジジイ
元AV女優にどんだけ固執してるんだよ！
キモいわ～ nova launcher は 機種変更へ移行が簡単にできた。
iconをカスタマイズしていても移行してくれた。
感動したので無料版から有料版にアップグレート。 むかご（自然薯）御飯を作ってみた。
肥るから美味しく作るなと嫁にいわれた。 >>512
widget移行に個別に認証が必要なのは不便だな。 高校生相手にはイキリ散らかしてるくせにお医者様の前じゃ何も言えないのか？
いつもの脳内医療やってみ？w >>499
つくづく哀れだね、発狂しまくってんのに誰もまともに相手にしてくれなくてw 組織ストーカーとは
特定の個人に対して、組織的な監視・つきまとい・嫌がらせを行う行為の事をいいます。
長期間継続的に嫌がらせ行為を行う事により、被害者は正常な人生を送る事が困難となっています。
集団ストーカーとも呼ばれ、日本国内では被害者が増え続けています。
被害妄想や精神疾患と取られる事がありますが、現実に行われている犯罪行為です。 尿瓶ジジイ
どんだけ浅丘りなってAV女優好きなんだよ
キモすぎだろ もうお医者さん相手に発狂できなくなったからこうやって荒らすしかなくなったのかな？ ぽとぽつとインフルエンザが受診するようになったなぁ。
関節痛の有無が新型コロナとの鑑別に使える印象。 remote desktopは便利。
負荷のかかる計算や処理をスマホを介して自宅のPCで走らせることができていい。
PCはネットには有線接続なのでファイル転送も速くて( ・∀・)ｲｲ!! >>510
尿瓶チンパフェチの自作投稿だろう。
んで、どこの国立を落ちたの？
東大は受験すらしていないみたいだな。
合格通知の書式すら知らなかったからなぁ？
私立専願かよ？ RもしくはPythonが使えれば朝飯前に答がだせる問題
円周率3.141592653589793...
の近似として
355/113=3.14159292035
が知られているが、
3.141592までは合致している。
問題
円周率3.1415926まで合致する分数で分母が最も小さい分数を求めよ。
AIなどあらゆるリソースを用いてよい。
尿瓶チンパフェチのキーキー電卓では答が出せないようである。 「月3日出勤で30万円」 報酬見直しに重い腰を上げた46番目の県
＞ 月3日の勤務で報酬約30万円の高額報酬が税金から支払われている県がある
麻酔のバイトなら２日で稼げる額だな。
並列麻酔なら１日。 >>523
尿瓶ジジイ
どんだけ浅丘りなってAV女優好きなんだよ
キモすぎだろ
ま～た書き込んでるし。訴えられるぞそろそろ >>523
アンタ風俗嬢とかAV女優とかナースとかにご執心だっただろ
他に誰がいるんだよ そもそも尿瓶ジジイのクソスレだろ
自分で責任取れよw >>528
AV のようなバーチャルでなくて、リアルな合体が気持ち( ・∀・)ｲｲ!!
高学歴女医はフェラ嫌いが多い。例外は新設国立の女医（個人的には四国がオススメｗ）。
尿瓶チンパポンコツフェチは童貞みたいだなぁ。
まあ、商用専願かもしれんｗ
んで、どこの国立を落ちたの？ nova laucherは便利だな。有料版を買う価値がある！
タッチでchrome,上スワイプでfirefox 下スワイプでedge起動に設定できる。
多機種へ移行も楽。nearby shareでクラウドも不要。 女医とのお宝画像を編集してたら勝手にGoogle Driveにバックアップとられていて^^;と
なったことがあったなぁ。 >>528
こういう文章を書く椰子は仮性包茎だな。
図星だろ！ >>532
普通にキモくて草w
それ、普通に犯罪だぞ
さっさと捕まれよ 尿瓶ジジイ朝から妄想止まらないね
てか普通に犯罪者じゃん、早く出頭して警察病院にぶちこまれろよ アボガドの種を薄くスライスしてゴマ油で上げたら旨い！
同じ薄さに切るのがコツだな。
庭に植えたら目がでてきたが収穫するまでには育たないだろうな。
観葉植物にするならルスカスの方がいいな。 >>535
仮性包茎が確定したな。
違うなら証拠を出してみ！ >>535
写真を取らせてくれる彼女もいないとは
仮性包茎の童貞であることが確定したね。
ちがうなら証拠をアップロードしてみ！ >>539
気色悪い上に普通に犯罪ですが？
もうお医者さん相手に脳内医療で発狂することもできないみたいだね、速攻で叩き潰されてダンマリ決め込むしかないから
アンタのはもうとっくに役立たずになってんだろ？ >>539
写真を撮らせてくれた昔の彼女がいたとして
爺さんになって写真編集してたら普通にキモいわw
通報しとくわ >>537
チンパンは腐ったバナナでも食ってろよ
>>540
じゃあ卒業証書や医師免許の提出にダンマリ決め込んで脳内医者呼ばわりされてるのも図星なんだな？ >>543
友達と旅行いったりしたら普通に写真くらいとるだろ？
そういう友だちもいないの？ 昨日はシャリアピンステーキを作ってみた。
玉葱をすりおろしてジュースを取るのが手間だな。
目にしみるし。玉葱＋塩での味付けは今ひとつだな。
プロテアーゼの強さとしてはパイナップル＞舞茸＞玉葱を実感。
嫁の評価も今ひとつ。結局、自家製赤ワインソースをかけて食べた。 >>545
友達と旅行に行ったりしたら、普通に写真は取るが
結婚して子供もいるおっさんが
女医限定でわざわざ編集なんてしないと思うが？気持ち悪いんだよ、早く捕まれ 妄想拗らせてなかったらこんな気色悪い発言わざわざしないんだよなw calc=\(n){
f=\(x){
r=cos(x)
S=n*r^2*sin(2*pi/n)/2
V=S*2*sin(x)
V
}
f=Vectorize(f)
optimize(f,c(0,pi/2),maximum=TRUE)$obj
}
sapply(3:24,calc) calc=\(n){
f=\(x){
r=cos(x)
S=n*r^2*sin(2*pi/n)/2
V=S*2*sin(x)
V
}
f=Vectorize(f)
optimize(f,c(0,pi/2),maximum=TRUE)$obj
}
sapply(3:24,calc) >>550
女子大生に相手にされないPhymoseくんがなにかほざいている。 東大合格通知の書式すら知らなかった輩が自分は東大卒だと思うのこそ妄想であろう。
Phymose妄想と命名しよう。 gr=expand.grid(1:6,1:6)
(apply(gr,1,max)>=5) |> sum()
20/36
5/9
sim=\() max(sample(1:6,2, replace=TRUE)) >= 5
p=replicate(1e3,mean(replicate(1e3,sim())))
BEST::plotPost(p,showCurve = TRUE) >>553
さっきからphymoseって何だよ？そんな言葉無いぞ
ちなみに包茎はphimoseな
相変わらず英語出来ねぇなお前は、出来ねぇくせに無理に英語使うんじゃねぇよ 尿瓶ジジイのチンパン英語集
724 卵の名無しさん (ﾜｯﾁｮｲ 3358-8TD4 [14.13.16.0])[sage] 2022/10/05(水) 13:30:27.35 ID:rczEbvNg0
I told my colleage nureses that I have such allergy to beauties that I feel itchy everywhere when I work with them.
Ahahahahahah
>colleage
>nureses
920 卵の名無しさん (JP 0H52-BsRZ [217.138.212.122 [上級国民]])[sage] 2023/03/24(金) 15:55:12.52 ID:sCq5Ou+HH
先々週のseptick shockの患者、懇意なナースに聞いたらもう食事が始まっていますよと教えてくれた。
夜遅くまで麻酔をかけたのが報われた感じで気分が( ・∀・)ｲｲ!!
報酬も良かったし
>septick shock
>phymose←new‼︎ >>553
アンタは女子大生どころか全人類に相手にされてないからこんなところで長年発狂してんだろ？
ここでバカにされるのが生き甲斐なんだろ？w おいphymoseジジイ
いつになったら卒業証書と医師免許出せんだよ 409：１３２人目の素数さん：2023/11/17(金) 09:55:04.69 ID:RERmxLum
>>406
0点
その問題文ではそんな解答はありえない。
まず用語の意味が理解できてない
ゴミ
phymoseジジイのチンパン数学ボロクソで草 >>563
さり気なくphymose→phimoseって修正してるじゃんwww
>>553
おい尿瓶ジジイここではダンマリで高校生相手にイキって恥ずかしくないのか？医学的な知識皆無でここでは反論出来ないから、童貞とか包茎煽りしてるんだろ？ガキかよwww >>564
で、Phimoseくんは女子大学生より男子大学生に興味があんの？
女子大学生からは相手にされてないのはPhimoseが原因だったのか？ スペルミスの脳内変換すらできな低能がPhimoseくんだね。
女子大学生から相手にされないのはPhimoseゆえと推定されている！ 半径1の球に含まれる正ｎ角柱の体積の最大値Vnを求めよ。 >>567
脳内変換してやったから間違い指摘出来たんだろ
自分の低能を人のせいにするなよwww ここ最近は数日空けてしれっと書き込みだったのにphymoseの件から見境なく発狂しまくってるねww んで、
どこの国立を落ちたの？
東大合格通知の書式すら知らなかったから東大不合格は確定だけど
東大は受験もしてないんじゃないの？
女子大生に相手にされなかったのはPhimoseだからだろ？ >>571
脳内変換できない低能はどこの国立を落ちたの？
女子大生よりも男子大学生に興味あんの？
で、やっぱり、Phimoseなんだろ？ スペルミス連発してる無能に変わりないだろ
そもそも言葉のサラダで人間の言葉通じてないし
ここはあいにく東大卒しかいないのでw 430：１３２人目の素数さん：[sage]：2023/11/18(土) 06:34:02.81 ID:ICpTTkjL
ID:Z0RBrUShはPhimoseを否定できる証拠がないならばPhimoseであるということを認めている
ID:Z0RBrUShがPhimoseを否定できる証拠がない
よってID:Z0RBrUShはID:Z0RBrUShがPhimoseであるということを認めている
これには尿瓶ジジイ何も言えないみたいw
チンパンブーメランw >>571
脳内変換できない低能はどこの国立を落ちたの？
女子大生よりも男子大学生に興味あんの？
で、やっぱり、Phimoseなんだろ？ どこの国立を落ちたのか？の問にダンマリを決め込む椰子がいるなぁ
東大合格通知の書式すら知らなかったから東大合格者でないのは確定。
おそらく、シリツだな。 phimoseをphymoseって間違って覚えていたのにその事反省出来ない糞がいるなぁ
こういう奴は社会でも謝れないんだろうな
俺等、お医者様にキレられても反抗的な目をしてゴメンなさいの一つも言えないんだろうな
>>581お前の事だよwww
まずは間違ってゴメンなさいだろ？ >>580
1回だけならまだしも何回スペル間違えるんだよ認知症 >>580
アンタはphymoseなどと恥ずかしい間違いを指摘されてそれを認めようとせずチンパンのようにキーキー発狂してるだけ笑 >>571
スペルミスを脳内変換できない低能はどこの国立を落ちたの？
女子大生よりも男子大学生に興味あんの？
で、やっぱり、Phimoseなんだろ？ >>586
アンタがスペルミス連発する無能ってことだけはよく分かったw navitive と chat しててもtypoはよくあるよ。
んで、どこの国立を落ちたの？
にはいつ答えるんだ？
東大合格通知の書式を知らなかったようだが東大は受験していないんだろ？シリツ専願だったのかよ？ 今日はスーパーの安いサーロインでシャリアピンステーキ
マリネ時間を長くとったら
前回より柔らかくできて嫁にほめられた。
>>
玉ねぎに含まれるプロテアーゼはMMP-3 (stromelysin)というもので、MMP-3が活発に活動する温度は体温付近（30~37℃）の温度だと言われています。
<<
冷蔵庫で２時間でほどよくなった。
次は舞茸でやってみるかな。 navitiveって何だよ？
わざとか？それともチンパン英語なのか？ 発狂するとスペルミス止まらないのかよ？
それのどこが医者なんだよ？ただのチンパンだろうが 尿瓶チンパンジジイはただの脳内だから気にしなくていいよ
スペルもろくに綴れないチンパンだし 女子医学生ではないが、水泳部の女子大生は美味。動きが神業。
エビデンスレベルV n=1 個人の経験。 冷蔵庫のあまりものを使って野菜ベーコンキッシュを焼いている。
どんな出来になるやら。
ローストビーフは少し凍らせて0.5mmの厚さに切った。
ゲランド塩＋大蒜＋ローズマリー＋ローレルで一晩マリネして
低温調理で3時間、表面を焼いて粗熱がとれたら少し凍らせてからカット。
これを熱い米飯に巻いて食べるのは水泳部女子大生くらい旨い。 田中一成とかいう近所の共産党の大物議員と対立してから集団ストーカーにあうようになった >>597
どこの国立を落ちたのにダンマリを続けているのが
Phimoseくんだね。
で、どこの国立を落ちたの？
東大合格通知の書式を知らなかったから東大非合格は確定しているけど。
シリツ専願だったのかなぁ？ >>601
とりあえずお前は間違いを指摘してもらったんだから感謝するか謝れよ
社会人としての常識すらないのか？お前は >>601
残念だけどアンタが勝手に決めつけてるだけでここには東大卒しかいないのでw
アンタが非東大卒ってことだけは確実みたいだね >>603
俺は東大（理I）合格したけど医科歯科に進学。
合格通知は受け取ったよ。
あんたはその書式すら知らなかったから東大合格者ではないね。
んで、どこの国立を落ちたの？ >>604
学歴コンプ丸出しだな
ネットならいくらでも嘘つけるもんねw
いいから早く謝罪しろよニート君 >>604
アンタみたいな統失チンパンのほざくことなんか誰も相手にしてないみたいだけど？
スペルミスどころか会話も通じてないみたいだね >>606
いざ証拠を出せと言われても尿瓶ジジイはダンマリ決め込むしかないんだよなw 尿瓶ジジイ数学板でまともに相手にされてないどころか高校生にもバカにされてるみたいだねw f=\(x){
a1=x[1]
a2=x[2]
b1=x[3]
b2=x[4]
c1=x[5]
c2=x[6]
P=c(0.0,1)
A=c(cos(b1)*cos(b2),cos(b1)*sin(b2),sin(b1))
B=c(cos(b1)*cos(b2),cos(b1)*sin(b2),sin(b1))
C=c(cos(c1)*cos(c2),cos(c1)*sin(c2),sin(c1))
det(cbind(A-P,B-P,C-P))/6 |>abs()
} rm(list=ls())
f=function(x){
a1=x[1]
a2=x[2]
b1=x[3]
b2=x[4]
c1=x[5]
c2=x[6]
P=c(0,0,1)
A=c(cos(a1)*cos(a2),cos(a1)*sin(a2),sin(a1))
B=c(cos(b1)*cos(b2),cos(b1)*sin(b2),sin(b1))
C=c(cos(c1)*cos(c2),cos(c1)*sin(c2),sin(c1))
abs(det(cbind(A-P,B-P,C-P))/6)
}
par=c(runif(1,-pi/2,pi/2),runif(1,-pi,pi),runif(1,-pi/2,pi/2),runif(1,-pi,pi),runif(1,-pi/2,pi/2),runif(1,-pi,pi))
optim(par,f,control=list(fnscale=-1)) 半径１の球の表面から無作為に4点を選ぶ。
(1) 4点を直線で結んでできる四面体の最大の体積を求めよ。有効数値3桁でよい。
(2) 最大の体積となる四面体は正四面体かを検証せよ。 >>607
あんたは東大合格通知の書式すら知らなかったから東大合格者ではないね。
んで、どこの国立を落ちたの？ # 問題
# 半径１の球の表面から無作為に4点を選ぶ。
# 4点を直線で結んでできる四面体の表面積の最大値を求めよ。有効数字3桁でよい。
ABC2S3d <- function(A,B,C){
cross<-function(x,y)c(x[2]*y[3]-x[3]*y[2],x[3]*y[1]-x[1]*y[3],x[1]*y[2]-x[2]*y[1])
sqrt(sum(cross(A-C,B-C)^2))/2
}
fn=function(par){
a1=par[1]
a2=par[2]
b1=par[3]
b2=par[4]
c1=par[5]
c2=par[6]
P=c(0,0,1)
A=c(cos(a1)*cos(a2),cos(a1)*sin(a2),sin(a1))
B=c(cos(b1)*cos(b2),cos(b1)*sin(b2),sin(b1))
C=c(cos(c1)*cos(c2),cos(c1)*sin(c2),sin(c1))
ABC2S3d(P,A,B)+ABC2S3d(P,B,C)+ABC2S3d(P,C,A)+ABC2S3d(A,B,C)
}
(opt=optim(runif(6),fn,control=list(fnscale=-1)))
par=opt$par
a1=par[1]
a2=par[2]
b1=par[3]
b2=par[4]
c1=par[5]
c2=par[6]
P=c(0,0,1)
A=c(cos(a1)*cos(a2),cos(a1)*sin(a2),sin(a1))
B=c(cos(b1)*cos(b2),cos(b1)*sin(b2),sin(b1))
C=c(cos(c1)*cos(c2),cos(c1)*sin(c2),sin(c1))
dist(rbind(P,A,B,C)) >>613
どこの誰のこと言ってるんだそれは？
匿名掲示板で
まあアンタの香ばしいアホレスは同一人物って明らかだけどな
アンタだけは非東大卒は確定
んで、どこの国立行きたかったの？ >>613
おい、間違いを指摘してやったのに感謝の言葉も無いのか？この包茎野郎が！
社会でどんな風に教育されたの？もしかして、社会出てなかった？ニート？ 473：１３２人目の素数さん：[sage]：2023/11/25(土) 10:51:07.43 ID:oFSd3fJW
>>459
直線で結んで四面体が出来るとかwww
まともな日本語使えよ、イキりアマチュアクズwww
尿瓶ジジイのチンパン数学笑われてるぞww >>617
で、どこの国立を落ちたの？
女子大学生には相手にされないのはPhimoseが原因だったのか？ 関節痛を伴う発熱はインフルエンザが多い印象。
さきほどのケースも合致した。 >>620
で、いつになったら脳内学歴厨じゃないって証明してくれるの？w >>620
おい>>618には何も言えないのかチンパン >>620
社会のゴミが！
間違えたらまず謝るんだよ！
ゴ・メ・ン・な・さ・い しろよ
ちなみに俺は国立だけどな
お前みたいな女子大生に相手もされない
包茎野郎のゴミと違ってなw x = 2/(a^2 + 1), y = (2 a)/(a^2 + 1)
integral [0,2/(a^2+1)] ax*2*pi dx
integral_0^(2/(1 + a^2)) a x (2 π) dx =
max ( (4 pi*tan(x))/(tan(x)^2 + 1)^2 + pi*((2 tan(x))/(tan(x)^2 + 1))^2 ) [0,pi/2]
max{(4 π tan(x))/(tan^2(x) + 1)^2 + π ((2 tan(x))/(tan^2(x) + 1))^2|0<=x<=π/2}≈6.75596 at x≈0.640065 >>624
東大合格通知の書式すら知らなかったから東大合格者ではないね。
んで、どこの国立を落ちたの？ どうも尿瓶チンパゴキブリフェチのキーキー電卓では解けないようなので言及しないようだ。
東大出てたらPythonかRくらい使えるだろ。
問題
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか。
そのときの期待値と合わせて答えよ。 >>626
何の話してんだこいつ？頭おかしいのか？ >>626
尿瓶ジジイはごめんなさいも言えないのか
いつになったら脳内学歴厨じゃないって証明できるんだ？ 自分の気に入らないレスは全員同じに見える病気みたいw
さっさと精神科でお薬もらってこいよ >>616
東大（理I）は合格したけど医科歯科に進学。
東大合格通知は公印さえ押されてなくてありがたみのない葉書大の書類だったよ。
あなたは受け取ったことないの？ >>624
学生時代には女子医大生には息子が大変お世話になりました。 難しかった。答に自信がないが、検証できる識者はこのスレにはいないだろうな。
正円錐を前提とした最大値と一致するので多分正しい。
# 半径１の球に含まれる斜円錐の表面積の最大値を求めよ。
f=function(par){
Pi=par[1] # Polar ido
Pk=par[2] # Polar keido
Bi =par[3] # Base ido
b=a=cos(Bi)
h=sin(Pi)-sin(Bi)
p=cos(Pi)*cos(Pk)
q=cos(Pi)*sin(Pk)
s=function(th) (1/2)*sqrt(h^2*(a^2*sin(th)^2+b^2*cos(th)^2)+(a*b-p*b*cos(th)-q*a*sin(th))^2)
integrate(s,0,2*pi)$value + pi*a*b
}
optim(runif(3), f, control=list(fnscale=-1)) >>630
旧二期校の医科歯科が羨ましいとはどこのシリツだよ。 >>632
英語どころか日本語も不自由なのに誰が信じてんだよタコ >>633
お前の妄想なんぞどうでもいいから
さっさと「phimoseをphymoseって間違って覚えていました。わざわざご指摘して頂き誠にありがとうございます」って言えんのか？
社会人はみんなやってることなんだが？
どういう人生送ってきたら、そんな意地でも謝らないマンになれるの？
他人に対する感謝の気持ちとか無いの？
お前、昔から「使えない奴」扱いされてるだろw 軽症患者を経過観察入院させてインセンティブゲット。
ヘッドホンアンプの代金が出た。 >>639
都合の悪い事はガン無視か？
反論すら出来ないってこと？偏差値低そう 日本語がまず通じてないもんな
偏差値では計測できないアホだろ 東京大学医学部も薮多数
手術がうまくいかなくてもトップクラス逃げるのが上手くさすが、患者の体質のせいにする糞D r
手術は2回以上やる目的、医者の成果実績作成
公務員以外ここで手術すると1回じゃ済まされな
患者を実験台、馬鹿にしているのがよくわかる
丁寧な説明と間違えてはいけない、目的達成の時だけ優しくフレンドリーに接してくるから騙されないでください。 東京大学医学部も薮多数
手術がうまくいかなくてもトップクラス逃げるのが上手くさすが、患者の体質のせいにする糞D r
手術は2回以上やる目的、医者の成果実績作成
公務員以外ここで手術すると1回じゃ済まされな
患者を実験台、馬鹿にしているのがよくわかる
丁寧な説明と間違えてはいけない、目的達成の時だけ優しくフレンドリーに接してくるから騙されないでください。 東京大学医学部も薮多数
手術がうまくいかなくても逃げるのが上手、患者の体質のせいにする糞D r
手術は2回以上やる目的、医者の成果実績作成
公務員以外ここで手術すると1回じゃ済まされな
患者を実験台、馬鹿にしているのがよくわかる
丁寧な説明と間違えてはいけない、目的達成の時だけ優しくフレンドリーに接してくるから騙されないでください。 軽症の救急搬送を受けて新入院。１諭吉ゲット。
これで黒毛和牛を買って低温調理でローストビーフをつくるかな。
冷凍庫で１〜２時間凍らせて0.5ｍｍにカット。
これを熱々のご飯に巻いて、わさび醤油で食べると旨い。 尿瓶ジジイ相変わらず都合の悪いことはダンマリ決め込むしか能がないみたいだね phymoseをphimoseって間違って覚えていました。わざわざご指摘して頂き誠にありがとうございます。 素直に言えばいいのに地団駄踏んで発狂してダンマリ決め込むのが尿瓶ジジイ 内視鏡バイトと合わせて5.5ゲット。
半分が税金で持っていかれる。
税金が私学助成金としてシリツ医大に使われるのは嫌だなぁ。
核武装に使えと思う。 >>636
東大合格通知を受け取ったことないの？
どこの国立を落ちたの？ 説明しながら内視鏡していたらナースが所見の部位を患者に指差してくれるので説明が捗る。
最近は検査終了時に説明が終わっていて(・∀・)ｲｲ!! >>651
アンタは受け取ったことなんかないだろ
日本語も不自由なアホなんだから >>650
お前みたいな、他人に感謝も謝罪も出来ないゴミなんか金があってもしょうがないだろ
前途ある若者に助成してやった方が良い
ていうか、核武装？非核三原則って知ってる？文句あるなら日本から出ていけよ まあ医者になんか到底なれそうもない知能だから匿名掲示板でイキってるだけの老いぼれチンパンだと思うと実に哀れ 舞茸のプロテアーゼを使ってサーロインをマリネして
ウェルダンに焼いてみた。
固くならなかったが、ヒレ肉のように脂肪が介在して柔らかいのではなくて
蛋白が分解されて柔らかくなっているだけで、旨いかというと？だな。
薄切りローストビーフのほうが旨い。 >>284
おい尿瓶ジジイ
高校生相手には散々イキってるのにお医者さん常駐のここじゃ関係ないことしかほざけないのかよ？
そりゃそうか、脳内医療ネタで発狂しても速攻コテンパンにされてダンマリ決め込むしかなくなるもんなぁw
てか高校生にもまともに相手にされてないチンパンから当然か >>658
鯛の頭のアラを使っての鯛めしは美味。
グリルで焼いてから出汁をとるのが秘訣。 >>646
生わさびを売っていたので買った。
そのままで長期保存は無理だが
すりおろして小分けしてラップにくるんで冷凍保存すると数週間は使える。 高校数学スレに条件を複雑化した場合の数の計算問題が投稿されていたけど
Rのコードを改変して計算できた。
隣接判定関数が作れれば、ほぼ完了。 >>662
間違いを指摘されるのにビビって医学的内容は全く書き込まず
永遠と料理ネタを書き込む尿瓶ジジイ
m3にも最近書き込んでないなw
自分が医者じゃないただの管理栄養士だったということにようやく気づいたか？ choking頻回の曲を練習していたら指の皮が向けてきたので手袋をつけて練習。
最近はTab譜面がYouTubeにアップロードされていて助かる。
尿瓶チンパポンコツタコフェチのPhimoseくんは皮に余裕があるようだ。 >>667
で、お得意の脳内医療ネタは？
そんなにお医者さんにボコボコにされるのが嫌なのか？w rm(list=ls())
"
10個の数字0,1,2,3,4,5,6,7,8,9から５個の数字を選んで
その数字を並べてかえて5桁の数字をつくる。但し最初が0のときは4桁の数字として扱う。
例 01234は1234と扱う
並べ変えてできた数が素数である場合が最も多くなるようにするにはどの5つの数字を選べばよいか？
"
library(RcppAlgos)
library(numbers)
cm=t(combn(0:9,5))
f=\(x){
pm=permuteGeneral(x)
apply(pm,1,\(x) isPrime(sum(x*10^(4:0)))) |> sum()
}
re=cbind(cm,apply(cm,1,f))
re[which.max(re[,6]),] 内視鏡スレとかには書いているけどな。
292 卵の名無しさん sage 2023/11/04(土) 10:38:09.20 ID:EnwLw4so
>>288
同感。特殊光や画像処理が増えれば増えるほど面倒になってきた。
MESDA-Gで非がん判定だからと生検しないでいるより、
拡大なしで生検した方が早期発見できるんじゃないかと思うようになった。
表層にがんが存在しない病変だと拡大でも診断は困難（拡大内視鏡で窩間開大でわかるという人もいるけど）なので
深掘れの生検が必須になるから、拡大なしで生検の方が効率的ではと思う。 カイトリルが出る前はシスプラチンを使うときは
プリンペランを大量に使っていたなぁ。
錐体外路症状がでたこともある。
胃がんの肝メタにEAPをやったことある。
腫瘍は縮小したが、予後が伸びたかどうかは誰もわからん。
大腸がんの肝メタ切除後に肝動脈にポートを留置して再発時にケモできるようにしたこともあるんだが、
結局、肝には再発なくて使うことがなかった。FOLFOXとか登場前の話。
最近のトピックは知らん。
抗ドーパミン薬といえばこれ！
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
ド底辺シリツ医ですらこんな間違いはしないから、脳内医者確定！ library(RcppAlgos)
library(numbers)
cm=t(combn(0:9,5))
f=\(x){
pm=permuteGeneral(x)
apply(pm,1,\(x) isPrime(sum(x*10^(4:0)))) |> sum()
}
re=cbind(cm,apply(cm,1,f))
re[which.max(re[,6]),]
re[rev(order(re[,6])),] >>674
もっと実用的なコード書けばいいのに
自動化とか >>675
これだね
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
ド底辺シリツ医ですらこんな間違いはしないから、脳内医者確定！ >>672
誰からもレス付いてないし
無視されてるじゃねえかw
内視鏡スレでも空気読めてねぇなお前 >>680
ケチのつけようがない投稿だからね。
んで、どこの国立を落ちたの？
RもPythonも使えないんだろ？ Blue Toothでの転送はdelayがあって楽器練習には不向きだな。
ワイヤレス化は断念。
最近のヘッドホンアンプにエフェクターが内蔵されていて遊べるおもちゃだな。 >>681
無視されてるだけじゃん、バカにしてもらえるだけありがたいと思えw で、もうここではどうせコテンパンだから脳内医療ネタで発狂できないのか？ 1時間ほどローストビーフを冷凍室で冷やしたら１mm程度に薄く切れた。 尿瓶ジジイ、また内視鏡スレで発狂か？
朝から元気なこったw PhimoseくんはRもPythonも使えないんだね。 >>691
お前それしか言ってねぇな
で、お前はPythonとRを使って具体的に臨床にどうやって活かしてるんだ？
どうせ、つまんねぇことにしか使ってないんだろ？ >>692
手計算できる大学入試問題が解けるらしいです。
プログラミングなんてこの世にまだ無い価値を作ってなんぼなのに。自分専用の便利ソフトでもいいから。 pythonとRの前に日本語学んでこいよ、まるで通じてないからw こういうのが解けると楽しいね。
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか。
そのときの期待値と合わせて答えよ。 内視鏡バイトあけにスーパーに行ったら牛のすね肉を売っていたので
赤ワイン煮をつくることにした。今日はワインでマリネ中。
その間はすることがないのでギターの練習。
久しぶりに学生時代に買った２４フレットのYAMAHAのSF-1000で練習。
弦はアーニーボールのスーパースリンキー。
エファクター付きのヘッドホンアンプ（充電式でかさばらない）とか
チューニングクリップとか、自動チューニングとか、時代の進歩を感じる。
TAB譜もネットで入手できていい。 悔しかったらチンパン脳内医療ネタ()で発狂してみ！ >>695
医者板って言葉が通じてないチンパンみたいだね >>695
で、算数ゴッコじゃなくてさ
具体的に医療にどうやって活用してるんだよ？お前が楽しいとかどうでもいいんだけど
マジで社会のゴミだよなお前 rm(list=ls())
p=90
q=0
r=120
A=c(0,0,r)
B=c(p,q,0)
v=B-A # 方向ベクトル
# c(x,y,z) - c(x0,y0,0)
# (x0-x)/p = (y0-y)/q = (0-z)/(-r)
# x0=pz/r+x
# y0=qz/r+y
f=function(x,y,z) c(p*z/r+x,q*z/r+y,0)
R=2000/pi
H=20
k=1e5
th=sample(seq(-pi,pi,le=k))
ht=sample(seq(0,H,le=k))
Ring=cbind(R*cos(th),R*sin(th),ht)
Shadow=t(apply(Ring,1,function(w) f(w[1],w[2],w[3])))
plot(Shadow[,1:2])
# draw circle
cir <- function(x, y, r, ...){
theta <- seq(-pi, pi, length=100)
lines(x + r*cos(theta), y + r*sin(theta), ...)
}
cir(0,0,R,col='white') >>701
情報科の学生にバイト料3000円くらい渡せばすぐに書いてくれますよ rm(list=ls())
library(rgl)
# 照射条件
p=90
q=0
r=120
A=c(0,0,r)
B=c(p,q,0)
v=B-A # 方向ベクトル
# c(x,y,z) - c(x0,y0,0)
# (x0-x)/p = (y0-y)/q = (0-z)/(-r)
# x0=pz/r+x
# y0=qz/r+y
f=\(x,y,z) c(p/r*z+x,q/r*z+y,0)
# リング大きさ
Ri=612
Ro=642
Hi=12
Ho=20
# モンテカルロ法で作図
k=1e5
th=runif(k,-pi,pi)
s=runif(k)
t=runif(k)
R=s*Ri+(1-s)*Ro
Hmax=s*Hi+(1-s)*Ho
H=runif(k,0,Hmax)
Ring=cbind(R*cos(th),R*sin(th),H)
Shadow=t(apply(Ring,1,\(w)f(w[1],w[2],w[3])))
plot3d(Ring,col='yellow',size=0.5)
points3d(Shadow,size=0.5,add=TRUE)
aspect3d('iso')
plot3d(Shadow) rm(list=ls())
library(rgl)
# 照射条件
p=90
q=0
r=120
A=c(0,0,r)
B=c(p,q,0)
v=B-A # 方向ベクトル
# c(x,y,z) - c(x0,y0,0)
# (x0-x)/p = (y0-y)/q = (0-z)/(-r)
# x0=pz/r+x
# y0=qz/r+y
f=\(x,y,z) c(p/r*z+x,q/r*z+y,0)
# リング大きさ
Ri=612
Ro=642
Hi=12
Ho=20
# モンテカルロ法で作図
k=1e5
th=runif(k,-pi,pi)
s=runif(k)
t=runif(k)
R=s*Ri+(1-s)*Ro
Hmax=s*Hi+(1-s)*Ho
H=runif(k,0,Hmax)
Ring=cbind(R*cos(th),R*sin(th),H)
Shadow=t(apply(Ring,1,\(w)f(w[1],w[2],w[3])))
plot3d(Ring,col='yellow',size=0.5)
points3d(Shadow,size=0.5,add=TRUE)
aspect3d('iso')
plot3d(Shadow) >>702
エクセル使える程度のスキルがあれば小中学生でも可能だろうね。 >>700
酸塩基平衡とか麻酔薬の初期投与量決定に使えるぞ。
CやHaskellと違って結果をすぐに作図できるのがいいね。 >>705
アンタ日本語も通じないチンパンの分際で何が小中学生だw >>706
使い方がゴミ過ぎるな
普通は医療統計に使うんだよ
酸塩基とか薬の初期投与量にプログラミング言語なんて必要ねぇよ
馬鹿だろお前 649：１３２人目の素数さん：[sage]：2023/12/03(日) 07:08:45.06 ID:1RHk829E
日本語読めないあたり、医科歯科卒も妄想確定だろwww
いつになったら博士の学位の証拠出してくれるんだよwww
数学板で偉そうなことほざいてるんだから、学位程度朝飯前に持ってるだろ、当然。
尿瓶ジジイ言われてるぞw >>706
尿瓶ジジイ高校数学スレではさんざん発狂してるのにここではダンマリ決め込むしかないみたいだね rm(list=ls())
r=30
f=\(h) sqrt(h*(2*r-h))
plot(0,0,xlim=c(-r,2*r),ann=F,col='white',asp=1,bty='l')
cir=\(x,y,r,...){
theta=seq(-r,r,le=100)
lines(x+r*cos(theta),y+r*sin(theta),...)
}
for(h in seq(0,2*r,le=30)) cir(3/4*h,0,f(h),col=2) >>709
エクセルのマクロでもできる。
Rの作図機能は便利。
使えればだけどね。
群馬の青木教授のRのサイトは素晴らしい。
3次方程式の解を算出するプログラムとか勉強になる。
パッケージのnumbersとかpracmaとか数学ネタが満載で面白い。
Rによる金融工学とか様々に使われている。 こういうのが解けると楽しいね。
プログラムをいじれるのは楽しいね。
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか。
そのときの期待値と合わせて答えよ。 39通りが誤答なら正答は？
PhimoseくんはRもPythonもいじれない。
いじれるのはphimoseだけｗ >>714
本当に医者なら医療統計とかに使うんだよ
論文とか書いたことないんだろ？
医者じゃないから算数ゴッコで遊んでるだけってのが丸わかりだわw 尿瓶ジジイって相変わらず自分の気に食わないレスは全員同じに見える病気みたいだね >>714
本当は医者よりもそういう事の方がやりたかったのでは l"
y=tan(θ)*x
x^2+(tan(θ)*x-r)^2=r^2
x=rsin(2θ)=2r cos(θ)sin(θ)
y=2r sin(θ)^2
"
r=30
Fh=\(th) 2*r*sin(th)^2
Fr=\(th) 2*r*cos(th)*sin(th)
th=seq(0,pi/2,le=30)
center=c(3/4*Fh(th),0)
radius=Fr(th) 医者ができないからそうやって専門外のことでお医者さんにマウントをとろうとするも結局アホを晒してるだけ 医者やっていたら専門問わず、基礎学力の一部としてR言語くらい使えるんじゃないの？
シリツ卒だと知らんけど。
昨日は6件に断られた発熱の救急と明けの内視鏡バイトで５諭吉ゲット。
救急はトイレ付きの個室の空室があったので対応できた。
霊長類もボノボまでいくとマウントをとったりしない。
マウントとるとかいうのは猿並みの知能の人間である。 >>725
アンタみたいにポンコツRでキーキー喚いてる医者なんかいないんだけどw
マウント猿ってまさしくアンタのことじゃん、低レベルすぎてマウントになってないけどw >>725
高校数学スレでずっと発狂してただろ、嘘つくなw >>718
線形代数の問題にRが使える。
あんたが無能で使えないだけ。
これ解いてみ！
こういうのが解けると楽しいね。
プログラムをいじれるのは楽しいね。
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか。
そのときの期待値と合わせて答えよ。 エクセルでできることはR言語でできる。
元利均等方式での返済とかね。
これもRで計算できる。
"
年利3.5%の固定金利の住宅ローンの残り3000万円を15年で
月々の支払い額が一定の元利均等方式で返済する。
住宅ローン金利の値上げが予想されている。
月々の返済をあと5000円は増やすことができるとして
あと何％の利上げまでは大丈夫か？
" >>718
一般言語してのR活用書
Rによるモンテカルロ法入門
とか読んだことないの？
もっと初歩の みんなのR (R for everyone）でもいいけど。 こういうデータ整理にも使える。最初に答えたのは俺。
https://rio2016.5ch.net/test/read.cgi/math/1501755792/154-170
array(1:48, dim=c(6, 4, 2))
を，3行2列おきに平均して
,,1
[,1] [,2]
[1,] 5 17
[2,] 8 20
,,2
[,1] [,2]
[1,] 29 41
[2,] 32 44
としたいんですが，効率的な方法はないでしょうか。
実際のデータは，10000x10000x400なんです。 こんなのやっていた人もいた。
＞生命表と幾何ブラウン運動に基づく株価のモンテカルロシミュレーションで、今の貯蓄で死ぬまでにお金を使い切る確率を計算する
R言語でいろいろ遊べる。 >>728
医者板って日本語が理解できないチンパンな上に39通りのポンコツR使いがなんだって？ >>728
>>730
全部医療と関係ねぇじゃねぇかw
んで、お前論文書いたことあんの？
学位持ってるの？まあ、医者じゃないから持ってるわけないかw おい尿瓶ジジイ
ベテランの医者だったら今まで書いた論文と学位くらいすぐ答えられるだろ、さっさと答えろよ 10°ごどに刻まれたルーレットに
円周率36桁の
3.14159265358979323846264338327950288の数字を使って
36個書かれている。
ルーレットを36回回して得られた数字の総和として最も多い値を求めよ.
こういうのもRで計算して、Rでシミュレーションして検証できる。
脳の運動には( ・∀・)ｲｲ!! Rが使える私立医って慶応卒か自治医大卒くらしか知らないな。
それ以外を俺はシリツ医と呼んでいる。 調理が指先の運動になって脳の活性化に役立つと考えたが
玉葱を切るとか単調作業ではあるので変化がある手作業の方がいいと思って
大学生時代に買ったYAMAHAのSF-1000をいじり始めた。
tab譜がネットで簡単に入手できて( ・∀・)ｲｲ!! >>736
医療しかできないアホになりたくないからね。
料理したり、ギター引いたり、金髪ねーちゃんと嵌めたり、
旧ソ連人の愛人に孕ませたり、いろいろやりたいから。
まあ、10億ないと安心してリタイアできないと開業医が投稿していたけど
一桁下の貯蓄しかないので週２〜３日医者稼業している。
内視鏡はデイサービス
当直勤務はショートステイ
と嫁から言われているｗ RもPythonも使えないようなアホの学位に価値はない、というのが俺の評価。
あんたはエクセルのマクロを組むスキルすらなさそう。 >>740
中指でDIP関節屈曲、PIP関節伸展ができるようになったので
手マンを愛人から褒められたが、これも単調作業だなぁと思うようになったｗ >>741
統計処理したり、作図したり、モンテカルロ法でシミュレーションしたりいろいろやりたいよね。
いろいろやりたいといえば、水泳部の女子大生の腰の動きは神業だったなぁ、
エビデンスレベルV ｎ=1 個人の経験
懇意なナースにお願いしたけど、得意じゃないの と言いつつ頑張っていた。
水泳がスキルを増すのか、スキルがある女性が水泳部を選ぶのかには検証が必要だと思う。
Phimoseくんはどう思う？ 1からNまでの数字が1個ずつ刻まれたルーレットをn回まわして得られたn個の数字の総和の最頻値を求めるプログラムを作れ
俺は慣れたR言語で作る。
どの言語でも結果は変わらないだろう。
こういうプログラムくらいアホ以外は作れると思う。 >>742
半端ない負け惜しみw
そういうセリフはね学位持ってる奴が言ってこそ説得力があるんだよ
持ってない奴が言っても誰も同意しませんw
論文書けるスキル無さそう
要するにプログラミング言語使いこなせてないのはお前だよ。悔しかったら論文の一つでも書いてみろや >>746
んで、RもPythonも使えないアホなんだろ？
ド底辺シリツってそれすらできないアホに学位を与えるのかよ？
これを算出できる知能はあんたにはないだろ？
↓
１個のサイコロを振って出る目に応じて，目の数に１万円をかけた賞金がもらえるとする．
１回振って気に入らなければ，もう１回やり直すことができるとする．つまり，最初の賞金をもらわないで，もう１回振ってその目に応じた賞金がもらえるとする．
やり直す回数の上限は5回、即ち最初から数えると6回までサイコロを振ることができる。
ある数以上なら終了、その数未満なら再試行という戦略で
貰える賞金の期待値を最大にしたい。
ある数は試行毎に異なっていてもよい。
どういう戦略をとればよいか。
そのときの期待値と合わせて答えよ。 どの問題でもサクッととけば基礎学力を示せるのに。
まぁ、できないんだろうな。
初歩的な一般プログラミングできれば答がだせるのに。
内部計算も分からずにEZR使うアホにはなりたくない。 医療しかできないアホになりたくないからね。
料理したり、ギター引いたり、金髪ねーちゃんと嵌めたり、
旧ソ連人の愛人に孕ませたり、いろいろやりたい。
統計処理したり、作図したり、モンテカルロ法でシミュレーションしたりいろいろやりたいよね。
いろいろやりたいといえば、水泳部の女子大生の腰の動きは神業だったなぁ、 医療しかできないアホになりたくないからね。
料理したり、ギター引いたり、金髪ねーちゃんと嵌めたり、
旧ソ連人の愛人に孕ませたり、いろいろやりたい。
統計処理したり、作図したり、モンテカルロ法でシミュレーションしたりいろいろやりたいよね。
いろいろやりたいといえば、水泳部の女子大生の腰の動きは神業だったなぁ、 >>747
無料ソフトで算数ゴッコやって医療に貢献できるのか？そもそも、金あるならJMPとかSPSSとか持ってるはずなんだけど医者なら
俺はお前と違って、NEJMにも載ったことあるしインパクトファクターも１００超えてる
つまりそれだけ社会に貢献している
その問題解いて何の意味があるんだ？w >>750
お前は医療も出来ないアホじゃん
数学も英語も全然出来ないけどw >>750
そういうセリフ吐くってことは自分で医者じゃありませんって言ってるのと同義だぞw
医師が羨ましかったら再受験でもすれば？
お前の英語と数学じゃ100％受かんないけどw >>746
んで、RかPythonくらいいじれるの？
いじれるのはPhimoseだけのPhimose族なんじゃないの？ >>755
学位も専門も論文もないのに医者とか笑わせるなよ
39通りとかほざいてるポンコツRなんか臨床で使いませんが
チンパンに言っても分からんのか？ >>755
で、いつになったら医者になれるの？尿瓶ジジイはw 内視鏡スレより
301：卵の名無しさん：[sage]：2023/12/05(火) 06:23:52.86 ID:ddBq5W60
上半身のみ懇意な内視鏡室ナースとの仕事後のプライベートな会話
俺「見逃しを防ぐのには何が一番必要だと思う」
ナース「？」
俺「色々な人にやってもらうことが一番」
ナース「センセ、女の人もそうですよ」
302：卵の名無しさん：[sage]：2023/12/05(火) 06:25:12.72 ID:ddBq5W60
今から思うに、これは遠回しの誘いだったのだろうか？
惜しいことをしたｗ
303：卵の名無しさん：[sage]：2023/12/05(火) 11:09:21.74 ID:0lAoWGsZ
お前は医者じゃないだろ >>762
今日は一段と発狂してるな
図星つかれてストレス溜まってんだろうなw >>764
実はコイツも尿瓶ジジイだろ
医療事務の尿瓶ジジイがこの女医にキレられて復習している
このスレに粘着してるのが良い証拠
通報しといたからそろそろ捕まるぞ尿瓶ジジイw ま、尿瓶ジジイが捕まったところでどうせ懲役にはならないし社会的信用度なんか元々0だから今まで通り社会の老廃物としてここで発狂し続けるだろうけどなw # r/sin(th) -r=R*cos(u)(1/sin(th)-1)
# y=R*sin(u) [-R,R]
# dy=R*cos(u) [-pi/2,pi/2]
R=1
th=pi/6
integrate(function(u) R*cos(u)*(1/sin(th)-1)*(R*cos(u)),-pi/2,pi/2)$value
f=function(θ) pi/2 *(1/sin(θ)-1)
curve(f,0,pi/2,xlab=quote(theta),ylab='S',bty='l')
f(pi/6)
f(pi/4)
(sqrt(2)-1)*pi/2
f(pi/3)
1/sin(atan(4/3))-1 作業仮説 ： 難関医学部卒の女医はフェラ嫌いが多い。
国立卒女医でも四国あたりの新設医大卒は開放的な女医が多い印象。 北大卒の外科医と仕事したことあるけど旭川はないな。
北大が外科学会主催のとき医局員はひとり１００万円の
「任意」の寄付を徴収されたと言ってたのを覚えている。 >>769
存在しない記憶w
後、尿瓶ジジイよ内視鏡スレで誰もレスしてないのに永遠と妄想を垂れ流して恥ずかしくならないのか？
誰にも相手されてないぞ >>750
おい尿瓶ジジイ
学位と論文の話はいつまでダンマリ決め込んでんだよ
どうせ医者じゃないから何の話なのかも検討つかねーんだろ？？ >>767
四則演算なんてやめて、もっと自分に役に立つアプリケーションを想像するところから始める方がいい結果になると思います。 >>774
四則計算以外に三角関数や積分も入っているんだけど、
Rのコードが読めないんだろうなぁ。 >>776
アンタ日本語すら読めないチンパンじゃん 数学の前に日本語勉強してこいって言ってんだろ
やたらと英語を使いたがってるけどnurseの複数形も間違える始末だし
やはりチンパンには厳しいのか？w （家庭内）料理当番に備えた備忘録（備忘＝ビボウ＝美貌と覚えればよい）
イノシン酸（イノシンさん、inosinic acid）は、ヌクレオチド構造を持つ有機化合物の一種である。ヒポキサンチン（6-ヒドロキシプリン）と D-リボースとリン酸各1分子ずつで構成されたリボヌクレオチドで、イノシン 5'-リン酸、イノシン 5'-モノリン酸、イノシン一リン酸などとも呼ばれ、IMP と略記される。主に肉類の中に存在する天然化合物である。
呈味性ヌクレオチドの1つであり、日本では鰹節に含まれるうま味成分のひとつとして語られることが多い。
致死量はLD50=14.4g/kgである。
削りぶしのうま味の正体
うま味の主役は、核酸関連物質のなかのイノシン酸（IMP）とアデニル酸（AMP）です。これに微量に含まれているグルタミン酸（MSG）が加わり、相乗効果で味が引き立ちます。脇役として、遊離アミノ酸や魚節のもつ香気成分、燻製成分、カビ付けによる独特の香気などが要素になっています。
また、脂質やグリコーゲンなども微妙に全体の味を引き立てているほか、魚種によって、それぞれの独特の持ち味が加味されています。
削りぶしのうま味には、たくさんの呈味・芳香成分が関わっていて、単一の化学調味料では得られないバランスの良い香りとまろやかな味、コクの深さがあります。さらに昆布（グルタミン酸）を加えることで、相乗効果によってうま味が増します。 学生時代には難なく引けたリフがスムーズにできなくなったので加齢による衰えを自覚。
基本のBlack Magic Womanから再練習することにした。
昔は探り引きしてたけど、最近はネットでTab譜の入手が容易になったので
道楽ギタリストにはいい時代になった。 尿瓶ジジイ誰もいない内視鏡スレで永遠と妄想垂れ流してて笑えるわ
しかも、過去のケースをまとめた論文って
それケースレポートじゃねぇかw
そんなん、論文のうちに入んねぇよ！ 学生時代にかったYAMAHAのSF-1000
当時（学園祭での演奏）は重いとは感じなかった。重さとか考えずに２４フレットあるので高音演奏向きで選んだ機種。
いまとなっては4kg超えは重いけど座って弾くので問題なし。
Tab譜が無料〜廉価に入手できるいい時代だな。 >>784
尿瓶ジジイ何故かこのスレでは大人しいな
数学スレでは大暴れしてるが
無限階級って何だよw
自称上級国民は自分の地位にコンプレックスがあるんだろうな
女医や看護師を食ってるとか明らかに下に見ようとしてるし普段から馬鹿にされて鬱憤が溜まってるの丸わかりw 病院で女医や看護師にモンペとしてゴミ扱いされたのかな？w
まあこんな調子では当然だわな 744：１３２人目の素数さん：2023/12/06(水) 20:16:38.38 ID:iA9UG5Qr
全然関係ないこんなところでやたらと医者ぶってるのって医者板で相手にされないからなんだろうな
750：１３２人目の素数さん：[sage]：2023/12/07(木) 05:20:58.45 ID:q2Pd0dk9
>>744
（>>747の誤字訂正）
医師が羨ましければ再受験すればいいのに。
二期校時代の入学だけど、同期は２〜３割は再受験組だったぞ。
東大卒の獣医のYさんとか東大卒の新聞記者Oさんとかいたよ。
歯学部には東大数学科卒のKさんとか東大卒が多かったな。
752：１３２人目の素数さん：[sage]：2023/12/07(木) 06:28:03.78 ID:q2Pd0dk9
>>744
高校数学とは全然関係ない投稿ｗ
医学ともほとんど関係ない。（アクチン・ミオシンの変成温度は論じていないし）
(中略)
ガイドラインを大きく逸脱しなければ自己保身できるのが医者稼業。
ガイドライン通りにすると保険適用がなくて病院持ち出しになるのはあるけどね。
例
ガイドラインに従って急性膵炎の除痛にブプレノルフィンを使ったら
医事課から照会がきた。
医事課としては極めて有能だと思いつつ、病状詳記に「急性膵炎ガイドラインに従って投与した」と追記してくれと答えておいた。
保険を削られたどうかまでは確認してない。
同じレスに3回もレスバして大発狂w >>787
しかもここでもバカにされたいみたいだからとんだ変態だねw >>776
どうしても四則演算をやりたいのでしたら、何かビッグデータの中から法則を見つけるような事をやると価値があると思います。
例えばFXのレートを読み込んで、自分で考えたアルゴリズムで建玉決済を繰り返してみて、利益の上がる手法を見つける。これについてはExcelのUIが便利だと思います。複数のパラメータを少しづつ変えた時の利益変化を可視化しやすいです。
VBAの高速化テクニックの知識も着くと思います。
そして自動取引で金を稼ぐ。MQLで自動売買は簡単にできます。 尿瓶ジジイ木曜まで大発狂だったのにまた閉鎖病棟行きか 尿瓶ジジイ日本語通じてなくて発狂w
301：卵の名無しさん：[sage]：2023/12/05(火) 06:23:52.86 ID:ddBq5W60
上半身のみ懇意な内視鏡室ナースとの仕事後のプライベートな会話
俺「見逃しを防ぐのには何が一番必要だと思う」
ナース「？」
俺「色々な人にやってもらうことが一番」
ナース「センセ、女の人もそうですよ」
302：卵の名無しさん：[sage]：2023/12/05(火) 06:25:12.72 ID:ddBq5W60
今から思うに、これは遠回しの誘いだったのだろうか？
惜しいことをしたｗ
303：卵の名無しさん：[sage]：2023/12/05(火) 11:09:21.74 ID:0lAoWGsZ
お前は医者じゃないだろ
305：卵の名無しさん：[sage]：2023/12/06(水) 06:37:55.40 ID:kguTCKYg
>>303
女医やナースを食べるのは医者なら普通。
それを知らないの方がよっぽど医者らしくない。
まあ、Phimose族には縁のない話かもね。
学生には女子医大生には息子が大変お世話になりました。
322：卵の名無しさん：[sage]：2023/12/09(土) 08:10:56.45 ID:RE3EXhZX
>>305
アスペか？
会話の内容じゃなくて301が医者じゃねーだろって言ってんだよ
324：卵の名無しさん：[sage]：2023/12/09(土) 15:51:40.53 ID:e+rxEVWV
>>322
Phimose族発見！ セクハラモンペジジイ>>785の終の住処なのかここは？
誰からも相手にされなくなってここで死ぬまで発狂し続ける気か？w 臨床医なら電卓でサクッと計算できて当然の問題。
レプリコンワクチンの第三相試験のサンプルサイズは828人という。
このサンプルサイズで何人に一人出現する副作用を99%以上の確率で検出できるかを計算せよ。
理論値をRを使ってモンテカルロ法で検証できるのが( ・∀・)ｲｲ!! 参加者828人の臨床試験でN人に1人の割合で起こる副作用が治験で発見できる確率をP(N）とする。
(1) NとP(N)をグラフ化せよ。
(2) この臨床試験で発見できる確率が0.5の副作用は何人に一人おこる副作用か？
すなわちP(N)=0.5となるNを求めよ。 AE=\(p=NULL,n=NULL,conf.level=NULL){
if(is.null(p)) {
p=1-(1-conf.level)^(1/n)
re=list(p=p,'1/p'=1/p)
}
if(is.null(n)){
re=list(n=log(1 - conf.level)/log(1-p))
}
if(is.null(conf.level)){
re=list(conf.level=1-(1-p)^n)
}
return(re)
}
AE(p=1/1000,n=NULL,conf=0.95)
AE(p=NULL,n=828,conf=0.99)
AE(p=1/1000,n=828)
AE=Vectorize(AE)
N=seq(10,10000,by=10)
P=\(x) unlist(AE(1/x,n=828))
plot(N,P(N),bty='l',type='l',lwd=2)
abline(h=0.5,lty=3)
uniroot(\(x) P(x)-0.5,c(800,2000)) 832：１３２人目の素数さん：[sage]：2023/12/10(日) 22:40:01.13 ID:tEQFYW1Z
自称東大合格の医者www
大学合格にこだわって高校数学スレに居着くあたり、大学に入学すらしたこと無いんじゃね？
大学入学が羨ましいんだろwww
高校生にもバカにされてる模様 こういう基本的な臨床統計の計算ができる人はこのスレにはいないみたいだな。
（参加者数が増えたらしいので数値を変更）
臨床統計の初歩の初歩。Rが使えなくても関数電卓があれば算出可能。
レプリコンワクチンの第三相試験のサンプルサイズは1190人という。
このサンプルサイズで何人に一人出現する副作用を99%以上の確率で検出できるかを計算せよ。 >>806
アンタのチンパン数学なんか誰にも相手にされてないってことが分からないほどアホなのか？ ほらほらここでも高校数学スレみたいに発狂してみろよ
なんとかフェチとかいってさw >>802
なぜ誰でも出来るような事をやりたがるのでしょう 自分のこと特別な人間だと思い込んでるチンパンなんだろ >>809
では、そのRコードのバグを指摘してみてみ！ Wikipediaが寄付募集してたので、少額ながら寄付しておいた。
週末の当直での救急搬送のインセンティブが入るので。 自己増幅型メッセンジャーRNAワクチン（レプリコンワクチン）のことを調べていたら、
＞ ベトナムで被験者1万6千例を対象に実施した有効性試験
という記述に遭遇した。
(1) 1万例に1回起こる副作用がこの有効性試験で起こる確率を求めよ。
(2) 1万例に1回起こる副作用を99%以上の確率で発見するためには被検者は何人以上必要かを求めよ。
臨床統計の初歩の初歩の計算。
関数電卓があれば計算できる。 >>813
Rが使える人への練習問題
(1)をRによるモンテカルロ法で計算するコードを記載せよ。 >>811
高校生相手にはイキり散らかしてるのに医者相手じゃ発狂できないのかチンパン
Rもアンタの頭の中身もバグだらけなのは火を見るより明らかなんだが？w >>814
チンパンまるで相手にされず高校生相手に発狂止まらないね pbinom(0,16000,1/10000,lower=FALSE)
pbinom(0,16000,1/16000,lower=FALSE) ; 1-exp(-1)
f=\(n,p=1/10000) pbinom(0,n,p,lower=FALSE)
n=seq(30000,50000,100)
plot(n,f(n),type='l',bty='l')
abline(h=0.99,lty=3)
# 1-(1-1/10000)^n > 0.99
log(0.01)/log(0.9999)
f(46041:46050) おい尿瓶ジジイ、お医者さん相手には噛みつけなくなったのか？w 臨床統計の初歩の初歩（関数電卓で計算可能）
臨床試験でN人にひとり発生する副作用を95%の確率で発見するのに必要な参加者数は約3N人である。
これは、rule of threeとして知られる。
2.9以上3.1以下を約3とするとrule of threeが適用できるNの範囲を述べよ。 >>820
おい尿瓶ジジイ高校生相手にしか発狂できないんだな
ここで下手に吠えたら蜂の巣だもんな？悔しいのうw >>820
rule of three を知ると 算出方法と厳密値を知りたくなるよね？
適応できる範囲も知りたくなる。
Rが使えなくても関数電卓があれば、計算サイトはネットにいくつもある。 >>823
39通り()のポンコツR使いが何だって？ >>825
やっぱり、Rすらいじれないみたいだね。
foreskinいじりが仕事なの？ >>826
チンパン数学使いが息巻いて発狂してみっともないね
何で生きてるの？w >>825
Phimoseくんは、foreskinいじり以外に何か仕事をしてんの？
尿瓶おまる洗浄の仕事はクビになったのかね？ 自己増幅型メッセンジャーRNAワクチン（レプリコンワクチン）のことを調べていたら、
＞ ベトナムで被験者1万6千例を対象に実施した有効性試験
という記述に遭遇した。
(1) 1万例に1回起こる副作用がこの有効性試験で起こる確率を求めよ。
(2) 1万例に1回起こる副作用を99%以上の確率で発見するためには被検者は何人以上必要かを求めよ。
臨床統計の初歩の初歩の計算。
毎回、立式するのは面倒なのでRでスクリプトを書いて道具箱に保存。
関数電卓があれば計算できる。 >>828
アンタは医療事務をクビになって数十年経過、今はここで昼夜問わず発狂してるだけの哀れな老人だろ？w >>830
救急外来と内視鏡（依頼があれば麻酔）をやっているけど
あんたはforeskinいじり専業なんだろ？
尿瓶おまる洗浄業務はクビになったのか？？ >>832
アンタは元医療事務なんだろ、胆汁ドレナージとかほざいてたし
医者なわけない
それくらい医者なら分かるはずなんだよ、アンタは発狂してるだけだけどw 尿瓶ジジイ最近大人しいな
ビビっでレス出来ないのかな？ >>833
胆汁ドレナージって普通にやるだろ。
肝切除後に肝切端に留置したドレーンは胆汁ドレナージ＋出血のモニタードレーン
だぞ。
あんた、肝切除やったことないの？ 胆汁リークテストを生食＋空気でやると
リークしうる部位からカニのあぶくがたつのがわかって同定が容易になる。
京大卒の外科医に教えてもらって、以後はこの手技でリークテストをやることにした。 >>835
弘前大卒なのをもっと書いたほうがいい？ 経皮的気管切開のときは、生食をいれたシリンジで穿刺すると
空気の逆流が泡として確認できるので空のシリンジを使うより確実。
それなりの設備の病院で救急外来やってたら誰でも知っていることだが、
Phimoseくんは気管切開もやったことないんじゃないの？ >>838
同じ田中だが、京大の田中紘一先生の門下の外科医に教えてもらった。 昔、よくいっしょに外泊していたナースにそっくりのAV女優の存在を知って一瞬、本人かよと思ったが、あんなに剛毛じゃないから別人だと確信できた。 >>837
アンタの好きなweblioにも胆汁ドレナージなんて言葉載ってませんw
何を調べても胆道ドレナージとか胆管ドレナージって言葉しか出てこないんですがww >>840
何もわかってなくて笑えるわw
救急「外来」で経皮的気管切開をやるわけ無いだろ
普通、緊急でやるのは輪状甲状靭帯切開な
ネットで調べたことしかないからそんな発言出てくるんだろ？
何も知らんくせに知ったかぶりすんなよw >>846
あんたとは臨床経験が違うのよ。
自発呼吸なしで搬送された急性喉頭蓋炎。
ミニトラックがないと換気できんよ。緊急気管切開を選択。
ミニトラック発売中止になって不便。COOKからその相当品が出ていた。
CPAで搬送された患者でできることは何でもやってくれという家族へのパフォーマンスに挿管しようとしたら死後硬直で開口不能。
緊急気管切開した。出血しないので30秒で完遂。
盲目的経鼻挿管できたこともあるな。コードレス気管支ファイバーがあると楽。内視鏡室が隣接なら経鼻内視鏡を選択。
飛降り自殺の多発肋骨骨折に開胸心マしたこともある。これには小児用開胸器が便利。 >>846
で、薬屋の売り子くんの、あなたは気管切開できるの？ >>847
言ってることが支離滅裂だなw
何もわかってないの丸わかりなんだけどw
ミニトラックはそもそも輪状甲状膜切開術用のキットで輪状甲状膜を刺すんだから
そもそも経皮的気管切開術と穿刺する場所が違う（解剖わかってない尿瓶ジジイには理解出来ないかもだがw）
キットもネオパークとか使うんだよ
お前の言い方だとミニトラックの代用品使って気管切開術やったって書込みだから
マジで何もわかってない
仮に緊急で気管切開するにしても、救急「外来」でやらずICUとか手術室でやるもんなの
救急「外来」でやるんだったら、間に合わない状況だから輪状甲状靭帯穿刺を取りあえずやって後から気切やるんだよ。気道確保しないと死んじゃうじゃんwww
ちなみに気切は出来るよお前と違ってw
ミニトラック気管に刺すって勘違いしてる馬鹿には無理だろうがwww x^2+y^2=1
(1-y^2)/a^2+(y-c)^2/b^2=1 # 接点(x,y)
(b^2 x)/(a^2 (c - y))=-x/y # y'
cos(theta)^2/a^2+(sin(theta)-c)^2/b^2=1
b^2*cos(theta) / (a^2*(c-sin(theta))) = - cos(theta)/sin(theta)
c = (1 - b^2/a^2) sin(θ)
cos(theta)^2/a^2+(sin(theta)-c)^2/b^2=1 848卵の名無しさん sage2023/12/14(木) 11:41:27.16SLIP:JP 0Ha3-wM39 [217.138.212.98 [上級国民]](2/2)ID:DBlVxK0nH(2/2)
>>846
で、薬屋の売り子くんの、あなたは気管切開できるの？ >>854
マジで何も言い返せてなくて草w
気管切開出来るって書いてるのに、その自分の文章転載して何が言いたいんだ？
ちなみに耳鼻科の医者がミニトラックを第2-3気管輪間に刺して途中で抜けてしまって後で裁判沙汰になった症例もあるけどな
輪状甲状靭帯ってわからんのだろ？
添付文書通りにするお前のポリシーはどうした？w
ちゃんと商品説明にミニトラックは輪状甲状靭帯に刺せって書いてるぞ チンパンだからそんな漢字ばっかの言葉理解できないんだろw 尿瓶ジジイまた論破されてダンマリ決め込んでんのかよ 尿瓶ジジイまたイジメ過ぎちゃったから
ぐうの音も出ずダンマリですかw
イジメちゃってゴメンネ～
医者のフリするならもう少し勉強してからにしようねw 932：１３２人目の素数さん：[sage]：2023/12/15(金) 08:54:03.27 ID:6VSR61qr
偽医者完全に論破されてるじゃん
こんだけ偉そうしてこのざまかよ
こいつやっぱ東大とか嘘だろ 尿瓶ジジイ
ここで書き込めないのでポスト急性期スレでこっそり書き込んでるっぽいなw
マジで雑魚だわ 尿瓶ジジイまた高校数学スレに何事もなかったかのように書き込みしてるw 大学受験以降周囲に勝るものが何も無かったから
大学受験前の人間に対してしかマウントを取れないのでしょう >>837
おい尿瓶ジジイいつになったら胆汁ドレナージなどと記載のあるソース貼ってくれるんだよ？やっぱり脳内だから無理？ ミニトラックは輪状甲状靭帯に穿刺するけど何か？
外科的気管切開のときに気管の切開は
昔はフラップをつくっていたが、気管壁の石灰化が強い症例でフラッフが折れて
依頼、stay sutureをおいての縦切開に変えた。stay sutureは誤抜去時の対策だが
つかわずにすんだ。経皮気管切開で誤抜去されたら再挿入は困難だろうといつも思っている。
ミニトラックでの気道確保は応急処置。
細すぎて換気量が保てずにCO2ナルコーシスになりうる。
そのまま経皮気管切開キットカニューラにしたこともある。
末期がん患者で抜去できるみこみがなかったケースだが。
昔のBlueRhinoよりテルモのガイドワイヤー鉗子を使うキットの方がやった数は多いな。
ガイドワイヤー鉗子１本８万とかいっていたけど業者が無期限貸与という名目で寄贈してくれた。
win-winの関係。 一日以上必死に考えた結果がこれなん？脳内医者さんよw >>869
どうみても>>847の書き込みはミニトラックで経皮的気管切開を救急外来でやるって内容だろうがw
知らんかったくせにさも「知ってもしたが何か？」って勝手に脳内変換してんじゃねぇよ！
しかも、ミニトラックをそのまま経皮的気管切開キットカニューレに代えるって何だよ？
ガイドワイヤーごしに同じ場所で入れ替えるってことか？wめちゃヤバだなwww >>869＝尿瓶ジジイ朝から高校生に発狂w
945：１３２人目の素数さん：[sage]：2023/12/16(土) 06:43:54.11 ID:/ftwScX1
>>936
高校生・一般向き と書いてあるから高校数学の範囲で解けることが示唆される。
R言語で作図できるまで２日かかった。
楕円が接するときの長軸半径と短軸半径の関係が導出できずに
行き詰まってしまった。
東京大学卒業者による解決を希望します。
自称「東大卒」はコピペとforeskinいじりしかできないようなので東京大学卒業者の投稿が希望です。
「ウェルダンなのに柔らかい、もも肉ステーキ」を作ろうと
舞茸のプロテアーゼで前処置しての調理実験が
この問題の解決に時間をとられて捗らなくなってしまった。
ダイアモンドカット、玉葱でのシャリアピン、舞茸プロテアーゼ
とかいろいろな組み合わせの予定。
前処置として肉をマッサージするというのもあるようだ。
まあ、シャリアピンのレシピだと叩いて薄く伸ばす作業があるが。
今日は休みで内視鏡の仕事もないので
「ウェルダンなのに柔らかい、もも肉ステーキ」プロジェクト再開。
ダイアモンドカットした肉としていない肉に舞茸プロテアーゼをマリネして前処置を開始。 >>856
離島勤務時は胆管結石用のリトリーバルバルーンを使って血栓除去するとか
臨機応変に対応できるのが臨床医。添付文書の適応外は承知のうえ。
脳梗塞患者の健側だったから、こっちの脚も使えなくなるのかと落胆していた
下肢をサルベージできたので、お礼にヤギをあげる と言われたのを今でも覚えている。
んで、あんたは血栓除去やったことあんの？
気管切開すらやったことなさそうだが。 で、薬屋の売り子くんの、あなたは気管切開できるの？
内視鏡すら扱えそうにないんだが？ >>875
だから、俺は気切出来るっていってんじゃんwww
首周りの解剖全く理解出来てないお前が気切何て出来るわけないだろ
発言もめちゃくちゃだし、何が臨床医ｷﾘｯ
だよwwwあんまり笑わせるなよ >>872
ミニトラックは気管切開とは呼ばないよ。
輪状甲状靭帯の高さでは気管ではないからね。
んで、あんた気管切開は何例くらいやったことあんの？
そもそも、できないんじゃないの？
人工呼吸管理が１週間を超えると翌週に抜管できそうにないと判断されたら気管切開依頼をしてくる呼吸器医がいた病院では毎週のように気管切開していた。
毎週、経鼻挿管の左右を入れ替えるなどして気管切開をさける呼吸器科医もいた。
週１で大学から外科医の応援がくる日があったので大きなオペがないときはその日に気管切開をいれていた。
気管壁にstay sutureをおいて抜糸時期まで留置しておくというのは小児科医から教わった。幸い使うはめになったことはないが。
左右を間違えて牽引するといけないので、右側はloop２つにして左と区別して皮膚にテープ固定。皮膚の抜糸時期にいっしょにstay sutureも抜糸。
経皮気管切開で瘻孔完成前に誤抜去されたら再挿入はほぼ不可能だろうな。再挿入にこだわらず経口・経鼻などでの気道確保を優先。
retrosternalに「再留置」されて亡くなったケースの話をきいたことがある。みたことはないけど。 数学板で 和算に挑戦 とかいう投稿があったので調べてみたら
これに遭遇。
https://www.city.ichinoseki.iwate.jp/museum/wasan/r5/hard.html
練習がてらにR言語で楕円を描出する関数をつくって道具箱に保存。
Rで作図まではできたのだが、数式が複雑すぎて変数消去ができなくて行き詰まった。
最近は数学板での出題おじさんの新しい出題がないので
ボケ予防の題材としては役立った。
調理実験が滞ったが。 >>877
じゃあさ
>>869のミニトラックで換気出来なくてそのまま経皮的的気管切開カニューラにしたことがあるってどういうことよ？
この発言だと、輪状甲状靭帯にネオパークぶち込むってことになるんだけどwww
1日かけて色々調べたんだろうが、爪が甘えよ
素人さん
本物の医者じゃなくて良かったなwお前みたいな医者いたらその病院潰れてるわ >>876
手技のノウハウを全く記載できないから
気管切開も全麻も内視鏡も全くできないんじゃないの？
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
だから、薬屋の売り子としての能力すら疑わしいわけだが。
stay sutureをかけるときにカフの空気を抜いておかないと
stay sutureがカフを貫くことがあるので忘れてはならない手順。
経験を積むとこういう記述ができる。まあ、痛い目にあって学ぶわけだがｗ できるのは気管切開時のチューブ抜去くらいじゃないの？
外科的気管切開は術者よりも助手の術野展開の方が難しいことを理解していないから
あんたが気管切開のド素人であることはわかるよ。ノウハウを全く書けないだろ。
んで、あんたは反回神経を直視した経験ある？
俺の時代は一般外科医が甲状腺や食道の手術をしていたから何度もみたけど。
幸いにも非反回反回神経に遭遇したことはない。
B6合流の胆嚢管症例は２例遭遇した。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
ド底辺シリツ医ですらこんな間違いはしない。 最も醜いのが、わざと間違えたとか言い訳していることだね。 >>880
何がノウハウだよwそんなん、ネットのブログでも読んだら医者が書いてそうな浅い知識じゃねーか
ブログでも読んで出来る気になったのか？
それより輪状甲状靭帯から経皮的気管切開しようとした件はどう説明するの？
何がヤバいとかわかんないんだろ？www >>883
もっとも醜いのは、どう見ても知らなかったのに打ち間違いだから脳内変換しろと相手側に非を求めることだろ
そう、お前だよphymoseさんwww >>877
まずは「間違いでしたゴメンなさい」
とか「教えて頂いてありがとうございます」
だろ？何故それが言えないの？
んで、その後はお得意の論点ずらし
お前が救急外来で気管切開を緊急でやるとか、どう考えても誤った記載をしたのは事実だよね？若い医者がこの記載を見て勘違いしてやりだしたらお前責任取れんのか？
素人が適当なこと書くんじゃねーよ >>883
おい尿瓶ジジイ
発狂まだかよ？またネットで必死に探してるのか？ >>883尿瓶ジジイ今日もしれっと書き込み笑
936：１３２人目の素数さん：[sage]：2023/12/15(金) 23:18:20.40 ID:5WZ5NSRi
この問題難しいな。
https://www.city.ichinoseki.iwate.jp/museum/wasan/r5/hard.html
円と楕円が2点で接するは重解では解決できないので
接点で接線が一致するで立式
楕円どおしが接するというのも数式化が煩雑。
R言語を使ってようやく作図までできた。
https://i.imgur.com/eT2fvRJ.png
ちなみにRには円を描く関数はないので自作する必要があります。
種明かしすると正１００角形を描くプログラムを作って円にみせかけている。
959：１３２人目の素数さん：[sage]：2023/12/17(日) 16:02:39.10 ID:mdAHyvHH
>>936
答えを作図すると、円と楕円は中心角60度で接する。 干支から年齢を計算
eto=("ひつじ")
Eto=c("子(ね＝ねずみ)","丑(うし)","寅(とら)","卯(う＝うさぎ)","辰(たつ＝龍(りゅう))","巳(み＝へび)","午(うま)","未(ひつじ)","申(さる)","酉(とり＝にわとり)","戌(いぬ)","亥(い＝いのしし)")
i=grep(eto,Eto)
this_year=as.numeric(strsplit(as.character(Sys.Date()),'-')[[1]][1])
j=this_year%%12 - 3
age=12*(0:9) + j-i
age[age>0] 干支と誕生日（月日）から今日が生まれて何日めか計算
eto=("ひつじ")
tag="10-17"
Eto=c("子(ね＝ねずみ)","丑(うし)","寅(とら)","卯(う＝うさぎ)","辰(たつ＝龍(りゅう))","巳(み＝へび)","午(うま)","未(ひつじ)","申(さる)","酉(とり＝にわとり)","戌(いぬ)","亥(い＝いのしし)")
# Eto
i=grep(eto,Eto)
this_year=as.numeric(strsplit(as.character(Sys.Date()),'-')[[1]][1])
j=this_year%%12 - 3
age=12*(0:9) + j-i
age=age[18<=age][1:5]
age
AD=paste0(this_year-age,"-",tag)
days=\(x) as.numeric(Sys.Date() - as.Date(x))
rbind(age,days=sapply(AD,days)) プログラムの動作確認と称してナースから干支を聞いて年齢計算してみよう。
賢明なナースはこっちの意図を察知して
「ねこ年、生まれ」と 答えるかも >>896
生まれて何日目は聞いても答られないと思うぞ。
Rが使えると閏年も考慮して楽に計算できるか 本日の課題 星座を出すサブルーチンをR言語で作れ。 >>900
で、輪状甲状靭帯から経皮的気管切開しようとした件と何がまずいかの説明はいつしてくれるの？脳内医者さん 尿瓶ジジイついこの間まで発狂しまくってたのにあっさり論破されてからすっかり勢いがなくなったねww 岸田総理は酉年で７月２９日生まれ
本日で生誕から 24248日とR言語が返してきた。
東大卒の検算希望。 >>905
Rなんぞ使わんでも誕生日わかってたら24248日ってそんなん出るわw
馬鹿だろお前 >>905
何回論破されてダンマリ決め込んでも医療に全く関係ないことでも書き込まずにはいられないみたいだね
実に哀れ 星座だと場合分けだけで干支にしてみた。
jikkan=c('甲','乙','丙','丁','戊','己','庚','辛','壬','癸')
jikkan_on=c('こう','おつ','へい','てい','ぼ','き','こう','しん','じん','き')
jikkan_kun=c('きのえ','きのと','ひのえ','ひのと','つちのえ','つちのと','かのえ','かのと','みのえ','みのと')
jikkan_detail=c('甲:木の兄（きのえ）','乙:木の弟（きのと）','丙:火の兄（ひのえ）','丁:火の弟（ひのと）','戊:土の兄（つちのえ）','己:土の弟（つちのと）','庚:金の兄（かのえ）','辛:金の弟（かのと）','壬:水の兄（みずのえ）','癸:水の弟（みずのと）')
eto =c('子','丑','寅','卯','辰','巳','午','未','申','酉','戌','亥')
eto_on=c('し','ちゅう','いん','ぼう','しん','し','ご','び','しん','ゆう','じゅつ','がい')
eto_kun=c('ね','うし','とら','う','たつ','み','うま','ひつじ','さる','とり','いぬ','い')
eto_detail=c("子(ね＝ねずみ)","丑(うし)","寅(とら)","卯(う＝うさぎ)","辰(たつ＝龍(りゅう))","巳(み＝へび)","午(うま)","未(ひつじ)","申(さる)","酉(とり＝にわとり)","戌(いぬ)","亥(い＝いのしし)")
rokujikkan=apply(cbind(rep(jikkan,6),rep(eto,5)),1,\(x) paste0(x[1],x[2]))
# which("庚戌"==rokujikkan) 47 ∵AD 1970年=庚戌
rk=rep(rokujikkan,2)
AD2ETO=\(AD){
ans=rk[47+(AD-1970)%%60]
re=unlist(strsplit(ans,''))
on=paste0(jikkan_on[jikkan==re[1]],eto_on[eto==re[2]])
kun=paste0(jikkan_kun[jikkan==re[1]],eto_kun[eto==re[2]])
cat(c(ans,on,kun))
invisible(c(ans,on,kun))
}
AD2ETO(672)
AD2ETO(1868)
AD2ETO(1966)
AD2ETO(2022)
#
問題 西暦3000年の干支＝六十干支（ろくじっかんし）を求めよ。 1900年や2100年は閏年ではないから、このあたりを挟むと面倒なので
プログラムしておくのがいいね。
当直の待機時間の暇つぶしできた。
救急搬送のインセンティブと代休を使った内視鏡バイトで６．５諭吉の副収入！ プログラムを組むと数値入力するだけですむ問題
聖徳太子の誕生日は西暦574年2月7日である。
聖徳太子が生まれてから今日は何日目か計算せよ。 39通りなんて出るポンコツRなんか使わなくてもすぐ出るのにつくづく尿瓶ってアホだね
それより輪状甲状靭帯から経皮的気管切開しようとした件と何がまずいかの説明はいつしてくれるの？脳内医者さん >>911
尿瓶ジジイってこんなくだらない問題のためにわざわざプログラム組んでるの？w
あと医療とどこが関係があるの？ >>910
1900年以前に生まれてる奴が日本に生きてるわけ無いだろw
意味ねぇよそのプログラム 速攻で論破されるから医療に関係ないことでしか喚けないみたい
チンパン数学で悦に浸ってる >>914
生存しているかどうかは日数計算に関係ないぞ。
〇〇生誕＊＊年とかを◯◯生誕＊＊日に計算に使えるんだよ。
聖徳太子生誕から何日目か計算してみ！
結局、R言語を使えるスキルはないんだろ？
気管切開のテクニカルな話もできないから、単独で気管切開できるスキルすらないと思う。 >>912
輪状甲状靭帯は気管ではないぞ。
テクニカルなことは全くコメントできないから、経験ないんじゃないの？
気管切開抜去後の肉芽をどうするかとか、気切後の管理経験もないんじゃね？ R言語が使ってプログラムが組めれば数値を入力するだけ。
生存しているかどうかは関係ないからね。
聖徳太子の誕生日は西暦574年2月7日である。
聖徳太子が生まれてから今日は何日目か計算せよ。 >>917
輪状甲状靭帯が気管とか言ってるアホってアンタのことじゃん
今更話すり替えても無駄だぞ
いつまでダンマリ決め込んでんだよどうせ1日ネットで必死に調べても返す言葉なかったんだろ >>917
ふーんじゃあ>>847の書き込みはどういう意味なの？
自発呼吸なしで搬送された急性喉頭蓋炎。
ミニトラックがないと換気できんよ。緊急気管切開を選択。
→どう見ても緊急気管切開でミニトラックを使おうとしてるよね？www
もしくは、輪状甲状穿刺のことを気管切開と勘違いしてるよね？www
んで、どっちなん？どっちにしろめちゃヤバだけどwww
さっさと答えろよ 987：１３２人目の素数さん：[sage]：2023/12/18(月) 23:06:20.31 ID:jB6Gy0UB
数学板では、誰も興味がないであろう医師板の投稿をコピペしている
尿瓶チンパポンコツフェチのPhimoseくんは無職なんだろうなぁ？
これが図星で発狂中。
尿瓶おまる洗浄の仕事はクビになったの？
まあ、仕事しなくても生きていけるなら心の余裕がもてるはずなんだが。
俺は資産１０億ないと安心してリタイアできないと開業医スレで聞いたからいまも非常勤医バイトをしている。
救急受け入れのインセンティブと代休を利用した内視鏡バイトで６．５諭吉の副収入だが、
半分は税金でもっていかれちゃうんだよなぁ。
尿瓶ジジイ、あちらの板でここで論破されたのを晒されて地団駄踏んでる模様w 尿瓶ジジイ例によって自分の失言を誤魔化してて草
つくづくオツムが足りないねw テクニカルなコメントを全くできない薬屋の売り子くんは
気管切開はみていただけとか、ここ掘れワンワンでやったことがあるだけじゃないの？
気管壁の切開方法は様々だけど、どれをやってた？
予期せぬ抜去時の対策はどうやってた？ 挿管してある患者の気管切開の場合だけど、
stay sutureをかけるときにカフを虚脱させないと
stay sutureがカフを貫いて抜管できなくなることがあった。
まあ、すぐに気づくけど。
こういうのは経験があれば記述できるんだが、
薬屋の売り子は「ここ掘れワンワンで気管切開」やったことがあるだけだろ。 >>925
テクニカルwww何がテクニカルだよ、当たり前知識をただ書いてるだけじゃねぇかwww
気管壁の切開方法は様々なのにどれやってた？って質問がまずおかしいだろ
前方切開も逆U時もやったことあるって答えりゃいいのか？
経皮的気管切開か外科的気管切開ってこと？
予期せぬ抜去されりゃ、挿管すりゃいいだろ
それともstay suture法の事言ってるのか？
何が聞きたいのか質問内容が曖昧過ぎて意味不明なんだが
お前、何もわかってないで質問してるだけなの丸わかりだわwww
まずは日本語勉強しろよ
そんなことより>>921の質問に答えてないけど偽医者の尿瓶ジジイ君は
いつ質問の答え返ってくるの？ >>926
気管に針通すなら、カフに気をつけるなんて当然じゃねーかwww
何が経験あれば記述出来ますｷﾘｯだよwww
というか、先に気管チューブ引いててもらうんだからそんなこと滅多に起きんわ
ここ掘れワンワン気管切開www
じゃあ、お前の血栓除去も食道抜去もここ掘れワンワン血栓除去、食道抜去だな
毎回同じ話しか出てこないもんな
どうせ、一回医者から聞いた内容をさも自分がやったように勘違いしてるだけだろ
本当に臨床経験豊富ならもっと色々書けるだろうしな
胆汁ドレナージとか言っちゃてる脳内医者には無理だろうがwww >>914
プログラムを作るのが楽しいぞ。
で、この答えまだ？
400年に97回閏年があるとして計算するけど、
プログラムが作れると数値を入力するだけですむ。
聖徳太子の誕生日は西暦574年2月7日である。
聖徳太子が生まれてから今日は何日目か計算せよ。
聖徳太子は何曜日に生まれたかを計算せよ。 ラパコレで「胆嚢管切離は最後にする」を鉄則にしてこれを厳守すると
胆管損傷を回避できる。
まあ、肝床（胆嚢床）の展開がやりにくいのでオペ時間は長くなる。
B6が胆嚢管に合流する例を2例経験したのでこの鉄則遵守が安全につながる納得できる。
薬屋の売り子は、こういうテクニカルな記述が全くできない。
なぜならば、それができるスキルがないから。
そういうスキルもない医者の方が儲かるような診療報酬体系だと日々実感する。
まあ、外科医の特権は開放的なオペナースを喫食できることかなぁ？
でも、カテ名人の循環器内科医も大食いだったので外科医の特権というわけでもないな。
医学生時代には女子医大生には息子が大変お世話になりました。 ラパコレで「胆嚢管切離は最後にする」を鉄則にしてこれを厳守すると
胆管損傷を回避できる。
まあ、肝床（胆嚢床）の展開がやりにくいのでオペ時間は長くなる。
B6が胆嚢管に合流する例を2例経験したのでこの鉄則遵守が安全につながると納得できる。
薬屋の売り子は、こういうテクニカルな記述が全くできない。
なぜならば、それができるスキルがないから。
そういうスキルもない医者の方が儲かるような診療報酬体系だと日々実感する。
まあ、外科医の特権は開放的なオペナースを喫食できることかなぁ？
でも、カテ名人の循環器内科医も大食いだったので外科医の特権というわけでもないな。
医学生時代には女子医大生には息子が大変お世話になりました。 >>929
んで、あんたは気管切開をどれくらいやったことあんの？
おれは急性期病院いたこらは週1でやってたというか、やらされていたけど。
気管壁の切開はいろいろな見解があるけど、あんたはどれを採用していた？
ここ掘れワンワンじゃないの？
1例くらいしかやったことないんじゃね？
術野が狭い手術は助手の術野展開が手術の質を左右するんだよなぁ。 >>933
顔真っ赤になりすぎて連投してるぞwww
結局質問の答えには全く答えれないんだな
研修医以下
というか当たり前か
医者じゃないんだもんなwww知能的にＦラン卒ぐらいかな >>933
じゃあ急性期病院いたことのある尿瓶ジジイさんに研修医レベルの質問してやるよ
肺塞栓症で心肺停止になりました。まず、やる治療は何でしょう？急性期病院いたんなら答えられるよね？ >>935
んで、気管切開は何例やったの？
気管壁切開はどの手技を採用していた？
いわれるままに、ここ掘れワンワン なんだろ？
で、R言語も使えないアホだろ。
これはRの初歩の初歩。教えれば小中学生でもできる。
聖徳太子の誕生日は西暦574年2月7日である。
聖徳太子が生まれてから今日は何日目か計算せよ。 気管切開は術野が小さいこともあって駆け出しの外科研修医の仕事と思われがち。
俺のオーベンはこういう手術は術者より助手の方技量が手術の質を左右するんだよと教えてくれた。
助手が筋鈎で無血野を展開してくれると気管切開は簡単と誤認するアホが誕生する。
深めの筋鈎を使って自分で術野を深くして「今日は深くてやりにくかったが上手にできた」と自画自賛しているのもいたなぁ。
週1で気管切開させらていたころは脳ベラを筋鈎にしていた。柔軟鈎なので角度や有効長を自由に変えられる。
まあ、のうヘラだと圧迫止血しての術野展開には不向きだが圧迫外して後出血はないともいえる。
stay sutureは腹腔鏡で使う強弯のatraumaticの方が優れてはいるが、使い捨ての角針を持針器で強弯に曲げてモノフィラメントのナイロン糸を使用。
瘻孔完成するまで２週間は留置するし、感染予防からもモノフィラメントの方がいいと考えての選択。
気管壁の切開化が強いときは丸針より角針の方が楽。 自己抜去・事故抜去にそなえて気管切開時には気管壁にstay sutureを置いてしばらく留置しておくというのは小児科医に教わった。
小児の麻酔もできる優秀な東大卒の小児科医と仕事ができたのはよい経験だった。
腸重積の診断から麻酔までやってくれるので外科医としては力強い存在だった。
優秀な研修医を大学に引き抜かれたけど、あの先生についていきたいという研修医の気持ちは俺でもわかった。 脱字補正（脳内変換できないPhimose族への配慮）
気管切開は術野が小さいこともあって駆け出しの外科研修医の仕事と思われがち。
俺のオーベンはこういう手術は術者より助手の方の技量が手術の質を左右するんだよと教えてくれた。
助手が筋鈎で無血野を展開してくれると気管切開は簡単と誤認するアホが誕生する。
深めの筋鈎を使って自分で術野を深くして「今日は深くてやりにくかったが上手にできた」と自画自賛しているのもいたなぁ。
週1で気管切開させらていたころは脳ベラを筋鈎にしていた。柔軟鈎なので角度や有効長を自由に変えられる。
まあ、脳ヘラだと圧迫止血しての術野展開には不向きだが圧迫外して後出血はないともいえる。
stay sutureは腹腔鏡で使う強弯のatraumaticの方が優れてはいるが、使い捨ての角針を持針器で強弯に曲げてモノフィラメントのナイロン糸を使用。
瘻孔完成するまで２週間は留置するし、感染予防からもモノフィラメントの方がいいと考えての選択。
気管壁の切開化が強いときは丸針より角針の方が楽。 >>937
また、発狂かよwww
結局お前何も答えられてないじゃん
>>921も答えられないってことは解剖わかってないの丸わかりなのに何言っても無駄www
誰も医者って信用しないよ
気切の話ばっかで循環器領域とか微塵もわからんのだろ？医者からの耳学問だけだから知識が浅いんだろうなwww
何件やったとか、覚えてるわけないだろ
まあ、半分以上経皮的気管切開だけど100件ぐらいはやっとるわ救命にいた時にな
気切なんて糞簡単な手術いくら出来ても何の自慢にもならんのに何でそんなドヤ顔で語れるの？それはお前が医者じゃないからそういう事わかんないからだろwww偽医者乙 尿瓶ジジイ何も言えなくなってまたダンマリ決め込んでて草 尿瓶ジジイ医者にことごとく論破されたのが悔しくて相手を無職という妄想をこじらせてマウントをとろうとしてきて草 尿瓶ジジイは医療機器とか扱ってる系の職種なんだろな
機材の名前とかは出てくるのに基本的な医学知識が無さすぎる
しかも、その機材の使い方も間違ってるというwww医者から聞いたり見たりして書き込んでるんだろうな
だから、それっぽいこと書いてるけど書き込み内容に違和感ありまくりwww lp=\(y) (!y%%4 & y%%100) | !y%%400
lp(1001:1400) |> sum() 舞茸の方が玉葱よりも柔らかくなった。
舞茸プロテアーゼ抽出液（中性で抽出）と玉葱すりおろしでは
舞茸の方が柔らかくなったが、風味は玉葱の方がいい（嫁の意見）。
次は混合液でやってみよう。
ダイアモンドカット＋舞茸抽出液＋玉葱すりおろしで
「ウェルダンだけど柔らかいモモ肉ステーキ」に一歩近づけそう。
旨さからいえば和牛牛脂注入の方が上（俺と嫁の一致した見解）なんだが、
身体に悪そうと思いながら喫食するのは避けたい。 >>948
また、料理ネタかよwww
張り合いねぇな、お前は
医療知識浅いからおんなじ事しか言えないもんな
料理ネタはそれなりだから、管理栄養士目指せば良いんじゃね？www 高校数学スレにて
24：１３２人目の素数さん：[sage]：2023/12/19(火) 19:35:31.96 ID:xqXU4l5t
400年ごとに同じ曜日になる、と気づけば
小学校の問題
スレチ
27：１３２人目の素数さん：[sage]：2023/12/20(水) 06:24:37.94 ID:hlI1fZw/
>>24
スレチの医師板からコピペしているPhimoseくんはどこの国立を落ちたの？
尿瓶チンパポンコツフェチのPhimoseくんは無職なんだろうなぁ？
これが図星で発狂中。
尿瓶おまる洗浄の仕事はクビになったの？
小学生の問題とバカにされて発狂w
自分の気に食わないレスは全員同じに見える病気治らないみたいだねw 29：１３２人目の素数さん：[sage]：2023/12/20(水) 06:40:39.17 ID:hlI1fZw/
紀元1年1月1日の曜日をグレゴリオ暦で計算したら月曜日になった。
東京大学合格者かつ有職社会人の検証を希望します。
おまけ
R言語による計算
今年のクリスマスイブが日曜日であるのを利用してプログラミング。
as.integer(as.Date("2023-12-24") - as.Date("0001-01-01")) %%7 -> i
ifelse(i,rev(c('月','火','水','木','金','土'))[i],'日') |> noquote()
> ifelse(i,rev(c('月','火','水','木','金','土'))[i],'日') |> noquote()
[1] 月
尿瓶ジジイの毎度のレス乞食も全く相手にされてない模様 >>952
こんな、常識を指摘されて発狂とかwww
しかも、煽り内容が全く同じ
尿瓶ジジイさんは本当に頭悪いな てかさ、有職社会人って何？w
無職は社会人って言わねーだろw
バカも休み休み言えw
社会人（しゃかいじん）とは、一般的には学生や無職などの身分を除いた、職業を持つ成人を指す言葉である。 53：１３２人目の素数さん：[sage]：2023/12/20(水) 11:03:48.33 ID:F8M3dBWK
>>47
日曜勤務の代休がもらえる優良職場。
まあ、それを利用して内視鏡や麻酔のバイト。
んで、あなたはforeskinいじり以外に仕事してんの？
60：１３２人目の素数さん：[sage]：2023/12/20(水) 13:11:33.82 ID:dRoOIVrL
>>53
お前、前は非常勤って言ってなかったか？
言ってることコロコロ変わりすぎだろ
やっぱ働いてないだろ
設定を忘れる尿瓶チンパンジジイw 尿瓶ジジイバカにしがいもなくなってきたね
最初から脳内医者で全く張り合いなかったけど脳内医療もできなくなっちゃもうおしまいだな ＤＯＷ＝ｆｕｎｃｔｉｏｎ（ｘ＝”−４６３−４−１８”）｛ ＃ Ｂｉｒｔｈｄａｙ ｏｆ Ｂｕｄｄａ
ｉｓ．ｌｅａｐ＿ｙｅａｒ＝￥（ｙ）｛
ｙ＝ｙ＋（ｙ＜０）
ｒｅｔｕｒｎ （（！ｙ％％４ ＆ ｙ％％１００） ｜ ！ｙ％％４００）
｝
ｌｐ＝Ｖｅｃｔｏｒｉｚｅ（ｉｓ．ｌｅａｐ＿ｙｅａｒ）
ｉｆ（ｓｕｂｓｔｒ（ｘ，１，１）＝＝’−’）｛ ＃ ＢＣ
ｔｍｐ＝ｕｎｌｉｓｔ（ｓｔｒｓｐｌｉｔ（ｘ，’−’）） ＃ ”” ”４６３” ”４” ”１８”
ｂ＝−ａｓ．ｉｎｔｅｇｅｒ（ｔｍｐ［２］） ＃ ｂ＝−４６３
ｉｆ（ｂ＝＝−１）｛ ＃ −１ ｙｅａｒ ： ｌｅａｐ ｙｅａｒ ， −１−１２−３１ ： Ｓｕｎｄａｙ
ｘ１＝ｐａｓｔｅ０（”４−”，ｔｍｐ［３］，’−’，ｔｍｐ［４］）
ａｓ．ｉｎｔｅｇｅｒ（ａｓ．Ｄａｔｅ（”４−１２−３１”） − ａｓ．Ｄａｔｅ（ｘ１）） ％％７ −＞ ｉ
｝ｅｌｓｅ｛
ｌｐ（−１：（ｂ＋１）） ｜＞ ｓｕｍ（） −＞ Ｌ ＃ ｎｕｍｂｅｒｓ ｏｆ ｌｅａｐ ｙｅａｒ （−１：−４６２）
ｄ１＝（３６５＊ａｂｓ（ｂ＋１）＋Ｌ） ＃ ｎｕｍｂｅｒｓ ｏｆ ｄａｙｓ ｂｅｔｗｅｅｎ −４６２−１２−３１ ａｎｄ −１−１−１
ｘ２＝ｉｆｅｌｓｅ（ｌｐ（ｂ），”４−”，”１−”）
ｙ１＝ｐａｓｔｅ０（ｘ２，”１−１”） ＃ （１ ｏｒ ４）−１−１
ｙ２＝ｐａｓｔｅ０（ｘ２，ｔｍｐ［３］，’−’，ｔｍｐ［４］） ＃ （１ ｏｒ ４） −４−１８
ｄ２＝ａｓ．ｉｎｔｅｇｅｒ（ａｓ．Ｄａｔｅ（ｙ２） − ａｓ．Ｄａｔｅ（ｙ１）） ＃ ｎｕｍｂｅｒｓ ｏｆ ｄａｙｓ ｂｅｔｗｅｅｎ ？−１−１ ａｎｄ ？−４−１８
ｄ３＝ｄ１＋ｄ２ ＃ ｄａｙｓ ｂ／ｗ ｉｎ−１ ａｎｄ ｉｎ−４６２ ＋ ｉｎ−４６３
ｉ＝ｄ３％％７ ＃ １−１−１ ： Ｍｏｎｄａｙ −１−１２−３１ ： Ｓｕｎｄａｙ
｝
｝ｅｌｓｅ｛ ＃ ＡＤ
ｄ０＝ａｓ．Ｄａｔｅ（”２０２３−１２−２４”）＋７ｅ７ ＃ Ｓｕｎｄａｙ
ｉ＝ａｓ．ｉｎｔｅｇｅｒ（ａｓ．Ｄａｔｅ（ｄ０）−ａｓ．Ｄａｔｅ（ｘ））％％７
｝
ｉｆｅｌｓｅ（ｉ，ｒｅｖ（ｃ（’Ｍｏｎ 月’，’Ｔｕｅ 火’，’Ｗｅｄ 水’，’Ｔｈｕ 木’，’Ｆｒｉ 金’，’Ｓａｔ 土’））［ｉ］，’Ｓｕｎ 日’） ｜＞ ｎｏｑｕｏｔｅ（）
｝
ＤＯＷ（”−４６３−４−１８”） ＃ 仏陀生誕
ＤＯＷ（”−６６０−２−１１”） ＃ 神武天皇即位の日
ＤＯＷ（”１−１−１”） ＃ 西暦１年元旦 尿瓶ジジイ>>945は図星っぽいなwww
急に大人しくなりやがった 尿瓶ジジイ高校生にはイキれるのに医者相手じゃもう何も発狂できないのか？ 82：１３２人目の素数さん：[sage]：2023/12/22(金) 07:47:04.37 ID:hnYQ9Egz
書き込みの内容にしても時間帯からしても
無職だと思われても仕方がないよね自称医者の人は
日暦算をさせて何の意味があるの？ 高校生相手に脳内医療を披露するも全く相手にされてないご様子
87：１３２人目の素数さん：[sage]：2023/12/22(金) 10:48:27.25 ID:tNmQhFBU
それかプログラミングのスレ行けや堂々と。
誕生日からの日数なんて計算する必要全くないだろ。本物のバカだろ。高校数学のスレによくそんなゴミコード貼れるな
88：１３２人目の素数さん：[sage]：2023/12/22(金) 10:49:05.89 ID:tNmQhFBU
周囲の医者に相手にされないから高校生相手にマウント取りに来てるのか
89：１３２人目の素数さん：[sage]：2023/12/22(金) 11:27:55.87 ID:hnYQ9Egz
どう考えても、医者じゃないだろ
ただのニートだよ 尿瓶ジジイって、自分の事を医者だと思い込んでる精神障害者だよな
妄想性パーソナリティ障害だと思う 理三設定は無理があるけど医科歯科設定ならいけるだろと思った尿瓶チンパンジジイw 医科歯科が羨ましければ再受験したら。
二期校時代に入学だが同期は２、３割は再受験組だった。
東大卒の獣医もいた。歯学部には東大数学科卒のK氏もいた。
教養の微積分学はケラという珍しい名の教授だったな。 >>969
東大や医科歯科が羨ましいのはアンタだろw聞かれてもないのに脳内学歴を延々と語ってアホさ加減を指摘される度大発狂w 結局脳内医療ネタ()がツッコまれたら大発狂して最後はダンマリを決め込むしか能がないからずっと同じことしか言えないわけで >>969
本物の医者がいつまでも教養の話ばっかしてるわけないだろ
医学知識ゼロだから語れないんだろ？
いいから働けよニート >>973
もうすぐ、このスレは終了するぞ
さっさと別のスレに移住しろ
それとも、お前が尿瓶ジジイか？w まあどっちでもいいわ、延々と同じことしか言えないアホに変わりないし
尿瓶ジジイは相変わらず高校生相手にしかイキれないみたいだね
nurseの複数形もまともに綴れないくせにw このスレの尿瓶ジジイ
・制吐剤を抗癌剤と勘違い
・乳児の腸重積を整復せずにいきなり手術
・今時、看護婦呼ばわり
・コロナ陽性で内視鏡
・咳嗽の患者に画像検査せず内視鏡→Tスポット
・>>308ここで散々論破されてるのに、見て見ぬふり
・元AV女優にうらみがあるのか個人情報を書き込み続ける
・phymose
・女医限定で写真の編集
・無限階級
・経皮的気管切開にミニトラックを使う
・輪状甲状靭帯の場所がわからない >>969
卒業証明書の名前の所を隠すように5chのIDを書いた紙を置いて、写真撮ってうぷしてみ クリスマスプレゼントというわけでばないが、Zenker憩室に遭遇。
切歯から15ｃmくらいの距離に存在。
挿入時にNBIを使っているので憩室内の食物残渣が腫瘍にみえた。
白色光で食物残渣とわかったので憩室に迷入することはなかった。
そのままファイバーを進めていたら憩室盲端を穿孔させたかもしれんなぁ。
胃透視では食道隆起性病変（＝実は食物残渣）の疑いでEGDに回ってきたケース。 >>980
おい尿瓶ジジイいつになったら卒業証書アップできるんだよ 電気圧力鍋でバターチキンカレー作成。
正月用に冷凍保存。
道具があると何かと時短になって( ・∀・)ｲｲ!!
解の公式を使うのもR言語を使うのも同じ。
玉葱と舞茸のプロテアーゼの混合液１晩マリネ。
これでローストビーフ作成の実験中。
まずかったら砕片化してチャーハンなどの具材に使うつもり。
万博リングの日陰の面積計算よりも実用的で( ・∀・)ｲｲ!! 尿瓶ジジイ高校生にしかイキれないのかよ？
高校生にもバカにされてるがw 尿瓶ジジイ、ポスト急性期スレでコソコソ書きこんでやがるなw
急性期病院の医者が転院直前で患者の状態が悪くなってるのに無理矢理送ってきたり、コース決めないでポスト急性期病院に送ってきてヤバいって内容なのに
DNAR取ってないかなら全部やるんで問題ない！ｷﾘｯ
って文書の内容全く理解してないだろwww
そういう問題じゃねぇんだよ
医者じゃないからよくわかってないんだろうな
空気読まなすぎて総スカンくらってるじゃんwww まだ尿瓶ジジイを知らない先生もいるみたいでマジレスもちらほら
やはり相手にされてない模様 尿瓶ジジイ65歳かよ!
ヤバすぎwww
んで、尿瓶ジジイちゃんはビビってこのスレの書き込み避けてるのかな？www おい、尿瓶ジジイこんな糞スレ二度と立てんなよ
立ててもまたボコボコにしたるからwww このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 126日 20時間 58分 57秒 5ちゃんねるの運営はUPLIFT会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《UPLIFT会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
4 USD/mon. から匿名でご購入いただけます。
▼ UPLIFT会員登録はこちら ▼
https://uplift.5ch.net/
▼ UPLIFTログインはこちら ▼
https://uplift.5ch.net/login レス数が1000を超えています。これ以上書き込みはできません。
