２ちゃんねる ■掲示板に戻る■ 全部 1- 最新50    
レス数が1000を超えているけど、まだ書けるかも知れないよ。

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

1 ：卵の名無しさん ：2024/01/16(火) 09:07:20.74 ID:3V8WwmwLH.net
タイトルまんまです
すなわち、タイトルの正しさを検証するスレです。

前スレ
底辺私立医大を卒業した医者って頭悪いよね？ Part28
https://egg.5ch.net/test/read.cgi/hosp/1681861869/
底辺私立医大を卒業した医者って頭悪いよね？ Part29
https://egg.5ch.net/test/read.cgi/hosp/1692956157/

親の期待に反して底辺シリツにしか進学できない子供をもつとこうなるそうです。
赤裸々な告白より引用
(quote)
恥ずかしながら実はうちの親がそうなんです
私立洗顔（ﾏﾏ）でした
本人は隠したがっていたけど祖父が公言してたからね
祖父は息子（うちの父親）の学力など知らずに進路指導で当たり前に自分の出身医大（国立）を希望させ
父親の担任に無理だと断言されこれが一生で最大の屈辱だったそうです
祖父が何十年もたってるのに死ぬまで祖母をその事で叱りつけてました
お前がしっかり勉強させないからこうなったっとね
底辺私立医大を卒業した医者って頭悪いよね？ Part27
https://egg.5ch.net/test/read.cgi/hosp/1673394195/

自分は教育に失敗したが祖父の口癖
これが私大医学部ＯＢの悲しい現実
これが現実です
(unquote)

　一生で最大の屈辱
　一生で最大の屈辱　　　　
　一生で最大の屈辱　　　　　
と表現されております。
VIPQ2_EXTDAT: checked:vvvvvv:1000:512:: EXT was configured

748 ：：2024/05/02(木) 18:12:07.21 ID:YZ5m1lIya.net
尿瓶ジジイの安い自演

749 ：卵の名無しさん：2024/05/02(木) 19:19:35.65 ID:x0t1/BJBN
私立底辺出身かどうかに関係無く
医者はお人好しが多い。

一生に関わるような大病の治療を
安く請けるとか、不合理だろ？

社会復帰できる程度まで治療できたのなら
数千万円は請求して良い。

しかし、一方で風邪で解熱剤や鎮痛剤やビタミン剤などの
お注射とクスリだけなら、数千円がよいとこ。

人の気持ちは大切だが、自分の感情でもって
患者に毒を盛って殺害するなどの凶行を為した
大口病院のキチガイ看護婦の例もあるからな。

常に理知的で合理的な行動を求む。

750 ：卵の名無しさん ：2024/05/03(金) 10:11:08.75 ID:H1QNKQSw0.net
>>747
東大だから特Aだって言ってんじゃんwww
で、お前の出身大学どこだっけ？
いいからさっさと医師免許証アップしろよ

751 ： 警備員[Lv.9][新初] (ｱｳｱｳｷｰ Sa75-0Cic [182.251.25.152])：2024/05/03(金) 11:29:44.65 ID:gaeP6UrMa.net
ポリクリの話とか何科が有名だとかそんなの調べれば出てきそうなのにそれすらできないのか尿瓶ジジイはw

752 ：卵の名無しさん ：2024/05/03(金) 12:37:35.20 ID:c8e1e0vl0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

753 ：卵の名無しさん：2024/05/03(金) 22:31:37.49 ID:vhJICSfCD
カスハラから逃れたい一心で、愚かにも
患者に毒を盛ってコロすとか、女には
バケもんが多いなあ。

恨みを晴らす相手は、カスハラをやった
患者の親族だろ？　ま、強い相手には
手をだせず、死にかけてる患者にはけ口を
求めるとか良くある心理だがな。

ＡＶ嬢の方がマシよ。
ある意味自分を犠牲にしてるからな。

754 ：卵の名無しさん：2024/05/04(土) 10:01:45.81 ID:S9SoaPReh
どこを出ていようが医者なんて所詮は賤業
さらにトンパンゴミ私立医を卒業していても十分こなせる単純肉体作業労働
なのでその程度の職業にガキの頃から課金されてガチ勉して現役で合格して
そのことを誇ってもむなしいだけ
しかも臨床なんて何も価値を生み出すどころかやればやるほど金を使い果たす方向でしかないので
国の財政を圧迫する方にしか行かないのでお荷物でしかない
年寄りに対してお前らに対しての医療は無駄なんだよと言う勇気もないので
早晩てめーらの金銭的待遇もさらに悪くなるのは既定路線だし

755 ：卵の名無しさん (ﾜｯﾁｮｲ 4958-R27w [14.13.16.0])：2024/05/04(土) 08:48:20.41 ID:x8NUTTkd0.net
私立医大と書くと慶応や自治医大は？というツッコミが入るから
シリツ医大と書くことにしている。

756 ：卵の名無しさん (ｽﾌﾟﾌﾟ Sd33-Yag3 [49.98.230.254])：2024/05/04(土) 09:02:23.83 ID:HRE9yqB8d.net
>>755
意味がわからんのだが
慶應も自治医大もシリツ医だろ
考えがまとまらなくて支離滅裂な事言ってるぞ

757 ： 警備員[Lv.6][新初] (ﾜｯﾁｮｲ 29a6-0Cic [2001:268:9235:ae6f:*])：2024/05/04(土) 09:43:51.63 ID:l2Y+7LyF0.net
慶医や自治医に強烈なコンプレックスを感じてる模様

758 ： 警備員[Lv.6][新初] (ﾜｯﾁｮｲ 29a6-0Cic [2001:268:9235:ae6f:*])：2024/05/04(土) 09:44:19.50 ID:l2Y+7LyF0.net
てかコンプ感じる資格もないだろ尿瓶ジジイはw
ただの統失患者

759 ：卵の名無しさん：2024/05/04(土) 22:17:54.20 ID:QigGuG035
自治医なんて立ち位置は昔の慈恵と同じで国立医合格に自信がないやつが
受ける大学でしかないのでゴミ雑魚私立だけどなｗｗｗ
例えば熊高で九医や熊医に受かるやつがあえて自治に出願する理由がない
地域医療なんでどの県にだって医療過疎地区なんてあるわけで本人がやりたいと思うなら
自治医大なんぞに受けなくても自県の国公立医に進めばいいだけ
大学受験までの経歴も無意味化するしな
地方にありがちな地元国立大教育学部付属中学から県立最上位高校を経て
地元国公立大医学部に進学するのがゴールデンコース
歴史もない大学としての格もない自治医なんぞに進む意味なし
そういう意味では慶應以外のゴミ雑魚私立医大と立ち位置は同じですよ

760 ：：2024/05/04(土) 22:02:49.20 ID:l2Y+7LyF0.net
>>755
おい尿瓶ジジイ、ポリクリの話や何科が有名って話はいつまでダンマリ決め込んでんだよ？
医科歯科出身の医者()なら即答できるだろ

761 ：卵の名無しさん ：2024/05/05(日) 02:34:02.26 ID:ubpMCkAO0.net
>>730
本当にそう！
国公立の人は尊敬するけど、私立医の同期でも(この人に診て欲しいな)って人はたくさんいる。

762 ：卵の名無しさん ：2024/05/05(日) 08:31:41.53 ID:QvzjiUhe0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

763 ：：2024/05/05(日) 13:31:02.60 ID:+XmM6uzJ0.net
>>755
当然ながら数学板でも煙たがられて草

847：１３２人目の素数さん：2024/05/04(土) 21:55:01.60 ID:u/y1ognB
>>841
お前、ビビって医者板で何も書き込んでないみたいじゃん
無能のくせに偉そうやのう

854：１３２人目の素数さん：[sage]：2024/05/05(日) 10:59:16.77 ID:zAUKO4xv
>>847
若い頃は連休は救急病院でバイトしていたけど、
今は家族とゆっくり過ごす。
医師が羨ましいなら再受験すればいいのに。
俺の同期は２〜３割は再受験組だったな。
歯学部には東大数学科卒もいた。

856：１３２人目の素数さん：2024/05/05(日) 13:27:35.07 ID:crhOwNkH
>>854
ここは高校数学質問スレです
意味不明な書き込みは控えて下さい

764 ：卵の名無しさん ：2024/05/05(日) 20:34:45.85 ID:94ULEsEqH.net
a=1/(14^^2024);
m=2024;
re={};
For[i=1,i<m,i++,(re=Append[re,Floor[a*14^i]]; a=a-(14^-i)*Floor[a*14^i];)];
f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]]
StringJoin["0.",f /@ re]


0.0006 K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
.....

765 ：卵の名無しさん ：2024/05/05(日) 20:35:30.02 ID:94ULEsEqH.net
0 1 2 3 4 5 6 7 8 9 A J Q Kを使った十四進法を考える。
十四進法の分数1/2024を十四進法の小数で小数2024位まで表せ。

766 ：：2024/05/05(日) 20:39:42.18 ID:+XmM6uzJ0.net
>>764
何も言い返せず懲りずにチンパン数学垂れ流しかよw

767 ：卵の名無しさん ：2024/05/05(日) 20:44:19.38 ID:94ULEsEqH.net
東大合格者向けの問題

0 1 2 3 4 5 6 7 8 9 A J Q Kを使った十四進法を考える。
十四進法の分数1/2024を十四進法の小数で表したとき
小数第２０２４位（十進法で２０２４番めの意味）の数字は何か？

768 ：卵の名無しさん ：2024/05/05(日) 21:24:58.86 ID:QvzjiUhe0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

769 ：卵の名無しさん：2024/05/06(月) 01:02:02.51 ID:IfootRVNs
困るとすぐに数学に逃げるあたりあいつに似てるなｗ
が、、、あいつは多浪とはいえ理３だから二期校再受験のバカ雑魚とは違うけど

770 ：卵の名無しさん (JP 0H52-4JRL [217.138.212.98 [上級国民]])：2024/05/06(月) 05:28:12.00 ID:xSMf/GdlH.net
>>765
Rだと17桁を越えると誤答が返ってくるが、WolframScriptならちゃんと計算してくれる。

0.0006K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AK
K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3
007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561
AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387
Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA5
61AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK60913
87Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4Q
A561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK609
1387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K
4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6
091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q300
7K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AK
K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3
007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561
AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387
Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA5
61AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK60913
87Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4Q
A561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK609
1387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K
4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA

771 ：卵の名無しさん ：2024/05/06(月) 05:49:18.87 ID:MJoaaNRi0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

772 ：卵の名無しさん ：2024/05/06(月) 06:13:27.11 ID:fp7P4Tx60.net
>>760
レス乞食登場

773 ：卵の名無しさん ：2024/05/06(月) 06:41:17.21 ID:fp7P4Tx60.net
>>764
2行に短縮

f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]];
StringJoin["0.",f /@ RealDigits[1/(14^^2024),14,2024][[1]]]

774 ：卵の名無しさん ：2024/05/06(月) 06:55:09.04 ID:fp7P4Tx60.net
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= StringJoin["0.",If[#==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[#]]]& /@ RealDigits[1/(14^^2024),14,2024][[1]]]

Out[1]= 0.6K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA56\

> 1AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AK\

> K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK60\


> 87Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q\

> 3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q300\

> 7K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4\

> QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA5\

> 61AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561A\

> KK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6\

> 091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091\

> 387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387\

> Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q30\

> 07K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K\

> 4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA\

> 561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561\

> AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK\

> 6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561A

775 ：卵の名無しさん ：2024/05/06(月) 06:58:48.58 ID:/ggYx9fM0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

776 ：：2024/05/06(月) 09:02:26.09 ID:XWjUTRqB0.net
>>772
レス乞食はアンタだろw
言い返せなくなるとダンマリ決め込んで全然関係ないことを呟き出す

872：１３２人目の素数さん：2024/05/06(月) 07:48:34.26 ID:6QrZPKCt
>>868
あんた、こんなヒドいスレ立ててる人なんだね
チラって見たけど、みんなに馬鹿にされてるし内容も医者板で書く内容じゃないし何がしたいん？

クソワロタw

777 ：：2024/05/06(月) 09:06:54.26 ID:XWjUTRqB0.net
>>774
高校数学スレでもスレの趣旨が理解できずに朝から暴れ回って高校生にバカにされてるのがそんなに楽しいか？w

778 ：卵の名無しさん ：2024/05/06(月) 09:42:09.91 ID:fp7P4Tx60.net
練習問題

十進法で1/2024で表される数値を二進法の小数で表すとき
(1) 循環節は何桁の数字になるか？
(2) 循環節を列挙せよ。
あらゆるフリーリソースを用いてよい。

参考にならない参考資料
1/2024（十進法) =
0.00000000001000000110000100100011011010100011111010111100001101001001110111011001100011001010
01011111000111010101100000001000000110000100100011011010100011111010111100001101001001110111011001
10001100101001011111000111010101100000001000000110000100100011011010100011111010111100001101001001
11011101100110001100101001011111000111010101100000001000000110000100100011011010100011111010111100
00110100100111011101100110001100101001011111000111010101100000001000000110000100100011011010100011
11101011110000110100100111011101100110001100101001011111000111010101100000001000000110000100100011
01101010001111101011110000110100100111011101100110001100101001011111000111010101100000001000000110
00010010001101101010001111101011110000110100100111011101100110001100101001011111000111010101100000
00100000011000010010001101101010001111101011110000110100100111011101100110001100101001011111000111
01010110000000100000011000010010001101101010001111101011110000110100100111011101100110001100101001
011111000111010101100000001000000110.....(二進法)

f[x_] := If[x==0,"0","1"]
StringJoin["0.",Table["0",10],f /@ Flatten@RealDigits[1/2024,2,1000][[1]]]


Flatten@RealDigits[1/2024,2][[1]]
Length@Flatten@RealDigits[1/2024,2][[1]]

779 ：：2024/05/06(月) 10:09:06.60 ID:XWjUTRqB0.net
尿瓶ジジイもう発狂する元気もないみたいだね
どうせ言い返してもすぐに論破されて何も言えなくなるから無駄ってことに気づいた？何年もかけて？w

780 ：卵の名無しさん：2024/05/06(月) 11:09:19.14 ID:IfootRVNs
自分がガチで医者であることをいつまでたっても証明できないまま・・・
ほんとに情けない(笑)

781 ：卵の名無しさん ：2024/05/06(月) 12:11:56.32 ID:I5hka94Q0.net
　底辺私立医大卒の医者は、なぜ国立医大に行かなかったのだろう⁈

　可哀想なのは患者だけで無く、底辺私立医大卒の家族たち!!

　日々の何気ない生活の中で、時には知り合いから『お宅のご主人の大学は??』『おまえのお父さんの大学どこ??』という質問をうける事もあるだろう。

　そんな時、阿保医者の家族達は『知らないんだょね』と誤魔化すのが精一杯、、知らない筈はないが…

　全ての患者も、優秀な医者に診て欲しいと思っているから、底辺私立医大卒は寝る間を惜しんでもっと勉強、再教育すべきと思う

※国も医者のカテゴリ分けを検討すべきだな、、
国立医大卒はクラスA、
有名私立医大卒はクラスB、
その他底辺私立医大卒はクラスC、
って感じ？

782 ：卵の名無しさん ：2024/05/06(月) 12:16:28.32 ID:Q5z1F645d.net
>>781
で、お前の出身大学は？

783 ：卵の名無しさん ：2024/05/06(月) 12:31:31.03 ID:/ggYx9fM0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

784 ：卵の名無しさん ：2024/05/06(月) 13:41:39.41 ID:fp7P4Tx60.net
>>778
これで解決
recdigits[a_,b_] := Level[RealDigits[a,b],{3}];
RealDigits[1/2024,2]
recdigits[1/2024,2]
% // Length

Subsets関数もそうだが引数が3か{3}かで動作が変わる。
これに気づくのに時間がかかった。

785 ：：2024/05/06(月) 17:29:41.13 ID:PtUpOBSK0.net
>>784
尿瓶ジジイポリクリは何のことかわかったか？

786 ：卵の名無しさん ：2024/05/06(月) 17:57:05.53 ID:I5hka94Q0.net
　底辺私立医大卒の医者は、なぜ国立医大に行かなかったのだろう⁈

　可哀想なのは患者だけで無く、底辺私立医大卒の家族たち!!

　日々の何気ない生活の中で、時には知り合いから『お宅のご主人の大学は??』『おまえのお父さんの大学どこ??』という質問をうける事もあるだろう。

　そんな時、阿保医者の家族達は『知らないんだょね』と誤魔化すのが精一杯、、知らない筈はないが…

　全ての患者も、優秀な医者に診て欲しいと思っているから、底辺私立医大卒は寝る間を惜しんでもっと勉強、再教育すべきと思う

※国も医者のカテゴリ分けを検討すべきだな、、
国立医大卒はクラスA、
有名私立医大卒はクラスB、
その他底辺私立医大卒はクラスC、
って感じかな爆笑笑笑笑笑

787 ：卵の名無しさん ：2024/05/06(月) 18:06:45.13 ID:g8qJzIfX0.net
>>786
で、出身大学は？

788 ： 警備員[Lv.6][新初] (ﾜｯﾁｮｲ 02e0-oO4L [2001:268:9234:4957:*])：2024/05/06(月) 21:57:33.13 ID:PtUpOBSK0.net
>>786
文章から頭の悪さが滲み出ていてとても学歴を語るような知能はなさそうに見えるけどww

789 ：卵の名無しさん (ﾜｯﾁｮｲ 65b0-JAQx [2400:2411:3fe0:400:*])：2024/05/06(月) 22:11:11.49 ID:MJoaaNRi0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

790 ：卵の名無しさん：2024/05/06(月) 23:07:51.78 ID:IfootRVNs
Subsets関数もそうだが引数が3か{3}かで動作が変わる。
これに気づくのに時間がかかった。←時間がかかるのはバカな証拠ｗ

791 ：：2024/05/08(水) 19:41:30.06 ID:jHzhBFpwa.net
おい尿瓶ジジイ
いつまでダンマリ決め込んでんだよ

792 ：死狂廃幻調教大師 ：2024/05/09(木) 10:00:06.83 ID:enEmsgtr0.net
過去の医療が間違ってるなら頭が悪い方がいい医者ということだ。

793 ：卵の名無しさん ：2024/05/10(金) 05:27:32.46 ID:9pJ3+FOk0.net
>>791
レス乞食登場！

数学スレの問題
(quote)
直線Lがあり、またL上にはなくLに関して同じ側にある異なる2点A、Bがあるとし、
直線ABはLと平行でないとします。
このとき、AとBを通り直線Lに接する円の作図をする方法はできますか。
(unquote)
をWolramで作図したい。
慣れたR言語だとスラスラできた。
https://i.imgur.com/R87PT7R.png

ボケ予防にプログラミングと嫁と一緒に料理するのは楽しい。

３色ウールロールパンを焼いたらGoogle Chromeに似ていたので記念撮影。
娘に画像を送ったら笑っていた。
https://i.imgur.com/s6hKqVT.jpeg

794 ：卵の名無しさん ：2024/05/10(金) 06:55:14.93 ID:hMfL4Ncs0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

795 ：：2024/05/10(金) 07:57:52.88 ID:uH1M+89Aa.net
996：１３２人目の素数さん：[sage]：2024/05/10(金) 07:51:10.17 ID:LuJ/YByN
プログラムを本気で学ぶつもりならム板が正解だろ
全方向に中途半端なんだよな
高校生にしかイキれない大人
クソダサい

796 ：：2024/05/10(金) 10:01:42.88 ID:bSrfF8o4H.net
993：１３２人目の素数さん：[sage]：2024/05/10(金) 05:03:33.15 ID:esg1TcXl
R言語やWolfram言語が使える人はちゃんとしたレスをしているなぁ。
助言より罵倒を喜びとするPhioseくんらの集団が東大合格者だと思う人はその旨をレスしてください。

>Phiose

>Phiose

>Phiose

797 ： 警備員[Lv.8][新初] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])：2024/05/10(金) 18:03:35.97 ID:eirMlK+F0.net
>>793
レス乞食って自己紹介か？
phioseとか書いてるアホが数学とか笑わせるw

798 ：卵の名無しさん (ﾜｯﾁｮｲ 0ddd-4JRL [240b:253:1000:dd10:* [上級国民]])：2024/05/10(金) 18:41:31.15 ID:9pJ3+FOk0.net
a={5,6};b={3,4};c={2,1};d={6,0};
pb=PerpendicularBisector[{a,b}];
f[t_] := (
p = pb[[1]] + t*pb[[2]];
ResourceFunction["PointLineDistance"][Point[p],Line[{c,d}]][[1]] - EuclideanDistance[a,p ]
);
t0 = t /. Solve[f[t]==0,t];
center = (pb[[1]] + #*pb[[2]] & /@ t0)[[1]];
radius = EuclideanDistance[center,a];
{中心->center,半径->radius}
% // N
center = (pb[[1]] + #*pb[[2]] & /@ t0)[[2]];
radius = EuclideanDistance[center,a];
{中心->center,半径->radius}
% // N

799 ：卵の名無しさん (ﾜｯﾁｮｲ 0ddd-4JRL [240b:253:1000:dd10:* [上級国民]])：2024/05/10(金) 18:45:07.46 ID:9pJ3+FOk0.net
料理もプログラムも道楽。
手を動かして、頭も動かすのがボケ予防にいいと、
懇意なナースに話したら「腰は動かさななくていいんですか？」と言われた。

800 ： 警備員[Lv.9][新初] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])：2024/05/10(金) 18:46:36.13 ID:eirMlK+F0.net
>>799
顔真っ赤にしてphioseとか書き込んじゃうのも道楽なの？w

801 ： 警備員[Lv.9][新初] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])：2024/05/10(金) 18:48:25.13 ID:eirMlK+F0.net
>>799
それにもうすでに認知症だろ
日本語通じてないし5chの徘徊止まらないんだからw

802 ：卵の名無しさん (ﾜｯﾁｮｲ 0ddd-4JRL [240b:253:1000:dd10:* [上級国民]])：2024/05/10(金) 20:04:05.38 ID:9pJ3+FOk0.net
Wolframがいじれるようになって気分がいい。
作図はまだRの方が慣れている。
色々、作図用のツールを自作してきたのがあるし。
Phimoseくんらの集団がいじれるのはforeskinだけみたいだな。
数学番ではHaskellに移植している人もいた。

803 ： 警備員[Lv.9][新苗] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])：2024/05/10(金) 20:47:52.73 ID:eirMlK+F0.net
>>802
アンタは日本語通じないチンパンだからwolframなんて1000年早いよ
チンパンが電卓叩いてキーキー喚いてるだけw

804 ： 警備員[Lv.9][新苗] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])：2024/05/10(金) 20:48:38.49 ID:eirMlK+F0.net
高校生にボロクソ言われてももう何も言い返せない模様w
どうせ正論で叩きのめされるだけだからねw

805 ：卵の名無しさん (ﾜｯﾁｮｲ 65b0-JAQx [2400:2411:3fe0:400:*])：2024/05/10(金) 22:11:40.58 ID:iPNVXLOk0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

806 ：卵の名無しさん ：2024/05/12(日) 09:54:54.84 ID:DLnBuKy80.net
FermatPoint[pA_,pB_,pC_] :=(
pABC={pA,pB,pC};
aA=VectorAngle[pB-pA,pC-pA];
aB=VectorAngle[pC-pB,pA-pB];
aC=VectorAngle[pA-pC,pB-pC];
aABC={aA,aB,aC};
(* i内角120°以上の頂点 *)
If[Max[aABC]>= (2/3)Pi,FP=pABC[[ Position[# >= (2/3)Pi & /@ aABC,True][[1]][[1]] ]];Return[FP] ];
aA=VectorAngle[pB-pA,pC-pA];
aB=VectorAngle[pC-pB,pA-pB];
aC=VectorAngle[pA-pC,pB-pC];
aABC={aA,aB,aC};
cABC=Total[#*{1,I}]& /@ pABC;
cA=cABC[[1]];cB=cABC[[2]];cC=cABC[[3]];
B1=(cA-cC)*E^(-I Pi/3) + cC;
C1=(cB-cA)*E^(-I Pi/3) + cA;
BB1={pB,{Re[B1],Im[B1]}};
CC1={pC,{Re[C1],Im[C1]}};
F1=ResourceFunction["LineIntersection"][{BB1,CC1}];
B1=(cA-cC)*E^(I Pi/3) + cC;
C1=(cB-cA)*E^(I Pi/3) + cA;
BB1={pB,{Re[B1],Im[B1]}};
CC1={pC,{Re[C1],Im[C1]}};
F2=ResourceFunction["LineIntersection"][{BB1,CC1}];
{F1,F2} // Simplify // N;
FP={F1,F2}[[Position[{Area[Triangle[{pA,pB,F1}]]+Area[Triangle[{pB,pC,F1}]]+Area[Triangle[{pC,pA,F1}]] == Area[Triangle[pABC]],
Area[Triangle[{pA,pB,F2}]]+Area[Triangle[{pB,pC,F2}]]+Area[Triangle[{pC,pA,F2}]] == Area[Triangle[pABC]]},True][[1]][[1]] ]];
Return[Simplify[FP]]
)

807 ：卵の名無しさん ：2024/05/12(日) 09:58:52.60 ID:DLnBuKy80.net
重複コマンド除去

FermatPoint[pA_,pB_,pC_] :=(
pABC={pA,pB,pC};
aA=VectorAngle[pB-pA,pC-pA];
aB=VectorAngle[pC-pB,pA-pB];
aC=VectorAngle[pA-pC,pB-pC];
aABC={aA,aB,aC};
(* 内角120°以上の頂点 *)
If[Max[aABC]>= (2/3)Pi,FP=pABC[[ Position[# >= (2/3)Pi & /@ aABC,True][[1]][[1]] ]];Return[FP] ];
cABC=Total[#*{1,I}]& /@ pABC;
cA=cABC[[1]];cB=cABC[[2]];cC=cABC[[3]];
B1=(cA-cC)*E^(-I Pi/3) + cC;
C1=(cB-cA)*E^(-I Pi/3) + cA;
BB1={pB,{Re[B1],Im[B1]}};
CC1={pC,{Re[C1],Im[C1]}};
F1=ResourceFunction["LineIntersection"][{BB1,CC1}];
B1=(cA-cC)*E^(I Pi/3) + cC;
C1=(cB-cA)*E^(I Pi/3) + cA;
BB1={pB,{Re[B1],Im[B1]}};
CC1={pC,{Re[C1],Im[C1]}};
F2=ResourceFunction["LineIntersection"][{BB1,CC1}];
{F1,F2} // Simplify // N;
FP={F1,F2}[[Position[{Area[Triangle[{pA,pB,F1}]]+Area[Triangle[{pB,pC,F1}]]+Area[Triangle[{pC,pA,F1}]] == Area[Triangle[pABC]],
Area[Triangle[{pA,pB,F2}]]+Area[Triangle[{pB,pC,F2}]]+Area[Triangle[{pC,pA,F2}]] == Area[Triangle[pABC]]},True][[1]][[1]] ]];
Return[Simplify[FP]]
)

FermatPoint[{2,0},{2,4},{5,11}]
FermatPoint[{2,0},{2,4},{5,5}]
% // N

808 ：卵の名無しさん ：2024/05/12(日) 10:12:49.61 ID:CBWXcxL60.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

809 ：卵の名無しさん：2024/05/15(水) 17:50:08.29 ID:YSau8yUmK
出身大学とか資格とか、それほど気にする必要無いよ。

どんな職業でも、その職務上の問題解決能力が
評価の全てだわ。

医師なら、治療成績だよ。
難しい病気を治療できれば出来るほど
その医師として能力は高いと断言して良い。

例えば、プロ野球選手の大谷さん。
出身高校とか甲子園での成績とか出身日本球団とか
どうでも良い。

プロ野球の最高峰の大リーグでの成績が全て。
各種メディアで知るとおり、超ド級のプロ野球
選手と断言できる。

そういう事だから、東大医学部を首席で卒業しても
医師としての業績が大した事ない、つまり腕の悪い
「ヤブ医者」であるなら、ゴミ医師と断言して良い。

もし、受験競技プレーヤーという職業があるのなら
東大をトップで卒業した人は、その分野で一流と
言えないことは無い。

だから、底辺医大しか出て無い医師は、受験競技プレーヤーと
しては、ゴミと云って良い。

810 ：卵の名無しさん (ﾜｯﾁｮｲ ad46-ikzK [2a02:6ea0:d348:1000:* [上級国民]])：2024/05/16(木) 09:39:00.07 ID:/6cUkJcY0.net
(*
2024より大きい最小の素数は2027である。
2027の倍数で現れる数字が10種類であるような数字を小さい順に並べるとき10000個めになる数字はいくつか？
*)

Wolfram
For[n=2027;m=10000;i=1;ans={}, Length[ans]<m, i++, If[Length@Union@IntegerDigits[n*i]==10,AppendTo[ans,n*i]] ];
ans[[m]]


Rに移植
IntegerDigits = \(n,b=10) n%/%b^(floor(log(n)/log(b)):0) %% b
n=2027
m=10000
i=1
ans=integer()
while(length(ans)<m){
if(length(unique(IntegerDigits(n*i)))==10) ans=c(ans,n*i)
i=i+1
}
ans[m]

811 ：：2024/05/16(木) 20:05:59.04 ID:Ml98D8f+0.net
数学板で高校生にボコされてて草

812 ：卵の名無しさん：2024/05/16(木) 22:02:12.94 ID:3L5mxlSwh
医者って、生き物が相手だから
あまりシステムの部品展開って
視点があまり無いのかもな？

そんな事ねえよな。
人体における部品が破損することで
患者が死ぬ。これは医師にとって敗北だ。

だから、部品がその職務を休まず遂行し
他の部品とのコンミュニケーションを円滑に
行い、システム(会社、お家、お国)の健全な
運営に奉仕する。　システムが健全なら、その
部品の生存と幸せ感も保障される。

それは、生物でも巨大なＩＴシステムでも
同じだ。　銀行システムの一部の部品が壊れたり
機能不全を来たしただけで、大きな社会問題を
引き起こしたりする。

社会の部品としての「医師」の職務(ミッション)は何だ？
それを良く考えなさい。

東大医学部を首席で卒業する事では無い。
それは良い医師になるための手段の１つに
過ぎない。

底辺医大卒でも良い。
有り得ないぐらいの腕の良い医師で
あるなら、大谷みたいに年俸数十億円を
出しても狂気の沙汰とは言えない。

命は１つしか無いからな。

813 ：卵の名無しさん ：2024/05/17(金) 06:19:13.76 ID:cAVB/byV0.net
0から７までの8個の数字を並べかえて８桁の数字をつくる。
先頭が０の数字は８桁とはみなさない。
そのうち素数はいくつあるか？

R
f=\(n){
pm=permuteGeneral(0:n)
pm=apply(pm,1,\(x) sum(x*10^(n:0)))
pm=pm[pm>10^n]
p=pm[isPrimeRcpp(pm)]
c(length(p),p[1],tail(p,1))
}
f(7)

Wolframに移植
f[n_] :=(
m=Permutations[Range[0,n],{n+1}];
m=Total[10^Reverse[Range[0,n]]*#] & /@ m;
m=Select[m,#>10^n&];
p=Select[m,PrimeQ];
{Length[p],p[[1]],p[[-1]]}
)
f[7]

814 ：卵の名無しさん ：2024/05/17(金) 06:52:54.23 ID:M6tb4rzf0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

815 ：：2024/05/18(土) 18:08:49.77 ID:4/dADRNma.net
数学板でフルボッコにされる模様w

816 ：卵の名無しさん (ﾜｯﾁｮｲ e1d6-3Pfd [240b:11:241:7900:*])：2024/05/18(土) 18:18:05.94 ID:bv5siOJ30.net
尿瓶ジジイは高校生にすら負けてるのか？
中学レベルだなwww

817 ：卵の名無しさん (ﾜｯﾁｮｲ 2458-5MDN [14.13.16.0])：2024/05/18(土) 20:18:58.41 ID:zB0YmMYc0.net
やはりシリツ卒だとRすら扱えないようだな。

818 ： 警備員[Lv.6][新芽初] (ｱｳｱｳｷｰ Saca-TQ36 [182.251.26.134])：2024/05/18(土) 20:29:28.63 ID:4/dADRNma.net
>>817
日本語すら扱えないのにRが扱えているとは？w

819 ： 警備員[Lv.6][新芽初] (ｱｳｱｳｷｰ Saca-TQ36 [182.251.26.134])：2024/05/18(土) 20:29:53.63 ID:4/dADRNma.net
https://rio2016.5ch.net/test/read.cgi/math/1715164435/

820 ：卵の名無しさん ：2024/05/19(日) 07:30:02.71 ID:7gTBCjUp0.net
a=Flatten[Table[{a1,a2,a3,a4,a5},{a1,1,7},{a2,0,7},{a3,0,7},{a4,0,7},{a5,0,7},{a6,0,7},{a7,0,7},{a8,0,7}],Range[1,8]];
a[[12345]]

821 ：卵の名無しさん ：2024/05/19(日) 08:28:22.79 ID:J8nxQo9/M.net
Total @ Boole @ PrimeQ @ (Total[# * (10^Reverse[Range[0,7]])] & /@ Flatten[Table[{a1,a2,a3,a4,a5,a6,a7,a8},{a1,1,7},{a2,0,7},{a3,0,7},{a4,0,7},{a5,0,7},{a6,0,7},{a7,0,7},{a8,0,7}],Range[1,8]])

822 ：卵の名無しさん ：2024/05/19(日) 10:18:39.89 ID:ldPo3kLy0.net
FromDigits=\(x) sum(10^((length(x)-1):0)*x)

823 ：：2024/05/19(日) 10:45:18.41 ID:At/fWR3Ka.net
またチンパン数学かよ
医者板で
救いようねーな

824 ：卵の名無しさん ：2024/05/19(日) 13:15:02.28 ID:jM8GEbPf0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

825 ：：2024/05/19(日) 14:05:21.86 ID:At/fWR3Ka.net
尿瓶ジジイ、数学板でもバカにされまくるも日本語がまるで通じずいつものコピペを連投してるだけの模様
何か言い返したくても言われるのは正論ばかりなため論点ずらしでコピペで発狂するしかないみたいw

826 ：：2024/05/19(日) 15:36:58.47 ID:At/fWR3Ka.net
325：１３２人目の素数さん：[sage]：2024/05/19(日) 15:05:48.85 ID:TUaSkgQ4
>>314
学生時代の話を聞きたいのか？
ブラックジャックの漫画にも出てきた冠動脈肺動脈起始症での
鈴木章夫教授は当時は有名だったぞ。
臨床実習である心疾患について君は興味はないのかと問われて
ありません、と答えたのが俺。医局で話題になっていたと医局員から聞いた。興味ない学生がいてもいいんじゃないという声もあったとか。

今更調べてドヤ顔で答えてて草

827 ：卵の名無しさん (ﾜｯﾁｮｲ c7c7-Vcku [124.47.76.122 [上級国民]])：2024/05/20(月) 04:59:29.29 ID:81a+hUqr0.net
Solve[x==c/a && a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, x]

c=400
Solve[a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, {a,b,d}]

Clear[c]
Solve[c==400 && a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, {a,b,d}]

828 ：卵の名無しさん (ﾜｯﾁｮｲ c7c7-Vcku [124.47.76.122 [上級国民]])：2024/05/20(月) 05:00:10.09 ID:81a+hUqr0.net
Solve[x==c/a && a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, x]

c=400
Solve[a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, {a,b,d}]

Clear[c]
Solve[c==400 && a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, {a,b,d}]

829 ：卵の名無しさん (ﾜｯﾁｮｲ 52d0-r1ry [2400:2200:4b8:ef79:*])：2024/05/20(月) 06:58:00.33 ID:TjxPu9Fm0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

830 ：：2024/05/20(月) 17:44:32.08 ID:VggMFeSaa.net
尿瓶ジジイ数学板の高校生に速攻論破されるw

831 ：卵の名無しさん ：2024/05/21(火) 19:11:31.25 ID:j7TJ4F9n0.net
rm(list=ls())
f1=\(xyz){
x=xyz[1]
y=xyz[2]
z=xyz[3]
if(abs(x+y+z)>2 | abs(x)>1 | abs(y)>1| abs(z)>1) return(1e12)
else return(x*y+y*z+z*x)
}
opt=optim(runif(3),f1)
opt=optim(opt$par,f1)
opt$value

f2=\(xyz){
x=xyz[1]
y=xyz[2]
z=xyz[3]
if(abs(x+y+z)>2 | abs(x)>1 | abs(y)>1| abs(z)>1) return(-1e12)
else return(x*y+y*z+z*x)
}
opt=optim(runif(3),f2,control=list(fnscale=-1))
opt=optim(opt$par,f2,control=list(fnscale=-1))
opt$value

832 ：卵の名無しさん ：2024/05/22(水) 08:12:51.67 ID:g+5oxCgk0.net
f[] := (
pA={1,0};
b=RandomReal[{-Pi,Pi}];
pB={Cos[b],Sin[b]};
c=RandomReal[{-Pi,Pi}];
pC={Cos[c],Sin[c]};
ABC=Triangle[{pA,pB,pC}];
c={0,0};
Area[ABC]==Area[Triangle[{c,pA,pB}]]+Area[Triangle[{c,pB,pC}]]+Area[Triangle[{c,pC,pA}]]
)

Mean@Boole@Table[f[],1*^4] // N

833 ：卵の名無しさん ：2024/05/22(水) 08:13:10.15 ID:g+5oxCgk0.net
f[] :=(
pA={1,0,0};
b=RandomReal[{-Pi,Pi}];
pB={Cos[b],Sin[b],0};
c=RandomReal[{-Pi,Pi}];
pC={Cos[c],Sin[c],0};
pO={0,0,0};
t1=((pC-pB) \[Cross] (pO-pB))[[3]] * ((pO-pB) \[Cross] (pA-pB))[[3]] >=0;
t2=((pA-pC) \[Cross] (pO-pC))[[3]] * ((pO-pC) \[Cross] (pB-pC))[[3]] >=0;
t1 && t2
)
Mean@Boole@Table[f[],1*^4] // N

834 ：卵の名無しさん ：2024/05/22(水) 08:23:45.94 ID:g+5oxCgk0.net
import numpy as np

def is_acute_triangle(a, b, c):
# Calculate the squares of the lengths of the sides
a2 = np.sum((b - c) ** 2)
b2 = np.sum((a - c) ** 2)
c2 = np.sum((a - b) ** 2)

# Check the condition for acute triangle
return (a2 + b2 > c2) and (a2 + c2 > b2) and (b2 + c2 > a2)

def monte_carlo_simulation(n):
count_acute = 0
for _ in range(n):
# Generate 3 random points
a, b, c = np.random.rand(3, 2)

# Check if they form an acute triangle
if is_acute_triangle(a, b, c):
count_acute += 1

# Probability of forming an acute triangle
return count_acute / n

# Run the simulation with 1,000,000 trials
n_trials = 1000000
probability = monte_carlo_simulation(n_trials)
probability


0.274288

835 ：卵の名無しさん (ﾜｯﾁｮｲ df1e-Vcku [2a02:6ea0:d348:2000:* [上級国民]])：2024/05/22(水) 10:26:04.74 ID:g+5oxCgk0.net
Clear[{f,a,b,c}]

f[] :=(
{a,b,c}=Sort@RandomReal[{0,1},3];
Boole@{a+b>c,a^2+b^2>c^2}
)
m=Table[f[],1*^6];
Length@Select[m,#=={1,1}&]/Total@m[[All,1]] // N (*鋭角三角形/三角形*)
Length@Select[m,#=={1,1}&]/Length@m // N (*鋭角三角形/三辺*)

836 ：卵の名無しさん (ﾜｯﾁｮｲ df1e-Vcku [2a02:6ea0:d348:2000:* [上級国民]])：2024/05/22(水) 10:30:59.02 ID:g+5oxCgk0.net
0.422771
0.2124

837 ：卵の名無しさん ：2024/05/22(水) 12:27:02.36 ID:4aYTxoSC0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

838 ：卵の名無しさん (JP 0H0b-hTKR [202.253.111.210])：2024/05/22(水) 13:54:31.36 ID:2GYI2wLiH.net
久しぶり来たけど
尿瓶ジジイは日本語喋れなくなったのか？www
統失が悪化したのか認知症になったのか

839 ：卵の名無しさん ：2024/05/22(水) 14:44:50.17 ID:g+5oxCgk0.net
f[]:=(
{b,c}=RandomReal[{-Pi,Pi},2];
pA={1,0};
pB={Cos[b],Sin[b]};
pC={Cos[c],Sin[c]};
a2=Total[(pB-pC)^2];
b2=Total[(pC-pA)^2];
c2=Total[(pA-pB)^2];
Boole[a2+b2>c2 && b2+c2>a2 && c2+a2>b2]
)
Table[f[],1*^6] // Mean // N

840 ：卵の名無しさん ：2024/05/22(水) 14:49:54.55 ID:g+5oxCgk0.net
>>839
これは>834のPythonコードを単位円上にある場合に鋭角三角形
になるモンテカルロシミュレーションのWolframでのコード。
推敲、高速化歓迎。

841 ：卵の名無しさん ：2024/05/22(水) 14:51:00.12 ID:Qsg/ucWOd.net
高校数学の質問スレ Part435
https://rio2016.5ch.net/test/read.cgi/math/1715164435/
このスレで高校生の邪魔をし続けている

842 ：卵の名無しさん ：2024/05/22(水) 14:51:18.57 ID:g+5oxCgk0.net
ChatGPTがモンテカルロシミュレーション解を返してきたので
それをWolframで再現できて気分が( ・∀・)ｲｲ!!
課題解決のために、言語仕様を検索しながらのコーディングは記憶に残る。

843 ：卵の名無しさん ：2024/05/22(水) 17:15:40.21 ID:4aYTxoSC0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

844 ：卵の名無しさん (ﾜｯﾁｮｲ 7f58-nRHk [14.13.16.0 [上級国民]])：2024/05/23(木) 11:09:18.57 ID:LL2Dpiwe0.net
*
問題
100cmの真っ直ぐな棒を3つに切って三角形を作ろうとしたところ
10cm,30cm,60cmに切断してしまって、これでは三角形ができないこと気付いた。
最長の60cmの棒を２つに切断して10cm,30cmの棒切れとで四角形の枠を作ることにした。
四角形の面積が最大になるように切断したい。そのときの四角形の面積を求めよ。
*)

Clear[{f,a,b,c,d,tab,tc,s}]

f[a_,b_,c_,x_] :=(
d=Sqrt[a^2+b^2 - 2 a b Cos[x]];
h=Sqrt[(c/2)^2-(d/2)^2];
tab=a b Sin[x]/2;
tc=d h /2;
tab+tc
)
Plot[f[10,30,60,x],{x,0,Pi}]
Maximize[f[10,30,60,x],x]
% // N

845 ：卵の名無しさん (ﾜｯﾁｮｲ 7f58-nRHk [14.13.16.0 [上級国民]])：2024/05/23(木) 12:28:18.09 ID:LL2Dpiwe0.net
(*
問題
100cmの真っ直ぐな棒を3つに切って三角形を作ろうとしたところ
10cm,30cm,60cmに切断してしまって、これでは三角形ができないこと気付いた。
最長の60cmの棒を２つに切断して10cm,30cmの棒切れとで四角形の枠を作ることにした。
四角形の面積が最大になるように切断したい。そのときの四角形の面積を求めよ。
*)
Clear[f,p,q,r]

p=10;
q=30;
r=60;
(* x^2/a^2 + y^2/(a^2-c^2)=1 *)

f[theta_] :=(
d=Sqrt[p^2+q^2-2 p q Cos[theta]]; (* d:焦点間距離, theta:p qのなす角 *)
c=d/2; (* 焦点 (c,0),(-c,0) *)
a=r/2; (* 2a : 焦点からの距離和　*)
b=Sqrt[a^2-c^2]; (* 縦径=三角形の最大高 *)
d b/2 + p q Sin[theta]/2
)

Plot[f[theta],{theta,0,Pi}]
max=Maximize[f[theta],theta]
% // N
max[[2]]*180/Pi //N

Clear[_]

846 ：卵の名無しさん (ﾜｯﾁｮｲ ebb3-Vcku [240b:253:1000:dd10:* [上級国民]])：2024/05/23(木) 15:08:27.55 ID:nMFechUv0.net
(*
問題
100cmの真っ直ぐな棒を3つに切って三角形を作ろうとしたところ
10cm,30cm,60cmに切断してしまって、これでは三角形ができないこと気付いた。
最長の60cmの棒を２つに切断して10cm,30cmの棒切れとで四角形の枠を作ることにした。
四角形の面積が最大になるように切断したい。そのときの四角形の面積を求めよ。
*)

p=10;
q=30;
r=60;
(* x^2/a^2 + y^2/(a^2-c^2)=1 *)

f[theta_] :=(
d=Sqrt[p^2+q^2-2 p q Cos[theta]]; (* d:焦点間距離, theta:p qのなす角 *)
c=d/2; (* 焦点 (c,0),(-c,0) *)
a=r/2; (* 2a : 焦点からの距離和　*)
b=Sqrt[a^2-c^2]; (* 縦径=三角形の最大高 *)
d b/2 + p q Sin[theta]/2
)

Plot[f[theta],{theta,0,Pi}];
m=Maximize[f[theta],theta];
% // N;
t0=2 ArcTan[Sqrt[2]];
d0=Sqrt[p^2+q^2-2 p q Cos[t0]];
c0=d0/2;
a0=r/2;
b0=Sqrt[a0^2-c0^2];
i=ResourceFunction["CircleIntersection"][Circle[{-c0, 0}, 10], Circle[{c0, 0}, 30]][[1]][[2]];
b1={0,b0};
c1={-c0,0};
c2={ c0,0};
g1=Graphics[{Dotted,Circle[{0, 0}, {a0, b0}]},Axes -> True];
g2=Graphics[Point[b1]];
g3=Graphics[{Thin,Red,Dashed,Circle[{-c0,0},{10,10}]}];
g4=Graphics[{Thin,Blue,Dashed,Circle[{c0,0}, {30,30}]}];
g5=Graphics[Point[c1]];
g6=Graphics[Point[c2]];
g7=Graphics[{ Thick,Line[{c1,i}] }];
g8=Graphics[{ Thick,Line[{c2,i}] }];
g9=Graphics[{ Thick,Line[{c1,b1}] }];
g10=Graphics[{ Thick,Line[{c2,b1}] }];
Show[g1,g2,g3,g4,g5,g6,g7,g8,g9,g10]

847 ：卵の名無しさん (ﾜｯﾁｮｲ 9742-r1ry [2400:2200:491:7f2:*])：2024/05/23(木) 17:05:38.99 ID:LN7y/1kN0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

412 KB
新着レスの表示
掲示板に戻る 全部 前100 次100 最新50
名前： E-mail (省略可) :

read.cgi ver.24052200