ド底辺シリツ医大卒ってこれだよな
底辺私立医大卒が国立大学医学部卒を妬むスレ [転載禁止](c)2ch.net
http://potato.2ch.net/test/read.cgi/hosp/1424846816/695
695 名前：卵の名無しさん[] 投稿日：2016/09/25(日) 22:04:25.53 ID:FzuOCpqV
匿名先生
精神科
▲
1
評価
私立出でも、素晴らしい医師がいるし、国立でも、どうしようもないのもいる。
そんなのは、あくまで個人の資質差と思ってました。
が、
今いる病院（医師の大部分が、いわゆる底辺私立）に来て、その考えは変わりました。
とある、気に食わない医師の白衣やサンダルを隠す、机の上にゴミを置く、など、小学生じみた嫌がらせをしている医師というのを、はじめて見ました。
国立出の変人も多々みてきましたが、こんな、小学生のイタズラみたいなことをする人は、いませんでした。
やはり、底辺私立は、それなりなんだと思いました。
2016年09月02日 00時21分09秒 人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。
これな！
不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to the experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keio had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of physicians in private practice had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
I don't want to see you who can't pass the national exam. Because you are stupid. Do another job.w
A person with a low intelligence quotient will not adapt to all jobs.
The aim of the medical school from now on is stupid w
It is better not to take the national exam because it is very difficult for you. I don't feel your intelligence as a doctor. Give up!
You are the worst student of medical school you have ever taught. The personality is also the worst. I am a human I have never seen before. There are many people in Japan too.
There was a mistake in the sentence. Please correct it yourself.
（犬食いは）韓国ではそっちの意味だけどこれは日本語の犬食い
日本では犬のように食器に顔を近づけて食べる行為で、悪いマナーとされている
なぜなら日本は世界でも数少ない食器を持ち上げて食べるのが作法の国だから
米粒1つも残しちゃ駄目だよって良く言われたと思うけど、食べこぼしを起こさない食べ物への感謝が表れた食べ方だって事だね
韓国人の食べ方
日本人の食べ方
基本的には食器を持たないからテーブルの下に左手がある奴は朝鮮人文化の家庭で育ったと思っていいよ
食器を完全に持たない訳じゃないから持ち方にも注目して欲しい
朝鮮式
(朝鮮人もこうやって持ってるでしょ？)
日本の正しい持ち方
俺は肌が黒くても和の心さえ持ち合わせてれば日本人で良いと思ってる
逆に血統では日本人の血が多く通ってても、朝鮮文化で育った奴は朝鮮人だと思ってる
そう言う意味では安倍は間違いなく朝鮮人だって言い切れる 朝鮮人です
迎え舌、朝鮮式の食器の持ち方
犬食い
Academic scientist and academic misrepresenter. It's about you
You are perceived to make a big mistake regarding academic ability and intelligence. This is unthinkable in America. You are a fool.
日本は最強覇権国（と判断した国）と同盟を結んできたんだよ。
イギリス、ドイツ、アメリカの次は中国だろう。
アヘン戦争、アウシュビッツ、インディアン虐殺してきた国だからと忌避していない。
次の覇者は中国。
日本は核武装して最強国と協調するのが正しい選択。
イスラム教国のパキスタンも中国から武器援助を得て協調。
イスラム教徒をウイグルに助けに行ったりしない。
近隣に日本を助ける国はないから核武装して自主防衛するしかない。
戦後レジームからの脱却を唱えていたから期待していたんだが
気がつきゃ、デフレに増税、移民にアイヌ、外資様、街中外国人まみれで、皇統も改憲も不安でたまらん。
そこに、あの習近平様を国賓でお呼びになるそうです。
赤枝グループ。
社会福祉法人兼愛会しょうじゅの里鶴見（施設長：秋津 克巳さん、理事長：赤枝 雄一さん ） を１日で辞めた俺が来ましたｗ
http://www.akaedakai.com/recruit/tsurumi/kaigo_employee.pdf
１１月４日に初出勤して、翌５日の朝に施設に電話して辞意を伝えたわ。
そしたら、【１日で何が分かるんですか！うちの施設を馬鹿にしてますか？】 とか
言われて怒られたわ。
ちなみに電話で話したのは、施設庁の秋津さんではない。
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 旧式版Skypeの文字サイズ変更は次のように行います。
文字サイズ縮小：CTL + [-]マイナスキー
文字サイズ拡大：CTL + Shift + [+]プラスキー
文字サイズを戻す：CTL + [0]数字のゼロ
文字サイズを大きくするときだけ、Shiftキーを押す必要があります。
十
吾等ハ日本人ヲ民族トシテ奴隷化セントシ又ハ国民トシテ滅亡セシメントスルノ意図ヲ有スルモノニ非ザルモ
吾等ノ俘虜ヲ虐待セル者ヲ含ム一切ノ戦争犯罪人ニ対シテハ厳重ナル処罰加ヘラルベシ
日本国政府ハ日本国国民ノ間ニ於ケル民主主義的傾向ノ復活強化ニ対スル一切ノ障礙ヲ除去スベシ
言論、宗教及思想ノ自由竝ニ基本的人権ノ尊重ハ確立セラルベシ
日本人ヲ民族トシテ奴隷化セントシ又ハ国民トシテ滅亡セシメントスルノ意図ヲ有スルモノ＝安倍晋三
>>22
自国民1億人の犠牲を前提にしても戦争ができるのが中国。 単一言語・ほぼ単一民族の日本を破壊しようとしているのが安倍。
安倍晋三「もはや国境や国籍にこだわる時代は過ぎ去りました」
ダウンロード＆関連動画＞＞
@YouTube
ポツダム宣言
十
吾等ハ日本人ヲ民族トシテ奴隷化セントシ又ハ国民トシテ滅亡セシメントスルノ意図ヲ有スルモノニ非ザルモ
吾等ノ俘虜ヲ虐待セル者ヲ含ム一切ノ戦争犯罪人ニ対シテハ厳重ナル処罰加ヘラルベシ
日本国政府ハ日本国国民ノ間ニ於ケル民主主義的傾向ノ復活強化ニ対スル一切ノ障礙ヲ除去スベシ
言論、宗教及思想ノ自由竝ニ基本的人権ノ尊重ハ確立セラルベシ
日本人ヲ民族トシテ奴隷化セントシ又ハ国民トシテ滅亡セシメントスルノ意図ヲ有スルモノ＝グローバリスト安倍晋三 俺は私大医学部卒の先生と仕事してもあまり不満は持ってこなかったんだが
女子医大卒、あいつらだけは再現性を持ってどうしようもないクソ
__,,,,＿
／´ ￣｀ヽ,
/ 〃 _,ｧ---‐一ﾍヽ
i ／´ !! ﾘ}
| 〉. -‐''~ ~'''ｰ {!
| | ‐ｰ くー |
ﾔヽﾘ ´ﾟ ,ｒ "_,,>､ '｝
ヽ_｣ ト‐＝‐ｧ' !
ゝ i、 |!, |! /
ｒ|､｀ ''`ｰ＝"'´
／￣ ¨⌒ヽゝ. ｀ﾆﾆ´ノ ´￣｀ヽ
/ j |悪| !
! / |仁|!. ､/ |
l ! 2:. └ ' .:c:: ! |
|／/" } !
／／ｌ ,′ !
'´／ l | ｲ .'
>>27
女子医大には学生の頃から息子がお世話になったので悪印象はないなぁ。 村田良平回想録を読み終えた。
宮沢喜一の評価が低くて以外だったな。
天安門事件で孤立する中国に天皇訪中させた国賊という評価なんだろうな。
たのしみは蝦夷（えみし）よろこぶ世の中に皇国（みくに）わすれぬ人を見るとき
橘 曙覧（たちばな あけみ)
もはや国境や国籍にこだわる時代は過ぎ去りました
安倍晋三
たのしみは蝦夷（えみし）よろこぶ世の中に皇国（みくに）わすれぬ人を見るとき
橘 曙覧（たちばな あけみ)
開業医スレより
160 卵の名無しさん 2019/12/04(水) 18:43:33.36 ID:dDfMaCKG
私大医学部にしか行けない馬鹿子供をもった不幸を呪え
日本語の｢わかりました｣の意味が変更がされたってマジ？
れもんた
@montagekijyo
酒井「(名簿を確認せよという野党の要望に対して)”わかりました”というのはそういう趣旨は理解しましたが、”必ず確認してきます”と承諾したと承諾したということではありません」
https:■//pbs.twimg.com/media/EK3qoltXsAAaFn3.jpg
https:■//pbs.twimg.com/media/EK3qolrXkAgue5c.jpg
こんな日本になるぞ
先生「宿題やってこいよ！」
生徒「わかりました！」
次の日
先生「なんでやってこないんだ！」
生徒「”わかりました”というのはそういう趣旨は理解しましたが、”必ず宿題を、やってきます”と承諾したということではありません」
ネトウヨ大好きブーメランw I have never seen a fool like you. The national exam will not pass forever. It will be a poor life. Everything is your responsibility.
If you become a doctor, it will be harmful to society. It is correct that you gave up taking the national exam.
What have you been doing in your life so far? Why did your life fail? You should reflect.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody."
We never speak out face to face in real life.
OperaのVPN経由でも書き込みできるな。
そのうち規制されるだろうけど。
The qualities you need are common sense. That ’s why they are hated by others.
Communication with patients with psychosis is difficult. You need treatment at a psychiatric hospital. It's already late.
You will never pass the national exam.w
You are a liar and you are never a doctor. You will continue to lie. Your life has become a sad life.
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
I'm tired of your excuses. From now on, you need to do some non-medical job in order to live. It's a fate of liars.
村田良平回想録の続編ともいえる遺書だな。
何処へ行くのか、この国は―元駐米大使、若人への遺言
文明の衝突のHuntington の 続編 Who are we?
In describing the American identity, Huntington first contests the notion that the country is, as often repeated, "a nation of immigrants".
He writes that America's founders were not immigrants, but settlers,
since British settlers came to North America to establish a new society,
as opposed to migrating from one existing society to another one as immigrants do.
Later peoples who joined the culture present in the original British colonies, already established by these settlers, were indeed immigrants. Carlos is a monstro
Many people point to the American Creed as the core of American identity.
Huntington defines the American Creed as embodying the "principles of liberty, equality, individualism, representative government, and private property".[2] Yet Huntington asks:
Would America be the America it is today if in the 17th and 18th centuries it had been settled not by British Protestants but by French, Spanish,
or Portuguese Catholics? The answer is no. It would not be America; it would be Quebec, Mexico, or Brazil.[3]
先住民無視のアメリカ独立宣言に似た独善性だな。
問題:
裏口バカをbackdoor foolという逐語訳ではなく
その意味がわかるように英訳せよ。
国立大学卒の答:
despicable bona fide morons who have bought thier way into bottom medical school
底辺私立医大出身の答:
It's me.
講評:
正確性、具体性、簡潔性では後者の訳に一日の長がありますw
アメリカ独立宣言を改変
Declaration of Do-Teihen
We hold these truths to be self-evident, that all "uraguchi" are created retards,
That they are endowed by their creator with certain unalienable traits, that among these are sloth, mythomania, and the pursuit of imbecility.
That to rectify these traits, Do-Teihen (exclusively bottom-leveled medical school,also known as Gachi'Ura) are instituted for retards, deriving their just powers from what has been referred as the arbitrary donation of the parents of the rectified,
That whenever any form of the retards becomes destructive of rectification,
it is the right of the Do-Teiken to suspend or expel them, and to impose additional tuition laying its foundation on such principles and organizing its powers in such form, as to them shall seem most likely to effect the profit of Do-Teihen.
Prudence, indeed, will dictate that "uraguchi" long established cannot be changed for light and transient causes;
and accordingly all experience has shown, that Gachi'Ura are more disposed to suffer, while evils are sufferable, than to right themselves by abolishing the forms from which they can pursue profit.
But when a long train of misbehavior and misconduct , showing invariably the same Imbecility evinces a design to reveal themselves as absolute Bona Fide Moron ,
it is their right, it is their duty, to expel such "uraguchi", and to provide new guards for their future security.
There will be no English response from bona fide Gachi'Ura morons.
Last but not least,
it is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
Are you really bad at English? You are embarrassed and you should not write English. You are an embarrassing guy and a strange guy.
You abandoned your medical studies. It is welcome for us. You don't need to study national exams and you don't have the ability to study. Oh, good.
>>57
Finally, the single most imposing challenge to America, in Huntington's view, is the problem of Mexican immigration
and the resulting "Hispanization" of those regions of the United States adjacent to and acquired from Mexico.
He fears that the result of Mexican immigration could be a "bifurcated" America.
Regional concentration: "In 2000, nearly two thirds of Mexican immigrants lived in the West, and nearly half in California".[
カルフォルニアって戦争でメキシコから奪った土地であることを忘れてんじゃないのかと思う。 You must be responsible for your own actions.
>>61
We hold these truths to be self-evident, that all "uraguchi" are created retards,
That they are endowed by their creator with certain unalienable traits, that among these are sloth, mythomania, and the pursuit of imbecility. You must not blame others on your life failure. All causes are your low intelligence, your neglect, and your carefree life. First of all, you have to recognize your mistaken ideas.
なるほど～
立法府の仕事は優秀な官僚に任せ、国会議員は、ライバル党の
議員あら探しに徹底せよ。
その方が政権獲得の近道だ。最近は世襲議員が多くて、本来の
立法府の任に耐えられないし、邪魔だ。
国民も国会議員のあら探し情報を数多く聞いた方が、議員適否判断
がしやすく、的確な判断が出来る。
観桜会スキャンダル事件では、与党議員の脇の甘さがよく分かったし、
選挙で参考になる。
欧米を支配する国際金融資本の代理人である安倍晋三の日本を徹底的に衰退、破壊するという野望が実現するのが濃厚になった。
デフレ下で公共投資削減、消費税増税という緊縮財政をやったら国民経済がさらに衰退し、
税収減とデフレにより金の価値が上がることで消費増税の建前である財政健全化も更に財政は悪化する。
緊縮財政は1997年から続く日本経済の失われた20年の要因でもある。
政府自身がそれをわかっていながら実行する。
経済を衰退させ移民で日本の民族、国体を破壊すれば日本が復活することは永遠になくなり
グローバリストで大衆を搾取し奴隷化し富と権力を独占する国際金融資本にとって、
最大の障害であった戦前まで究極のナショナリズム国家だった日本が完全に破壊される。
ポツダム宣言
十
吾等ハ日本人ヲ民族トシテ奴隷化セントシ又ハ国民トシテ滅亡セシメントスルノ意図ヲ有スルモノニ非ザルモ
吾等ノ俘虜ヲ虐待セル者ヲ含ム一切ノ戦争犯罪人ニ対シテハ厳重ナル処罰加ヘラルベシ
日本国政府ハ日本国国民ノ間ニ於ケル民主主義的傾向ノ復活強化ニ対スル一切ノ障礙ヲ除去スベシ
言論、宗教及思想ノ自由竝ニ基本的人権ノ尊重ハ確立セラルベシ
日本人ヲ民族トシテ奴隷化セントシ又ハ国民トシテ滅亡セシメントスルノ意図ヲ有スルモノ＝グローバリスト安倍晋三
No one listens to stupid man and you have no friends to talk to. All you can do is change yourself. Can you understand?
You will regret your stupid life at the end, and you will lament your low intelligence, but it's too late.
We feel surprised and embarrassed that you were in medical school. You will not pass the national exam and we hope you remain unemployed.
Who Are We?: The Challenges to America's National Identity
言語も土地もメキシコに奪い返されつつあるなぁ。
日本の未来みたいだ。
>>79
>5
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 We don't want to be friends with stupid guys. Don't come into the doctor community.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
>>84
底辺私立医大を卒業した医者って頭悪いよね？ Part13 You are no longer treated by your doctor. Poor but you will not be a doctor and everyone will think so.
>>81
Hungtiontonもレコンキスタと書いていて笑えた。
メキシコ人の勝利に終わりそう。
もともと移民の国が侵略した国から移民で奪い返されるのは滑稽でもある。 We don't feel anything if a fool like you points it out. How long have you been stuck with taking the university exam? You are embarrassing.
安倍ってマジで知的障害者じゃね？
video.twimg.com/ext_tw_video/1191982184711819264/pu/vid/640x360/vpYPtiW4XCfECVYu.mp4
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
>>90
前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。
あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている（弱情報事前分布）。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。 We laugh at you no matter what you say to those who fail the national exam.
Passing or failing the national exam is a serious problem for us.
How long have you been since you graduated from university? And why can't you pass the national exam? Perhaps you have a mental illness. Poor thing.
Perhaps you have been stopped from taking a national exam by your doctor. We agree with it.
９条は日本が海外侵略しないための歯止め。
安保条約も日本に自主防衛能力を持たせないために存在している。
>>97
前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。
やっぱり、裏口入学なのか？
前スレのシリツ医も比例計算しかできない小学校算数レベルのアホだったな。
あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。 Marahil ay napigilan ka mula sa pagkuha ng isang pambansang pagsusulit ng iyong doktor. Sumasang-ayon kami dito.
安倍はとんでもない事をしたなぁ・・・
改竄された統計を元に景気対策→狂っているので効果は低い
効果的な対策を打てなくなり経済停滞・崩壊
ド底辺シリツ医大に進学という最初のボタンの掛け違いみたいだな。
>>101
前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。
やっぱり、裏口入学なのか？
前スレのシリツ医も比例計算しかできない小学校算数レベルのアホだったな。
あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。 >>102
You may have been prevented from taking a national exam by your doctor. We agree with this.
答えてやったから、
これに答えろよ。
前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。
あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。 検索すれば答えられるような問題って大したテストにならんね。
こういうのに答えられてこそ、基礎理論を理解できているかがわかる。
>>
呪文：「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると甲状腺機能が正常化するという統計処理の捏造をやってみる。
TSH ： 0.34～4.0 TSH：μIU/mlを基準値として（これが平均±２×標準偏差で計算されているとして）呪文前と呪文後のデータを正規分布で各々５０個つくる。
負になった場合は検出限界以下として０にする。
同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。
横軸に呪文前のTSHの値、縦軸にTSHの変化（呪文後－呪文前）をグラフしてみると
つまり、呪文前のTSHが高いほど呪文後はTSHは下がり、呪文前のTSHが低いほど呪文後のTSHは上がるという傾向がみてとれる。
これを線形回帰して確かめてみる。
回帰直線のパラメータは以下の通り。
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.3812 0.3323 7.165 4.10e-09 ***
before -1.0351 0.1411 -7.338 2.24e-09 ***
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8365 on 48 degrees of freedom
Multiple R-squared: 0.5287, Adjusted R-squared: 0.5189
F-statistic: 53.84 on 1 and 48 DF, p-value: 2.237e-09
p = 2.24e-09 なので有意差ありとしてよい。
ゆえに、「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は甲状腺機能を正常化させる。
ここで問題、この統計処理のどこが誤っているか？
<< Your answer is wrong. You fail. This will prevent you from passing the national exam. Ahahaha
You must not blame others on your life failure. All causes are your low intelligence, your neglect, and your carefree life. First of all, you have to recognize your mistaken ideas. Translate into Japanese
I couldn't pass the national exam because of my low intelligence. Translate into Japanese
My life has failed. Translate into Japanese
答えてやったから、
これに答えろよ。
前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。
あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。
これは便利だぜい
https://www.sodaplayer.com/
Play BitTorrent videos instantly
Open and play magnet links and torrent files instantly.
Supports DHT, PEX, UDP trackers and all other key BitTorrent technologies to give you maximum speed.
Protect your privacy, punch through network blocks and bypass ISP throttling with its integrated blazing fast SOCKS5 proxy. 比例計算レベルの算数しかできない頭脳＝ド底辺シリツ医
国試にこだわるアホ＝ド底辺シリツ医
難関私立中学入試の方が難しいな。
フーバー回想録は読み応えがあるな。
基礎知識を欠くから欧州の戦史を調べながらだけど。
国民も議会も我が国の参戦に強く反対であった。
したがって、大勢をひっくり返して参戦を可能にするのは、ドイツあるいは日本による我が国に対する明白な反米行為（some overt act against us）だけであった。
ワシントンの政権上層部にも同じように考える者がいた。彼らは事態をその方向に進めようとした。つまり我が国を攻撃させるように仕向けることを狙ったのである。
暇つぶしに、これをプログラム組んでシミュレーションで実証してみるかな。
京大の過去問
>>116
サイコロ
正６面体のサイコロがある．
４面は青色、２面は赤色である．
このサイコロを合計20回振るとき、
最も起こりそうな順番はどれか？
１．赤 青 赤 赤 赤
２．青 赤 青 赤 赤 赤
３．青 赤 赤 赤 赤 赤 朝飯前にやってみた。
# 正６面体のサイコロがある．４面は青色、２面は赤色である．
# このサイコロを合計20回振るとき、最も起こりそうな順番はどれか？
# １．赤 青 赤 赤 赤
# ２．青 赤 青 赤 赤 赤
# ３．青 赤 赤 赤 赤 赤
sim <- function(){
a=sample(0:1,20, replace=TRUE, prob=c(4,2))
b=as.character(a)
c=paste(b,collapse="")
s1=paste(c(1,0,1,1,1),collapse="")
s2=paste(c(0,1,0,1,1,1),collapse="")
s3=paste(c(0,1,1,1,1,1),collapse="")
res=c(grepl(s1,c),grepl(s2,c), grepl(s3,c))
return(res)
}
k=1e5
re=replicate(k,sim())
mean(re[1,])
mean(re[2,])
mean(re[3,])
>>81
１００万回のシミュレーション結果
> k=1e6
> re=replicate(k,sim())
> mean(re[1,])
[1] 0.124957
> mean(re[2,])
[1] 0.08093
> mean(re[3,])
[1] 0.04078
直感通り、１，２，３の順番になった。 I was a fool and could not pass the national exam. I have already given up and abandoned the exam. I only have contact with others on this bulletin board. I feel sorry for everyone. Please continue to play with me. . Someone please help me
Translate into Japanese
>>120
これできないアホ？
前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。
あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。 数学板だと、問題の意味すらわからない問題がでるけど、確率問題は意味がわかるし
シミュレーションプログラミングの練習になるな。
拡大内視鏡の成書から
white zoneの視認性と腺管密度の関係
white zoneが鮮明な癌 窩間部の長さ136±45 (p<0.05)
white zoneが不鮮明な癌 窩間部の長さ77±22 (p<0.05)
という記述で±45,±22が標準誤差であり、検定は等分散を前提としないt検定で
ｐ値は0.01から0.05の間であったとする。
サンプルサイズが２群で同じであったとすると各々の症例数はいくつからいくつと推定されるか？
こういうのが計算できてこそ大学卒と言えるね。
行動科学をやっている人って文系でもベイズ統計をきちんと扱えて感心する。ド底辺シリツ医にはいないけど。
シリツ医ができるのは比例計算がせいぜいだな。
連立方程式すら立てられないし、自分が馬鹿だと認識していないんだよな。
前スレでヒントまで書いてやったんだが
シリツ医の基礎学力じゃ、ヒントすら理解できなかったみたいだったな。
ド底辺シリツ医大にある年の裏口受験票が保存されていることが判明した。
枚数は１０００枚以下であることは判明しているが、その数を推定したい。
裏口入学調査員が無作為に１０枚選んで番号を記録して元に戻した。
別の裏口入学調査員が無作為に２０枚選んで番号を記録した。
二人の調査員の記録した番号を照合すると３枚の番号が一致していた。
この情報からこの年の裏口受験証の数の最頻値、期待値とその９５％信頼区間を求めよ。
バカ丸出し底辺私立を１０校あげよ。
↓
１０校で収まらないのに驚嘆する。
慶應以外じゃ
字形、日医、大阪医大がちとマシなだけだろ。
他に底辺駅弁レベルあるか？
>>118
grepを使わずに処理を高速化する方法は思いつかんな。
数学板で質問してみようっと。 >>128
合格者の7割くらいが辞退するんじゃなかったっけ。
ここで問題
(1)予備校の発表する偏差値は合格者の偏差値の平均値
(2)合格者の成績分布は正規分布で標準偏差は母集団と同じ
(3)成績のよい方から入学を辞退する
上記(1)(2)(3)を前提にして
虚飾値＝合格者の偏差値 - 入学者の偏差値として
辞退率7割の時の虚飾値を求めよ。 田舎大学の工学部も遥かに手の届かない低学力でも
私立なら現役で受かるからな。
これはシリツ医には無理だろうな。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
お前が言うなの「反日工作員」の一例。
オバマは米国の保有する核兵器のほとんどの精度と殺傷力を高める近代化プログラムを進めていた。
しかも世界で最も多くの核兵器を所有し核兵器を他国に投下し大量の民間人を虐殺した世界で唯一つの国であるアメリカの大統領が、
自国が落とした核兵器によって世界で唯一つの被爆国になって大量の民間人が虐殺され、現在も核兵器をもっていない日本で「反核」を訴えたのであるw
先日、日本で反核を訴えたローマ法王もそうだが、欧米を支配してきたグローバリストに共通しているのが親中の反日であり(共産中国をつくったのもアメリカのグローバリストである)
大衆を搾取し富と権力の独占を拡大するために世界のグローバル化を推進しているグローバリストたちにとっての最大の敵は、本来の日本が復活すること。
だから連中は日本に対して経済を衰退させ移民を強制し日本を完全に破壊することに必死であり、
日本では必ず反核を訴えるなどして日本が自主防衛、自主外交できないように必死になるのです。
日本が自主防衛、自主外交できないで得をするのは日本をこのまま意のままにコントロールしたいアメリカと支那、南北朝鮮などの隣国の反日国であることは言うまでもありません。
私立医大卒ってなんで私立にしか行けなかったんだろう
以前から9条問題は言われているのに今更な それより北方領土問題
安倍は北方領土４島を独自外交でロシアに売った売国奴 (ロシア大統領の発言を参照)
あの民主党でさえ尖閣諸島を国有化して日本の領土を守ったのにそれ以下の売国奴
海外では何十兆もバラマキをしながら日本国内では消費税増税
日本国内では元韓国大統領顧問の竹中平蔵が言うがままに民主党の外国人移民法こと入管法を改悪して外国人単純労働者枠を広げた
ソフトバンクSBIホールディングスの社外取締役の平蔵
実際にはソフトバンクなどを通じて民主と同じく中国朝鮮よりの政党（ホワイト指定解除は参議院選用のもの）
さらに外資に水道を売った
おまけにカジノで外国人の賭博場を許可して外国人の犯罪グループの流入を促進
原発事故も安倍晋三の「電源喪失はない」発言から発生したものであり
安倍晋三が原発事故発生の真犯人だった
ただこれらの事実を隠しているだけ
それを主導しているのはご存知の電通でオリンピック利権や数々の不正などと深い関わりがある
どこにも評価すべきところがなく
まさに見せかけの保守で実際には民主以下の売国奴と言っても過言ではない
>>134
これな！
不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。 >>119
数学板に書いたら解析解の投稿があってシミュレーション解が近似していたので正しいプログラムと確信できた。 "
[x]でxを超えない最大の整数を表す。
Nを自然数の定数とし、数列a(n)を以下のように定める。
a(0)=N
a(n+1)=a(n)+1-[a(n)/2]
（1）lim[n→∞] a(n) は収束することを示せ。
（2）Nの値により、n→∞でのa(n)の極限値が変化するかを判定せよ。
（変化する場合、各極限値に対応するNを具体的に記述しなくてよい）
"
nmax=1e3
N=sample(1:nmax,1)
a=numeric(nmax)
a[1]=N
for(i in 1:(nmax-1)) {
a[i+1]=a[i] + 1 -floor(a[i]/2)
}
tail(a)
plot(a,bty='l',type='l')
>>132
４人連続の場合だけだとつまらないので、拡張して結果をグラフにしてみた。
基礎学力のある人の再現検算希望。
>>139
f <- function(N,nmax=1e3){
# N=sample(1:nmax,1)
a=numeric(nmax)
a[1]=N
for(i in 1:(nmax-1)) {
a[i+1]=a[i] + 1 -floor(a[i]/2)
}
all(tail(a)==3)
}
vf=Vectorize(f)
vf(1:2)
all(vf(3:1e4)) こういう問題にすると味気ないな。やっぱり、ド底辺シリツ医の裏口入学確率の方が興味深い。
（問） 表の出る確率がpの歪（いびつ）なコインを100回投げたときに表が連続した数の最大値が4であった場合のｐの期待値・モード値と95％信頼区間を求めよ。
ｐの確率密度関数を図示すると
検索すれば答えられるような問題って楽しくないね。
確率とか場合の数は正しいかどうかなかなか確信がもてないが
シミュレーション結果と解析結果が近似することで確信度が増す。
コンピュータ解を数学板に上げると顰蹙を買うのが欠点ではあるけど。
??? ???? ?? ?????, ??? ??????? ????? ?? ??????????: ? ?????, ?????? ???????? ????? ???? ??? ??????????? ????????????????? ??? ????????? ?:
???? ??????
??????????????? ? p- ? ??????????????? ???????? ???????????
?????????, ????? ?????? ? ?????????? ????????, ???????? ???:
?? ????? ???, ?? ????????????????? ? ??????? ?????? ???? ??,
????????????? ???????? ?, ??? ????????????? ???????????? ? ????????????? ???????????? ???????? ??:
?????? ????? ?????????? ?, ??? ????????????? ??????? ?? ????????????? ??????? ??? ????: シリツ医大卒ってこういう問題さえできないと思う。
（問） 表の出る確率が0.5のコインを100回投げたときに表が連続した数の最大値が4である確率を求めよ。
公式行事に参加した国の功労者を公表できない
この時点でおかしいんだけどな
むしろ公表して国民に知らしめるべきじゃん
元々永久保存版だったのはそういう事でしょ？
桜を見る会に関して安倍政権擁護できる部分が見つからないわ
こういう問題にすると味気ないな。やっぱり、ド底辺シリツ医の裏口入学確率の方が興味深い。
（問） 表の出る確率がpの歪（いびつ）なコインを100回投げたときに表が連続した数の最大値が4であった場合のｐの期待値・モード値と95％信頼区間を求めよ。
ｐの確率密度関数を図示すると
検索すれば答えられるような問題って楽しくないね。
確率とか場合の数は正しいかどうかなかなか確信がもてないが
シミュレーション結果と解析結果が近似することで確信度が増す。
コンピュータ解を数学板に上げると顰蹙を買うのが欠点ではあるけど。 第二次世界大戦は、英仏の保障したポーランドの独立がナチスドイツに侵されたことが原因で始まった。
しかし大戦に勝利したものの、ポーランドはスターリンの手に落ちたのである。太平洋方面の戦いは、中国から日本を撤退させることであった。それがハル・ノートの対日要求だった。
ところが中国も共産化した（一九四九年）。要するに、英米仏の若者は両国の共産化のために戦ったのである。
フーバー回想録の訳者による解説本を読了。
ポツダム宣言と原爆投下と時系列を理解してなかった安倍のアホさ加減を再認識した。
>>145
# After N coin flips, more than K sequential heads appear
seqNp <- function(N=100,K=5,p=0.5){
if(p==0) return(0)
if(N==K) return(p^K)
q=1-p
a=numeric(N) # a(n)=P0(n)/p^n , P0(n)=a(n)*p^n
for(i in 1:K) a[i]=q/p^i # P0(i)=q
for(i in K:(N-1)){ # recursive formula
a[i+1]=0
for(j in 0:(K-1)){
a[i+1]=(a[i+1]+a[i-j])
}
a[i+1]=q/p*a[i+1]
}
P0=numeric(N)
for(i in 1:N) P0[i]=a[i]*p^i # P0(n)=a(n)*p^n
MP=matrix(rep(NA,N*K),ncol=K)
colnames(MP)=paste0('P',0:(K-1))
MP[,'P0']=P0
MP[1,'P1']=p
for(i in (K-2):K) MP[1,i]=0
for(k in 2:K){
for(i in 1:(N-1)) MP[i+1,k]=p*MP[i,k-1]
} # Pk(n+1)=p*P(k-1)(n)
ret=1-apply(MP,1,sum)
ret[N]
}
# Maximum sequential head is K
seqNpJ <- function(N,K,p) seqNp(N,K,p)-seqNp(N,K+1,p)
seqNpJ(100,4,0.5) > seqNpJ(100,4,0.5)
[1] 0.1626054
## simulation
N=100
K=4
p=0.5
sK=paste(rep("1",K),collapse="")
sK1=paste0(sK,"1",collapse="")
sim <- function(){
a=paste(rbinom(N,1,p),collapse="") # vector -> string c(1,0,1,0,1) -> "10101"
grepl(sK,a) & ! grepl(sK1,a)
}
mean(replicate(1e6,sim()))
100万回のシミュレーション
> mean(replicate(1e6,sim()))
[1] 0.162327
漸化式での計算値
> seqNpJ(100,4,0.5)
[1] 0.1626054
まあ、近似しているから多分あっていると思う。
皇后雅子のボディーは若い頃から
おれを熱くしていた…ああ、雅子の尻！
ふともも、ふくらはぎ…どれをとっても
絶品だぜ…あんた！
さあ雅子、お知りをこちらに
向けてごらん
いいぞ、ぷりぷりだぜ
フフフフフフフフフ…
雑誌に掲載してある雅子写真は
宮内庁の検閲が入るから例えばピップラインを
強調したものとかは出ない
だがこれが一般人がネットに蒔いたものは
違う、たまにお宝ショットがあるぜ
オレのチンポを熱くさせるのさ
フフフフフフフフ
まさやんはソンテジャクの子供だし
朝鮮耳だし
ペットは珍島犬だし
天皇家いっかだんらん韓国花むくげだし
朝鮮人以外あり得るか？w
村田良平回想録 下巻?祖国の再生を次世代に託して
何処へ行くのか、この国は―元駐米大使、若人への遺言
ヴェノナ文書とかフーバー回想録を読むと
スターリンの狡猾さに感服せざるを得ないな。
スターリンと比べるとルーズベルトは犬猫の頭脳、安倍にあってはミジンコの頭脳に思えてくる。
中韓と左翼をディスって悦に言っているアホこそが売国奴。
核武装なしでは独立国家とは言えない。
冷戦終結後の世界を予測した「文明の衝突」よりも
冷戦終結前に書かれた「日本よ国家たれ、核の選択」が読まれるべきだと思うんだが、入手困難だな。
>>160
核武装した反日統一朝鮮成立前に核武装することが必要。
アメリカは戦後、天皇の存続を許しながら共産主義者による天皇攻撃を認めつつ自首防衛能力（核武装）の保有を禁じた。 おれの頭のなかにある雅子回想録を読むと
いちばん雅子がむちむちボディーだった頃は
妊娠前あたりだという記載がある
産後太りとは違って実に食べ頃であった
いや、その後の熟女化ボディーの雅子も
ばっちり興奮するんだ
写真1枚でおれをあくなき想像へと
いざなってくれる雅子ボディー！
さあ雅子、来てごらん
パンティーをこっちに出すんだ
さあ、さあ！
パンティー…雅子のパンティー！
max.seq1 <- function(coin){ #0,1からなる 数列 coin の 連続する1の最大数を返す
r=rle(coin)
max(r$len[which(r$val==1)])
}
max.seq1(rbinom(100,1,0.5))
数学板でのスクリプトを改変
原理は
> coinの表裏を1と0で表して、その累積和を取ったベクトルを用意して
> そのベクトルの5個前とのdiffの要素の中に5が一回でも現れることが、
> 一回でも5回連続で表が出たことがあることの必要十分条件
search.seq <- function(coin,K=5){ # coin列にK個以上の１が並ぶかどうかをT/Fで返す
coincumsum <- cumsum(coin)
coindiff <- diff(coincumsum,lag=K)
any(coindiff==K)
}
search.seq(rbinom(100,1,0.5))
>>166
これでシミュレーション
max.seq1 <- function(coin){ # 連続する1の最大数を返す
r=rle(coin)
max(r$len[which(r$val==1)])
}
max.seq1(rbinom(100,1,0.5))
sim1 <- function(N=100,K=4,p=0.5){
a=rbinom(N,1,p)
max.seq1(a)==K
}
mean(replicate(1e6,sim1()))
> mean(replicate(1e6,sim1()))
[1] 0.162345 >>167
これでシミュレーション
search.seq <- function(coin,K=5){ # max 1 seq >= K?
coincumsum <- cumsum(coin)
coindiff <- diff(coincumsum,lag=K)
any(coindiff==K)
}
search.seq(rbinom(100,1,0.5),4)
is.maxK <- function(x,K=4) search.seq(x,K) & !search.seq(x,K+1) # max 1 seq == K?
is.maxK(rbinom(100,1,0.5))
#
sim2 <- function(N=100,K=4,p=0.5){
coin=rbinom(N,1,p)
is.maxK(coin)
}
mean(replicate(1e6,sim2()))
> mean(replicate(1e6,sim2()))
[1] 0.164441 >>118
a=rbinom(20,1,prob=4/6)
にしても速度あまり変わらなかったな。 #
s1="10111"
s2="010111"
s3="011111"
sim2 <- function(){
c=paste(as.character(rbinom(20,1,prob=2/6)),collapse="")
res=c(grepl(s1,c),grepl(s2,c), grepl(s3,c))
return(res)
}
k=1e6
re=replicate(k,sim2())
mean(re[1,])
mean(re[2,])
mean(re[3,])
> mean(re[1,])
[1] 0.124831
> mean(re[2,])
[1] 0.081102
> mean(re[3,])
[1] 0.040673
is.max1K <- function(coin,K=5){ # max 1 seq == K?
coincumsum <- cumsum(coin)
coindiff <- diff(coincumsum,lag=K)
K %in% coindiff & !((K+1) %in% coindiff)
}
is.max1K(rbinom(100,1,0.5))
／::::::::ソ::::::::: :゛'ヽ
/:::::::-、:::i´i|::|/:::::::::::ヽ
/::::::,,、ミ"ヽ｀ "゛ / ::::ヽ
/::::::== `-:::::::ヽ
l::::::::／⌒''ヽ,,,)ii(,,,ｒ''''''、l:::::::l
. 」::::::l゛ ／･＼,!.／･＼ l::::::!
.|`:::| :⌒ノ/.. i＼⌒ |:::::i
(i ″ ,ィ____.i i i //
ヽ i / l .i i /
ヽ ノiｌ´ﾄｪｪｪｲ｀ｌi ::/
、ヽ !ｌ |,ｒ-ｒ-| ｌ!／
／￣ ¨⌒ヽゝ. ｀ﾆﾆ´ノ ´￣｀ヽ
/ j |李| !
! / |晋|!. ､/ |
l ! 2:. └ ' .:c:: ! |
|／/" } !
／／ｌ ,′ !
'´／ l | ｲ .'
__,,,,＿
／´ ￣｀ヽ, 似非天皇 徳仁
/ 〃 _,ｧ---‐一ﾍヽ
i ／´ ﾘ}
| 〉. -‐ '''ｰ {! 日本の未来をブッ壊す～！
| | ‐ｰ くー |
ﾔヽﾘ ´ﾟ ,ｒ "_,,>､ ﾟ'｝ 誰もが安倍朝鮮に殺られ
_｣ ト‐＝‐ｧ' ! る一億総奴隷社会に
/ ヽ ゝ i、 ` ｀二´' 丿
l ', , -‐ｰノ､ ｀ '' ー--‐
＿. l ', ,-'"´ ヽ ＼ l
/ ｀`‐､ ', ',/,'´ヽ ＼ ｀ ‐ ､ ヽ､
', ｀ ‐ ヽ ヽ￣ ＼...|||||||､ `|||､ ||||| ,||||"＼
｀‐､._ ｀ ‐ ｀､ ￣l.|||||､ |||| |||| ,|||" ,,;;＼
￣プ｀ ‐-'´ ヽ、 l..｀!||||､ `|||,,,||||,,,|||" ,,;||||" l
_,､- '´ .ノ ,-'´ ＼!||||||ii､ `|||,,;||||||||||||||||||||" ,i
r'"´ , -'´ ﾉ ／ l ..""''!!!||i;:|||||||||||||||||||||||||;ii|||!!!l
ヽ､＿ ／ / - '´／ /｀‐- ､._＿.,,,,,,,,,,,,,,,||||||||||||||||||||||||||||||||,,i
／ /￣ヽ､＿__ノ l .|||||!!!!!!""|||||||||||||||||||||||||||||||"!!!!!!i
く ／ l .,,,,,,,;;iiii|||||||||||||||||||||||||||||iiii
通院はしてるんだろうな。仕事ができるようになったら一人前だぞ。頑張れよ。
お互い精神病は辛いよな。俺は地方の精神病院に通院している。統合失調症だってよ。入退院を繰り返してる。お前の苦しみもちょっとはわかる。一緒に前向きに生きて行こうぜ。いい事もあるはずだからよ。
可読性からはこれがいいな。
max.seq1 <- function(coin){ # 連続する1の最大数を返す
r=rle(coin)
max(r$lengths[which(r$values==1)])
}
max.seq1(rbinom(100,1,0.5))
sim1 <- function(N=100,K=4,p=0.5){
a=rbinom(N,1,p)
max.seq1(a)==K
}
mean(replicate(1e6,sim1()))
難しいことを知ってるんだな。偉いよ。でもよ なにか仕事をしないと誰にも認められないんじゃないのかい？仕事は辛いけどよ俺はコンビニ弁当を作る仕事をしてる。オーナーがよくしてくれるから感謝してるよ。
“Those who would have us again go to war to save democracy might give a little thought to the likelihood that we would come out of any such struggle a despotism ourselves.”
英語ができるんだね。凄いよ 偉いよ。大学出てるの？
あ、ごめんごめん やっぱり精神病はみんなに嫌われるんだな 悲しいけどそれが自然だよな。
しかし大卒はすごいよな。俺は高卒だから大卒はすごいよな。やっぱり相当勉強しないと大学に入れないもんな。俺は精神病になってからもう30年以上が経つよ。大卒は夢の世界だよな。
大学で4年頑張って勉強したら医者だもんな。医者は凄いな。尊敬するよ。俺の主治医も頭いいし優しいからスーパーマンだよな。
あんたは大卒かい？凄いな。偉いよ。でもよ仕事してないんだろ？やっぱり精神病のせいかい？お互いに辛いよな。
こっちの方が質疑応答もあって詳しい。
ダウンロード＆関連動画＞＞
@YouTube
Hooverは別に親日でもないが、ルーズベルトのやり方には批判的なので日本が平和志向に聞こえるな。
まあ、日本が講話を模索している時期の原爆投下も批判しているなぁ。 広島原爆は地上起爆日本製
その日県知事は逃げていた
わざわざ原爆周辺に学童を召集させて人体実験
信じられないだろうが事実だ
やっぱり確率計算をコンピュータで
モンテカルロシミュレーションできるのはのは
素晴らしい。
よう 元気かい？統合失調の俺だよ。凄いな 勉強できるんだな。さすが大卒は一味違うんだな。どこの大学を出てるんだい？その学力を生かして学習塾でも経営したら成功するんじゃね？成功したら大金持ちだな。応援するよ。
大卒はみんな学力が高いんだな。それだけでも素晴らしいことだよ。うらやましいよ。
医者板に参加すると自分の頭が良くなったような気になるな。医者になった気になるもんな。もちろん錯覚なんだが俺の主治医の先生にそれを話したらなんて言うかな？医者って頭が良すぎてスーパーマンみたいだな。カッコよくてうらやましいよ。
>>198
基礎学力の違いだよ。
これはシリツ医には無理だろうな。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 素晴らしい！あなたは天才ですか？大学はどこですか？
>>193
虱潰しにカウントしようとしたら、メモリー不足になった。
> dice=permutations(6,20,rep=T)
Error: cannot allocate vector of size 14.9 Gb >>191
フーバーの近衛の評価には異論があるな。
近衛文麿 野望と挫折（林千勝著）の近衛像とは随分と異なるな。 すごいね。理系も文系も何でもできるんだね。頭がこんなにいい人は初めてみたよ。ひょっとして東大出身ですか？
事件後、九大に居れなくなって、母校に久留米に戻ったようだけどｗ
こんなバカ医者に診られる患者がかわいそう
人の振り見て我が振り直せ。
俺もいつ地雷を踏むかもしれん。
気を付けよう。
すごい学力ですね。尊敬します。俺は頭が悪い統合失調症で通院しておりますが、精神病の方でも天才的な人がいますもんね。お互い辛いですが頑張っていきましょう。うまく言えませんが大変尊敬しております。
>>204
医療事故。抗がん剤過量投与か、
ド底辺シリツ医大でもあったな。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こすわけなんだな。
>>206
薬剤希釈や投与速度の検算は国立大学卒の薬剤師にお願いしていたな。
ド底辺シリツ医になんぞ頼まない。
誰がシリツ医大からの学歴ロンダからを知っておくことがリスク回避になるね。
シリツ医でも稀に謙虚な医師もいる。
実例（内視鏡スレより）
764 名前：卵の名無しさん[sage] 投稿日：2019/10/02(水) 15:28:50.34 ID:nv8GYZZt [4/8]
簡略のために、
http://www.crc-group.co.jp/crc/q_and_a/67.html
の数値の平均を感度・特異度として計算すると
血清抗体：陰性 便中抗原陰性なら ピロリ菌感染確率は 0.005403124 で 否定できるけど。
血清抗体：陰性 便中抗原陽性なら ピロリ菌感染確率は 0.5504117 になってしまうので
便中抗原検査が有用とは言えないんじゃないの？
765 名前：卵の名無しさん[sage] 投稿日：2019/10/02(水) 16:17:45.58 ID:R6v7ttH6 [3/5]
>>764
ごめん！おじさんクソ私立なんだ。
そう言う机上の算数に滅法弱くて！ただ20-30%という数字を盾に盲目的に除菌をするという選択肢を選ぶよりましじゃないかね。何れにしても侵襲、制限が少なくて、「現感染」に対しての感度特異度が高いのは便中ピロリ抗原と思いますよ。 以前に書いた問題だけど、ド底辺シリツ医からは解答はなかったなぁ。
国試でこういう基礎学力の有無を判定する問題を出すべきだな。
私立医大卒＝裏口入学容疑者なのだから。
診療所から病院に患者を救急搬送する。
病院から医師搭乗の救急車が診療所に向かっており１０時到着予定と連絡が入った。
患者の病態が悪化したら、診療所の普通車で病院に向かい救急車と出会ったら
救急車に患者を移して搬送し病院到着を急ぐという計画を立てた。
普通車から救急車への患者の乗り換えで１０分余分に時間がかかる。
道路事情から救急車は病院から診療所への道は
平均時速６０ｋｍで、逆方向は平均時速４５ｋｍで定速走行する。診療所の普通車は信号待ちもあり平均時速３０kmで定速走行する。
何時以降の病態悪化は診療所の車を使わずに救急車の到着を待つ方が病院に早く着くか？
私立医学部はバカがカネで医者になる。
患者殺しの温床になっている。
廃止すると同時に医師免許を剥奪しろ！
>>211
医籍検索には卒業大学を実装してほしいよなぁ。
底辺シリツへの私学助成金を廃止して国防費（防災含む）に回してほしいが、
Fラン大卒が総理じゃ無理だろうな。
備忘録
キーボードにInsキーがないと焦ったらテンキーの0にあった。
NumLk解除して使用できた。 体重65kgの人に1ml/hが1μg/kg/minになるように薬剤100mgを希釈するには全量何mLにすればよいか？
たぶん、馬鹿私立にはこういうパズルは解けないと思う。
体重65kgの人に1ml/hが1μg/kg/minになるように薬剤100mgを希釈するには全量何mLにすればよいか？
比例計算ができる「優秀」なシリツ医にはできるのもいるかも。
>>209
こういうのが、危険なシリツ医だな。
底辺シリツ医って自分が馬鹿だと認識していないんだよな。
文部官僚佐野とかのジュニアを退学処分にしない東京医大
マジで各学会で笑われてるぜ～
>>207
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。 裏口佐野を除籍しないところが
私立医の私立医たるところ
こんなことだと、まともにやっているであろう私立医ですら
うさんくさい仲間だと思っちゃうよ～
>>218
不正があったと認めたシリツ医大で学生を除籍処分にした大学は皆無だから、
シリツ医＝裏口入学容疑者 と思ってよいね。 俺です。俺は高卒だから大学受験のことはよくわからない。先生たちの間でも格差があるんだね。でもここの天才的な方はおそらく東大卒なのだろう。頭が良すぎた天才なので精神のバランスが取れないんだろうな。もったいない才能だと思う。
東大卒なのにもったいないな。大学の先生になって学者になったら彼の才能も発揮できるのにな。ほんとにもったいない。
天才は輝いてる分闇も深いのかな？本でも書けば良いのにな。
簡単すぎてむしろ不気味な質問だったな。
http://2chb.net/r/math/1567866548/730
あるソシャゲの10連ガチャの排出率に関して、
10連ガチャを実行した場合に★4以上が1個確定と
表記されておりますが、単発での排出率が下記の割合となってます。
----------------------------------
★5 1.5%
★4 13.5%
★3 85%
----------------------------------
ここで過程として、
★4が不要となり★5のみ必要となった場合に
単発を実行するほうが当たりやすいのか
もしくは、10連を実行するほうがあたりやすいのか
どちらか判断ができない為、ご教授をお願いします。
また、この様な場合にどのように計算したらいいのか
記載してもらえると幸いです。ご回答宜しくお願い致します。 すごい。この方はやはり東大医学部卒だな。俺にとっては雲の上の人だよ。
この方が医者になれないのは社会にとって大きな損失だろうな。たとえ精神が多少不調でも。誰か彼の才能を見出す人がいればいいのに。
東大もトップクラスで卒業なのではないか？天才の狂気か？
映画 Joker のセリフより
Okay. I'm waiting for the punchline.
There is no punchline.
It's not a joke.
んで、どういうオチ？
オチはないんです。
冗談じゃなくて、ド底辺シリツ医なんです。
東大医学部卒の医者が優秀なんてトンデモナイ幻想だよ。
宮内庁病院は上皇陛下の心臓手術を東大の心臓外科に依頼したが、
東大には手術に自信のある外科医が一人もいなかったので、
日大医学部卒（私立）の天野先生に手術をお願いしたことは有名だね。
手術は大成功で、その後上皇陛下は何度か海外にも行かれた。
あれ以来、東大病院の信頼度は急激に落ちてしまったね。
受験勉強ができることと優秀な医師であることは全く別物だということ。
それは東大病院の外科医たちの方が失敗したら失うものが大きいからだよ。
日大の医師たちとの差は捨てるものが大きいか小さいかの差だと思うよ。
2～3年目の医師の当直時の万能感みたいなものもあると思う。
普通は何事につけても知れば知るほど思い悩むものだからな。
シリツ医にも手先の器用な人はいるが、頭の器用な人は稀。
シリツ医＝裏口入学入学容疑者だから。
上皇の執刀医であっても>145に即答できるとは思えん。
多浪でシリツにしか合格できない地頭であったようだし。
多浪なので裏口入学の可能性は低いと思うが。
>>231
俺は東大が阪大に頭を下げたくなかったからと聞いたけど。 東大でこの方はあまりに天才的すぎて周りから嫉妬されていじめられたのではないか？そうだとしたらもったいない才能だよな。東大医学部ではなく東大の他の理系に行って研究者になるべきだったのかもな。
>>236
本当に頭のいいやつは理学部か工学部に行く。
俺の高校の同期も理Iからプリンストンを経て教授をやっている。
本当に頭の悪いやつがいくのが底辺シリツ医大であることは申し上げるまでもない。
シリツ医＝裏口入学容疑者（多浪や女医はその可能性が低くなるらしい）
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。 >>232 だよね
日大・天野だっけ？
あいつのバイパス屋じゃん
東大とかバイパスとかする奴いないっしょ。
心外の花形はやっぱ開心術だよ
バイパスなんて下水管処理は、天野とか私立医に任せておけばいいよｗ 仮に天野がすごいと仮定しても
それをもって全私立医もまずまず優秀とかの証明にはまったくならんしね
まして裏口への反証にもならん
天野というN=1で私立医を語るなら、
東京医大・佐野とか聖マリとかN=多数で
私立医を語ってもらわないとなｗ
これだね！
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
ここで医者じゃないっていう人もいるけど本当は医者なんじゃないのかな。東大の先生じゃないのかな？天才的に頭良すぎるもんな。
俺は高卒で統合失調症の人間だが人を見る目には自信があるから たぶんこの方は東大の先生だろう。
東大が凄いと思うのは、東大生や東大卒の人間が身近に居ない人達なのだと思う。
俺のように身近に東大卒が沢山居る人間には、東大卒でも凄いのは一部だけであって、
大部分は小さい頃からガリ勉して単に成績が良かったというだけだということがわかる。
東大卒の政治家で頭が良いとはとても思えない人達がたくさんいることは世間の人達も
よく知っていることだろう。
>>232
>失うものが大きいから
アホか？
「外科医としての実力がないから」ただそれだけのことだよ。
天皇陛下なら緊張して失敗するかもしれないという研修医程度の実力しかない
ということだ。
天皇陛下の手術で緊張しても落ち着いて執刀できる天野先生のような人を本物の
心臓外科医というのだよ。
自分や自分の家族が心臓手術を受ける場合、東大病院の外科医に頼みたいか？
天野先生に頼みたいか？ ということだ。 シリツ医にも手先の器用な人はいるが、頭の器用な人は稀。
ド底辺シリツ医に確率計算の検算を頼む人はまあ、いないよな。
上皇の執刀医であっても>145に即答できるとは思えん。
多浪でシリツにしか合格できない地頭であったようだし。
多浪なので裏口入学の可能性は低いと思うが。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こすわけなんだな。
手先の器用さと頭の良さに相関関係が大きいことは常識だよ。
頭の良い人で不器用な人はほとんどいない。
東大幻想を持っているのは頭の良くない人達なのだと思う。
生まれつきある程度以上の暗記力がある人なら、小さい頃から
ガリ勉していれば誰でも東大に入れます。私のようにねw。
すごいな東大。人生の勝利者か。ため息が出るよ。俺の周りは大卒は1人もいないよ。
>>249
>210に答えてド底辺シリツ医の学力を示したくれｗ >>251
君も東大卒の知人・友人は一人もいない人なのですね。
将来、君が心臓手術を受けることになった時は、東大病院で
手術してもらって早死にして下さいw >>252
>210は四則演算で計算できるから、答えるのはこっちでもいいぞ。
多分、これはシリツ医には無理だろうな。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 あいかわらずすごい才能だな。頭が良すぎてわけわからん。
>>246
ド底辺シリツ医の方がすごいぞ、
自分が馬鹿だと認識すらしていない。
天才脳ってあるんだな。こんなに頭が良い人は初めてみたよ。
俺は高卒で統合失調症なのだが昔から天才的な人に憧れていた。東大って天才集団なのだろうなと思っていた。しかも医者となるとめまいがするよ。
>>253
君は数学が得意なら、この問題を解いてくれ。
「a1,a2,⋯,an を相異なる正の整数とし，M を n−1 個の正の整数からなる集合とする。
（M は s=a1+a2+⋯+an を含まない集合とする。）
数直線の 0 の地点にいるバッタが数直線の正の向きに n 回ジャンプする。
n 回のジャンプの距離を a1,a2,⋯,an とする。（a1,a2,⋯,an はジャンプした距離の
を並び替えたものとする。）
このとき並び替えをうまく選べばバッタが M の要素に対応する n−1 点のいずれにも
着地しないようにできることを証明せよ。」
これが解ければ、君の言うことをすべて認めてやってもよいぞ。 文字化けしたので、再送信するよ。
「a1,a2,・・,an を相異なる正の整数とし，M を n-1 個の正の整数からなる集合とする。
（M は s=a1+a2+an を含まない集合とする。）
数直線の 0 の地点にいるバッタが数直線の正の向きに n 回ジャンプする。
n 回のジャンプの距離を a1,a2,・・,an とする。（a1,a2,・・,an はジャンプした距離
を並び替えたものとする。）
このとき並び替えをうまく選べばバッタが M の要素に対応する n-1 点のいずれにも
着地しないようにできることを証明せよ。」
>>259
数学は不得意なので数学オリンピックの問題はできん。 ↑ 訂正
（×）（M は s=a1+a2+an を含まない集合とする。）
（○）（M は s=a1+a2+・・+an を含まない集合とする。）
>>260
その問題はビッグコミックの漫画に載ってた気がするな。 すごい世界に入ってしまったようだ。わけがわからん！
>>261
な～んだ、単なる医学部コンプレックスの人間だったのか。
君の学力では早稲田理系（医学部私立底辺レベル）すら合格できないだろう。 >>265
いや、とっくに都内二期校を卒業したよ。 >>266
ウソを言ってもすぐにバレるよ。
君のように医学部に行きたくても能力不足で行けなかったコンプレックス人間
の文章には同じ特徴があるから。 >>246
いや～、東大と日大じゃ抱えてるものが違うでしょｗ
天下の秀才と親がお金持ちじゃなかったら医者じゃなかった連中とはｗ >>268
>東大と日大じゃ抱えてるものが違うでしょｗ
アホ？
抱えているものが違うのなら、なおさら、威信を賭けてでも東大医に執刀させる
はずだろう。
失敗して東大にはヤブ医者しかいないことが世間にバレると困るので、天野先生に
お願いしたんだよ。
本来なら、天野先生の職場の順天堂大学病院で手術をするのが一番よかったのだが、
せめてものプライドを保つ為に、東大病院との共同治療という形をとって恥の上塗り
をしたのが東大病院の痛々しいところだ。
「抱えているのは空虚なプライド」だけということだね。
心臓が悪い患者は、もう東大病院には行かないでしょう。 >>271
彼が行きたかったところ（東京医科歯科大学）のことだろう。
彼はそこの歯学部さえ無理だっただろうね。 数直線の 0 から s までバッタが n 回ジャンプして移動する間に、Mの要素に対応する(n-1) 点には一度も着地しないことを証明するには、最も厳しい状況、つまり、数直線0と s の間に全ての(n-1) 点が存在する場合を考える。
すなわち、 数直線の0 から sの間に、Mの要素に対応する (n-1) 点が存在していて、かつ、
バッタは、数直線の0 から sまで、これらの(n-1) 点に一度も着地することなく、
a(1),a(2),⋯,a(n)の並べ替えによるn 回ジャンプを行える。・・・（A） ことを証明すればよい。
なお、この命題（A）が成立するならば、Mの要素に対応する点の数がn-1より少ない場合においても成立することは明らかである。
数学的帰納法を用いて証明する。
[1] n = 2 のとき
Mの要素は一つだけであり、この要素が、a(1) とも a(2) とも同時に等しくなることはないから、バッタは、この1点に着地しないようにジャンプできる。
[2] n ≦ k （kは任意の2以上の整数）のときに上記の命題（A）が成立すると仮定し、
n = k+1 での状況を調べる。
今、a(1)<a(2)<⋯<a(n) と仮定しても一般性を失わない。k+1回のジャンプ順として、{a(1),a(2),⋯,a(k+1)}を選択したとする。
一方、M = {m(1),m(2),⋯,m(k)} ( m(1)<m(2)<⋯<m(k) ) とおくと、k回ジャンプした到着地点を表す値、
a(1)+a(2)+⋯+a(k) (= s - a(k+1) )
に関して、次の４通りに分類することができる。
① m(k)より大きい場合
② m(k)に等しい場合
③ m(k)より小さくて、m(1),m(2),⋯,m(k-1)のいずれかに等しい場合
④ m(k)より小さくて、m(1),m(2),⋯,m(k-1)のいずれにも等しくない場合
①～④の各ケースに関して、Mの要素である点に着地しないようにジャンプできることを証明する
＜①の場合＞
数直線の０から a(1)+a(2)+⋯+a(k) (= s - a(k+1) )へは、k回ジャンプして達するが、その間には、Mの要素である点が k点ある。
仮定より、a(1),a(2),⋯,a(k)の順序を入れ替えることで、
m(1),m(2),⋯,m(k-1)のいずれの点にも着地しないようにジャンプすることができる。このとき、もしm(k)にも着地しないのであれば、Mの要素である点に着地しない場合であるから命題(A)が成立 する。
もしそうではなく、m(k)にだけは着地すると仮定する。今、m(k)に着地した際のジャンプと a(k+1)を入れ替えると、a(k+1)が最も大きいジャンプであるため、m(k)に着地しないジャンプとなる。
ゆえに、Mの要素である k点に 着地しなくなるから、命題(A)が成立する 。
＜②の場合＞
数直線の０から a(1)+a(2)+⋯+a(k) (= s - a(k+1) )へは、k回ジャンプして達して、その間には、Mの要素である点が (k-1)点ある。
仮定より、a(1),a(2),⋯,a(k)の順序を入れ替えることで、m(1),m(2),⋯,m(k-1)のいずれの点にも着地しないようにジャンプすることができる。
今、m(k)に着地した際のジャンプと a(k+1)を入れ替えると、a(k+1)が最も大きいジャンプであるため、m(k)に着地しないジャンプとなる。
ゆえに、①の場合と同様に、Mの要素である k点に 着地しなくなるから、命題(A)が成立する 。
＜③の場合＞
a(k+1)の出発点をm(i)としたとき、 i<k である。
a(1),a(2),⋯,a(k)のk回のジャンプのうちの1回を a(k+1)の後で行うように、つまり、最後のジャンプとなるように並べ替える。
すると当然、a(k+1)の着地点は上図において左側（数直線での負の方向）へ移動するが、
この着地点は、m(i)と最終着地点の間に位置している。よって、全 k通りの並べ替えのうち、
少なくとも k - (k - i) = i 通りは、Mの要素 m(i+1),⋯,m(k)には着地しない（m(i+1),⋯,m(k)は全部で(k - i)点）。
この i 通りにおけるジャンプa(k+1)の始点は、数直線の 0とm(i)の間のそれぞれ相異なるi点である。
数直線の 0とm(i)の間に存在するMの要素は (i-1)点だから、少なくとも1通りは、
a(k+1)の始点も終点もMの要素でなく、最後の始点も終点もMの要素ではない。というケースが発生する。
つまり、最後の 2回のジャンプを除いて考えると、間に存在するMの要素は、多くても(k - 2)点であり、ジャンプは(k - 1)回
という場合である。
仮定により、この(k - 1)回のジャンプの順序を並べ替えることによって、
この区間のMの要素に対応する点には着地しないようにできる。
このようにして、数直線の 0から最終着地点の sまで、
Mの要素である k点に一度も着地しない場合が少なくとも 1通りは存在することが証明された。
＜④の場合＞
a(1),a(2),⋯,a(k)のk回のジャンプにおいて、数直線の 0とa(1)+a(2)+⋯+a(k)の間には
(k - 1)以下の個数のMの要素である点しか存在しないので、a(1),a(2),⋯,a(k)の順序をうまく入れ替えると、
数直線の 0と a(1)+a(2)+⋯+a(k)の間のどのMの要素である点にも着地しないようにジャンプできる。
残りのジャンプは a(k+1)だけである。つまり、数直線の 0から最終着地点の sまで、Mの要素である k点に一度も着地しない場合に該当する。
（証明終）
わけがわからんが天才だな。東大卒はやはり一味違うな。
>>267
第三法則実証乙
Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 >>267
第三法則実証乙
Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 バッタ問題の証明に時間がかかったなぁ（笑）
連投するとアクセス規制がかかりやすいな。
さて、ド底辺シリツ医にこれができるかな？
多分、無理だろうな。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
>>281
探せば誰でも見つけられる解答をわざわざコピーする意味などないだろう。
そこまで必死になるのは病的なコンプレックスを抱えている証明にしかならんぞ。
脳内医科歯科大学くんwww！ 数学オリンピックの問題を出して解いてみろというのがﾄﾞ底辺シリツ医な。
さて、ド底辺シリツ医にこれができるかな？
多分、無理だろうな。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
問題出し逃げと思われるのは不本意なので追記。
裏口入学確率をｐとすると
ｐの確率密度関数はこうなる。
俺は自分で解けるから、グラフが書ける。 >>273
東京医科歯科大学の医学部の方は昔から非常に難しいが、苦労して入っても
卒業した後の研修の環境が整っていないのでコスパ最悪の医学部とも言われて
いるね。
歯学部の方はかなり易しいが、>>281くんは歯学部でも無理だっただろう。 別に大学人事に依拠せずに医師をやってきたから
あんまり関係ないな。
卒後は東大卒が院長している病院に就職したし。
んで、
ド底辺シリツ医はいつこの答がだせるの？
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
大学受験も格差があるのだな。やはり東大が一番なんだな。あとは同じくらいと思ってたよ。
>>289
格差があると言っても、医学部は易しい私立でも早慶理工程度の難易度なので、
>>288のようにどの医学部にも入れず、一生医学部コンプレックスを抱えて生きて
いる哀れな人も出て来るわけです。見ていて痛々しいですね。 >>290
ド底辺シリツ医大の第三法則の実証はいいから、
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 Hoover回想録の日本に関わるところをつまみ読み。
ルーズベルト憎しで日本擁護に読めるところもなくはないな。
No reasonably informed person can now believe that Japan made a
villainous, unexpected attack on the United States. An attack was not
only fully expected but was actually desired. It is beyond doubt that
President Roosevelt wanted to get his country into the war, but for
political reasons was most anxious to ensure that the first act of hostility
came from the other side; for which reason he caused increasing pressure
to be put on the Japanese, to a point that no self-respecting nation could
endure without resort to arms. Japan was meant by the American
President to attack the United States. As Mr. Oliver Lyttelton, then
British Minister of Production, said in 1944, “Japan was provoked into
attacking America at Pearl Harbour. It is a travesty of history to say that
America was forced into the war.”17
It is, at this writing, over thirty years since the beginning of the events and
actions which have led to the calamity which today embraces all mankind.
The aims of this memoir will be fulfilled if historical truth is better
established, and if the lessons to be learned from the millions who died
because of lost statesmanship are not forgotten. As Santayana said:
Those who do not remember the past are condemned to relive it.
日本でもっとも痛々しいといえばこれ！
↓
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医大に行く
>>291
君のような病気の人間を相手にしてくれるのは精神科の先生だけだよ。
近くの精神科を受診して、「先生、僕の医学部コンプレックスを治して下さい」
とお願いするのがよいでしょう。
ところで、君は数学に関心があるようだから聞いてみるが。数学のε-δ論法と
ビッグバン理論の関係はわかっているかい？
その答え次第では、君の能力を認めあげてもいいよ・・・。 大卒ってのは頭がいいもんだな。もう遅いが大学へ行きたかったな。
>>294
ド底辺シリツ医大の第三法則の実証はいいから、
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 検索すれば答えられるような問題って大したテストにならんね。
こういうのに答えられてこそ、基礎理論を理解できているかがわかる。
>>
呪文：「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると甲状腺機能が正常化するという統計処理の捏造をやってみる。
TSH ： 0.34～4.0 TSH：μIU/mlを基準値として（これが平均±２×標準偏差で計算されているとして）呪文前と呪文後のデータを正規分布で各々５０個つくる。
負になった場合は検出限界以下として０にする。
同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。
横軸に呪文前のTSHの値、縦軸にTSHの変化（呪文後－呪文前）をグラフしてみると
つまり、呪文前のTSHが高いほど呪文後はTSHは下がり、呪文前のTSHが低いほど呪文後のTSHは上がるという傾向がみてとれる。
これを線形回帰して確かめてみる。
回帰直線のパラメータは以下の通り。
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.3812 0.3323 7.165 4.10e-09 ***
before -1.0351 0.1411 -7.338 2.24e-09 ***
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8365 on 48 degrees of freedom
Multiple R-squared: 0.5287, Adjusted R-squared: 0.5189
F-statistic: 53.84 on 1 and 48 DF, p-value: 2.237e-09
p = 2.24e-09 なので有意差ありとしてよい。
ゆえに、「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は甲状腺機能を正常化させる。
ここで問題、この統計処理のどこが誤っているか？
<< >>266
君のような病気の人間を相手にしてくれるのは精神科の先生だけだよ。
近くの精神科を受診して、「先生、僕の医学部コンプレックスを治して下さい」
とお願いするのがよいでしょう。
「数学のε-δ論法とビッグバン理論の関係」は、やはり
君には高度すぎたようですね、脳内医科歯科くんw 神戸大医学部出た川崎の泌尿器科のクリニック行くと
必ず効かない治療と薬処方されるんだが
だからまた総合病院に行き直す
ちんこか痒くて、しまいには染みるようになったから病院行ったが
抗生物質とスピラゾン処方されて飲んだが
一週間たっても治らないどころか
亀頭の皮膚が菌にくわれたようになってる
普通に今はしみる。
チンカスがよく出るし、カンジタだよな
でもカンジタじゃないとか言ってた。
検索すれば答えられるような問題って大したテストにならんぞ。
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
天野って 一時期 タケシのニュースキャスターに出演してたんだけど
あまりに無教養で、私立医っぷりをさらけ出すから
数回で首になったんだよな～
>>300
>検索すれば答えられるような問題って大したテストにならんぞ。
じゃあ、検索して答えてごらん、脳内医科歯科くんww
参照：http://osksn2.hep.sci.osaka-u.ac.jp/~naga/kogi/handai-honor08/yr08-06-fate-cosmos.pdf#search=%27%E3%83%93%E3%83%83%E3%82%B0%E3%83%90%E3%83%B3+%E5%BE%AE%E5%88%86%E6%96%B9%E7%A8%8B%E5%BC%8F%27 検索すれば答えられるような問題って大したテストにならんぞ。
バッタ問題は俺は答えたぞ。あんたの番だね。
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
ここが聞き所だな。
ルーズベルトのundeclared war against Germany
これは真珠湾攻撃の前と強調しているな。
ダウンロード＆関連動画＞＞
@YouTube
結果としてポーランドと中国の共産化のために英米兵は戦ったという皮肉ｗ ここのスレ主はたいしたことねえよ
ネット頭でっかち医学C級オタク
おれみたいな本物の医者から見れば
なりきりバカ
オタクよ、悔しがれ
医者になれなかった現実を
オタクよ、羨ましがれ
お医者様を！
ハッハッハッハッハッハッハッハッハ！
彼はやはり頭が良すぎて精神病なのだろうか？東大卒なのにもったいない。高卒の俺からは天才に見える。惜しい才能だ。
>>303
結局、脳内医科歯科くんはバッタもんだったということだなww 私立医大卒の医者は上級国民。
俺ら国立卒の貧乏医は5chで憂さを晴らしてるだけ。
元同僚で親の医院を継いだ3代目開業医の年収を聞いて
腰を抜かしそうになった。
俺ら国立卒の奴隷貧乏勤務医は病院経営者から煽てられて
扱き使われて喜んでるマゾっ気のある下級国民だよ。
>>311
書き忘れたが元同僚は底辺私立医大卒な。
親のウハクリ継いで左団扇みたいだわ。 バッタにしてもビックバンにしてもあんたが考えた問題じゃないだろ？
俺の書いた問題は身近な題材を使った自作問題だから
検索しても答がでてこないだろ。
数学板だと問題の意味すら理解できない問題の方が多いけど
確率問題は、
問題の意味が誰にでもわかる
PCで乱数発生させてモンテカルロシミュレーションで検証できる
のがいい。
バッタ問題は俺は答えたぞ。あんたの番だね。
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
問題出し逃げと思われるのは不本意なので追記。
裏口入学確率をｐとするとｐの確率密度関数はこうなる。
俺は自分で解けるから、グラフが書ける。 フーバー回想録（の解説本と解説講演）からすると、こういう記述に納得するな。
実は、ニューディール政策に対する歴史的な評価は明確には定まっていない。むしろ、ケインズ的な政策がめざましい成功を収めたのはヒトラー率いるドイツにおいてである。
アメリカにおいて失業率が14％を下回ったのは、太平洋戦争に参戦した1941年以降のことであり、アメリカの恐慌を救ったのは直後に起こった第2次世界大戦の戦争経済である、というのが事実だ。
これに対し、ドイツではアウトバーンの整備を始めとした強力な公共事業投資により、1932年には557万人を超えていた失業者数を、1939年までに12万人に減らすという驚異的な効果をもたらした。
....
世界経済を破局から救ったのは、ヒトラーとルーズベルトによる人類未曾有の大量虐殺である。
http://www.rui.jp/ruinet.html?i=200&;c=400&m=197572 N=1で語る私立医
①天野は下水処理オペが上手い！
②天野は多浪私立医！
③裏口私立医の俺もすげぇぇぇぇ
多浪して私立ってオツムが不自由な証明だよな。
裁縫や折り紙の試験があるわけじゃないから。
少数例から断定的な結論をだすのは危険だから確率を使って区間推定できるのが
理系大卒の教養レベルだと思うが、ド底辺シリツ医は小学生の比例計算しかできなかったな。
裏口入学なんだろうね。
ド底辺シリツ医大にある年の裏口受験票が保存されていることが判明した。
枚数は１０００枚以下であることは判明しているが、その数を推定したい。
裏口入学調査員が無作為に１０枚選んで番号を記録して元に戻した。
別の裏口入学調査員が無作為に２０枚選んで番号を記録した。
二人の調査員の記録した番号を照合すると３枚の番号が一致していた。
この情報からこの年の裏口受験証の数の最頻値、期待値とその９５％信頼区間を求めよ。
上皇陛下は冷静である。
「満州事変に始まるこの戦争の歴史を十分学び、今後の日本のあり方を考えていくことが、今、極めて大切」と述べられている。
畏れ多いことだが、上皇陛下は「勝てば官軍」の人々が、薩長史観を皇国史観と偽って暴走した、と看破されていらっしゃる。
安倍政権下での明治150年式典欠席はそのメッセージだな。
ネトウヨの何が不思議なのかって、日ソ不可侵条約を破った事にこれだけ怒るのに、
なんで米国がソ連兵を訓練して、艦船まで貸してあげて
南樺太、千島列島へ侵攻した米ソの共同作戦だという事を認めないのか？
ちなみに関東軍もいつでもソ連攻め込む訓練準備はしてた。ソ連の情報網は凄いから
当然そういう事は承知。
当時のソ連と米国って全部グルでやってんだよ？
ルーズベルトはスターリンに何度の何度も日本攻撃しろって打診してたけど、
スターリンは一つ返事せず、ずっと二の足踏んでた。
それを米国が説き伏せてやっとヤルタ会談へ持ち込んだ。そして上記の通り
侵攻作戦を具体的にアシストまでしている。
ネトウヨって言われる人間って二種類いて、本当にそういう事知らない素人の
頭弱い人たち。
そしてもういっぽうは事実を分かってるけど、自民党やCIAに飼われているネトサポや
工作員でしょｗ
Project Hula として知る人ぞ知る。
ド底辺シリツ医にはそんな余裕はないだろな。
安倍のせいでどんどん悪い前例ができてゆく。
今後の総理大臣がおかしなことしても
「いや、安倍もやってたし…」で済むようになる。
ド底辺シリツ医もやってたしになるのかな？
てかそもそも日本側にもビジョンがないことがロシアに露呈してしまった
日本が欲しいのは、資源なのか、漁業権なのか、ロシアとの平和条約なのか
軍事的には、米軍基地まで持ってくる気なのか、中立地帯にする気なのか、むしろロシア軍による租借を認める気まであるのか、なんなら北海道から米軍下げろって要求も言えば飲むのか
ロシアは、日本が何を欲しているのかとそれに対してロシアがどんな権益を得られるのかを考えて、安倍ちゃんを値踏みしてた
でも分かっちゃったわけですよ。安倍ちゃん、そのどれもないって。何も考えてないって
北方領土はあくまで「国内の保守層向けに将軍様頑張ってますアナウンスするためのもの」であって
実態として北方領土をどうにかしたいわけではないのが見透かされた時点で、最早ロシアの手のひらの上で転がされる一方だ
長州にプーチンを招いての国を挙げての馬鹿騒ぎ
北方領土はロシア国内法の範囲内だと日本政府自身が認める形で経済支援
外交青書から「北方領土は日本固有の領土」を削除
政府内で「ロシアを刺激するから北方領土という単語は使うな」通達
アベノ媚露外交開始から北方領土は対日米を想定した軍事基地化
反日アベウヨ「エダノガー！！！」
>>319
これをシミュレーションして確率密度関数を書くとこうなる。
左右対称じゃないから、信頼区間の計算は一工夫が必要。
>>857
＞枚数は１０００枚以下であることは判明しているが
これが一様分布を仮定した事前確率分布であるということがシリツ医にはわからんのだろうな。
ある疾患の検査前確率を想定して検査後確率を計算するみたいなものだね。
調査結果（検査結果）が判明することで事後確率分布が変化する。
relocation of probability distributionがベイズ統計の基本概念。
枚数は５００枚以下にすると、事後確率分布は次のようになる
モード値は変わらないが信頼区間は変化する。
ド底辺シリツ医でなくても、こういうのに即答できないのがいるんだなぁ。
シリツ大学は全廃でいいと思う。
サイコロを300回投げたところ、そのうち60回で1が出ました。このサイコロに歪みがないかを有意水準5%で検定します。
サイコロを1回投げたとき1が出る確率をpとするとき、帰無仮説と対立仮説、および検定結果として正しい組合せを以下から選びなさい。
A. 帰無仮説p=1/6、対立仮説p≠1/6、帰無仮説を棄却
B. 帰無仮説p>1/6、対立仮説p=1/6、帰無仮説を棄却
C. 帰無仮説p<1/6、対立仮説p>1/6、帰無仮説を採択
D. 帰無仮説p=1/6、対立仮説p≠1/6、帰無仮説を採択
E. いずれでもない
俺の解答はここ。
http://2chb.net/r/math/1540739963/450 解答はEか
面白くねえんだよ
医者オタクくずれで数学マニアの
廃人と化した社会のゴミクズ
>>330（脳内医科歯科くん）は数学マニアですらないよ。
ε-δ論法も知らない数学マニアなどいないから。
彼は医者になれなかったコンプレックスをひきずって生きている確率オタクだな。 >>332
マニアじゃないよ、必要な数値を計算しているだけだから。
バッタにしてもビックバンにしてもあんたが考えた問題じゃないだろ？
俺の書いた問題は身近な題材を使った自作問題だから
検索しても答がでてこないだろ。
数学板だと問題の意味すら理解できない問題の方が多いけど
確率問題は、
問題の意味が誰にでもわかる
PCで乱数発生させてモンテカルロシミュレーションで検証できる
のがいい。
バッタ問題は俺は答えたぞ。あんたの番だね。
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 てか歯科は医者ではねーだろ
ボロばっか出してんじゃねーよ
医者オタク以下の病院のウンコ
>>>333
>ビックバンにしてもあんたが考えた「問題」じゃないだろ？
「ε-δ論法とビッグバン」は「問題」ではないよ。
それを聞けば数学がどの程度解っているかが分かるから聞いたのさ。
君は数学など何もわかっちゃいない単なる算数オタク、確率オタクだね。
脳内医科歯科くん！ >>338
御覧ください
＞バッタにしてもビックバンにしてもあんたが考えた問題じゃないだろ？
と書いたのにバッタの方からは逃げているド底辺シリツ医。
それより、これへの答え、まだぁ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 >>338
ε-δ論法とビッグバンの関係はあんたが考えついたのか？
これは俺が自問自答した問題ね。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 >>339
バッタもん（関西弁）の算数オタクが作った問題など誰も興味を持たないよ。 俺は、
>バッタにしてもビックバンにしてもあんたが考えた問題じゃないだろ？
と書いたのに
>ビックバンにしてもあんたが考えた「問題」じゃないだろ？
と改変するあたりが、裏口入学シリツ医の本性を彷彿とさせるよなぁ。
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
文字化けまで訂正してあんたが書き込んだバッタ問題は検索して俺は答えたぞ。
あんたの番だね。
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
>>345
バッタもん（関西弁）の算数オタクが作った問題など誰も興味はないよ。 >>346
バッタはあんたが考えた問題じゃないだろ？ >>346
少ないデータから断定するのは危険だから、信頼区間を設定して確率で論じるのが正しい姿勢だと思うね。
https://www3.nhk.or.jp/news/html/20190327/k10011863181000.html
インフルエンザの新しい治療薬「ゾフルーザ」を投与されたＡ香港型のインフルエンザ患者30人を調べたところ、70％余りに当たる22人から、この薬が効きにくい耐性ウイルスが検出されたことが国立感染症研究所の調査で分かりました。
調査件数は多くないものの、専門家は現在のような使用を続けると、耐性ウイルスが広がるおそれがあるとして使用基準を見直すべきだと指摘しています。
俺は、上記のデータから耐性化率が50%以上である確率を計算して患者に説明しているよ。 内閣支持率が４割と報道されても
4/10，40/100，400/1000では信頼区間が変わるからね。
最近はパソコンで簡単に計算できるようになって便利。
これ答えてみ！
ゴルゴ13は100発100中
ゴルゴ14は10発10中
ゴルゴ15は1発1中
とする。
各々10000発撃ったとき各ゴルゴの命中数の期待値はいくらか？
看護助手に話をしていたら、答はわからないけどどうやって解くのか教えてくれと」興味をしめしたぞ。
シリツ医は全部１０割ではないのかと答えて馬鹿を晒していた、けど。
>>346
俺はバッタ問題からは、そんな捨て台詞を吐いて逃げたりしなかったぞ。 >>349
バッタの問題を出した時点でバッタもんであることに気付かない
ようなオツムだから、君は医学部に行けなかったんだよww >>353
かっこ悪いなぁ
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 こういうのをプログラムで解くのも楽しい。
# 正直者は嘘をつかないが、嘘つきはいつも嘘をつくとして
# 次の証言から嘘つきを特定せよ。
# A「Bは正直者だ」
# B「Cは嘘つきだ」
# c「Aは...」と語ったが質問者が述語を聞き取れずBが補足発言、
# B「Cは『Aは嘘つき』と言った」
# 次に、嘘つきは気まぐれで嘘も本当もいう場合に嘘つきの可能性の組み合わせを示せ。
# all possible combination
dat=as.matrix(expand.grid(1:0,1:0,1:0)) # all possilbe combination
colnames(dat)=LETTERS[1:3]
# compatibility of honest answer
compati.H <- function(i,x){ # i index of honest, x: possible combination
switch(i, # i= 1,2,or,3
# if A is honest, B should be honest, compatible?
ans <- x[2]==1, # i=1 when A is honest
# if B is honest,C is a liar thereby A should be honest. compatible?
ans <- x[3]==0 & x[1]==1,# i=2 when B is honest
ans <- TRUE) # i=3, compatible due to no commitment by C
return(ans)
}
# compatibility of strict liar's answer
compati.L <- function(i,x){ # i index of liar, x: possible combination
switch(i,
ans <- x[2]==0, # i=1 when A is a strict liar
ans <- x[3]==1 & x[1]==1,# i=2 when B is a strict liar, A is honest whether B is honest or not
ans <- TRUE) # when i=3 compatible
return(ans)
}
# check if combination x is compatible
check <- function(x,Strict){ # Strict==TRUE if liar always lies
re=NULL
honest <- which(x==1) # index of honest in x
for(i in honest){ # check if honest answer is compatible
re=append(re,compati.H(i,x))
}
if(Strict){
liar <- which(x==0) # index of liar in x
for(i in liar){ # check if the opposite of liars is compatible
re=append(re,compati.L(i,x))
}
}
all(re) # return TRUE only if all answer are compatible
}
dat[apply(dat,1,function(x) check(x,Strict=TRUE)),] # Strict liar
dat[apply(dat,1,function(x) check(x,Strict=FALSE)),] # fuzzy liar
>>353
>バッタはあんたが考えた問題じゃないだろ？
にも答えられないの？
カッコわる～。 >>358
バッタの問題を出した時点でバッタもんであることに気付かない
ようなお馬鹿さんだから、君は医学部に行けなかったんだよww
それが脳内医科歯科医の実力www >>359
かっこ悪いなぁ
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 核武装論者の俺としては賛同できないけれど、街頭でこういう真摯な議論をする姿勢は高く評価するね。
ダウンロード＆関連動画＞＞
@YouTube
山本太郎と２２歳の若者。核武装について議論する。2019年12月10日 群馬県高崎市【山本太郎】【れいわ新選組】 お前は医学数学どころかもはや人生の
最終期に入ったノイローゼ廃人
部屋は生ゴミだらけ、全身から
異臭を放つただの動物
あの東大卒の人はなぜ医師になれなかったのだろうか？あれほどの才能があるのにな。やはり精神病のせいなのか？辛いだろうな。
あの方は天才だろう？ノーベル賞も受賞しそうな頭の良さだな。
あの方が医者になれないのは社会にとっては大きな損失だと思う。
医学部卒業したら全員医者になれないのかな？だって東大卒だぞ。
確率オタクの人は医科歯科大学を出ていると言っているから
たぶん、歯学部を出た歯医者さんなのだろう。
（歯科医師ではなく）医師になりたかったコンプレックスをずっと
持ち続けている哀れなオッサンのようだ。
はやくこれに答えて
ド底辺シリツ医でも基礎学力があることを示してくれよ。
同僚に聞いてもらってもいいけど、周りもド底辺シリツ医だらけ？
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
>>371
Rで、こういうのもできるんだよ。
頭脳があればだけど
各頂点からｍ個の分岐点のうち最も近い分岐点を選んで結ぶというモデルにアルゴリズムを変更してみた。
初期値は多角形に外接する正方形の座標を一様分布で選んで、分岐線の長さが最小になる値を
コンピュータに探索させた。
ｍ＝１は警視庁 
ｍ＝２はカメムシ 
ｍ＝３はカブトガニ 
ｍ以上はカブトガニが最小になったが、初期値によっては時々、カメムシが出てきた。
ｍ＝４ 
ｍ＝５
ｍ＝６
ｍ＝７
ｍ＝８
ちなみに６角形以上では多角形の辺を結ぶ分岐線が最小になって味気ない。 今年、体験したのではこれが一番だったな。
久々に進行がんに遭遇したと思ったんだが
暇つぶしネタ
コインをなげたら５回続けて表が出た。
稀な現象（0.5の5乗は 0.03125<0.05)なので表の出る確率は0.5ではない、という頻度主義統計の結論は味気ない。
じゃぁ、この硬貨はどの程度歪（いびつ）なのかに答えてくれないから。
これを推論するのがベイズ推論の面白さである。
表が出る確率は、平均値が0.5のベータ分布(一様分布もベータ分布の一つ）に従うように鋳造されているとする。
このコインの表の出る確率を95%信頼区間で推定するとき区域下限値の最小値はいくらか？
つまり、95%以上の信頼性で表の出る確率はいくつ以上と言えるか？
まあ、このスレの趣旨からは ド底辺シリツ医を調査したら５人続けて裏口入学だったという設定でもいいんだが。
何もしていないのなら塾の先生でもやればいいのにな。すごい才能があるのだから。もったいないな。
>>368
おまエラ、McGeeのEvidence-Based Physical Diagnosisは読んでないの？
臨床医学って確率事象を扱う職業だぞ。
jolt accentuationの尤度比を期待して買ったんだが、記載がなくてつまらんかった。
Kappa値の計算法が詳述してあったけど、Kappa値はprevalenceに影響されるという記載を欠いていたな。
んで、それを補正するスクリプトを作った。
kappa <- function(d){
d11=d[1,1]
d12=d[1,2]
d21=d[2,1]
d22=d[2,2]
N=sum(d)
PO=(d11+d22)/N
PE=(d11+d12)*(d11+d21)/N^2 + (d22+d21)*(d22+d12)/N^2
kappa=(PO-PE)/(1-PE)
PABAK=2*PO -1
c(kappa=kappa,PABAK=PABAK)
} 凄い才能でもなんでもないだろ。
じゃあその確率統計分野で人生を勝負すりゃいいのに。
その道じゃ負けるんだろ？
ただの弱者じゃん。
ごく普通にRが使えれば誰でもできる。
心理学とかやっている文系の学生でも普通に使える。
ド底辺シリツ医には無理だから、俺の自作問題に答えられた椰子はいないね。
ド底辺シリツ医のできるのは、せいぜい比例計算程度だな。
あとは、こういうダジャレで俺の問題に堪えられない馬鹿をごまかすだけ。
＞バッタの問題を出した時点でバッタも
仕事してないのかな？才能の持ち腐れでは？医者の先生方は今の時間忙しくしてるんだがな。医学部でてから医者になるにはどうするんだろうか？高卒にはわからんです。
今日は午前中の内視鏡バイトで終わり。
病棟もたなくなって５年くらいになるなぁ。
自宅で安眠できるというごく普通の生活が手に入った。
>>381
お前が仮に医者だとしても、患者さんから嫌われている最悪の医者だろう。
「小さい頃からガリ勉をしてきて単に学校の成績が良かっただけの人間」だな。
お前の書き込みを見ていると、本当はすごく頭の悪い人間だということは
誰にでもわかる。東大卒の政治家にも「そういう連中」が結構いるようだ。 >384
高卒でもモルくらい何かわかるだろ。
化学の授業でモルってなんですか？と質問するアホでも入れるのがド底辺シリツ医大。
やはり医者だったんだね。東大卒だもんな。すごいな。
>387
本当に頭にいいヤツは理学部か工学部に行く。
本当に頭の悪いヤツが行くのはド底辺シリツ医大に行く。
接客業は賤業と気づいたときにはとき遅しだったなぁ。
まあ、高学歴だと同業者や患者から馬鹿だの裏口だの言われなくてするけど。
>>387
あんたがどの問題にも答がだせないアホであることは誰にでもわかるけどな。 >>387
鳩山由紀夫の近著は読んだか？
俺は２冊よんだよ。
鳩山が勧めていた著書もついでに読んだ。
米国務長官だったジョン・フォスター・ダレスは、戦後日本の支配戦略を
「日本人のレイシズム、すなわち、欧米に対するコンプレックスとアジアにおいて自分たちだけが近代人なのだという差別感情を利用する。そうすれば、日本人はわれわれに従属する一方、アジアで孤立し続ける」
と要約している。（「戦後」の墓碑銘 より引用）
鳩山は、孤立しないように東アジア共同体をと提唱するんだが、
中華思想があるかぎり無理だと思うね。
この点は伊藤貫や村田良平に賛成だな。 >>391
お前が数学など何もわかっていないことは
「ε-δ論法とビッグバン理論の関係」について何も書けないことから
明らかなのだよ。 >>393
別にR使って日常統計をいじっているだけだから
ε-δ論法とビッグバン理論の関係には興味ないよ。
ε-δ論法とビッグバン理論の関係はお前が考えだしたのか？
＞バッタの問題を出した時点でバッタもんであることに気付かない
これって馬鹿丸出しだと思ったよ。 ビッグバンよりこういう計算ができる方が臨床医には必要だからね。
少ないデータから断定するのは危険だから、信頼区間を設定して確率で論じるのが正しい姿勢だと思うね。
https://www3.nhk.or.jp/news/html/20190327/k10011863181000.html
インフルエンザの新しい治療薬「ゾフルーザ」を投与されたＡ香港型のインフルエンザ患者30人を調べたところ、70％余りに当たる22人から、この薬が効きにくい耐性ウイルスが検出されたことが国立感染症研究所の調査で分かりました。
調査件数は多くないものの、専門家は現在のような使用を続けると、耐性ウイルスが広がるおそれがあるとして使用基準を見直すべきだと指摘しています。
俺は、上記のデータから耐性化率が50%以上である確率を計算して患者に説明しているよ。 >>394
>ε-δ論法とビッグバン理論の関係はお前が考えだしたのか？
馬鹿なのか？
「日本の皇室とイギリス王室の関係」について何か書きなさい、と言ったら、
「日本の皇室とイギリス王室の関係はお前が考えだしたのか？」と聞くのと
同じだぞ。そんなお馬鹿な質問をしてどうする？ McGeeにjolt accentuationの尤度比というか、jolt accentuationの記載すらなかったな。
発明したのは俺の先輩。
上田剛士のジェネラリストのための内科診断リファレンスにも
データがばらつき過ぎているとさらっと触れてあっただけ。
こういう情報の方が臨床医には必要だと思うね。
【ネトウヨ】高須院長、水木しげるを「落伍兵」呼ばわりして、その戦場漫画を非難
さすが高須 低脳私立医卒チンポ皮切り屋だなｗ
お国のために最前線で戦って片腕無くした水木先生をコケにするとか
>>396
検索したら答えがでるようなのは面白くないのよ。
バッタの問題はお前が考えたのか？
俺は検索して答えたぞ。
俺の自作問題にお前が答える番だぞ。
バッタ並の頭脳のお前には無理だと予想。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 >>398
片足なくした重光葵も愛国者だったな。
日本は自主防衛するから数年で米軍は出ていってくれ
とダレスに主張した国士だった。
そういう人物だからA級戦犯で服役させられたな。 >>376 追記
n=5
l <- function(a) HDInterval::hdi(qbeta,shape1=a+n,shape2=a)['lower']
vl=Vectorize(l)
curve(vl(x),0.5,100,bty='l',lwd=2)
(lo=optimise(vl,(c(0.5,1000))))
HDInterval::hdi(qbeta,shape1=lo$min + n,shape2=lo$min)
#
binom::binom.confint(5,5)
f <- function(x) binom::binom.bayes(5,5,prior.shape1=x,prior.shape2=x)$lower
curve(f(x),0.5,50,bty='l',lwd=2)
optimize(f,c(0.5,50))
結果が、一致しなくて困惑。
パッケージのソースを読むのは面倒だし
だからといって、シミュレーションでは出せそうにない。
暇つぶしには( ・∀・)ｲｲ!! >>396
>検索したら答えがでるようなのは面白くないのよ。
だから、それなら検索して何がわかったのか書いてごらん。 >>402
＞検索して何がわかったのか
お前が問題を自作すらできないアホであることがわかった。
数学オリンピックのバッタ問題と指摘したら、バッタもん とか言い出したぞ。
恥ずかしいね。
俺の自作問題にお前が答える番だぞ。
バッタ並の頭脳のお前には無理だと予想。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 >>401
highest probability density interval を計算している前者が正しいな。
グラフを書いたら歴然としていた。まあ、暇つぶしにはなったな。
>>403
>お前が問題を自作すらできないアホであることがわかった。
ハハハ、何んにもわかっていない数学のド素人www
>>302 で参照サイトまで載せてあげたのに・・ 高須とか裏口で昭和医に入ったって公言していたド低脳のくせに！
私立医はチンポの皮切りでもやってろ！
>>405
臨床医が数学の素人であるのは当たり前じゃん。
臨床医にはこういう計算ができれば十分。
少ないデータから断定するのは危険だから、信頼区間を設定して確率で論じるのが正しい姿勢。
https://www3.nhk.or.jp/news/html/20190327/k10011863181000.html
インフルエンザの新しい治療薬「ゾフルーザ」を投与されたＡ香港型のインフルエンザ患者30人を調べたところ、70％余りに当たる22人から、この薬が効きにくい耐性ウイルスが検出されたことが国立感染症研究所の調査で分かりました。
調査件数は多くないものの、専門家は現在のような使用を続けると、耐性ウイルスが広がるおそれがあるとして使用基準を見直すべきだと指摘しています。
問題： 上記のデータから耐性化率が50%以上である確率を述べよ シミュレーションプログラム解が理論値と一致すると楽しいのでこういう時間つぶししている。
"フランスの数学者パスカル（1623～1662)が1654年にフェルマーにあてた手紙が、現在の確率
論の始まりだと言われている。当時の有名な賭博師メレがパスカルに以下のような問題を持ち
込み、その問題についてがその手紙のやりとりの中で論じられているそうである。
甲乙二人がおのおの32ピストル（当時のお金の単位）の金を賭けて勝負したとする。
そしてどちらかが先に３点を得たものを勝ちとし、勝った方がかけ金の総額64ピストルをもらえるとする。ところが甲が２点、乙が１点を得たとき、勝負が中止になってしまった。
このとき、二人のかけ金の総額64ピストルを甲と乙にどのように分配すればよいだろうか。
ただし二人の力は互角で、勝つ確率はそれぞれ1/2ずつだとする。"
＃先にw(=3)点を得たものを勝ちとし、甲がa(=1)点、乙がb(=0)点を得たとき、勝負が中止
rm(list=ls())
pistol=64
a=2 ; b=1 ; w=3
A=a
B=b
sim <- function(){
while(A < w & B < w){
g = rbinom(1,1,p=0.5)
if(g==1){
A=A+1
}else{
B=B+1
}
}
A > B
}
mean(replicate(1e6,sim()))*pistol
> mean(replicate(1e6,sim()))*pistol
[1] 48.01146
>>408
これを一般化すれば
gambling <- function(A=2,B=1,w=3,k=1e5){ # k : how many simulate
sim <- function(){
while(A < w & B < w){
g = rbinom(1,1,p=0.5)
if(g==1){
A=A+1
}else{
B=B+1
}
}
A > B
}
mean(replicate(k,sim())) # Pr[A wins]
}
gambling(1,0,4) # 日本シリーズで先に１勝した方が優勝する確率。 実力を五分五分にしない方が現実的だろうな。
gambling <- function(A=2,B=1,w=3,p=0.5,k=1e5){ # k : how many simulate
sim <- function(){
while(A < w & B < w){
g = rbinom(1,1,p)
if(g==1){
A=A+1
}else{
B=B+1
}
}
A > B
}
mean(replicate(k,sim())) # Pr[A wins]
}
実力が互角なときに日本シリーズで先勝した方が優勝する確率のシミュレーション
> gambling(1,0,4,k=1e6)
[1] 0.656023
シミュレーションしてから理論値を考えてみるかな。
素晴らしい知性だ。東大卒だけある。なのになぜ医者じゃないんだ？もったいないな。
接客業である立場の弱い医者は暴力装置を持つべし
やくざ医者であってしかるべし
俺は高卒で統合失調症で精神病院に入院中なのだが この方はどうやら医者じゃないようだ。ほんとうに東大卒なのだろうか？頭は悪くはないと思うが。。。俺の勘違いだったようだ。残念だ。
精神病はお互いに辛いよな。一緒に頑張って生きて行こうよ。
大阪の病院が異状死届け出ず
12/18(水) 11:21配信共同通信
大阪府結核予防会大阪病院で約2年前、肺結核で入院していた男性患者が入浴中の事故で死亡した疑いがあるのに、医師が死因を「肺結核」としていたことが18日、病院への取材で分かった。
医師法に基づく異状死の届け出をしていなかった。
この病院はすOとも病院と同じで
末期がん患者へのモルヒネを10倍の量投与して死なせてしまった病院だよな。
いろいろ問題のある病院なのか？
宗教朝鮮人参病院？
あの方は一見天才のような印象だけだったんだな。ただ頭が良いように書き込んだだけだったんだな。俺は人を見る目がなかった。恥ずかしい。
ちゃんおめ
生活保護
いい加減やめろよな
こんな不景気で
密入国外国人になんで生活保護やねん
パチンコの金を朝鮮に送金しないでを同胞に配れば？
日本人にはいいことしないんだね。
>>411
一般性のある理論では自分の頭では解けそうにないのでPCでカウントさせてみた。
f <- function(num, N=2, digit = 7){ # winner sequence of 7 games
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
vf=Vectorize(f)
dat=t(vf(0:(2^7-1))) # matrirx of winner sequence of 7 games
(dat1=dat[dat[,1]==1,-1]) # winner sequence of 6 games
g <- function(s,A=1,B=0,w=4){ # A beats B T/F?
i=0
while(A < w & B < w){
i=i+1
r = s[i]
if(r==1){
A=A+1
}else{
B=B+1
}
}
A > B
}
sum(apply(dat1,1,g))
nrow(dat1) > sum(apply(dat1,1,g))
[1] 42
> nrow(dat1)
[1] 64
> 42/64
[1] 0.65625
なので、シミュレーション
> gambling(1,0,4,k=1e6)
[1] 0.656023
の結果とほぼ一致しているな。
朝飯前の頭の体操。
一見難しいことを書き込んで どうだ俺は頭いいだろう と言いたいのだな。恥ずかしいからやめなさい。高卒でもわかっちゃうよ。
>>423
問題の意味はわかるだろうから、別に難しいことじゃないよ。
でも、高卒だとこれには即答できないんじゃないの？
バッタもんド底辺シリツ医にも無理だけど
https://www3.nhk.or.jp/news/html/20190327/k10011863181000.html
インフルエンザの新しい治療薬「ゾフルーザ」を投与されたＡ香港型のインフルエンザ患者30人を調べたところ、70％余りに当たる22人から、この薬が効きにくい耐性ウイルスが検出されたことが国立感染症研究所の調査で分かりました。
調査件数は多くないものの、専門家は現在のような使用を続けると、耐性ウイルスが広がるおそれがあるとして使用基準を見直すべきだと指摘しています。
問題： 上記のデータから耐性化率が50%以上である確率を述べよ >>423
＞一見難しいことを書き込んで
それは数学オリンピックの問題を問いてみろとか、ビッグバンがどうこう言っているバッタもんド底辺シリツ医の話だろ。
数学オリンピックのバッタ問題と指摘したらバッタもんとか言い出した。
これを思い出したぜい。
底辺私立医大卒が国立大学医学部卒を妬むスレ [転載禁止](c)2ch.net
http://2chb.net/r/hosp/1424846816/695
695 名前：卵の名無しさん[] 投稿日：2016/09/25(日) 22:04:25.53 ID:FzuOCpqV
匿名先生
精神科
▲
1
評価
私立出でも、素晴らしい医師がいるし、国立でも、どうしようもないのもいる。
そんなのは、あくまで個人の資質差と思ってました。
が、
今いる病院（医師の大部分が、いわゆる底辺私立）に来て、その考えは変わりました。
とある、気に食わない医師の白衣やサンダルを隠す、机の上にゴミを置く、など、小学生じみた嫌がらせをしている医師というのを、はじめて見ました。
国立出の変人も多々みてきましたが、こんな、小学生のイタズラみたいなことをする人は、いませんでした。
やはり、底辺私立は、それなりなんだと思いました。
2016年09月02日 00時21分09秒 ノーマライゼーションの時代ですから生活保護はもうあたえなくていいんじゃ？
不景気ですよ。。日本人でも困ってる人、大勢います。
朝鮮半島からお金もらいましょうよ。
高須は裏口馬鹿やで！ ほんまやで！ 自分で言うとるんや
>>426
俺は入学時二期校。
一期は滑り止めに理一。 >>410
勝利確率を変動させてみる。
# 通算勝率に従って次の試合に勝つ確率が決まるという設定
# 先勝したAの日本シリーズ前の対戦成績がa勝ｂ負とする
rm(list=ls())
N_series <- function(A=1,B=0,w=4,a=10,b=10,k=1e5){
sim <- function(){
p=(A+a)/(A+B+a+b)
while(A < w & B < w){
g = rbinom(1,1,p)
if(g==1){
A=A+1
p=(A+a+1)/(A+B+a+b+1)
}else{
B=B+1
p=(A+a)/(A+B+a+b+1)
}
}
A > B
}
mean(replicate(k,sim())) # Pr[A wins]
}
N_series() やはり、シリツ医は蔑まれるなぁ。
開業医スレより
335 卵の名無しさん 2019/12/18(水) 18:54:19.62 ID:oGkD5qyd
木下は杏林だっか底辺私立じゃん
東大ロンダでパワハラてバカ丸出し
昔、杏林の奴が同僚にいたけど
元々運転免許持ってないのに車乗ったり、万引きする学生とかいたと平然と喋ってた
本人は糖質みたいだったな
ああ もう嘘はやめよう。東大も医者も嘘なんだ。精神病の治療をしてもらってお互い頑張って行こう。
頭がほんとうに良い人は5ちゃんねるになんて書き込まないよね。お互いに精神病を良くしなきゃならないね。嘘つきは嫌いだな。
馬鹿しか集まらんスレで質問するのは無駄ではあるね。
俺の自作問題の答の検証にならんな。
このスレはRも扱えないバッタもんｗだらけ。
数学板でHASKELLの存在を教わったので独学した。
困ったときにはアドバイスももらった。
他人のコードを読むのは勉強になるね。
http://2chb.net/r/math/1501755792/154
この質問に最初に答えたのは俺だけど、
上級者から高速コードが投稿された。
今は内視鏡の洗浄と前処置待ち。 >>425
私立出で素晴らしい医者はいない。
国立出でどうしょうもない医者はごまんといる。 >>436
個人的な経験だとシリツ卒や駅弁卒の低学歴女医はフェラ好きが多い気がする。 しょうじゅの里鶴見
赤枝グループ。
社会福祉法人兼愛会しょうじゅの里鶴見（施設長：秋津 克巳さん、理事長：赤枝 雄一さん ） を１日で辞めた俺が来ましたｗ
http://www.akaedakai.com/recruit/tsurumi/kaigo_employee.pdf
１１月４日に初出勤して、翌５日の朝に施設に電話して辞意を伝えたわ。
そしたら、【１日で何が分かるんですか！うちの施設を馬鹿にしてますか？】 とか
言われて怒られたわ。
ちなみに電話で話したのは、施設庁の秋津さんではない。
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ >>421
数学板で質問したら２時間で一般解が返ってきた。
数学が得意な人々の板だと感心した。
早速、Rに移植
NS <- function(w=4,A=1,B=0){ # 先にw勝した方が覇者、A,B：現在の勝数
ans=0
for(k in 0:(w-B-1)){
ans=ans+choose(w-A-1+k,w-A-1)*0.5^(w-A+k)
}
return(ans)
}
NS() 木下もパワハラセクハラ すごいとか報道されてるな
さすが私立医！
高１レベルの数学だったと気づいた。
勝率が0.5でないときも計算できるように拡張。
rm(list=ls())
NS <- function(w,A,B,p){ # 先にw点得点した方が勝者、A,B：現在の点数 ,p:甲の勝率
ans=0
for(k in 0:(w-B-1)){ # k: Aが勝者になるまでのBの点数
ans=ans+choose(w-A-1+k,w-A-1)*(1-p)^k*p^(w-A)
}
return(ans)
}
NS(3,2,1,0.5)
NS(4,1,0,0.5)
こんな奴が医者になれるわけないだろう 嘘ばっかりつく奴だからな 医者は信用だからな はよ医療職以外の仕事を探せ どこも採用しないとは思うがよ
>>444
> pre-test 31/40だったが、講義後に向上する自信がないなぁ
講義後のテストで66/100であったとする。
受講により効果があったといえるか、検定せよ。
こんな統計処理のイロハもド底辺シリツ医には無理だろうな。 >>447
接客業と言う賤業は簡単になれるよ。
算数の掛け算すら怪しいの医師になっている。
そして、シリツ医がこういう事故を起こすわけなんだな。
>>450
>448の検定できる？
高校統計の範囲だけど。 >>447
接客業と言う賤業は簡単になれるよ。
算数の掛け算すら怪しいのが医師になっている。
そして、シリツ医がこういう事故を起こすわけなんだな。
おまえが医療職についたら患者が困るんだよ どこの職場でもお前は必ず虐められるだろうな 原因は100パーセントおまえにある
>>453
いや、女医も看護師もはめさせてくれたぞ。 >>448
俺の場合は
拡張、蛇行、口径不同、形状不均一
で血管の不整を判定する方が
形状不均一、分布非対称性、配置不規則で判定するより正診率が高かったな。 >>448
正解率が、受講前31/40 受講後66/100に変化したときに受講が有意な影響を与えたといえるか？
χ二乗検定でp-value = 0.1827と出すのは標準学力があれば可能（ド底辺シリツ医のバッタ頭脳では無理）。
内閣支持率が50％といっても1/2と1000/2000では信頼区間が異なるので、こういう考慮ｗして受講が影響を与えたかを計算する。
これくらいの変動は同等とみなすROPE(Range of Practical Equivalence)は５％幅とした。
グラフ化すると
95%信頼区間(highest density interval)に正解率差で０を、正解率比で１を含むので
悪影響があったとは言えないので継続することにした。
少数例から断定的な結論をだすのは危険だから確率を使って区間推定できるのが理系大卒の教養レベルだと思うが、
ド底辺シリツ医は小学生の比例計算しかできなかったな。バッタ並の頭脳だから裏口入学なんだろうね。 >>448
正解率が、受講前31/40 受講後66/100に変化したときに受講が有意な影響を与えたといえるか？
χ二乗検定でp-value = 0.1827と出すのは標準学力があれば可能（ド底辺シリツ医のバッタ頭脳では無理）。
内閣支持率が50％といっても1/2と1000/2000では信頼区間が異なるので、こういう考慮をして受講が影響を与えたかを計算する。
これくらいの変動は同等とみなすROPE(Range of Practical Equivalence)は５％幅とした。
グラフ化すると
95%信頼区間(highest density interval)に正解率差で０を、正解率比で１を含むので
悪影響があったとは言えないので継続することにした。
少数例から断定的な結論をだすのは危険だから確率を使って区間推定できるのが理系大卒の教養レベルだと思うが、
ド底辺シリツ医は小学生の比例計算しかできなかったな。バッタ並の頭脳だから裏口入学なんだろうね。 ジャガー横田の私立医卒旦那 最悪だな～
私立医のくせに威張ってんじゃねーよ ばーか
みんな東京大学卒と名乗るよなロンダ野郎て。
カネで今日淋医者になったくせに。
名前からして在なんだが？
嫁の横田も在に多い。
>>461
医籍検索に卒業大学を実装してほしいね。 底辺シリツ医大に私学助成金という税金を投入しないでほしいね。
国産兵器開発に金を回すべき。
常識に欠けるし医者には一生なれない 自分の責任で生きろ。
>>459
jags4prop(66,31,100,40,ROPEdiff=c(-0.025,0.025),ROPErate=c(0.975,1.025))
prop.test(c(66,31),c(100,40),correct=FALSE) >>464
＞嘘もつくし泥棒もする
そのとおりだね。
シリツ医＝裏口入学容疑者だし、私学助成金という税金をくすねているようなものだ。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。 おまけにノーベル賞山中先生を愚弄した厚労省不倫バカップルの女は
慈恵医大ｗ
やっぱ慈恵は犯罪私立医のトップランカーだけのことはあるわ
>>459
系統的症例閲覧には66/100から81/100に正答率が上昇した。
効果があったかどうか、検証すると
にはなったけど、記憶が薄れていないだけだろうな
日を置いてやってみようっと。 系統的症例閲覧後には66/100から81/100に正答率が上昇した。
効果があったかどうか、検証すると
にはなったけど、記憶が薄れていないだけだろうな。
日を置いてやってみようっと。 多浪でやっと入学できた元医学生にとって国試はそんなに難しいのかい？ハハハハ
偽装社会とパナマ文書とジョージ ぺル枢機卿
ベネゼエラ ハイパーインフレは、アメリカとEUの財閥の策
日本を焼け野原にして食料をばらまく作戦と同じ 3S政策とトルーマン大統領
おまえは多浪多留してやっと入学してやっと卒業して何年経つんだい？落ちこぼれ君よ かっこいいことを書き込むわりには情けねえ奴だな ハハハハ ヒヒヒヒ
日本は秘密裏に核武装しないと、
嘘つきチャンコロ領となり我々も医師免剥奪資産没収
処刑されるぞ。
安倍は朝鮮人だから日本人がどうなろうと無関心だ。
>>472
そりゃ、天野だろ。
多浪だからオマエと違って裏口入学じゃないと思うが。 卒業後20年以上経つってある掲示板でおまえのこと晒されてるぞい みんな全部分かってるんだよ ククク
>>477
いや、二期校時代には医科歯科入学だからもっと経っているよ。 メディクメディアにでバイトしてたんだってな ククク ヒヒヒ はっはっは
>>444
一応、１巡目完遂した。
正解できたけど、これは生検しないわけにはいかないな。
正解は…
DL
Absent
V
Irregular
S
Absent
診断
非癌（胃炎）
あなたの答えは…
DL
Absent
V
Regular
S
Absent
診断
非癌 N大学もとんでもねえ奴卒業させたもんだな ヒーヒッヒッ ククク 笑いが止まらん
陥凹性腸上皮化生の拡大内視鏡所見も勉強になったなぁ。
発赤を伴う腸上皮化生の存在は知っていたけど。
Demarcation Line（－）を根拠にV-irregularの生検を省くと未分化がんを見逃すことになるな。
拡大内視鏡の過信は禁物だな。
今年はピロリ菌陰性胃のカルチノイドとか胃底腺型胃がんに遭遇したな。
後者は褪色調と記載してある本が多いし、講習会でもそういう症例が提示されたが
おれの遭遇したのは八木の本に掲載されているような発赤調だった。
⒈7 倍の入学試験で多浪だもんな 頭悪いんだね ワッハハ
ヒーヒッヒッ ククク 大爆笑してるぞ 皆んな バレバレなんだよ ハハハハ
裏口入学するしかなかった学力だとこれには即答できないんじゃないの？
https://www3.nhk.or.jp/news/html/20190327/k10011863181000.html
インフルエンザの新しい治療薬「ゾフルーザ」を投与されたＡ香港型のインフルエンザ患者30人を調べたところ、70％余りに当たる22人から、この薬が効きにくい耐性ウイルスが検出されたことが国立感染症研究所の調査で分かりました。
調査件数は多くないものの、専門家は現在のような使用を続けると、耐性ウイルスが広がるおそれがあるとして使用基準を見直すべきだと指摘しています。
問題： 上記のデータから耐性化率が50%以上である確率を述べよ >>487
いや、浪人したくなかったから、一期校は模試判定Aだった理一を滑り止めにして二期は医科歯科受験したよ。 ママチャリまだ乗ってんの？ヒーヒッヒッ フフフ はーはっは 掲示板探せよ ヒヒヒヒ
土日にオリンパスのe-learningの予定だったけど、始めたら最後までやってしまったな。
Web後援会と違ってオンディマンドはいいな。途中で止めて続きもできるし。
土日は八木の本を読み直すかな。
八尾がネットワークに騙されるなと講演でいっていたのは八木のmesh patternのことだな。
>>492
いや、学生の頃は川越街道をバイクで通学していたぞ。 あ、俺これから彼女と飯食うから またな落ちこぼれのおっさんよ ハハハハ
これでジャガー横田の私立医卒夫も
芸能界から追放だなｗ
U(you) R(are) Imbecile NErd.の頭文字かな。
>>483
>Demarcation Line（－）を根拠にV-irregularの生検を省くと未分化がんを見逃すことになるな。
窩間部の開大や ghost like disappearanceを観察しろという話になるんだろうけど
結局、決着は生検になるから、V-irregular M-irregularならDLにこだわらず生検ということになるな。 聖マリは どないもならん
ようあのレベルでマスコミに出れるわｗ
数学板でｎ進法の小数が話題になってたな。
小数は考えたこともなかったな。
ド底辺シリツ医にはこれはできないと思う
０．５を３進法の小数で表示せよ。
こういうのもできないだろうなぁ。
７進法で０．１２３を９進法の分数で表示せよ。
７進法で０．１２３を９進法の小数で表示せよ。
答. 0.1652417
>>507
検算
> sum(c(1,6,5,2,4,1,7)*(1/9)^(1:7))
[1] 0.1924198
> 66/343
[1] 0.1924198 円周率3.14159265359を同じ小数桁までの７進法で表わせ
答:3.06636514320
14進数を 0 1 2 3 4 5 6 7 8 9 J Q K で表記することにする。
円周率3.14159265359を同じ小数桁までの１４進法で表わせ
答：3.1KA75QKA814
ド底辺シリツ医に検算できるとは思えん。
うわー そうか そうか そうだったのか あの掲示板面白いな
円周率の７，８，９，１４進法表示
> dec2basen(3.14159265359,7)
3.06636514320
> dec2basen(3.14159265359,8)
3.11037552421
> dec2basen(3.14159265359,9)
3.12418812407
> dec2basen(3.14159265359,14)
$int
[1] 3
$decimal
[1] 1 13 10 7 5 12 13 10 8 1 4
# 小数点付きの数numをN進法で表示する
rm(list=ls())
dec2basen <- function(num, N, kmin = 5){ # kmin：最小小数点後桁
int=floor(num)
r=int%%N
q=int%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
} # rに整数のN進法表示を格納
x=num-floor(num)
k=max(nchar(x)-2,kmin) # 同長もしくはkminの長さの小数表示
a=numeric(k)
for(i in 1:k){
y=x*N
a[i]=floor(y)
x=y-a[i] # r . a[1] a[2] a[3] ... a[k]
}
if(N<=10){ # Nが10以下は数値として表示
cat(r,paste(".",paste(a,collapse = ''),sep=''),'\n',sep='')
}
else{ # Nが1１以上は整数部分と小数部分を数列で表示
print(list(int=r,decimal=a))
}
invisible()
}
拡大内視鏡の勉強より、プログラムの方が楽しいな。
ｎ進法の小数とか分数とか考えたこともなかったから楽しめた。
√3 を16進法で表示する。
> b=re$decimal
> cat(re$int,'.',paste0(c('0':'9','A','B','C','D','E','F')[b+1],sep='',collapse=''),sep='')
1.BB67AE8584CAA00
自民党が日本国民の4割を非正規雇用とし、格差をどんどん拡大させました。
結婚したくても出来ない、子供を作りたくても作れない、子供を作ったとしても1人が精一杯という貧困状態に誘導しました。
自分達で国民の貧困化・少子化を進めておきながら、少子化が止まらない、外国人だ、移民だといってどんどん外国人を入国させ、就職・永住・帰化させています。
日本人をどんどん減らしていき、外国人をどんどん増やしていく。
これはまさに日本の自殺です。
コピペにマジレス。
ド底辺シリツって底抜けのアホやね。
これによる誤差がでるな。
R の内部では 10 進数を 2 進数に直して計算しているため，小数計算の種類によっては近似値（循環小数）になり，計算結果にゴミ（数値誤差）が生じる場合がある
> 0.3-0.2-0.1
[1] -2.775558e-17
> 0.3-0.2-0.1 == 0
[1] FALSE
私の妹が凄い学歴コンプ(Fラン女子大卒)。
親族の集まりには、必ず学歴話を始める。
「子どもには絶対国公立。最悪でも同志社。」
「受験に強い塾は」「習い事はなにをさせるべきか」
「お姉ちゃんは、子どもの受験のこと考えてないの？」「ずっと公立で大丈夫？お姉ちゃんとこ？」
幼稚園の頃から習い事で埋め尽くされる妹の子。
小学校は国立大学附属小学校受験、
中学は、附属に進めず近くの私立中学。
子どもが、そこの私立中学の附属高校に進学するけど、登校拒否。出席日数ギリギリで卒業、2浪で私立大学。
妹は、今年私の子が、国立大学進学したことを父から聞いた途端、音信不通。母の三回忌にも参加しない。
補正値とfloorをｔruncに変えて対応できそうだな。
> n=1:9
> (1-(1+1/n-1)*n)
[1] 0.000000e+00 0.000000e+00 2.220446e-16 0.000000e+00 2.220446e-16
[6] -4.440892e-16 4.440892e-16 0.000000e+00 -4.440892e-16
> (1+1/n-1)*n
[1] 1 1 1 1 1 1 1 1 1
> n=1:9 ; trunc((1+1/n-1)*n) ; trunc((1+1/n-1)*n+5e-14)
[1] 1 1 0 1 0 1 0 1 1
[1] 1 1 1 1 1 1 1 1 1
>>521
普通の学力があれば、経済的に困窮していなければ地元の国立大学医学部には入れるだろ。
シリツ医大の法外な学費を払える家庭なら教育投資できたはず。
つまり、金をかけても馬鹿なままなヤツが行くのがド底辺シリツ医大。
シリツ医＝裏口入学容疑者 デバッグして、３６進法まで対応させてみた。
# 小数点付きの数numをN進法で表示する
floor((1.2-1)*5) != floor(1)
rm(list=ls())
decN <- function(num, N, kmin = 5){ # kmin：最小小数点後桁
int=floor(num)
r=int%%N
q=int%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
} # rに整数のN進法表示を格納
x=num-floor(num)
k=max(nchar(x)-2,kmin) # 同長もしくはkminの長さの小数表示
a=numeric(k)
for(i in 1:k){
y=x*N
a[i]=trunc(y+5e-14) # n=1:9 ;trunc((1+1/n-1)*n) ;trunc((1+1/n-1)*n+5e-14)対応
x=y-a[i] # r . a[1] a[2] a[3] ... a[k]
}
b=list(integer=r,decimal=a,num=sum(c(int,a)*(1/N)^(0:k)))
fig=c(0:9,letters)[1:N]
if(N<=36){ # Nが36以下は数値として表示
cat(b$integer,'.',paste(fig[b$decimal+1],sep='',collapse=''),sep='')
cat('\n')
}
else{ # Nが1１以上は整数部分と小数部分を数列で表示
print(b[1:2])
}
invisible(b)
}
> decN(5/9,3)
0.120000000000000
> decN(0.728,5,10)
0.3310000000
> decN(3.14159265359,7)
3.06636514320
> decN(3.14159265359,14)
3.1da75cda814
> decN(3.14159265359,30)
3.47d01ee0bt4
大文字だと0とOが区別しにくいので小文字で0,oにした。
>R の内部では 10 進数を 2 進数に直して計算しているため，小数計算の種類によっては近似値（循環小数）になり，計算結果にゴミ（数値誤差）が生じる場合があるround関数をつかってこれを回避。整数桁も３６までの進数対応とした。
# 小数点付きの数numをN進法で表示する
rm(list=ls())
decN <- function(num, N, kmin = 5){ # kmin：最小小数点後桁
int=floor(num)
r=int%%N
q=int%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
} # rに整数のN進法表示数列を格納
k=max(nchar(num)-nchar(floor(num))-1,kmin) # 同長もしくはkminの長さの小数表示
a=numeric(k)
x=round(num-floor(num),k) # e.g. 7.28-floor(7.28)-0.28 != 0に対応
for(i in 1:k){
y=round(x*N,k) # e.g. 0.728*5-3.64 !=0 に対応
a[i]=floor(y)
x=y-a[i] # r . a[1] a[2] a[3] ... a[k]
}
b=list(integer=r,decimal=a,num=sum(c(int,a)*(1/N)^(0:k)))
fig=c(0:9,letters)[1:N]
if(N<=36){ # Nが36以下は数値として表示
cat(paste(fig[b$integer+1],sep='',collapse=''),
'.',paste(fig[b$decimal+1],sep='',collapse=''),sep='')
cat('\n')
}
else{ # Nが37以上は整数部分と小数部分を数列で表示
print(b[1:2])
}
invisible(b) # b$num:検証用
}
> decN(123.728,5)
443.33100
> decN(5/9,3)
0.120000000000000
> decN(3.14159265359,7)
3.06636514320
> decN(3.14159265359,14)
3.1da75cda814
> decN(3.14159265359,36)
3.53i5ab8pqfq
0 - 9 a -z A - Zまでの文字を数字扱いすれば６２進法まで可能になるな。
円周率を６２進法で表記してみた
decN(3.14159265359,62)
3.8MhuCISicCS
# 小数点付きの数numをN進法で表示する
rm(list=ls())
dec62 <- function(num, N, kmin = 5){ # kmin：最小小数点後桁
int=floor(num)
r=int%%N
q=int%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
} # rに整数のN進法表示数列を格納
k=max(nchar(num)-nchar(floor(num))-1,kmin) # 同長もしくはkminの長さの小数表示
a=numeric(k)
x=round(num-floor(num),k) # e.g. 7.28-floor(7.28)-0.28 != 0に対応
for(i in 1:k){
y=round(x*N,k) # e.g. 0.728*5-3.64 !=0 に対応
a[i]=floor(y)
x=y-a[i] # r . a[1] a[2] a[3] ... a[k]
}
b=list(integer=r,decimal=a,num=sum(c(int,a)*(1/N)^(0:k)))
fig=c(0:9,letters,LETTERS)[1:N]
if(N<=62){ # Nが62以下は数値として表示
cat(paste(fig[b$integer+1],sep='',collapse=''),
'.',paste(fig[b$decimal+1],sep='',collapse=''),sep='')
cat('\n')
}
else{ # Nが63以上は整数部分と小数部分を数列で表示
print(b[1:2])
}
invisible(b) # b$num:検証用
}
日本シリーズは先に4勝したチームが優勝。
勝率はそれまでの（引き分けを除いた）通算勝率に従うとする。
毎回勝率が変化する。
シリーズ開始前の通算成績はA:2勝、B:4勝であった。
今シリーズでAが先勝（第一試合に勝利）した。
この時点でA,Bのどちらに賭ける方が有利か？
>>532
"日本シリーズは先に4勝したチームが優勝。
勝率はそれまでの（引き分けを除いた）通算勝率に従うとする。毎回勝率が変化する。
シリーズ開始前の通算成績はA:2勝、B:4勝であった。
今シリーズでAが先勝（第一試合に勝利）した。
この時点でA,Bのどちらに賭ける方が有利か？"
# 通算勝率に従って次の試合に勝つ確率が決まるという設定
# 先勝したAの日本シリーズ前の対戦成績がa勝ｂ負とする
rm(list=ls())
N_series <- function(A=1,B=0,w=4,a=2,b=4,k=1e6){
sim <- function(){
p=(A+a)/(A+B+a+b)
while(A < w & B < w){
g = rbinom(1,1,p)
if(g==1){
A=A+1
p=(A+a)/(A+B+a+b)
}else{
B=B+1
p=(A+a)/(A+B+a+b)
}
}
A > B
}
mean(replicate(k,sim())) # Pr[A wins]
}
N_series(A=1,B=0,w=4,a=2,b=4,k=1e6)
> N_series(A=1,B=0,w=4,a=2,b=4,k=1e6)
[1] 0.500221 PCにプログラムでカウントさせる。
Aが優勝する以後の勝敗の順列（１を勝ちとする）は以下の２０通り。
> (dat3=dat[apply(dat,1,sum)==3,]) # Aあと３勝の仕方 末尾に連続する0は無視
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 0 0 0 1 1 1
[2,] 0 0 1 0 1 1
[3,] 0 0 1 1 0 1
[4,] 0 0 1 1 1 0
[5,] 0 1 0 0 1 1
[6,] 0 1 0 1 0 1
[7,] 0 1 0 1 1 0
[8,] 0 1 1 0 0 1
[9,] 0 1 1 0 1 0
[10,] 0 1 1 1 0 0
[11,] 1 0 0 0 1 1
[12,] 1 0 0 1 0 1
[13,] 1 0 0 1 1 0
[14,] 1 0 1 0 0 1
[15,] 1 0 1 0 1 0
[16,] 1 0 1 1 0 0
[17,] 1 1 0 0 0 1
[18,] 1 1 0 0 1 0
[19,] 1 1 0 1 0 0
[20,] 1 1 1 0 0 0
プログラムに数えさせる。
g <- function(x){
(tva=cumsum(x)+3) # Aの通算の勝利数
win=c(3,tva)/(7:13) # 試合前の勝利確率
lose=1-win # 負ける確率
(y=rbind(win,lose)[,1:6]) #最終勝率は不要なので除く
p=rep(1,6) # p : 通算勝率の入れ子
for(i in 1:6){
j=ifelse(x[i]==1,1,2) # 勝負によりwin/loseを選択する
p[i]=y[j,i]
if(tva[i]==6) break # シリーズ前２勝＋シリーズ４勝で終了
}
cat(p,'\n') # 通算勝率の変遷
return(prod(p)) # その変遷が起こる確率
}
sum(apply(dat3,1,g)) # 可能な順列の確率を総和
>>534
# Aがあと３勝する仕方をリストアップ
f <- function(num, N=2, digit = 6){ # winner sequence of 6 games
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
vf=Vectorize(f)
dat=t(vf(0:(2^6-1))) # matrix of winner sequence of 6 games
(dat3=dat[apply(dat,1,sum)==3,]) # Aがあと３勝する仕方 末尾に連続する0は無視
dat3 日本シリーズは先に4勝したチームが優勝。
実力が互角（勝率が0.5）のときに先勝したチームが優勝する確率は0.65625
先勝したチームが優勝する確率が0.5以上であるためには必要な勝率はいくら以上か述べよ。
こういう証明問題はシミュレーションじゃ答がだせないから難しいなぁ。
（穴兄弟問題）
nを2以上の整数、kを0以上n以下の整数とする。
部屋には男子と女子が何人かいて、どの男子もちょうどn人の女子と交尾歴があり、どの女子もちょうどn人の男子と交尾歴である。
また、どの2人の男子においても、共通の交尾相手である女子はちょうどk人である。
このときどの2人の女子においても、共通の交尾相手である男子はちょうどk人であることを示せ。
# 通算勝率に従って次の試合に勝つ確率が決まるという設定
# 先勝したAの日本シリーズ前の対戦成績がa勝ｂ負とする
rm(list=ls())
N_series <- function(A=1,B=0,w=4,a=2,b=4,k=1e6){
sim <- function(){
while(A < w & B < w){
p=(A+a)/(A+B+a+b)
g = rbinom(1,1,p)
if(g==1){
A=A+1
}else{
B=B+1
}
}
A > B
}
mean(replicate(k,sim())) # Pr[A wins]
}
N_series()
# 日本シリーズは先に4勝したチームが優勝する。
# 通算勝率に従って次の試合勝利確率が決まるとする。
# 日本シリーズ前の対戦成績、a勝ｂ負は0勝０負であった。
# 過去データを欠如するため対戦前のAの勝率は一様分布と想定する
# Aが第１試合で勝利したとき、Aの優勝確率はいくらか？
rm(list=ls())
NSb <- function(A=1,B=0,w=4,a=0,b=0,shape1=1,shape2=1,k=1e3){
sim <- function(){
while(A < w & B < w){
p=(shape1+A+a)/(shape1+A+a+shape2+B+b)
g = rbinom(1,1,p)
if(g==1){
A=A+1
}else{
B=B+1
}
}
A > B
}
mean(replicate(k,sim())) # Pr[A wins]
}
NSb()
数学板に投稿したら、正解が返ってきた。
http://2chb.net/r/math/1572866819/217
俺にも意外だったが、回答者も意外な結果で計算間違いかと思ったみたい。
道楽での数学やプログラミングは楽しいね。
こういう楽しみがもてないのがド底辺医（＝裏口入学容疑者）だね。
今日も内視鏡バイトで思ったけど、美人のVater乳頭って色っぽいね。
旦那もみたことがない妖艶さｗｗｗｗ >>540
β分布でシミュレーションするとモード値をつかうか、期待値を使うかで迷う。 数学板の面白い問題スレより
不透明な壺と透明な壺を用意し、どちらにも、ｎ個の白玉とｍ個の黒玉を入れておく。（ｎ、ｍは正整数）
「不透明な壺に手を入れ、よくかき混ぜて球を一つ取り出し、色を確認して戻し、
同じ色の球を透明な壺から不透明な壺へ一つ移す。」
という操作を繰り返し行い、 透明な壺から白玉の方が先に無くなる確率は？
確率問題って証明と違ってシミュレーションで検証できるのがいいね。
裏口入学のド底辺シリツ医には無理だけど。
俺と同じ答を出した人がいるけど算出方法の投稿はしばらくたってからにしよう。
他の人の誤答の思考過程は勉強になるから。
# 某銀行のド底辺特殊シリツ専業部が年利2%の20年返済で融資するという。
# 20年240回払で40%、1億4000万円を240ヶ月で返済、
# 月58万3333円の均等返済になりますと云われた。
#これは元利均等返済の年利いくらに相当するか？
A0 = 10^8 # 借入金
r = 0.01/12 # 月利
N=120 # 返済月数
n=12
# 元利均等返済
A0*r*(1+r)^N/( (1+r)^N- 1) # 月々返済額
N*A0*r*(1+r)^N/( (1+r)^N- 1) # A0*r*(1+r)^N/( (1+r)^N- 1) 返済総額
# 元金均等返済
A0*(1+r*(N-n+1))/N # n月めの返済額 例n=12
A0*( 1 + r*(N+1)/2) # A0*(1+r*(N-n+1))/N 返済総額
A0*(1- (1-(1+r)^n)/(1-(1+r)^N)) # n月めの借入金残高
A0 = 10^8 # 借入金
r = 0.01/12 # 月利
N=120 # 返済月数
n=12
# 元利均等返済
A0*r*(1+r)^N/( (1+r)^N- 1) # 月々返済額
N*A0*r*(1+r)^N/( (1+r)^N- 1) # A0*r*(1+r)^N/( (1+r)^N- 1) 返済総額
# 元金均等返済
A0*(1+r*(N-n+1))/N # n月めの返済額 例n=12
A0*( 1 + r*(N+1)/2) # A0*(1+r*(N-n+1))/N 返済総額
A0*(1- (1-(1+r)^n)/(1-(1+r)^N)) # n月めの借入金残高
# 某銀行のド底辺特殊シリツ専業部が年利2%の20年返済で融資するという。
# 20年240回払で40%、1億4000万円を240ヶ月で返済、
# 月58万3333円の均等返済になりますと云われた。
#これは元利均等返済の年利いくらに相当するか？
A0=10^8
N=240
sum=1.4*10^8
uniroot(function(r) N*A0*r*(1+r)^N/( (1+r)^N- 1) - sum, c(10^-10,1))$root*12*100
optimise(function(r) (N*A0*r*(1+r)^N/( (1+r)^N- 1) - sum)^2, c(10^-10,1))$minimum*12*100
#元金均等返済では年利いくらに相当するか？
uniroot(function(r) A0*( 1 + r*(N+1)/2) - sum, c(10^-10,1))$root*12*100
# 年利2%の20年返済
r=0.02/12
A0=10^8
N=240
# 元利均等返済
A0*r*(1+r)^N/( (1+r)^N- 1) # 月々返済額
N*A0*r*(1+r)^N/( (1+r)^N- 1) # A0*r*(1+r)^N/( (1+r)^N- 1) 返済総額
# 元金均等返済
n=1
A0*(1+r*(N-n+1))/N # n月めの返済額 例n=12
A0*( 1 + r*(N+1)/2) # A0*(1+r*(N-n+1))/N 返済総額
A0*(1- (1-(1+r)^n)/(1-(1+r)^N)) # n月めの借入金残高
r=(1.02)^(1/12)-1 # 複利金利
A0=10^8
N=240
# 元利均等返済
A0*r*(1+r)^N/( (1+r)^N- 1) # 月々返済額
N*A0*r*(1+r)^N/( (1+r)^N- 1) # A0*r*(1+r)^N/( (1+r)^N- 1) 返済総額
# 元金均等返済
n=1
A0*(1+r*(N-n+1))/N # n月めの返済額 例n=12
A0*( 1 + r*(N+1)/2) # A0*(1+r*(N-n+1))/N 返済総額
A0*(1- (1-(1+r)^n)/(1-(1+r)^N)) # n月めの借入金残高
フランスの数学者パスカル（1623～1662)が1654年にフェルマーにあてた手紙が、現在の確率論の始まりだと言われている。
当時の有名な賭博師メレがパスカルに以下のような問題を持ち込み、その問題についてがその手紙のやりとりの中で論じられているそうである。
甲乙二人がおのおの32ピストル（当時のお金の単位）の金を賭けて勝負したとす
そしてどちらかが先に３点を得たものを勝ちとし、勝った方がかけ金の総額64ピストルをもら
えるとする。ところが甲が２点、乙が１点を得たとき、勝負が中止になってしまった。
このとき、二人のかけ金の総額64ピストルを甲と乙にどのように分配すればよいだろうか。
ただし二人の力は互角で、勝つ確率はそれぞれ1/2ずつだとする。
俺が甲だったら
＞二人の力は互角で、勝つ確率はそれぞれ1/2ずつだとする。
これはおかしい
二人の力は全く不明なので通算成績を得点する確率として推測するべきだと主張して
現時点で甲が得点する確率は2/3
甲が勝つのは
(1)次に得点する
(2)次は乙が得点してその次に甲が得点する
場合である。
(1)の確率はそれまでの通算成績から2/3
(2)の確率は(1-2/3)*(2/4)
よって甲が勝つ確率は2/3+(1-2/3)*(2/4)
> 2/3+(1-2/3)*(2/4)
[1] 0.8333333
>
それゆえ
> (2/3+(1-2/3)*(2/4))*64
[1] 53.33333
をよこせと、主張する。
そうか そうか そうだったのか ワッハハ 多浪多留でN大学か ワッハハ
株主利益→企業利益の最大化→低賃金不安定雇用→消費の縮小→売り上げ減少→業績悪化→投資先を失う、負の連鎖は止まらず、既に末期。
ポリアPolyaの壺：
壺に赤玉が a 個，白球が b 個入っている。その中から玉を1つ無作為に取り出し，選んだ玉を壺に戻した上で選んだ玉と同じ色の玉を1つ壺に加える。
この試行を n 回繰り返す。 n 回目に赤玉が選ばれる確率はPn=a/(a+b)
Pn が n に依存しないというのが驚き
桜を見る会は、お金や招待者の問題もあるが、政権が公文書を私物化して恣意的に廃棄していいのか？国民を騙して良いのか？民主主義の根本に関わる問題。税金の使い道は誰も
が閲覧検証可能にしておかないと、民主主義の先進国とは言い難い。保存期間１年未満に変更とか、政権都合以外あり得ない。これを容認して居たら、民主主義の終わりの始まり
、民度の低い国民。政権支持とか不支持以前の問題。 加計の時も官邸での加計側と３度の接触を隠す為に、官邸への入退出記録が無い、として逃げ切ったらまた同じことをして
いる。政治家・官僚が国民に奉仕するのでなく政権の為に国民の財産である公文書隠し・廃棄・国民への騙し説明に頑張って働いている姿が情けない。その人件費も税金の無駄遣
い。 国会開会に金かってるから追及止めろと言うのは、交通違反取り締まるにも税金掛かるから止めろという理屈。 私も別に野党に肩入れしたいわけじゃなく、バカな野党に
追及されてデタラメ対応してる政権の堕落ぶりに呆れてる次第。
>>555
シミュレーションしてみた。
> polya <- function(a=3,b=3,n=10,k=1e6){
+ sim <- function(){
+ x=rep(1:0,c(a,b))
+ for(i in 1:n){
+ x=append(x,sample(x,1))
+ }
+ return(mean(x))
+ }
+ mean(replicate(k,sim()))
+ }
> polya()
[1] 0.4997337 不透明な壺と透明な壺を用意し、どちらにも、ｎ個の白玉とｍ個の黒玉を入れておく。（ｎ、ｍは正整数）
「不透明な壺に手を入れ、よくかき混ぜて球を一つ取り出し、色を確認して戻し、
同じ色の球を透明な壺から不透明な壺へ一つ移す。」
という操作を繰り返し行い、透明な壺から白玉の方が先に無くなる確率は？
"
不透明な壺と透明な壺を用意し、どちらにも、ｎ個の白玉とｍ個の黒玉を入れておく。（ｎ、ｍは正整数）
「不透明な壺に手を入れ、よくかき混ぜて球を一つ取り出し、色を確認して戻し、
同じ色の球を透明な壺から不透明な壺へ一つ移す。」
という操作を繰り返し行い、透明な壺から白玉の方が先に無くなる確率は？
"
rm(list=ls())
Polya_Urn <- function(k=1e5){
mn=sample(1:10,2)
m=mn[1]
n=mn[2]
a=rep(0:1,c(m,n))
b0=b1=0
sim <- function(){
while(b0<m & b1<n){
b=sample(a,1)
a=append(a,b)
if(b==1){b1=b1+1}else{b0=b0+1}
}
b1==n
}
mean(replicate(k,sim()))
}
Polya_Urn()
Polya_Urn <- function(k=1e5){
mn=sample(1:10,2)
m=mn[1]
n=mn[2]
a=rep(0:1,c(m,n))
b0=b1=0
sim <- function(){
while(b0<m & b1<n){
b=sample(a,1)
a=c(a,b)
if(b==1){b1=b1+1}else{b0=b0+1}
}
b1==n
}
c(Prob=mean(replicate(k,sim())),m=m,n=n)
}
> Polya_Urn()
Prob m n
0.50125 8.00000 10.00000
> Polya_Urn()
Prob m n
0.50022 9.00000 5.00000
> Polya_Urn()
Prob m n
0.50065 3.00000 8.00000
> Polya_Urn()
Prob m n
0.49939 2.00000 4.00000
> Polya_Urn()
Prob m n
0.49657 1.00000 9.00000
> replicate(10,Polya_Urn(1e4))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
Prob 0.5018 0.5004 0.507 0.5103 0.5077 0.4975 0.5045 0.5012 0.4954 0.5011
m 10.0000 6.0000 4.000 10.0000 10.0000 7.0000 2.0000 3.0000 9.0000 6.0000
n 5.0000 2.0000 2.000 1.0000 9.0000 8.0000 8.0000 10.0000 8.0000 8.0000
>>563
シミュレーション回数を10万に増やしてみた。
> replicate(10,Polya_Urn(1e5))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
Prob 0.50093 0.49876 0.50295 0.50198 0.49801 0.50069 0.49985 0.50407 0.4975 0.49661
m 10.00000 10.00000 8.00000 8.00000 7.00000 7.00000 7.00000 3.00000 10.0000 6.00000
n 6.00000 6.00000 5.00000 9.00000 3.00000 6.00000 3.00000 8.00000 7.0000 2.00000
いずれも０．５に近似している。 >>540
# 日本シリーズは先に4勝したチームが優勝する。
# 通算勝率に従って次の試合勝利確率が決まるとする。
# 日本シリーズ前の対戦成績、a勝ｂ負は0勝０負であった。
# 過去データを欠如するため対戦前のAの勝率は一様分布と想定する
# Aが第１試合で勝利したとき、Aの優勝確率はいくらか？
rm(list=ls())
NSb <- function(A=1,B=0,w=4,a=0,b=0,shape1=1,shape2=1,k=1e4){
sim <- function(){
while(A < w & B < w){
p=(shape1+A+a)/(shape1+A+a+shape2+B+b)
g = rbinom(1,1,p)
if(g==1){
A=A+1
}else{
B=B+1
}
}
A > B
}
mean(replicate(k,sim())) # Pr[A wins]
}
NSb()
> NSb(k=1e5)
[1] 0.78906
案外と高いな。
最初が大事ってことだな。ド底辺シリツ医大なんぞを選択肢にするようなアホとは関わらない方がいいってことともいえるｗ >>553
多浪で日大といえば、天野だろ。
多浪と女医は裏口が少ないらしいな。 >>568
あの裏口事件までは多浪を馬鹿にしてたけど
実は多浪が一番優秀だったというｗ >>570
裏口馬鹿呼ばわりされたくなくて国立大学を何度も受験したけど不合格で
結局、寄付金を積んでド底辺医大に入学というのもいると思うよ。 # 1は整数ではない
> is.integer(1) # is FALSE ! [1] FALSE
# 1Lは整数 > is.integer(1L) [1] TRUE
https://ryamada.
hatenadiary.jp/entry/20111227/1324799548 >0.1*10==1
[1] TRUE
> (1.1-1)*10==1
[1] FALSE
> (1.25-1)*4==1
[1] TRUE
こんなところで数学を出して自己実現の場にしている
かわいそうな奴がいるが、実社会で満たされ頼られていたら
きっとこんなスネた人間性にはなっていないと思うぞ。
>>575
>448の判断に>458を使うから役に立つのよね。
金利計算も自分で計算できた方がいいし。 こういうのもできるね。
96歳の女性をお看取り。肺も心臓も腎臓も機能低下していたが、年齢を考慮して死因は老衰にした。ふと96歳の平均余命はどれくらいかが気になって平成27年簡易生命表（女）を調べてみた。
http://www.mhlw.go.jp/toukei/saikin/hw/life/life15/dl/life15-07.pdfこういう表をみると自分で計算してみたくなる。諸関数の定義が厚労省の参考資料で解説されているのでRが使えれば計算は容易（ド底辺特殊シリツ医大卒には無理）
## 10万人あたりの死亡数から平均余命を算出
f=c(178,31,20,12,8,8,8,8,7,7,7,7,7,7,8,10,12,13,15,16,17,18,20,21,23,24,25,27,29,
30,31,32,34,37,39,41,43,46,50,56,62,68,73,79,86,94,103,113,123,134,145,159,174,
188,202,215,226,237,251,269,292,319,346,372,401,435,472,510,553,602,661,727,799,
870,952,1053,1180,1331,1503,1698,1914,2153,2419,2708,3011,3320,3628,3926,4227,
4513,4743,4896,4937,4867,4678,4385,4004,3557,3069,2567,2077,1623,1220,880,608,
960)
m=c(201,32,23,15,11,10,10,10,9,8,7,7,8,11,14,17,22,27,33,39,44,47,50,52,53,54,54,
54,54,56,58,59,62,65,70,73,76,79,85,93,103,113,122,131,145,159,176,195,215,237,
259,285,311,341,374,412,451,490,528,572,625,692,767,842,919,1002,1084,1166,1254,
1349,1452,1562,1668,1764,1875,2015,2182,2375,2586,2806,3038,3280,3506,3709,3887,
4024,4089,4088,4037,3944,3803,3555,3243,2887,2507,2122,1749,1403,1095,829,609,
434,298,198,127,180)
LE <-function(ndx,Y,N0=10^5){
n=length(ndx)
lx=numeric(n)
lx[1]=N0
for(i in 1:(n-1))
lx[i+1] <- lx[i] - ndx[i]
nqx=ndx/lx
nLx=numeric(n)
for(i in 1:n)
nLx[i] <- mean(c(lx[i],lx[i+1]))
nLx[n]=0
Tx=rev(cumsum(rev(nLx)))
le=Tx/lx
return(round(le[Y+1],1))
} >>356
実行すると
> LE(f,96)
[1] 3.4
96歳女性の平均余命は3年以上あるらしい。
死因は多臓器不全にする方が正しかったのだろうか？
> LE(m,100)
[1] 2.1
参考資料１ 生命表諸関数の定義
http://www.mhlw.go.jp/toukei/saikin/hw/life/life15/dl/life15-08.pdf
に寿命中位数というのが定義されている。
半減期にあたる寿命中位数も計算してみた。グラフであたりをつけて内挿してもとめた。
手計算は面倒なのでRで線形回帰
x=c(89,90)
y=c(nLx[89+1],nLx[90+1]) # y = a + b*x
coef=lm(y~x)$coef
round((50000-coef[1])/coef[2],1) # 寿命中位数
> round((50000-coef[1])/coef[2],1) # 寿命中位数
89.3
参考資料中の解説
我が国は、｢平均寿命＜寿命中位数｣となっている。
が確認できた。
待機時間の多い職場だと、ふとした疑問をネットで調べて自分で勉強できて( ・∀・)ｲｲ!! >>574
(1+1/10-1)*10==1
[1] FALSE
> (1-1+1/10)*10==1
[1] TRUE > n=1:10
> (1 + 1/n - 1)*n == 1
[1] TRUE TRUE FALSE TRUE FALSE FALSE FALSE TRUE FALSE FALSE
> n=1:2^20
> which((1 + 1/n - 1)*n == 1)
[1] 1 2 4 8 16 32 64 128 256 512 1024
[12] 2048 4096 8192 16384 32768 65536 131072 262144 524288 1048576
>>577
平均寿命から現在の年齢を引いて平均してあと何年生きられると計算しているド底辺医っておおいよなぁ。
自分で、10万人あたりの死亡数から平均余命を算出してみるという探究心はないんだろうね。
まあ、シリツ医＝裏口入学容疑者だから当然。 > options(digits=22)
> 1/10
[1] 0.10000000000000001
> 0.1
[1] 0.10000000000000001
> (1-1+1/10)
[1] 0.10000000000000001
> (1+1/10-1)
[1] 0.10000000000000009
> (1-1+1/10)*10
[1] 1
> (1+1/10-1)*10
[1] 1.0000000000000009
小数を二進法で表すとかいままで考えたことがなかったなぁ。
> 0.9-0.2-0.7
[1] 0
> 0.9-0.7-0.2
[1] 5.5511151231257827e-17
# 小数点付きの数numをN進法で表示する(62進法まで対応 0-9,a-z,A-Z)
rm(list=ls())
dec62 <- function(num, N, kmin = 5){ # kmin：最小小数点後桁
int=floor(num)
r=int%%N
q=int%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
} # rに整数のN進法表示数列を格納
k=max(nchar(num)-nchar(floor(num))-1,kmin) # 同長もしくはkminの長さの小数表示
a=numeric(k)
x=round(num-floor(num),k) # e.g. 7.28-floor(7.28)-0.28 != 0に対応
for(i in 1:k){
y=round(x*N,k) # e.g. 0.728*5-3.64 !=0 に対応
a[i]=floor(y)
x=y-a[i] # r . a[1] a[2] a[3] ... a[k]
}
b=list(integer=r,decimal=a,num=sum(c(int,a)*(1/N)^(0:k)))
fig=c(0:9,letters,LETTERS)[1:N]
if(N<=62){ # Nが62以下は数値として表示
cat(paste(fig[b$integer+1],sep='',collapse=''),
'.',paste(fig[b$decimal+1],sep='',collapse=''),sep='')
cat('\n')
}
else{ # Nが63以上は整数部分と小数部分を数列で表示
print(b[1:2])
}
invisible(b) # b$num:検証用
}
oro.diomというパッケージに２進法に変換するという関数があったので期待したんだが、
非負整数のみ対応というので求めるものではなかった。
Usage
dec2base(n, base, len = 0)
dec2hex(n, len = 0)
Arguments
n
Non-negative integer.
base
Number between 2 and 36.
len
Length of the character string.
dec62 <- function(num, N, kmin = 5){ # kmin：最小小数点後桁
int=floor(num)
r=int%%N
q=int%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
}
k=max(nchar(num)-nchar(floor(num))-1,kmin)
a=numeric(k)
x=round(num-floor(num),k) # e.g. 7.28-floor(7.28)-0.28 != 0に対応
for(i in 1:k){
y=round(x*N,k)
a[i]=floor(y)
x=y-a[i]
}
b=list(integer=r,decimal=a,num=sum(c(int,a)*(1/N)^(0:k)))
fig=c(0:9,letters,LETTERS)[1:N]
if(N<=62){
cat(paste(fig[b$integer+1],sep='',collapse=''),
'.',paste(fig[b$decimal+1],sep='',collapse=''),sep='')
cat('\n')
}
else{
print(b[1:2])
}
invisible(b)
}
数学板に自作スクリプトのバグを投稿したら
>>765
数値演算についてもっと勉強しな。
たいていの言語でそうなる。
と助言された。
数学板は口は悪くても頭のいい人が多いよなぁ。
どちらも悪いのがド底辺シリツ医であることはいうまでもない。
>558 >565がド底辺シリツ医の自己実現らしいぞなぁ。いや、自己紹介かな？
０．１を２進法であらわすと
0.0001100110011001100110
という循環小数になる。
これを有限桁で内部計算しているから、端数が混ざっちゃうんだな。
HaskellやPythonでも同じだった。数値演算はRと同じルーチンなのだろう。
そもそもRはC言語で書かれているというし。
他言語に移植するという無駄な時間を費やすことなくて有用な助言だったなぁ。 >>586
1/3(=0.33333333333...)を３進法で0.1と表示させたいが、0.2222222....になってしまうなぁ。
1/3を内部で0.33333..で計算しているのだから如何ともし難いな。 N進法表示でN-1が多数連続したら切り上げるというルーチンを組めなくはないけど
２進法のときに１が連続するのはまぁあるから、別のバグを読み込みそうだな。
Rのパッケージにも小数をｎ進法にコンバートする関数がないのも納得がいく。
十進法での0.1を13進法で小数点13桁まで表わせ
と聞かれらたら
答えられないと気持ち悪くて眠れないな。
>>594
decN <- function(num, N, kmin = 5){ # kmin：最小小数点後桁
int=floor(num)
r=int%%N
q=int%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
} # rに整数のN進法表示数列を格納
k=max(nchar(num)-nchar(floor(num))-1,kmin) # 同長もしくはkminの長さの小数表示
a=numeric(k)
x=round(num-floor(num),k) # e.g. 7.28-floor(7.28)!=0.280に対応
for(i in 1:k){
y=round(x*N,k) # e.g. 0.728*5-3.64 !=0 に対応
a[i]=floor(y)
x=y-a[i] # r . a[1] a[2] a[3] ... a[k]
}
b=list(integer=r,decimal=a,num=sum(c(int,a)*(1/N)^(0:k)))
fig=c(0:9,letters,LETTERS)[1:N]
if(N<=62){ # Nが62以下は数値として表示
cat(paste(fig[b$integer+1],sep='',collapse=''),
'.',paste(fig[b$decimal+1],sep='',collapse=''),sep='')
cat('\n')
}
else{ # Nが63以上は整数部分と小数部分を数列で表示
print(b[1:2])
}
invisible(b) # b$num:検証用
}
decN(0.1,13,13)でもう答がでたよ。４桁の循環小数になる。 療養病棟スレにこんな投稿が
>>
インフルが警報レベル発令なので
例年通りに「警報解除まで病棟の面会禁止」にしたところ
今年5月に入院してきた一患者の家族が面会禁止に納得しないようで
毎日面会に行っていたのだから
今まで通り面会させろ
と師長相手に揉めてた
院内感染防止目的という旨を説明しても納得しないようで
こういう家族相手に大変だな、師長さん
<<
こういう問題を考えてみた。
面会制限をしなかった施設では11人/800日・人の発生
面会制限をした3施設では 6/1083, 8/1050, 7/878の発生であったとする。
面会制限は発生を抑制するのに有意な効果があるといえるか？危険率５％で検定せよ。
こういう設定のほうがいいな。
面会制限をしなかった年は 11人/800日・人の発生であったが
面会制限をした最近3年では 6/1083, 8/1050, 7/878の発生にとどまった。
prop.test(c(11, 6+8+7), c(800, 1083+1050+878))
poisson.test(c(11, 6+8+7), c(800, 1083+1050+878))
rateratio.test::rateratio.test(c(11, 6+8+7), c(800, 1083+1050+878))
fmsb::ratedifference(11, 6+8+7, 800, 1083+1050+878)
fmsb::rateratio(11, 6+8+7, 800, 1083+1050+878)
binom.test(11,800,(6+8+7)/(1083+1050+878))
binom.test((6+8+7),(1083+1050+878),11/800)
source('tools.R')
jags4prop(11, 6+8+7, 800, 1083+1050+878)
微妙に結果が異なるなぁ（ボー読み）
Aaron Levenstein ? 'Statistics are like bikinis. What they reveal is suggestive, but what they conceal is vital.'
基礎データと統計処理能力があれば
＞院内感染防止目的という旨を説明しても納得しないようで
という ’ある意味ちょっとしたモンスター' を撃退できるなあ。
ド底辺シリツ医には無理だろうね。
>>599
どの検定を使うかは、自分に都合のよい結果をだす検定に決まっているｗｗｗ サッカーの点数の分布はポアソン分布に近似するらしいな。
インフルエンザで入院じゃなくて、院内発生のインフルエンザ症例数はポアソン分布になるんだろうか？
ハンチントンの「分断されるアメリカ」を読んで思うこと
先住民を虐殺することなく暮らしているのが日本人と思ったが、正しいのかな？
>>606
自分の答と一致するとほっとする。
同じ誤ったロジックの可能性もあるけど。
シミュレーションがその可能性を少なくしてくれるけど
シミュレーションも同じ誤ったロジックに依拠している可能性は常に考える必要性はある。 212 名前：１３２人目の素数さん[] 投稿日：2019/12/23(月) 08:04:12.57 ID:FUuuzwBf
日本シリーズは先に4勝したチームが優勝。
勝率はそれまでの通算勝率に従うとする。引き分けはないものとする。
勝負がつくごとに次回の勝率が変化する。
シリーズ開始前の通算成績はA:2勝、B:4勝であった。
今シリーズでAが先勝（第一試合に勝利）した。
この時点でどちらが優勝するか賭けをする。
A,Bのどちらに賭ける方が有利か？"
>>608
こういう道楽に付き合ってくれるのが数学板の住人だなぁ。
学板は口は悪くても頭のいい人が多いよなぁ。
どちらも悪いのがド底辺シリツ医ｗｗｗｗ 私の友人で、国際的に活躍している現代アートのキュレーターが、この前話していたとき、「オレ、実は高校の時偏差値４０だったんですよ」と言った。逆に偉いじゃないか、と思った。アメリカに行って勉強して、今はベルリンで活動。そんな彼は、好奇心のかたまりだ。
?の角度を出すプログラムを組んでみた
foo <- function(x=36,y=24){
sine <- function(x) sin(x/180*pi)
f <- function(z) sine(z) - sine(x)/sine((180-x)/2)* sine(180-y-(180-x)/2-z)
round(uniroot(f,c(0,180))$root,3)
}
foo(36,24) rm(list=ls())
a=1 # length of 0P
b=1 # length of PQ
alpha=24/180*pi # angle of 1-0-P
beta=36/180*pi # angle of 0-P-Q
P=a*(cos(alpha)+1i*sin(alpha))
Q=P+b*(cos(alpha+pi-beta)+1i*sin(alpha+pi-beta))
(pi-Arg(Q-1))/pi*180 # degree of Q-1-0
abs(Q-1) # length of Q1
graphics.off()
plot(0,xlim=c(0,1),ylim=c(0,1),bty='l',type='l',axes=TRUE, ann=FALSE,asp=1)
# draw segment of complex a to complex b
seg <- function(a,b,color=2,...){
segments(Re(a),Im(a),Re(b),Im(b),col=color,...)
}
# draw text y at complex x
pt <- function(x,y=NULL,...){
text(Re(x),Im(x), ifelse(is.null(y),'+',y), ...)
}
seg(0,1)
seg(0,P)
seg(P,Q)
pt(0,'0')
pt(1,'1')
pt(P,'P')
pt(Q,'Q')
seg(1,Q,col=1,lty=2)
# 長さL,M,NのZ尺を角度A°（LとMのなす角）、B°（LとMのなす角）で折り曲げたとき
# 先端と終端を結ぶ線とZ尺の作る角度および先端と終端の距離
# 
Zoo <- function(L=1,M=1,N=1,A=36,B=24){ # L=QP,M=P0,N=01,A=Q-P-0 B=P-0-1
alpha=B/180*pi
beta=A/180*pi
a=M/N
b=L/N
P=a*(cos(alpha)+1i*sin(alpha))
Q=P+b*(cos(alpha+pi-beta)+1i*sin(alpha+pi-beta))
Langle=(pi-Arg(Q-1))/pi*180 # degree of Q-1-0
Uangle=Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180 # degree of P-Q-1
length=abs(Q-1)*N # length of Q1
c(Langle,Uangle,length)
}
Zoo(1,1,1,36,24)
Zoo(A=90,B=90) 複素平面を使えば計算が楽とに気づいた。
正弦定理も必要なく関数が完成。
# 長さL,M,NのZ尺を角度A°（LとMのなす角）、B°（LとMのなす角）で折り曲げたとき
# 先端と終端を結ぶ線とZ尺の作る角度および先端と終端の距離
# 
Zoo <- function(L=1,M=1,N=1,A=36,B=24){ # L=QP,M=P0,N=01,A=Q-P-0 B=P-0-1
alpha=B/180*pi
beta=A/180*pi
a=M/N
b=L/N
P=a*(cos(alpha)+1i*sin(alpha))
Q=P+b*(cos(alpha+pi-beta)+1i*sin(alpha+pi-beta))
Langle=(pi-Arg(Q-1))/pi*180 # degree of Q-1-0
Uangle=Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180 # degree of P-Q-1
length=abs(Q-1)*N # length of Q1
c(Langle,Uangle,length)
}
Zoo(1,1,1,36,24)
Zoo(A=90,B=90) ZooG <- function(L=1,M=1,N=1,A=30,B=60){
alpha=B/180*pi
beta=A/180*pi
a=M/N # length of 0P
b=L/N # length of PQ
P=a*(cos(alpha)+1i*sin(alpha))
Q=P+b*(cos(alpha+pi-beta)+1i*sin(alpha+pi-beta))
(pi-Arg(Q-1))/pi*180 # degree of Q-1-0
max(Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180, Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180+360) # degree of P-Q-1
abs(Q-1) # length of Q1
xlim=ylim=max(a,b)*c(-1,2)
plot(0,xlim=xlim,ylim=ylim,bty='l',type='l',axes=FALSE, ann=FALSE,asp=1)
# draw segment of complex a to complex b
seg <- function(a,b,color=2,...){
segments(Re(a),Im(a),Re(b),Im(b),col=color,...)
}
# draw text y at complex x
pt <- function(x,y=NULL,...){
text(Re(x),Im(x), ifelse(is.null(y),'+',y), ...)
}
seg(0,1)
seg(0,P)
seg(P,Q)
pt(0,paste('O',B,' °'))
pt(1,'I')
pt(P,paste('P ',A,' °'))
pt(Q,'Q')
pt((P+Q)/2, paste('L = ',L))
pt((P+0)/2, paste('M = ',M))
pt(1/2, paste('N = ',N))
seg(1,Q,col=1,lty=2)
angleI=(pi-Arg(Q-1))/pi*180 # degree of Q-1-0
angleQ=max(Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180) # degree of P-Q-1
if(angleQ<0)angleQ=angleQ+360
if(angleQ>360)angleQ=angleQ-360
length=abs(Q-1)*N # length of Q1
c(angleQ=angleQ,angleI=angleI,QIlength=length)
}
ZooG(3,4,5,60,30)
ZooG <- function(L=1,M=1,N=1,A=30,B=60){
alpha=B/180*pi
beta=A/180*pi
a=M/N # length of 0P
b=L/N # length of PQ
P=a*(cos(alpha)+1i*sin(alpha))
Q=P+b*(cos(alpha+pi-beta)+1i*sin(alpha+pi-beta))
(pi-Arg(Q-1))/pi*180 # degree of Q-I-0
max(Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180, Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180+360) # degree of P-Q-I
abs(Q-1) # length of QI
xlim=ylim=max(a,b)*c(-1,2)
plot(0,xlim=xlim,ylim=ylim,bty='l',type='l',axes=FALSE, ann=FALSE,asp=1)
# draw segment of complex a to complex b
seg <- function(a,b,color=2,...) segments(Re(a),Im(a),Re(b),Im(b),col=color,...)
# draw text y at complex x
pt <- function(x,y=NULL,...) text(Re(x),Im(x), ifelse(is.null(y),'+',y), ...)
seg(0,1) ; seg(0,P) ; seg(P,Q)
pt(0,paste('O',B,'°')) ; pt(1,'I') ; pt(P,paste('P ',A,'°')) ; pt(Q,'Q')
pt((P+Q)/2, paste('L = ',L)) ; pt((P+0)/2, paste('M = ',M)) ; pt(1/2, paste('N = ',N))
seg(1,Q,col=1,lty=2)
angleI=(pi-Arg(Q-1))/pi*180 # degree of Q-1-0
if(angleI<0)angleI=angleI+360
if(angleI>360)angleI=angleI-360
if(angleI>180 & angleI<360) angleI=360-angleI
angleQ=Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180 # degree of P-Q-1
if(angleQ<0)angleQ=angleQ+360
if(angleQ>360)angleQ=angleQ-360
if(angleQ>180 & angleQ<360) angleQ=360-angleQ
length=abs(Q-1)*N # length of Q1
c(angleQ=angleQ,angleI=angleI,QIlength=length)
}
rm(list=ls())
"
O=c(0,0,0)
A=c(1,0,0)
B=c(1,1,0)
C=c(0,1,0)
P=c(cos(theta),sin(theta),t-sin(theta))
Q=c(sin(theta)+1,cos(theta),t+sin(theta))
tを実数の定数とする。
0<=theta<=π/2のとき、
OP+PA+BQ+QCの最大値を求めよ。
"
di <- function(x,y) sqrt(sum((x-y)^2))
f <- function(theta,t,O=c(0,0,0),A=c(1,0,0),B=c(1,1,0),C=c(0,1,0)){
P=c(cos(theta),sin(theta),t-sin(theta))
Q=c(sin(theta)+1,cos(theta),t+sin(theta))
di(O,P)+di(P,A)+di(B,Q)+di(Q,C) # OP+PA+BQ+QC
}
xx=seq(0,pi/2,length=1000)
g <- function(t) {
plot(xx,sapply(xx,function(x) f(x,t)),type='l',bty='l')
}
単純増加関数になるなぁ。
外来やっていても単語しかしゃべれないガイジっているよなぁ。
sim <- function(n=30,a=29,b=30){
r=numeric(n)
for(i in 1:n){
j=which(c(sum(r==1)<10 , sum(r==2)<10 , sum(r==3)<10 ))
r[i]=as.numeric(sample(as.character(j),1))
}
A=c(which(r==1))
B=c(which(r==2))
C=c(which(r==3))
room=rbind(A=A,B=B,C=C)
ans=FALSE
for(i in 1:3){
if(any(room[i,]==a) & any(room[i,]==b)) {
ans=TRUE
break
}
}
ans
}
aa=1:29
p30=sapply(aa,function(a)mean(replicate(1e4,sim(n=30,a,b=30))))
plot(aa,p30,bty='l',type='h')
> rbind(aa,p30)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
aa 1.0000 2.0000 3.0000 4.0000 5.0000 6.0000 7.000 8.0000 9.0000 10.0000 11.0000 12.0000 13.0000 14.0000
p30 0.2421 0.2559 0.2457 0.2539 0.2434 0.2477 0.248 0.2529 0.2469 0.2537 0.2479 0.2441 0.2559 0.2497
[,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24] [,25] [,26] [,27]
aa 15.0000 16.0000 17.0000 18.0000 19.0000 20.0000 21.0000 22.0000 23.0000 24.0000 25.0000 26.000 27.000
p30 0.2488 0.2433 0.2538 0.2554 0.2668 0.2729 0.2835 0.2995 0.3255 0.3463 0.3886 0.452 0.531
[,28] [,29]
aa 28.0000 29.0000
p30 0.6285 0.7436
グラフ化すると
Cに移植すれば高速化するのだろうけど。Cだと乱数発生ルーチンから自作が必要だったと思う。
C++やC*だとモジュールがあるのかもしれんが。 #
sim <- function(n=9,a=8,b=9){ #ｎ人を定員３人の３部屋にわける場合
r=numeric(n) # １～９人の部屋番号（１～３）の配列
for(i in 1:n){
j=which(c(sum(r==1)<n/3 , sum(r==2)<n/3 , sum(r==3)<n/3 )) # 定員に達していない部屋から
r[i]=as.numeric(sample(as.character(j),1)) # ランダムに割り当てる
}
A=c(which(r==1)) # room 1に割当てられた人の順位
B=c(which(r==2))
C=c(which(r==3))
room=rbind(A=A,B=B,C=C)
ans=FALSE
for(i in 1:3){
# if((a %in% room[i,]) & (b %in% room[i,]))# ３部屋のどれかに同室ならば TRUEを返して終了
if(any(room[i,]==a) & any(room[i,]==b)){
ans=TRUE
break
}
}
ans
}
mean(replicate(1e5,sim(n=9,a=8,b=9)))
> mean(replicate(1e5,sim(n=9,a=8,b=9)))
[1] 0.51701
>
# リストアップ ９人を３部屋に分ける
f <- function(num, N=3, digit = 9){
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
vf=Vectorize(f)
dat=vf(0:(3^9-1))
dat=t(dat)+1
head(dat)
f3 <- function(x){sum(x==1)==3 & sum(x==2)==3 & sum(x==3)==3}
idx=apply(dat,1,f3)
dat3=dat[idx,]
head(dat3) ; tail(dat3)
> head(dat3) ; tail(dat3)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 1 1 1 2 2 2 3 3 3
[2,] 1 1 1 2 2 3 2 3 3
[3,] 1 1 1 2 2 3 3 2 3
[4,] 1 1 1 2 2 3 3 3 2
[5,] 1 1 1 2 3 2 2 3 3
[6,] 1 1 1 2 3 2 3 2 3
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1675,] 3 3 3 2 1 2 1 2 1
[1676,] 3 3 3 2 1 2 2 1 1
[1677,] 3 3 3 2 2 1 1 1 2
[1678,] 3 3 3 2 2 1 1 2 1
[1679,] 3 3 3 2 2 1 2 1 1
[1680,] 3 3 3 2 2 2 1 1 1
>
1680通り
sm <- function(x,a=8,b=9){ x[a]==x[b] } # a b in same room T/F?
sum(apply(dat3,1,sm))
nrow(dat3)
sum(apply(dat3,1,sm))/nrow(dat3)
8番9番が同室な場合は420
> sum(apply(dat3,1,sm))
[1] 420
> nrow(dat3)
[1] 1680
> sum(apply(dat3,1,sm))/nrow(dat3)
[1] 0.25
シミュレーションと乖離する
rm(list=ls())
# リストアップ n人を３部屋に分ける
n=6
f <- function(num, N=3, digit = n){
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
vf=Vectorize(f)
dat=vf(0:(3^n-1))
dat=t(dat)+1
head(dat) ; tail(dat)
f3 <- function(x){sum(x==1)==n/3 & sum(x==2)==n/3 & sum(x==3)==n/3}
idx=apply(dat,1,f3)
dat3=dat[idx,]
head(dat3) ; tail(dat3)
#
sm <- function(x,a=5,b=6){ x[a]==x[b] } # a b in same room T/F?
sum(apply(dat3,1,sm))
nrow(dat3)
sum(apply(dat3,1,sm))/nrow(dat3)
dat89=dat3[apply(dat3,1,sm),]
head(dat89); tail(dat89)
dat89
18/90
sim <- function(n=6,a=5,b=6){ #n人を定員３人の３部屋にわける場合
r=numeric(n) # １～6人の部屋番号（１～３）の配列
for(i in 1:n){
j=which(c(sum(r==1)<n/3 , sum(r==2)<n/3 , sum(r==3)<n/3 )) # 定員に達していない部屋から
r[i]=as.numeric(sample(as.character(j),1)) # ランダムに割り当てる
}
A=c(which(r==1)) # room 1に割当てられた人の順位番号
B=c(which(r==2))
C=c(which(r==3))
room=rbind(A,B,C)
ans=FALSE
for(i in 1:3){# ３部屋のどれかに同室ならば TRUEを返して終了
if(any(room[i,]==a) & any(room[i,]==b)){# if((a %in% room[i,]) & (b %in% room[i,]))と同意
ans=TRUE
break
}
}
ans
}
mean(replicate(1e5,sim(n=6,a=5,b=6)))
このスレ的には こういう問題にした方が面白いな。
30人が優劣のないA、B、Cの３大学院（一院の定員10人）に進学する
成績順に成績1位の人から順番にルーレットを回してA、B、Cに割り振られていく
途中で定員に達したら締切で、残りの組のみからなるルーレットを回す
30人めは>622のようなド底辺シリツ医大のガチの裏口入学学生（ガチ裏、と略す）である。
成績のよい方がガチ裏と同じ大学院に進む可能性が少ないと言えるか？
# 問題 : 7 リットルと 3 リットルの容器を使って 5 リットルの水を測るにはどうすればいい？
> pitcher(7,3,5)
7L 3L
[1,] 0 0
[2,] 7 0
[3,] 4 3
[4,] 4 0
[5,] 1 3
[6,] 1 0
[7,] 0 1
[8,] 7 1
[9,] 5 3
[10,] 5 0
# 問題 : 11 リットルと 7 リットルの容器を使って 9 リットルの水を測るにはどうすればいい？
# Amax=7; Bmax=3 ; Goal=5
pitcher <- function(Amax,Bmax,Goal){
t0=c(0,0)
.stack <<- t(as.matrix(t0))
.checked <<- .stack
# pouring methods
a2b <- function(ab){ # pour from A to B
a=ab[1];b=ab[2]
if(a+b > Bmax) c(a+b-Bmax,Bmax) else c(0, a+b) }
b2a <- function(ab){
a=ab[1];b=ab[2]
if(b+a > Amax) c(Amax, b+a-Amax) else c(b+a, 0) }
af <- function(ab) {a=ab[1];b=ab[2]; c(Amax,b)} # fill A
bf <- function(ab) {a=ab[1];b=ab[2]; c(a,Bmax)}
ae <- function(ab) {a=ab[1];b=ab[2]; c(0,b)} # empty B
be <- function(ab) {a=ab[1];b=ab[2]; c(a,0)}
actions=c(a2b,b2a,af,bf,ae,be)
is.rim <- function(row,mat){ # is row in matrix?
if(is.null(mat)) return(FALSE)
if(!is.matrix(mat)) mat=t(as.matrix(mat))
if(length(row)!=ncol(mat)) return(FALSE)
any(apply(mat,1,function(x) all(x==row))) # comparble to %in%
}
is.goal <- function(x){all(x==c(Goal,0))|all(x==c(0,Goal)) } # goal?
pop <- function(){ # pop LIFO
if(is.null(.stack)) return()
if(!is.matrix(.stack)) .stack=t(as.matrix(.stack))
LIFO=.stack[1,]
if(nrow(.stack)==1) .stack <<- NULL
else .stack <<- .stack[-1,] # changed GLOBALLY
return(LIFO)
}
push <- function(rows){ # push rows at head of stack
if(is.null(rows)) invisible(NULL) # no NULL show
else .stack <<- rbind(rows , .stack) # changed GLOBELY
}
transfer <- function(x){
re=NULL
for(fun in actions){ # try all methods
v=fun(x) # drop checked state, in stack ,and itself
if(!is.rim(v,.stack) & !is.rim(v,.checked) & !all(v==x)) re=rbind(re,fun(x))
}
uni.re=unique(re) # delete duplicated
return(uni.re)
}
state=t0
while(!is.goal(.stack[1,])){
(p=pop())
(tr=transfer(p))
(.checked <<- unique(rbind(p,.checked))) # add to .checked GLOBELY
push(tr)
(.stack)
if(!is.null(transfer(.stack[1,]))) state=rbind(state,.stack[1,])
}
rownames(state)=NULL
colnames(state)=paste0(c(Amax,Bmax),'L')
return(state)
}
> pitcher(11,7,9)
11L 7L
[1,] 0 0
[2,] 11 0
[3,] 4 7
[4,] 4 0
[5,] 0 4
[6,] 11 4
[7,] 8 7
[8,] 8 0
[9,] 1 7
[10,] 1 0
[11,] 0 1
[12,] 11 1
[13,] 5 7
[14,] 5 0
[15,] 0 5
[16,] 11 5
[17,] 9 7
[18,] 9 0
最短解なのか自信がもてんが、まあ、結果が出せたからよしとする。
パソコンを更新したから、PrologとかCとか普段使わないのは再インストールしてなかった。
このスレ的には こういう問題にした方が面白いな。
30人が優劣のないA、B、Cの３大学院（一院の定員10人）に進学する
成績順に成績1位の人から順番にルーレットを回してA、B、Cに割り振られていく
途中で定員に達したら締切で、残りの組のみからなるルーレットを回す
30人めは>622のようなド底辺シリツ医大のガチの裏口入学学生（ガチ裏、と略す）である。
成績のよい方がガチ裏と同じ大学院に進む可能性が少ないと言えるか？
rm(list=ls())
sim <- function(a,b,n=6){
r=numeric(n)
for(i in 1:n){
j=which(c(sum(r==1)<n/3 , sum(r==2)<n/3 , sum(r==3)<n/3 ))
r[i]=as.numeric(sample(as.character(j),1))
}
A=c(which(r==1))
B=c(which(r==2))
C=c(which(r==3))
room=rbind(A=A,B=B,C=C)
ans=FALSE
for(i in 1:3){
if(any(room[i,]==a) & any(room[i,]==b)) {
ans=TRUE
break
}
}
ans
}
f <- function(x,k=1e5){
mean(replicate(k,sim(n=6,a=x[1],b=x[2])))
}
p=combn(6,2,f)
rbind(combn(6,2),p)
person=combn(6,2)
data.frame(person[1,],person[2,],同室確率=p)
道楽でプログラムを組むのは楽しいけれど、仕事にしていたら大変だろうなぁ。
来年１月に解散総選挙を行えば、自民党議席が大幅に減るのは見えてるわな
しかし、政権交代には至らないのも見えてる
減税も主張できない旧民主党では誰も受け皿と考えない
では初の大敗を喫した安倍を自民党が見限るか、と言えば、それも微妙だわな
現時点で安倍の尻拭いをしたがる奴は居ないだろ
任期の再来年秋まで安倍にやらせて、経済がどん底になった状態なら、責任を全て安倍に被せる事ができるよな
しかし、五輪前に交代となると、見えてる五輪後不況の責任が自分にかかってくる・・・
さすがの岸田も嫌がるだろｗ
安倍には任期いっぱいまで、非難を受け続けて貰わないとならない・・・
となると、来年早期の解散は自民党議席を減らす結果しか生まないよ
安倍が解散総選挙で打開しようとするのは自民党が許さないんじゃね？
900人を対象に実施したある試験の得点は，平均が300点，標準偏差が30点の正規分布に従うという。
成績が上位100番までの受験者の得点は，何点以上と考えられるか。
...
http://2chb.net/r/math/1577457155/12
sd=30
mu=300
pdf <- function(x) 1/(sqrt(2*pi)*sd)*exp(-(x-mu)^2/(2*sd^2))
cdf <- function(x) integrate(pdf,x,Inf)$value
uniroot(function(x) cdf(x)-100/900,c(200,400))$root なんで私が東大に」じゃなくて、「なんで私が量子力学」とか、「なんで私がRuby」とか、「なんで私がサザンブロット」とかいう広告が出るようになったら、日本も変わるよね。大学のブランドじゃなくて、何を学ぶかという実質が大切。
rm(list=ls())
n=30
sim <- function(a,b){
r=numeric(n)
for(i in 1:n){
j=which(c(sum(r==1)<n/3 , sum(r==2)<n/3 , sum(r==3)<n/3 ))
r[i]=as.numeric(sample(as.character(j),1))
}
A=c(which(r==1))
B=c(which(r==2))
C=c(which(r==3))
room=rbind(A=A,B=B,C=C)
ans=FALSE
for(i in 1:3){
if(any(room[i,]==a) & any(room[i,]==b)) {
ans=TRUE
break
}
}
ans
}
f <- function(x,k=1e5){
mean(replicate(k,sim(a=x[1],b=x[2])))
}
p=combn(n,2,f)
rbind(combn(n,2),p)
person=combn(n,2)
data.frame(person[1,],person[2,],同室確率=p)
>>641
このシミュレーション結果を数学板に上げたら
プログラムでの解析解（分数解）のレスがついた。
プログラムの達人っているなぁ。
ド底辺シリツにはいないけど。 >>645
何でこんなのが医大に？というのが日本の現実。
シリツ医＝裏口入学容疑者 rm(list=ls())
# リストアップ n人を３部屋に分ける90通りをdat3にリストアップ
n=6
f <- function(num, N=3, digit = n){
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
vf=Vectorize(f)
dat=vf(0:(3^n-1))
dat=t(dat)+1
f3 <- function(x){sum(x==1)==n/3 & sum(x==2)==n/3 & sum(x==3)==n/3}
idx=apply(dat,1,f3)
dat3=dat[idx,]
# head(dat3); tail(dat3)
##
ra2p <- function(x){ # 部屋割り配列からその確率を返す room allocation to probability
n=length(x)
y=numeric(3) # ルーレット後にA,B,Cに埋まった人数の数列
z=0 # ルーレット後に満室の数
p=numeric(n) # 収容可能な部屋から特定の部屋が選ばれる確率の配列
p[1]=1/3
for(i in 1:(n-1)){
xi=x[1:i] # i番目までの部分数列
y=c(sum(xi==1),sum(xi==2),sum(xi==3)) # A,B,cの収容人数
z=sum(y==n/3) # 満室の数 0 ～３
p[i+1]=c(1/3,1/2,1,1)[z+1] ;p # 1/(残り部屋種類数) 1/3, 1/2, 1のいずれか
}
prod(p)
}
# sum(apply(dat3,1,ra2p)) # 総和１を確認
srp <- function(x){ # a,bが同室の部屋割り配列の確率を総和する
a=x[1]
b=x[2]
sum(apply(dat3[dat3[,a]==dat3[,b],],1,ra2p))
}
p=combn(n,2,srp) # 組合わせごとに実行
person=combn(6,2)
data.frame(person[1,],person[2,],同室確率=p)
人工知能時代に、人間が「賢い」ことで自らを定義付けることができなくなるとするならば、人間が人間であることの「存在証明」は、どこに求めればよいのか？
このような「存在論的不安」は、人工知能に職を奪われるといった懸念よりも深刻で、またある意味ではリアルである。
> sim <- function(n=30,a=29,b=30){
+ r=numeric(n)
+ for(i in 1:n){
+ j=which(c(sum(r==1)<10 , sum(r==2)<10 , sum(r==3)<10 ))
+ r[i]=as.numeric(sample(as.character(j),1))
+ }
+ A=c(which(r==1))
+ B=c(which(r==2))
+ C=c(which(r==3))
+ room=rbind(A=A,B=B,C=C)
+ ans=FALSE
+ for(i in 1:3){
+ if(any(room[i,]==a) & any(room[i,]==b)) {
+ ans=TRUE
+ break
+ }
+ }
+ ans
+ }
> mean(replicate(1e3,sim(n=30,a=29,b=30)))
[1] 0.752
> mean(replicate(1e4,sim(n=30,a=29,b=30)))
[1] 0.7401
> mean(replicate(1e5,sim(n=30,a=29,b=30)))
[1] 0.74164
> mean(replicate(1e6,sim(n=30,a=29,b=30)))
[1] 0.741122
>>
分からない問題はここに書いてね456
http://2chb.net/r/math/1567866548/920
920 名前：１３２人目の素数さん[sage] 投稿日：2019/12/27(金) 02:38:36.59 ID:yVLOQFDS
ABCの三組（一組の上限人数10人）に組分けをする
成績1位～30位までの30人が、1位の人から順番にルーレットを回してABCに割り振られていく
途中で上限人数に達したら締切で、残りの組のみからなるルーレットを回す
これって、最後の方に回すことになる成績悪い人が同じ組に固まりやすかったりしますか？最後にどこかの組が空いてたらそこになだれ込んじゃうわけですし
<<
２９番と３０番が同じ組になる場合の数は
> 3*factorial(28)/factorial(10)/factorial(10)/factorial(8) # 3*28!/(10!*10!*8!)
[1] 1722723142140
とても虱潰しじゃあ、扱えないぁ。 １２人までならなんとか実用的な時間で計算が終了
> data.frame(person[1,],person[2,],同室確率=p)
person.1... person.2... 同室確率
1 1 2 0.3333333333
2 1 3 0.3333333333
3 1 4 0.3333333333
4 1 5 0.3209876543
5 1 6 0.3004115226
6 1 7 0.2784636488
7 1 8 0.2601737540
8 1 9 0.2369875019
9 1 10 0.2117690393
10 1 11 0.1956034395
11 1 12 0.1956034395
12 2 3 0.3333333333
13 2 4 0.3333333333
14 2 5 0.3209876543
15 2 6 0.3004115226
16 2 7 0.2784636488
17 2 8 0.2601737540
18 2 9 0.2369875019
19 2 10 0.2117690393
20 2 11 0.1956034395
21 2 12 0.1956034395
22 3 4 0.3333333333
23 3 5 0.3209876543
24 3 6 0.3004115226
25 3 7 0.2784636488
26 3 8 0.2601737540
27 3 9 0.2369875019
28 3 10 0.2117690393
29 3 11 0.1956034395
30 3 12 0.1956034395
31 4 5 0.3209876543
32 4 6 0.3004115226
33 4 7 0.2784636488
34 4 8 0.2601737540
35 4 9 0.2369875019
36 4 10 0.2117690393
37 4 11 0.1956034395
38 4 12 0.1956034395
39 5 6 0.3065843621
40 5 7 0.2846364883
41 5 8 0.2663465935
42 5 9 0.2423887365
43 5 10 0.2163986689
44 5 11 0.1998472667
45 5 12 0.1998472667
46 6 7 0.3010973937
47 6 8 0.2828074989
48 6 9 0.2567920287
49 6 10 0.2287443479
50 6 11 0.2111641391
51 6 12 0.2111641391
52 7 8 0.3102423411
53 7 9 0.2807975156
54 7 10 0.2493204796
55 7 11 0.2300255932
56 7 12 0.2300255932
57 8 9 0.3128048316
58 8 10 0.2767553219
59 8 11 0.2551741985
60 8 12 0.2551741985
61 9 10 0.3359212264
62 9 11 0.3116728268
63 9 12 0.3116728268
64 10 11 0.4228918991
65 10 12 0.4228918991
66 11 12 0.5868103185
ZooG <- function(L=1,M=1,N=1,A=36,B=24){ # グラフに結果を表示
alpha=B/180*pi ; beta=A/180*pi
a=M/N # length of 0P
b=L/N # length of PQ
P=a*(cos(alpha)+1i*sin(alpha))
Q=P+b*(cos(alpha+pi-beta)+1i*sin(alpha+pi-beta))
(pi-Arg(Q-1))/pi*180 # degree of Q-I-0
max(Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180, Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180+360) # degree of P-Q-I
abs(Q-1) # length of QI
xlim=ylim=max(a,b)*c(-1,1)
plot(0,xlim=xlim,ylim=ylim,bty='l',type='l',axes=FALSE, ann=FALSE,asp=1)
seg <- function(a,b,color=2,...) segments(Re(a),Im(a),Re(b),Im(b),col=color,...)
pt <- function(x,y=NULL,...) text(Re(x),Im(x), ifelse(is.null(y),'+',y), ...)
seg(0,1) ; seg(0,P) ; seg(P,Q)
pt(0,paste('O',B,'°')) ; pt(1,'I') ; pt(P,paste('P ',A,'°')) ; pt(Q,'Q')
pt((P+Q)/2, paste('L = ',L)) ; pt((P+0)/2, paste('M = ',M)) ; pt(1/2, paste('N = ',N))
seg(1,Q,col=1,lty=2)
angleI=(pi-Arg(Q-1))/pi*180 # degree of Q-1-0
if(angleI<0)angleI=angleI+360
if(angleI>360)angleI=angleI-360
if(angleI>180 & angleI<360) angleI=360-angleI
angleQ=Arg(Q-P)/pi*180 - Arg(Q-1)/pi*180 # degree of P-Q-1
if(angleQ<0)angleQ=angleQ+360
if(angleQ>360)angleQ=angleQ-360
if(angleQ>180 & angleQ<360) angleQ=360-angleQ
length=abs(Q-1)*N # length of Q1
res=c(angleQ=angleQ,angleI=angleI,QIlength=length)
legend('topright',bty='n',legend=paste(' angle Q = ', round(angleQ,3),'°\n angle I = ',round(angleI,3),
'°\n Q-I length = ',round(length,3)),cex=0.8)
return(res)
}
たいせつなことの一つは、子どもは健全な成長の過程で必ず「毒を吐く」ということである。
それは彼らが彼らを保護してきた皮膜を破るときに必ず起きる生理現象である。
それまで彼らを守ってきたものを文字通り「弊履のごとく」捨てないと子どもたちは「脱皮」できない。
相当甘やかされて年を重ねた人なんだね。これからは誰も守ってくれないよ。
rm(list=ls())
# rmax=3 # 部屋の数
# rcap=2 # 各部屋の定員
# a=4 # 対象者の番号
# b=6 # 対象者の番号
Same_Room <- function(AB=5:6,rmax=3,rcap=2){
n=rmax*rcap # 割り当てる人数
N=rmax^n-1 # 最大配列数
a=AB[1]
b=AB[2]
# number 2 array
n2a <- function(num, N=rmax, digit = n){ # 数字をrmax進法でｎ桁の数列にして部屋番号に
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r+1) # 部屋番号は１から始まる
}
# (x99=n2a(99)) # 割当不能
# (x140=n2a(sum((c(1,2,3,1,2,3)-1)*3^(5:0)))) # 割当可能
# (x480=n2a(sum((c(1,2,2,1,3,3)-1)*3^(5:0)))) # 割当可能で最後の２人が同室
# possible room allocation to probability
pra2p <- function(x){ # 割当可能か判断して配列からその確率を返す
if (all(unlist(table(x))==rcap) & x[a]==x[b]){ # 可能な割当でa番目とb番目が同じ部屋なら
n=length(x)
z=0 # ルーレット後の満室の数
p=numeric(n) # 収容可能な部屋から特定の部屋が選ばれる確率の配列
p[1]=1/rmax
for(i in 1:(n-1)){
y=NULL # ルーレット後の部屋に埋まった人数の数列
xi=x[1:i] # i番目までの部分数列
for(j in 1:rmax){ y=append(y,sum(xi==j))} # 各部屋の収容人数
z=sum(y==rcap) # 満室の数 0 ～rmax
p[i+1]=c(1/(rmax:1),1)[z+1] # 1/(収容可能部屋数)=1/rmax, 1/(rmax-1)～ 1
}
return(prod(p))
}else{
return(0)
}
}
# pra2p(x99)
# pra2p(x140)
# pra2p(x480)
#
psab=0 # Probability of same allocation for a and b
for(i in 1:N){
psab=psab+pra2p(n2a(i))
}
return(psab)
}
p=combn(6,2,Same_Room)
person=combn(6,2)
options(digits=10)
data.frame(person[1,],person[2,],同室確率=p)
Same_Room(AB=8:9,rmax=3,rcap=3)
try(Same_Room(AB=c(14,15),rmax=3,rcap=5))
library(gtools)
a=c(1,1,2,2,3,3)
b=permutations(6,6)
f = function(x) a[x]
c=apply(b,1,f)
unique(t(c))
library(gtools)
a=c(1,1,2,2,3)
b=permutations(5,5)
f = function(x) a[x]
c=apply(b,1,f)
unique(t(c))
中韓と左翼をディスって悦にいっている自称、保守が日本の衰退を加速させたな。
>>669
リストアップしてから篩い分けをリストアップに篩い分け操作を組み込んだけど期待したほど高速化しなかったな。 library(gtools)
v=rep(1:3,5)
x=try(unique(permutations(length(v),length(v),v,set=FALSE,rep=FALSE)))
tail(x)
官僚は安倍に内緒でこっそり元データや元資料を保管して安倍を脅すネタに使えるようにしているだろうな。
今は、安倍を擁護して貸しを作って安倍を支配している。
安倍って真っ黒だな。
ダウンロード＆関連動画＞＞
@YouTube
夢にチャレンジする際に、ベストを尽くす必要があるのは、そうでなければ、もしダメだった時に、夢を諦めきれないからです。全力を尽くして、それでも届かずに、諦めたひとは、その後の人生を、悔いなく、別の道に行くことができると思います。
人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。
これな！
不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
library(gtools)
enum <- function(v){
w=try(permutations(length(v),length(v),v,set=FALSE,rep=FALSE))
x=try(unique(w))
tail(x)
}
enum(c(1,2,2,3,3,3))
enum(c(1,2,2,3,3,3,4))
enum(c(1,2,2,3,3,3,4,4))
enum(c(1,2,2,3,3,3,4,4,4))
enum(c(1,2,2,3,3,3,4,4,4,4))
何通りあるかの計算の方が列挙するよりずっと楽だな。
> enum(c(1,2,2,3,3,3,4,4,4,4))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[12595,] 4 4 4 4 3 3 2 2 3 1
[12596,] 4 4 4 4 3 3 2 3 1 2
[12597,] 4 4 4 4 3 3 2 3 2 1
[12598,] 4 4 4 4 3 3 3 1 2 2
[12599,] 4 4 4 4 3 3 3 2 1 2
[12600,] 4 4 4 4 3 3 3 2 2 1
3628800通りを重複を除くと12600通り
> factorial(10)/factorial(2)/factorial(3)/factorial(4)
[1] 12600
の計算通りだな。
再帰プログラミングになるから大変。
私立医親のかなりが安倍にカネ貢いでいる。
大手医療グループで朝鮮系ならほぼ１００%安倍友病院。
indexの順列を作って、配列の要素に置き換えて 重複を除去 という作業になるな。
library(gtools)
v=c(1,2,2)
(w=permutations(3,3,v,set=FALSE,rep=FALSE))
(x=matrix(v[permutations(3,3)],ncol=3))
unique(w)
あと1ヶ月ほどで国家試験だな。医学生は今ごろ必死になって勉強をしてるだろう。医学生頑張れ！
医学部生最大のイベントだもんな。後悔しないためにも頑張れよ！
国試にこだわるアホ＝ド底辺シリツ医
難関私立中学入試の方が難しいな。
以前に書いた問題だけど、ド底辺シリツ医からは解答はなかったなぁ。
国試でこういう基礎学力の有無を判定する問題を出すべきだな。
私立医大卒＝裏口入学容疑者なのだから。
診療所から病院に患者を救急搬送する。
病院から医師搭乗の救急車が診療所に向かっており１０時到着予定と連絡が入った。
患者の病態が悪化したら、診療所の普通車で病院に向かい救急車と出会ったら
救急車に患者を移して搬送し病院到着を急ぐという計画を立てた。
普通車から救急車への患者の乗り換えで１０分余分に時間がかかる。
道路事情から救急車は病院から診療所への道は
平均時速６０ｋｍで、逆方向は平均時速４５ｋｍで定速走行する。診療所の普通車は信号待ちもあり平均時速３０kmで定速走行する。
何時以降の病態悪化は診療所の車を使わずに救急車の到着を待つ方が病院に早く着くか？
>>658
64段のハノイの塔が5800億年かかるのを思い出した。 >>658
100万回のシミュレーションで近似値を出してみた。
0.741349 Get-AppxPackage *photos* | Remove-AppxPackage
2016年。
安倍総理「私自身は、TPP断固反対と言った事はただの一回もない。
私が言ったかの如くの発言は慎んでいただきたい」
2013年。
安倍総理「私は先の衆院選でTPP交渉参加に反対するという公約を掲げ
自民党は政権に復帰をした」
https://video.tw●img.com/ext_tw_video/1168848134421635072/pu/vid/586x270/W-2L53bemBjsRN6b.mp4 世間を見ると、学校の成績がよかったとか、知識があるとかそういう人に限って、実際に試す前に見切った気になってしまって、行動しないことが多い。それでは、成功はおぼつかないだろう。
子役の親は富と名誉を手に入れたいというアメリカンドリームの為に子供達の全てを売り、どんな下劣な事をもやらせるが、子供達は彼らを恐れ我慢する。イルミナティによる人身売買は密室で子役の値段を商談し売買し、気に入られた子役はメディアに出演出来る。
ハリウッド業界では人身売買と違法薬剤は常識の為、大人は黙認しているという。
アヘン戦争とロスチャ とロック
> p=combn(9,2,function(x) Same_Room(x,rmax=3,rcap=3))
> data.frame(person[1,],person[2,],同室確率=p)
person.1... person.2... 同室確率
1 1 2 0.3333333333
2 1 3 0.3333333333
3 1 4 0.2962962963
4 1 5 0.2592592593
5 1 6 0.2345679012
6 1 7 0.1985596708
7 1 8 0.1723251029
8 1 9 0.1723251029
9 2 3 0.3333333333
10 2 4 0.2962962963
11 2 5 0.2592592593
12 2 6 0.2345679012
13 2 7 0.1985596708
14 2 8 0.1723251029
15 2 9 0.1723251029
16 3 4 0.2962962963
17 3 5 0.2592592593
18 3 6 0.2345679012
19 3 7 0.1985596708
20 3 8 0.1723251029
21 3 9 0.1723251029
22 4 5 0.2777777778
23 4 6 0.2530864198
24 4 7 0.2124485597
25 4 8 0.1838991770
26 4 9 0.1838991770
27 5 6 0.2901234568
28 5 7 0.2402263374
29 5 8 0.2070473251
30 5 9 0.2070473251
31 6 7 0.2772633745
32 6 8 0.2379115226
33 6 9 0.2379115226
34 7 8 0.3371913580
35 7 9 0.3371913580
36 8 9 0.5169753086
「私には理解できない考え方をする人間のことば」に耳を傾ける習慣を持つものしか、あなたのことばを聴き取ってはくれないのである。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。
夢にチャレンジする際に、ベストを尽くす必要があるのは、そうでなければ、もしダメだった時に、夢を諦めきれないからです。全力を尽くして、それでも届かずに、諦めたひとは、その後の人生を、悔いなく、別の道に行くことができると思います。
どうしていいかわからない。
どうしていいかわからないときにでも、「とりあえず『これ』をしてみよう」とふっと思いつく人がいる。
そういう人だけが「なまもの相手」の現場に踏みとどまることができる。
「低学力の子どもは自らの力で窮地を抜け出す能力、すなわち他者を信頼し、他者に援助を求める能力を育てなければならない。」
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。
>>702
いや、このレスには説得力がある。
how do you think they keep the app free? they sell your information. uninstall immediately.
んで、Chromeの拡張機能のTorrent Streamに変更。 "平面上に2点A(2，3)，B(5，3)と直線x+y-2=0がある。この直線上に点Pをとるとき，
AP+BPを最小にするような点Pの座標を求めよ。"
f <- function(p,A=2+3i,B=5+3i){
P=p+(2-p)*1i
abs(A-P)+abs(B-P)
}
optimise(f,c(-50,50),tol = .Machine$double.eps)
curve(f(x),-10,10,bty='l',lwd=2, xlab='p')
>>707
> optimise(f,c(-50,50),tol = .Machine$double.eps)
$minimum
[1] 1
$objective
[1] 6.708204 f <- function(p,A=2+3i,B=5+3i){
P=p+(2-p)*1i
abs(A-P)+abs(B-P)
}
optimise(f,c(-50,50),tol = .Machine$double.eps)
curve(f(x),-10,10,bty='l',xlab='p')
g <- function(p,A=c(2,3),B=c(5,3)){
P=c(p,2-p)
AP=sqrt(sum((A-P)^2))
BP=sqrt(sum((B-P)^2))
AP+BP
}
optimise(g,c(-50,50),tol = .Machine$double.eps)
vg=Vectorize(g)
curve(vg(x),-10,10, type='p', col='blue',add=T)
複素平面表示の方が計算が楽だな。()の対応でのミスが起こりにくい。
夢にチャレンジする際に、ベストを尽くす必要があるのは、そうでなければ、もしダメだった時に、夢を諦めきれないからです。全力を尽くして、それでも届かずに、諦めたひとは、その後の人生を、悔いなく、別の道に行くことができると思います。
低学力の子どもは自らの力で窮地を抜け出す能力、すなわち他者を信頼し、他者に援助を求める能力を育てなければならない。」
>>712
つまり、裏口入学ですなぁ。
シリツ医＝裏口入学容疑者 正月でもそんなんやっとんでっか
数学オタク、病人レベルですやん
いえいえ 医学の学力が低くて長い間国試を合格できないあなたのことです。早く自立できないと後になって悔いが残りますよ。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。
>>714
>687の計算できないとカテ室到着が遅れるぞ。
正月明けまでに計算とともに正解を出してみ。
微積分も統計もいらない四則演算だけで計算できるぞ。 まだまだ子供ですね。五十歳半ばを過ぎているのにね。恥ずかしいですよ。
>>718
>687の計算できないとカテ室到着が遅れるぞ。
正月明けまでに計算とともに正解を出してみ。
微積分も統計もいらない四則演算だけで計算できるぞ。
加減乗除で算出できるぞ。
ひょっとしてあれ？
う
ら
ぐ
ち
！
？ >>707
直線x+y-2=0をmとする。
mを軸とする点Aの対称点をCとすると、直線BCとmとの交点がPとなる。 ちょっと問題をド底辺シリツ医向きから変えてみた。
平面上に2点A(2，3)，B(5，3)と円x^2+y^2=2^2がある。この直線上に点Pをとるとき，
AP+BPを最小にするような点Pの座標を求めよ。
f <- function(theta,A=2+3i,B=5+3i){
P=2*cos(theta)+2i*sin(theta)
abs(A-P)+abs(B-P)
}
opt=optimise(f,c(-pi,pi))
theta=opt$minimum
> c(2*cos(theta),2*sin(theta))
[1] 1.3892 1.4388
>>696
分数表示は数学板だと、忌避されるから 既約分数表示にしてみた。手間がかかったな。
> Same_Room(AB=c(5,6),rmax=3,rcap=2)
5 & 6 : 7 / 18 = 0.3888888889
>
> person=combn(6,2)
> p=combn(6,2,Same_Room)
1 & 2 : 1 / 3 = 0.3333333333
1 & 3 : 2 / 9 = 0.2222222222
1 & 4 : 5 / 27 = 0.1851851852
1 & 5 : 7 / 54 = 0.1296296296
1 & 6 : 7 / 54 = 0.1296296296
2 & 3 : 2 / 9 = 0.2222222222
2 & 4 : 5 / 27 = 0.1851851852
2 & 5 : 7 / 54 = 0.1296296296
2 & 6 : 7 / 54 = 0.1296296296
3 & 4 : 13 / 54 = 0.2407407407
3 & 5 : 17 / 108 = 0.1574074074
3 & 6 : 17 / 108 = 0.1574074074
4 & 5 : 7 / 36 = 0.1944444444
4 & 6 : 7 / 36 = 0.1944444444
5 & 6 : 7 / 18 = 0.3888888889 >>727
既約分数ルーチンの実行
> DEL=replicate(20,CA(sample(100,4)))
34 / 37 + 57 / 91 = 5203 / 3367
35 / 78 + 17 / 37 = 2621 / 2886
33 / 63 + 81 / 80 = 2581 / 1680
76 / 78 + 16 / 40 = 268 / 195
27 / 45 + 93 / 37 = 576 / 185
11 / 41 + 91 / 89 = 4710 / 3649
31 / 52 + 69 / 86 = 3127 / 2236
80 / 81 + 4 / 92 = 1921 / 1863
4 / 86 + 55 / 7 = 2379 / 301
10 / 55 + 70 / 50 = 87 / 55
68 / 22 + 83 / 67 = 3191 / 737
62 / 86 + 70 / 80 = 549 / 344
7 / 66 + 79 / 49 = 5557 / 3234
99 / 90 + 59 / 98 = 417 / 245
95 / 52 + 58 / 79 = 10521 / 4108
34 / 10 + 61 / 87 = 1784 / 435
100 / 47 + 21 / 72 = 2729 / 1128
41 / 72 + 99 / 35 = 8563 / 2520
26 / 60 + 41 / 82 = 14 / 15
8 / 90 + 22 / 82 = 659 / 1845 引き算のときがあるので表示を変更
> DEL<-replicate(20,CAB(A=c(sample(-100:100,1),sample(100,1)),B=c(sample(-100:100,1),sample(100,1))))
( 51 / 32 ) + ( -51 / 2 ) = -765 / 32
( -67 / 74 ) + ( -46 / 58 ) = -3645 / 2146
( -88 / 22 ) + ( 97 / 87 ) = -251 / 87
( -86 / 96 ) + ( 93 / 97 ) = 293 / 4656
( -85 / 15 ) + ( -57 / 59 ) = -1174 / 177
( 9 / 75 ) + ( 94 / 67 ) = 2551 / 1675
( 16 / 52 ) + ( 80 / 22 ) = 564 / 143
( -62 / 91 ) + ( -65 / 67 ) = -10069 / 6097
( 91 / 17 ) + ( 17 / 38 ) = 3747 / 646
( -14 / 98 ) + ( -69 / 65 ) = -548 / 455
( 6 / 41 ) + ( -93 / 33 ) = -1205 / 451
( 27 / 18 ) + ( 33 / 74 ) = 72 / 37
( 31 / 39 ) + ( 9 / 32 ) = 1343 / 1248
( -85 / 47 ) + ( 41 / 46 ) = -1983 / 2162
( 45 / 63 ) + ( 34 / 79 ) = 633 / 553
( 57 / 23 ) + ( 24 / 69 ) = 65 / 23
( -59 / 25 ) + ( -5 / 62 ) = -3783 / 1550
( -20 / 54 ) + ( -70 / 66 ) = -425 / 297
( 65 / 91 ) + ( -22 / 77 ) = 3 / 7
( 32 / 3 ) + ( 70 / 30 ) = 13 / 1
パッケージ MASSに少数を分数で近似する関数 fractionsがあるとstackoverflowのQ&Aで知った。
> library(MASS)
> options(digits = 22)
> fractions(c(437/1296,335/1944,467/1944,715/3888,925/3888))
[1] 437/1296 335/1944 467/1944 715/3888 925/3888
>
> x=413/1944 ; fractions(x)
[1] 256/1205
> y=as.numeric(unlist(strsplit(attributes(fractions(x))$fracs,split="/")))
> x ; y[1]/y[2]
[1] 0.21244855967078188
[1] 0.21244813278008298
>
> x=539/1944 ; fractions(x)
[1] 389/1403
> y=as.numeric(unlist(strsplit(attributes(fractions(x))$fracs,split="/")))
> x ; y[1]/y[2]
[1] 0.27726337448559668
[1] 0.27726300784034213
> fractions(pi) ; 4272943/1360120 ; pi
[1] 4272943/1360120
[1] 3.141592653589389
[1] 3.1415926535897931
> fractions(sqrt(3)) ; 989/571 ; sqrt(3)
[1] 989/571
[1] 1.7320490367775832
[1] 1.7320508075688772
パラメータのcycles(デフォルト値10)を増やしたら正解を返してきた。
> fractions(c(413/1944,539/1944),cycles=16)
[1] 413/1944 539/1944
>>731
表示はできても、取り出しは面倒
library(MASS)
x = fractions(pi)
str(x)
?attr
attr(x,"fracs")
strsplit(attr(x,'fracs'),'/')
unlist(strsplit(attr(x,'fracs'),'/'))
as.numeric(unlist(strsplit(attr(x,'fracs'),'/')))
real2frac <- function(x,...) as.numeric(unlist(strsplit(attr(fractions(x,...),'fracs'),'/')))
vr2f=Vectorize(real2frac)
vr2f(c(pi,exp(1),sqrt(2),sqrt(3)))
vr2f(c(pi,exp(1),sqrt(2),sqrt(3)),cycle=16)
> vr2f(c(pi,exp(1),sqrt(2),sqrt(3)))
[,1] [,2] [,3] [,4]
[1,] 4272943 2721 8119 989
[2,] 1360120 1001 5741 571
> vr2f(c(pi,exp(1),sqrt(2),sqrt(3)),cycle=16)
[,1] [,2] [,3] [,4]
[1,] 19870569874 1084483 1607521 51409
[2,] 6324998835 398959 1136689 29681 https://www.rdocumentation.org/packages/MASS/versions/7.3-51.5/topics/fractions
Details
Each component is first expanded in a continued fraction of the form
x = floor(x) + 1/(p1 + 1/(p2 + …)))
where p1, p2, … are positive integers, terminating either at cycles terms or when a pj > max.denominator. The continued fraction is then re-arranged to retrieve the numerator and denominator as integers.
The numerators and denominators are then combined into a character vector that becomes the "fracs" attribute and used in printed representations.
Arithmetic operations on "fractions" objects have full floating point accuracy, but the character representation printed out may not.
取出し方が書いてないんだよなぁ。
分かっている人でないと理解できないのがRのHelpファイルの1例
属性を attrで取出して 文字列を'/'で分割、そのリストをunlistで配列にしてから文字列を数値に変換
real2frac <- function(x,...) as.numeric(unlist(strsplit(attr(fractions(x,...),'fracs'),'/'))) よくできました。と褒めて頭を撫でてくれる人はもういない。早く子供から大人になて欲しい。どこに行ってもバカにされるだけですよ。五十代半ばの落ちこぼれ君へ
>>734
MASS::fractions ; MASS:::.ratでソース表示させて、改造してみた
frac <- function (x, cycles = 16, max.denominator = 2000)
{
a0 <- rep(0, length(x))
A <- matrix(b0 <- rep(1, length(x)))
fin <- is.finite(x)
B <- matrix(floor(x))
r <- as.vector(x) - drop(B)
len <- 0
while (any(which <- fin & (r > 1/max.denominator)) && (len <- len + 1) <= cycles) {
a <- a0
b <- b0
a[which] <- 1
r[which] <- 1/r[which]
b[which] <- floor(r[which])
r[which] <- r[which] - b[which]
A <- cbind(A, a)
B <- cbind(B, b)
}
pq1 <- cbind(b0, a0)
pq <- cbind(B[, 1], b0)
len <- 1
while ((len <- len + 1) <= ncol(B)) {
pq0 <- pq1
pq1 <- pq
pq <- B[, len] * pq1 + A[, len] * pq0
}
pq[!fin, 1] <- x[!fin]
cat(x,'\n')
c(pq[1],pq[2])
} 大学受験に落ちて多浪していること、大学では多留していること、長らく国家試験に落ちてしまうことからして、勉強の仕方がわかってないんだね。勉強法を勉強するべきですね。
円周率を分数で近似
> options(digits=22)
> frac(pi,cy=3,show=T)
3.1415926535897931
->
3.1415929203539825
[1] 355 113
> frac(pi,show=T)
3.1415926535897931
->
3.1415926535897931
[1] 19870569874 6324998835
ネイピア数を分数で近似
> frac(exp(1))
[1] 1084483 398959
> frac(exp(1),cy=16,show=T)
2.7182818284590451
->
2.7182818284585633
[1] 1084483 398959
ソース改造して文字列から切り取って数値に変換する面倒な手続きが不要になった。
> pia=frac(pi,cy=3)
> pia[1] ; pia[2]
[1] 355
[1] 113
> frac(pi,cy=3,show=T)
3.1415926535897931
->
3.1415929203539825
3桁の整数の分数で割といい近似をしている。
分数が扱えるようになったので数学板への投稿が楽になる。
不定長整数の扱える言語を使う手もあるけど。ソース改造できるRの方が融通が効く。
Rが使えるって自転車に乗れるくらいで自慢にならんよ。
そもそも、ド底辺シリツ医にはRのコードも読めないだろ。
みんなに褒められて そして女性たちにチヤホヤされてモテたいのかい？
その認識は全て根本的に間違ってるよ。
>>743
そもそも、何が良くできているのかすらもわからんド底辺裏口医だろ。
こういう問題を解くのもプログラミングしておくと、あとで利用できる。
ある女子大生が検査データをもって受診した。
問診票には身長160cmの記載はあるが、体重は未記載であった。
検査データではCcr:150mL/min 血清:Cr0.5mg/dL 尿中Cr:50mg/dL 一日尿量2000mLとあった。
Ccr計算の体表面積 BSA(m2)は Du Bois式 = 体重(kg)^0.425×身長(cm)^0.725×0.007184 で計算とみなす。
身長が160ｃｍにはみえなかったので問うと、それくらいだったらいいなぁという数字を書きましたという。
恥ずかしいので身長・体重はどうしても答えらませんが、BMIなら29と教えられます、とのこと。
この女子大生の身長体重はいくらか？ これでは国試に不合格するわけだ。ちゃんと医学の勉強しようね。五十代のぼくちゃんへ。
第三法則実証乙
Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
成熟した女性は成熟した大人の男性を好むものです。子供っぽい男性は眼中にありません。
一般化すればこれで数値解が出せる。
平面上に2点A、Bと曲線y=f(x), l<x<uがある。
この曲線上に点Pをとるとき，AP+BPを最小にするような点Pの座標を求めよ。"
f <- function(p,A,B){
P=p+f(p)*1i
abs(A-P)+abs(B-P)
}
optimise(f,c(l u))
作図すら不要。
プログラム言語が必要だが
昨今は無料で入手できるから。
でもシリツ医には無理だろな、裏口容疑者ですもの。
>>743
ナマポの爺さんですら裏口シリツに撫でられたくないと思うよ。
馬鹿が感染ると言われんじゃないの。
曲線がf(x,y)=0という陰関数で表されていたらどうすれば数値解が出せるだろう？ >>755
陽関数でなくて、媒介変数表示までもっていければ、数値解はだせるな。
A,Bと双曲線x^2-y^2=1上の結ぶ線の最小値
f <- function(t,A=2+3i,B=5+3i){
x=1/cos(t)
y=tan(t)
P=x+1i*y
abs(A-P)+abs(B-P)
}
t0=optimise(f,c(-pi,pi))$min
c(1/cos(t0),tan(t0))
> c(1/cos(t0),tan(t0))
[1] 3.162303 3.000027 >>753
こういうのは体験者ならわかる
若い女性のVater乳頭はエロいなぁ。 "
災害が発生していたるところに重症被災者がいる
消防署から出動して救急センターに患者を搬送する
消防署から救急センターへの距離は100km
救急車のガソリンは50L、患者を乗せない状態では燃費は10km/L
患者を乗せての燃費は５km/Lである
患者を救える地域の面積はいくらになるか？
"
rm(list=ls())
graphics.off()
Gas=50 # Gasoline(L)
FE0=10 # Fuel Efficiency w/o Victim(km/L)
FE1=5 # Fuel Efficiency w/ Victim(km/L)
D=100 # Distance between Fire Department(FD) and Emergeny Center(EC)
GC <- function(x,y){ # Gas Comsumption
FD=0
EC=100
A=x+1i*y
abs(FD-A)/FE0+abs(A-EC)/FE1
}
x=y=seq(-Gas*FE1,Gas*FE1,by=1)
z=outer(x,y,GC)
image(x,y,z)
contour(x,y,z,level=Gas,bty='l',lwd=2,add=T)
contour(x,y,z,bty='l',add=T)
text(0,'FD',cex=0.5) ; text(100,0,'EC',cex=0.5)
要するにあと1インチの努力かもしれないんだ。勉強したりしていても、何かこう、「あまり変わらないな」と感じることはあると思う。 ただ、脳は非線形だからあと1～2歩あるいは3歩進んだとき、一気に進むことがあることを覚えておいて欲しい。
モンテカルロシミュレーションで数値解を出してみる
# Monte Carlo simulation
Gas=50 # Gasoline(L)
FE0=10 # Fuel Efficiency w/o Victim(km/L)
FE1=5 # Fuel Efficiency w/ Victim(km/L)
D=100 # Distance between Fire Department(FD) and Emergeny Center(EC)
gc <- function(xy){ # is gas consumption less than constant Gas?
x=xy[1] ; y=xy[2]
sqrt(x^2+y^2)/FE0 + sqrt((x-D)^2+y^2)/FE1 <= Gas
}
k=1e7
mean(replicate(k,gc(runif(2,-Gas*FE1,Gas*FE1))))*(Gas*FE1)^2
> mean(replicate(k,gc(runif(2,-Gas*FE1,Gas*FE1))))*(Gas*FE1)^2
[1] 20929.08
おい、ド底辺 理論値とあっているか？
裏口だから、どうやって計算するのかわからん？
>>760
明らかなバグがあるなぁ。かっこ悪～う。
でも、ド底辺シリツ医には分からんだろうな。
83691.74 km2 が 返ってきた。 俺の頃は指定選択科目だったな。俺の年は泌尿器と精神科で楽勝だった。 どちらも病名が少ない科目だし。
国試にこだわるアホ＝ド底辺シリツ医
難関私立中学入試の方が難しいな。
a=10, b=5,D=100,G=50として
sqrt(x^2+y^2)/a + sqrt((x-D)^2+y^2)/b=G
これをyについて解いて
y = sqrt(-(a^4 D^2)/(a^4 - 2 a^2 b^2 + b^4) + (a^2 b^2 D^2)/(a^4 - 2 a^2 b^2 + b^4) + (2 a^4 D x)/(a^4 - 2 a^2 b^2 + b^4)
- (2 a^2 b^2 D x)/(a^4 - 2 a^2 b^2 + b^4) + (a^4 b^2 G^2)/(a^4 - 2 a^2 b^2 + b^4) + (a^2 b^4 G^2)/(a^4 - 2 a^2 b^2 + b^4)
- (a^4 x^2)/(a^4 - 2 a^2 b^2 + b^4) + (2 a^2 b^2 x^2)/(a^4 - 2 a^2 b^2 + b^4) - (b^4 x^2)/(a^4 - 2 a^2 b^2 + b^4)
- (2 sqrt(a^6 b^6 G^4 - a^6 b^4 D^2 G^2 + 2 a^6 b^4 D G^2 x + a^4 b^6 D^2 G^2 - 2 a^4 b^6 D G^2 x))/(a^4 - 2 a^2 b^2 + b^4))
ｙを[-100,700/3]の区間で定積分して２倍すればいいな。
a=10; b=5;D=100;G=50
y <- function(x){
sqrt(-(a^4*D^2)/(a^4 - 2*a^2*b^2 + b^4) +
(a^2*b^2*D^2)/(a^4 - 2*a^2*b^2 + b^4) +
(2*a^4*D*x)/(a^4 - 2*a^2*b^2 + b^4) -
(2*a^2*b^2*D*x)/(a^4 - 2*a^2*b^2 + b^4) +
(a^4*b^2*G^2)/(a^4 - 2*a^2*b^2 + b^4) +
(a^2*b^4*G^2)/(a^4 - 2*a^2*b^2 + b^4) -
(a^4*x^2)/(a^4 - 2*a^2*b^2 + b^4) +
(2*a^2*b^2*x^2)/(a^4 - 2*a^2*b^2 + b^4) -
(b^4*x^2)/(a^4 - 2*a^2*b^2 + b^4) -
(2*sqrt(a^6*b^6*G^4 - a^6*b^4*D^2*G^2 +
2*a^6*b^4*D*G^2*x + a^4*b^6*D^2*G^2 -
2*a^4*b^6*D*G^2*x))/(a^4 - 2*a^2*b^2 + b^4))
}
integrate(y,-100,700/3)$value*2
> integrate(y,-100,700/3)$value*2
[1] 83693.05
モンテカルロシミュレーション結果は
> k=1e8 ; mean(replicate(k,gc(runif(2,-Gas*FE1,Gas*FE1))))*(2*Gas*FE1)^2
[1] 83691.74
ほぼ一致している。
>>766
別の機会に使えるように関数化しておく。
RescurableArea <- function(G=50,D=100,a=10,b=5){
# G Gasoline(L)
# a Fuel Efficiency w/o Victim(km/L)
# b Fuel Efficiency w/ Victim(km/L)
# D Distance between Fire Department(FD) and Emergeny Center(EC)
y <- function(x){
sqrt(-(a^4*D^2)/(a^4 - 2*a^2*b^2 + b^4) +
(a^2*b^2*D^2)/(a^4 - 2*a^2*b^2 + b^4) +
(2*a^4*D*x)/(a^4 - 2*a^2*b^2 + b^4) -
(2*a^2*b^2*D*x)/(a^4 - 2*a^2*b^2 + b^4) +
(a^4*b^2*G^2)/(a^4 - 2*a^2*b^2 + b^4) +
(a^2*b^4*G^2)/(a^4 - 2*a^2*b^2 + b^4) -
(a^4*x^2)/(a^4 - 2*a^2*b^2 + b^4) +
(2*a^2*b^2*x^2)/(a^4 - 2*a^2*b^2 + b^4) -
(b^4*x^2)/(a^4 - 2*a^2*b^2 + b^4) -
(2*sqrt(a^6*b^6*G^4 - a^6*b^4*D^2*G^2 +
2*a^6*b^4*D*G^2*x + a^4*b^6*D^2*G^2 -
2*a^4*b^6*D*G^2*x))/(a^4 - 2*a^2*b^2 + b^4))
}
l = -(a*(b*G-D))/(a+b)
u =(a*(b*G+D))/(a+b)
integrate(y,l,u)$value*2
}
RescurableArea()
RescurableArea(G=30,D=10,a=8,b=7) 要するにあと1インチの努力かもしれないんだ。勉強したりしていても、何かこう、「あまり変わらないな」と感じることはあると思う。 ただ、脳は非線形だからあと1～2歩あるいは3歩進んだとき、一気に進むことがあることを覚えておいて欲しい。
国試の勉強した方がいいよ。夢なんだろ？今回は見送るとして次は頑張れ！
60歳で医者になれたとして20年以上は医者の仕事ができるぞ。金も入るしさ。
昔、６４歳で研修医になった葛木さんがおられたね。
阪大の理工系？卒で京都医を６０最高で卒業。
シャキッとして志が高かった。
精神疾患に罹患している医者ってけっこういるよね。でもちゃんと仕事をしている。
>>248
知恵遅れという精神疾患を抱えるシリツ医の仕事
川崎卒のドクターを知っていますが 普通に医者として働いてますよ。教養もあります。
数学板より
ある村に狼男がいることがわかった。この狼男は月の形に関係なく深夜0時に 10 分間だけ変身し村人を襲っている。村のリーダーは, 毎夜全村人
を広場に集め, お互いをお互いが監視することにした。この村の状況は以下の通りである。
・全村人はこの村の中に少なくとも一人(一匹) 以上の狼男がいることを知っている。
・狼男は自分が狼男であることを知らない。もし自分が狼男であることに気づいたならば,その狼男はショックのため自殺してしまう。
・狼男が変身したら、 本人以外の全ての人がその人が狼男であることに気づく。しかし狼男だとわかったからといって、村人がその狼男を襲うことはないし、狼男も衆人環視のもとでは村人を襲わない.
・この村は聾唖者の村である.そのため狼男に「あなたは狼男ですよ」
と教えられない(身振り手振りや筆談で教えることもできない).
・ここの村人は皆同様に頭がいい、ある村人が A という事実に気づいた(推測できた、類推できた、帰結できた)ときには, 全村人がその事実に気づいている。
(注:これはオカルト的な意味ではない. A の見えないところでBが箱の中身がメロンであることを知ったとしても,テレパシーでAがそれを知ることはない。)
1日目の深夜,全村人が広場に集まり 10分後静かに帰っていった。
2日目の深夜、やはり全村人が広場に集まり10分後静かに帰っていった。
3日日の深夜、またまた全村人が広場に集まり10分後静かに帰っていった。その翌朝、全ての狼男が自殺していた。この村には狼男が何人いたのだろうか。
>>778
>教養もあります。
教養があるなら、地元の国立大学くらい入れたはず。 >>779
>深夜0時に 10 分間だけ変身し
を裏口入学のシリツ医の額に 深夜0時に 10 分間だけ 裏口の文字が現れる という設定で問題を改変しようと思ったが
元の問題を読んだら、それは不可能であることに気がついた。 >>758
５０Lだと円にみえるけど、じつは円じゃないんだな。
コンピュータなしで解くには難問らしい。
>>778
親のカネが無ければ到底医者になれなかった川崎に教養だとw
チミは私立医のオツムとハートの酷さを知らんな
酷いもんよ
カルテは誤字だらけ患者殺しまくり r について r/a + 1/b sqrt((r cos(θ) - D)^2 + r^2 sin^2(θ)) = G を解く
r = (-sqrt(4 a^2 (a^2 - b^2) (b^2 G^2 - D^2) + a^2 (2 b^2 G - 2 a D cos(θ))^2) + 2 a^2 D cos(θ) - 2 a b^2 G)/(2 (a^2 - b^2))
fuction(th) (sqrt(4*a^2*(a^2-b^2)*(b^2*G^2-D^2) + a^2*(2*b^2*G-2*a*D*cos(th))^2) +2*a^2*D*cos(th)-2*a*b^2*G)/(2*(a^2-b^2))
これで等高線図を使わなくても描出できるようになった。
# r=func(θ)を描く
Draw <- function(func,th=seq(-pi,pi,length=500),...){
r=func(th)
plot(r*cos(th),r*sin(th),bty='l',type='l', ann=F,lwd=2,...)
}
rr <- function(th,G=20,a=10,b=5,D=100){
(sqrt(4*a^2*(a^2-b^2)*(b^2*G^2-D^2) + a^2*(2*b^2*G-2*a*D*cos(th))^2)
+2*a^2*D*cos(th)-2*a*b^2*G)/(2*(a^2-b^2))
}
Draw(rr)
Draw(function(x) rr(x,G=50))
>>784
英語は不法移民のヒスパニック並と言われているよなぁ。 一般解は積分表示でないと無理だけど
ガソリン20 L のときは
√(x^2+y^2)/10 + √((x-100)^2+y^2)/5 = 20から x=rcosθ y=rcosθとして
r について r/10 + 1/5 sqrt((r cos(θ) - 100)^2 + r^2 sin^2(θ)) = 20 を解けば
r = 400/3 (2 cos(θ) - 1)
r=0となるθは-pi/3, pi/3
∫[-pi/3, pi/3 ]1/2 * r^2 dθ = (1/8)(800/3)^2(2π-3√3) = 9662.51452864848
数値積分値で 9662.51529676
よく一致している。
極形式での作図の練習
>>785
面積計算がちゃんとできた。
# 複素平面にr=func(θ)を描く
iDraw <- function(func,th=seq(-pi,pi,length=500),...){
r=func(th)
plot(r*cos(th)+1i*r*sin(th), bty='l',type='l', ...)
}
iLine <- function(func, a, b, ...){
th=seq(a,b,length=500)
r=func(th)
points(r*cos(th)+1i*r*sin(th), ...)
}
# draw segment of complex a to complex b
iseg <- function(r1,th1,r2,th2,...){
segments(r1*cos(th1),r1*sin(th1),r2*cos(th2),r2*sin(th2), ...)
}
# draw text y at complex x
ipt <- function(r,th,y=NULL,...){
text(r*cos(th),r*sin(th), ifelse(is.null(y),'+',y), ...)
}
cochlea <- function(theta) 800/3*(cos(theta)-1/2)
iDraw(cochlea, ann=F)
iLine(cochlea, 0, acos(1/2))
s=integrate(function(x) 1/2*cochlea(x)^2 , 0 ,acos(1/2))$value
iLine(cochlea, -pi,-acos(1/2),col='blue')
l=integrate(function(x) 1/2*cochlea(x)^2 , -pi ,-acos(1/2))$value
2*s; 2*l; 2*(l-s)
iseg(0,0,cochlea(-2.5) ,-2.5, lty=2)
iseg(0,0,cochlea(-2.75),-2.75,lty=2) > 2*s; 2*l; 2*(l-s)
[1] 9662.514529
[1] 157889.0937
[1] 148226.5791
数学板で宿題をいただいたので やっておいた。
面白い問題おしえて～な 30問目
http://2chb.net/r/math/1572866819/327
327 名前：311[] 投稿日：2020/01/03(金) 19:30:33.87 ID:FJq0gSax
>>283
っちゅうことで、問題をこう変えてはいかが？
砂漠の基地Aからもうひとつの基地Bに向かって出かけた戦車がGPSの故障で
進路を見失ってさまよった挙げ句にガス欠で止まってしまった。別の戦車で
基地Aからこの戦車へ救助に向かい、燃料を分け与えて一緒に基地Bに行く
ことになった。しかし、戦車にはAB間をちょうど往復できるだけしか燃料
は積めない。AB間の距離をRとして、Aを原点とする極座標形式で救出可能な
領域を示し、その面積をRを使って表しなさい。
ただし、戦車の燃費はいずれも同じものとする。
ド底辺シリツ医もやってみてはどう？ 数値積分でなくて一般解を求めるのが数学板の住人だなぁ。
# ∫√( r^2 + (dr/dθ)^2 ) dθ where r= 4/3(2cosθ-1)R,dr/dθ=-8/3sinθ
dl = function(x) sqrt((4/3*(2*cos(x)-1))^2+(-8/3*sin(x))^2)
Ls=integrate(dl,-acos(1/2),acos(1/2))$value
本来なら医者などなれないバカが医者面して威張りたおしている。
私立の過半数は箸にも棒にもかからないインチキ医者。
ド底辺シリツ医には難問であったであろうセンター試験問題をプログラミングで解いてみた。
いわゆブルートフォース法（パソコンに数えさせるだけｗ）
得点計算のプログラムさえできれば、あとはどんな問題でも数えさせられる。
袋の中に赤玉5個，白玉5個，黒玉1個の合計11個の玉が入っている。
赤玉と白玉にはそれぞれ1から5までの数字が一つずつ書かれており，
黒玉には何も書かれていない。
なお，同じ色の玉には同じ数字は書かれていない。
この袋から同時に5個の玉を取り出す。
取り出した5個の中に 同じ数字の赤玉と白玉の組が
2組あれば得点は2点，
1組だけあれが得点は1点，
1組もなければ得点は0点とする。 昼飯前に完成。
f <- function(x){ # sum(unlist(table(x[x!=11]%%5))==2)
(y=x[x!=11]) # 選んだ配列から黒があれば除く
(z=unlist(table(y%%5))) # それを５の剰余に変換して頻度テーブル化
sum(z==2) # 頻度２が何個あるかを返す
}
あとは、単純作業で計算できた。
> score = apply(dat,1,f)
> # (1)
> nrow(dat[score==0 & dat[,5]==11,])
[1] 80
> nrow(dat[score==0 & dat[,5]!=11,])
[1] 32
> nrow(dat[score==1 & dat[,5]==11,])
[1] 120
> nrow(dat[score==1 & dat[,5]!=11,])
[1] 160
> # (2)
> sum(score==1) # 280/462 = 20/33
[1] 280
> sum(score==2) # 70/462 = 5/33
[1] 70
> 1*20/33+2*5/33 # 30/33 = 10/11
[1] 0.9090909
>
一般化して得点の期待値を出すプログラムを組んでみた。
"
袋の中に赤玉R(=5)個，白玉W(=5)個，黒玉B(=1)個の玉が入っている。
赤玉と白玉にはそれぞれ1から始まる数字が一つずつ書かれており，
黒玉には何も書かれていない。
なお，同じ色の玉には同じ数字は書かれていない。
この袋から同時にN(=5)個の玉を取り出す。
取り出したN個の中に 同じ数字の赤玉と白玉の組が
2組あれば得点は2点，
1組だけあれが得点は1点，
1組もなければ得点は0点とする。
点数の期待値を求めよ。
"
C2010 <- function(R=5,W=5,B=1,N=5){
dat=t(combn(R+W+B,N))
x=dat[sample(nrow(dat),1),] ; x
f <- function(x){ # sum(unlist(table(x[x!=11]%%5))==2)
(y=x[x<=R+W]) # 選んだ配列から黒があれば除く
div=max(R,W)
(z=unlist(table(y%%div))) # それをmax(R,W)の剰余に変換して頻度テーブル化
sum(z==2) # 頻度２が何個あるかを返す
}
score=apply(dat,1,f)
nume=sum(score)
deno=length(score)
gcd=numbers::GCD(nume,deno)
cat(nume/gcd,'/',deno/gcd,'=',nume/deno,'\n')
invisible(nume/deno)
}
C2010()
赤白は５のままで黒の個数を増やしていくと期待値は
> sapply(1:10,function(x) C2010(B=x))
10 / 11 = 0.9090909
25 / 33 = 0.7575758
25 / 39 = 0.6410256
50 / 91 = 0.5494505
10 / 21 = 0.4761905
5 / 12 = 0.4166667
25 / 68 = 0.3676471
50 / 153 = 0.3267974
50 / 171 = 0.2923977
5 / 19 = 0.2631579
と減少していく。
>>802
グラフにしてみた。
番号が一致するのを患者が適切な医師に巡りあう幸福な事象と考えると
黒玉が増えるごとに幸福度が増していくのがみてとれる。
裏口入学容疑者のシリツ医が国民を不幸にしているのと似ている。 C2010 <- function(R=5,W=5,B=1,N=5){
dat=t(combn(R+W+B,N))
x=dat[sample(nrow(dat),1),] ; x
f <- function(x){ # sum(unlist(table(x[x!=11]%%5))==2)
(y=x[x<=R+W]) # 選んだ配列から黒があれば除く
div=max(R,W) # 赤白の数の大きい方を除数に設定
(z=unlist(table(y%%div))) # 剰余に変換して頻度テーブル化
sum(z==2) # 頻度２が何個あるかを返す
}
score=apply(dat,1,f)
nume=sum(score)
deno=length(score)
gcd=numbers::GCD(nume,deno)
cat(nume/gcd,'/',deno/gcd,'=',nume/deno,'\n')
invisible(nume/deno)
}
C2010()
Ex=sapply(0:10,function(x) C2010(B=x))
B=0:10
plot(B,Ex,type='h',lwd=20,col='maroon',bty='n')
>>803
番号が一致するのを患者が適切な医師に巡りあう幸福な事象と考えると
黒玉が増えるごとに不幸が増していくのがみてとれる。 東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。
20年医者したら2億円は稼げるな。もったいないよ？
今から1年計画で勉強したら確実に合格すると思う。実際いまの5年生は勉強を始める頃だよ。
せっかく国立大学の医学部を卒業してるんだから頭はいいんだからあとは効率の良い勉強をすると合格確実だな。
問、1からnまでの自然数をランダムに並べ大きな桁の数を作るとき、平方数になるものはあるか。ただし、nは2以上とする。
例、n=2のとき、12と21は平方数ではない。
n=3のとき、123と132と213と231と312と123は平方数ではない。
0-9を使うと
> (ans=apply(permn[re,],1, function(x) sum(beki*x)))
[1] 1026753849 1042385796 1098524736 1237069584 1248703569 1278563049 1285437609
[8] 1382054976 1436789025 1503267984 1532487609 1547320896 1643897025 1827049536
[15] 1927385604 1937408256 2076351489 2081549376 2170348569 2386517904 2431870596
[22] 2435718609 2571098436 2913408576 3015986724 3074258916 3082914576 3089247561
[29] 3094251876 3195867024 3285697041 3412078569 3416987025 3428570916 3528716409
[36] 3719048256 3791480625 3827401956 3928657041 3964087521 3975428601 3985270641
[43] 4307821956 4308215769 4369871025 4392508176 4580176329 4728350169 4730825961
[50] 4832057169 5102673489 5273809641 5739426081 5783146209 5803697124 5982403716
[57] 6095237184 6154873209 6457890321 6471398025 6597013284 6714983025 7042398561
[64] 7165283904 7285134609 7351862049 7362154809 7408561329 7680594321 7854036129
[71] 7935068241 7946831025 7984316025 8014367529 8125940736 8127563409 8135679204
[78] 8326197504 8391476025 8503421796 8967143025 9054283716 9351276804 9560732841
[85] 9614783025 9761835204 9814072356
ド底辺シリツ医って金と女のことしか書けないね。
でも、裏口入学だからこの計算はできないと思う。
某銀行のド底辺特殊シリツ専業部が年利2%の20年返済で融資するという。
20年240回払で40%、1億4000万円を240ヶ月で返済、
月58万3333円の均等返済になりますと云われた。
これは元利均等返済の年利いくらに相当するか？
元金均等返済では年利いくらに相当するか？
国立医学部も裏口は昔から現在進行形だな。
奈良、香川は状態的にやっていた。
阪医はワンスポットか、犯人が新居浜の路上で死んでいたとか殺されていたとか。
全部Ｂ,Ｋがらみヤクザがらみだろ。
３校とも部落、朝鮮王国の西日本。
医学部じゃないが、朝鮮人大作の娘マサコの東大とかもインチキ入学。
実態はクルクルパーの男狂いw
>>812
ド底辺シリツ医大って裏口入学がデフォじゃないの？ ライセンスとってから医者になって4年頑張って修行したら自由になれるぞ。全国どこでも行けるし金も稼げるぞ。道は開ける！諦めたらもったいないよ。
受験で評価される能力が、人間の多彩な力のごく一部であること。その点を除いても、受験には、それが「個人技」だという罠がある。受験で成功体験を持つ者は、往々にして、自分の弱点を見つめ、それを他の人との個性の持ち合いで補うというすばらしい技を知らずに生きるのだ。
>>1
頭は多少にかかわらず医者になれば良くなるはず 脳科学には、あらゆる入り口から行けます。強いて言えば、統計学が理解できる程度の数学が必要かな。何よりも、まわりの人を、観察してください。脳科学とは、人間のことです。
看護の試験は詐欺みたいなものという記事を見ました。。。
200人募集かけといて一人も合格させない専門学校もあるらしい。。一人につき2万5千円も
受験料取っといて、、ぼんくらな高校生ばかりとり、、どうせ実習で辞めるのにね。。
200人×25000円でぼろもうけで一人も取らない看護受験は汚いわね。詐欺よ！！
わたくしもめのおばあちゃんを医療ミスや医療事故と。。
誤診 をわざ と朝鮮病院が 故意に したから
イクラちゃん成績が良くてスキルが高くても
看護婦が気に入らないか医者が バレるのを恐れて とらないのか。。
いずれにしてもフェアーじゃない。汚い世界なんですか？
絶対、医療業界が悪くなっていくはず。。。。
大根めし
同じような演算を延々に繰り返すとか、順列組合せの有限性から最適解を選ぶことに関して、デジタルにおまかせするようになるでしょう。いろんなことがコンピュータにできるようになっても、人間が人間であるコアの部分は奪われないと私は思います。
>>814
金が好きなのにこの計算もできないって裏口入学なんだろ？
某銀行のド底辺特殊シリツ専業部が年利2%の20年返済で融資するという。
20年240回払で40%、1億4000万円を240ヶ月で返済、
月58万3333円の均等返済になりますと云われた。
これは元利均等返済の年利いくらに相当するか？
元金均等返済では年利いくらに相当するか？ >>821
そのとおり、過つは人の性。
バグ付きのコードを投稿することもある。
このスレにはそれを指摘できる知性はない。 受験で評価される能力が、人間の多彩な力のごく一部であること。その点を除いても、受験には、それが「個人技」だという罠がある。受験で成功体験を持つ者は、往々にして、自分の弱点を見つめ、それを他の人との個性の持ち合いで補うというすばらしい技を知らずに生きるのだ。
医療現場は個人競技ではないんですよ。実際に働くと分かります。
受験の個人技も出来ない+なければ仕事でも患者いじめしてるくせの人が
他の人との個性の持ち合い？
不幸なかわいそうな育ちでひねくれた人の（腐った根性）の持ち合いすか？
こうゆうことでござんすでしょうか？
受験の個人技も出来ない+なければ仕事でも患者いじめしてるくせの人が
他の人との個性の持ち合い？
不幸なかわいそうな育ちでひねくれた人の（腐った根性）の持ち合いすか？
こうゆうことでござんすでしょうか？
自分の不幸を説明する仮説の正しさを証明することに熱中しているうちに、その人は「自分がどのような手段によっても救済されることがないほどに不幸である」ことを願うようになる。
人を結びつけること、関係性のハブになれる人が最大の付加価値をもたらす。孫正義さん然り、ジョブズ然り。個人技で点数いくら、偏差値いくつとやっていても、それはさびしい自己満足。大したことにはならないから、思いきり人に開いて成長した方がいい。
池田勇人：所得倍増計画を実施
安倍晋三：消費税倍増計画を実施
これどうなったんだっけ？あと３年で１０年だけど。
>>825
そうなのか、シリツでは馬鹿に検算を頼んだらこうなるんだよな。
↓
俺は検算は国立大学卒の薬剤師に依頼している。
方程式すらできないのがド底辺シリツ医。
しかも、自分が馬鹿だと認識すらしていない。
>>821
＞人間が人間であるコアの部分は奪われないと私は思います。
シリツ医が裏口入学容疑者であるというコアの部分は奪われないと私も思います。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。 メモリ４Gだと辛いな
options(digits=22)
library(numbers)
library(gtools)
(x=sample(11))
a2d <- function(x) as.numeric(paste(as.character(x),collapse='')) # array 2 digit
is.asqn(x)
is.asqn <- function(x){ # is array squired number?
y=a2d(x) # array 2 digit
isNatural(sqrt(y)) # is sqrt(y) a natural number?
}
# 11
perm11=try(permutations(11,11))
sqn=perm11[apply(perm11,1,is.asqn),]
apply(sqn,1,a2d)
安倍ってマジで知的障害者じゃね？
video.twimg.com/ext_tw_video/1191982184711819264/pu/vid/640x360/vpYPtiW4XCfECVYu.mp4
大変申し訳ないが もしも精神科に通院されてるようでしたら医師になれることはかなり困難だろうかと思います。まずは疾患の治療をしてもらって寛解されてから医師を目指すことが妥当かと存じます
それでは私は書き込みを中止します。頑張ってください。
>>836
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。 >>835
シリツ医＝裏口入学容疑者＝知恵遅れという精神疾患 >>833
Cに移植すれば高速化するだろうけど、パッケージをCに移植するのは俺の能力では無理だな。
相当するライブラリがあれば別だけど。
パッケージのソース
function (n, r, v = 1:n, set = TRUE, repeats.allowed = FALSE)
{
if (mode(n) != "numeric" || length(n) != 1 || n < 1 ||
(n%%1) != 0)
stop("bad value of n")
if (mode(r) != "numeric" || length(r) != 1 || r < 1 ||
(r%%1) != 0)
stop("bad value of r")
if (!is.atomic(v) || length(v) < n)
stop("v is either non-atomic or too short")
if ((r > n) & repeats.allowed == FALSE)
stop("r > n and repeats.allowed=FALSE")
if (set) {
v <- unique(sort(v))
if (length(v) < n)
stop("too few different elements")
} v0 <- vector(mode(v), 0)
if (repeats.allowed)
sub <- function(n, r, v) {
if (r == 1)
matrix(v, n, 1)
else if (n == 1)
matrix(v, 1, r)
else {
inner <- Recall(n, r - 1, v)
cbind(rep(v, rep(nrow(inner), n)), matrix(t(inner),
ncol = ncol(inner), nrow = nrow(inner) * n,
byrow = TRUE))
}
}
else sub <- function(n, r, v) {
if (r == 1)
matrix(v, n, 1)
else if (n == 1)
matrix(v, 1, r)
else {
X <- NULL
for (i in 1:n) X <- rbind(X, cbind(v[i], Recall(n -
1, r - 1, v[-i])))
X
}
}
sub(n, r, v[1:n])
}
予想どおり、再帰ルーチンが組み込まれているなぁ。改造は難渋しそう。
エラー処理ルーチンや重複除去や重複可否のルーチンを除くとコア部分はこれだな。
perm <- function (n, r, v = 1:n) {
sub <- function(n, r, v) {
if (r == 1)
matrix(v, n, 1)
else if (n == 1)
matrix(v, 1, r)
else {
X <- NULL
for (i in 1:n) X <- rbind(X, cbind(v[i], Recall(n -
1, r - 1, v[-i])))
X
}
}
sub(n, r, v[1:n])
}
私立医の免許を剥奪せよ。
駅弁工学部も遥かに手の届かない低学力でも私立医学部なら現役で通る事実が半世紀続いている。
>>841
n=rの場合だけでいいから更に高速化できるな
perm <- function (n, v = 1:n) {
sub <- function(n, v) {
if (n == 1)
matrix(v, 1, 1)
else {
X <- NULL
for (i in 1:n) X <- rbind(X, cbind(v[i], sub(n -1,v[-i])))
X
}
}
sub(n, v[1:n])
}
##
perm(4) perm <- function (n, v = 1:n) {
sub <- function(n, v) {
if (n == 1)
matrix(v, 1, 1)
else {
X <- NULL
for (i in 1:n) X <- rbind(X, cbind(v[i], sub(n -1,v[-i])))
X
}
}
sub(n, v)
}
perm(4)
動作確認
> perm(4)
[,1] [,2] [,3] [,4]
[1,] 1 2 3 4
[2,] 1 2 4 3
[3,] 1 3 2 4
[4,] 1 3 4 2
[5,] 1 4 2 3
[6,] 1 4 3 2
[7,] 2 1 3 4
[8,] 2 1 4 3
[9,] 2 3 1 4
[10,] 2 3 4 1
[11,] 2 4 1 3
[12,] 2 4 3 1
[13,] 3 1 2 4
[14,] 3 1 4 2
[15,] 3 2 1 4
[16,] 3 2 4 1
[17,] 3 4 1 2
[18,] 3 4 2 1
[19,] 4 1 2 3
[20,] 4 1 3 2
[21,] 4 2 1 3
[22,] 4 2 3 1
[23,] 4 3 1 2
[24,] 4 3 2 1
>
再帰プログラムを書いて計算させると
プログラムに別の知性があると感じるなぁ。
ハノイの塔とか驚愕したなぁ。
>>844
これをwhileを使って書ければ更に高速化するんだけど
俺の頭脳では厳しいな。 perm <- function (n) {
v=1:n
sub <- function(n, v) {
if (n == 1)
matrix(v, 1, 1)
else {
x = NULL
for (i in 1:n) x =rbind(x, cbind(v[i], sub(n -1,v[-i])))
x
}
}
sub(n, v)
}
> perm(4)
[,1] [,2] [,3] [,4]
[1,] 1 2 3 4
[2,] 1 2 4 3
[3,] 1 3 2 4
[4,] 1 3 4 2
[5,] 1 4 2 3
[6,] 1 4 3 2
[7,] 2 1 3 4
[8,] 2 1 4 3
[9,] 2 3 1 4
[10,] 2 3 4 1
[11,] 2 4 1 3
[12,] 2 4 3 1
[13,] 3 1 2 4
[14,] 3 1 4 2
[15,] 3 2 1 4
[16,] 3 2 4 1
[17,] 3 4 1 2
[18,] 3 4 2 1
[19,] 4 1 2 3
[20,] 4 1 3 2
[21,] 4 2 1 3
[22,] 4 2 3 1
[23,] 4 3 1 2
[24,] 4 3 2 1
>>849
シリツ医は額にシリツもしくは裏口容疑者の刺青を義務化すべき。
最低でも医籍登録には卒業大学表示を実装すべきだよね。 ##
dec2n <- function(num, N = 2, digit = 1){ # decimal to 0,1,..,n-1 vector
if(num <= 0 & digit <= 0) return()
else{
return(append(Recall(num%/%N, N ,digit-1), num%%N))
}
}
# while loop version for dec2n
dec2nw <- function(num, N, digit = 4){
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
>system.time(for(i in 0:10^5) dec2n(i,7))
user system elapsed
14.52 0.04 14.86
> system.time(for(i in 0:10^5) dec2nw(i,7))
user system elapsed
8.83 0.05 8.94
やはり、再帰は時間がかかる
is.sq <- function(x){ # if combined array digit is square, return (digit)
y=as.numeric(paste(as.character(x),collapse='')) # array 2 digit
if(numbers::isNatural(sqrt(y))) cat(y,'\n')
}
perm <- function (n) {
v=1:n
sub <- function(n, v) {
if (n==1) matrix(v,1,1) # matrix(v,row,col)
else{
x=NULL
for (i in 1:n) x=rbind(x, cbind(v[i], sub(n-1,v[-i])))
return(x)
}
}
sub(n,v)
}
perm11=try(perm(11))
ans11=try(apply(perm11,1,is.sq))
ans11
医師を罵倒する常套句は 私立 だね。
開業医スレより
>>639
アホが人さまにアホ？
下品な私立だな
底辺駅弁かなw
おまえ娘にオムツ替えてもらえるとでも思ってるのか？
こりゃキチガイだ入院しろクソボケ >>850
そのとうり。
今は味噌もクソも一緒。
うまくいくはずがない rm(list=ls())
library(gtools)
library(numbers)
a2d <- function(x) as.numeric(paste(as.character(x),collapse='')) # array 2 digit
is.sq <- function(x){ # is combined array digit is square ?
y=a2d(x) # array 2 digit
numbers::isNatural(sqrt(y)) # T/F?
}
is.sq(c(1,3,5,2,7,6,8,4))
is.sq(1026753849)
is.sq(1:10)
perm <- function (n) {
v=1:n
sub <- function(n, v) {
if (n==1) return(matrix(v,1,1)) # matrix(v,row,col)
else{
x=NULL
for (i in 1:n) x=rbind(x, cbind(v[i], sub(n-1,v[-i])))
return(x)
}
}
sub(n,v)
}
# 11
perm11=try(perm(11))
saveRDS(perm11,"perm11.rds")
sq11=try(perm11[apply(perm11,1,is.sq),])
apply(sq11,1,a2d)
# 11
perm11=try(perm(11))
saveRDS(perm11,"perm11.rds")
idx11=which(apply(perm11,1,is.sq))
apply(perm11[idx11,],1,a2d)
君がほんとうにこれからの人生で二度と致命的な失敗を犯したくないと、本気で望んでいるのなら、自分自身の「最初の不適切な決断」を反省しなければならない。「自分はいつ、どのようにして、決断を誤ったのか」、それを自分に向かって問わねばならない。
この方はご自分の能力以上のことをすると脳がオーバーフローを起こしてすぐいっぱいいっぱいになる人と思っている。閾値はかなり低いだろう。無理するなよ。
おそらく小学校 中学校のあたりから大学受験で多浪した頃の決断に瑕疵があったのだろう。医師の仕事は多忙なのでいつも同時に複数の患者のことを考えているのでこの方の能力では無理だ。
偏差値入試批判は、学力軽視ではありません。人物を入試で見ろと言っているのでもない。画一的なペーパーテストで学力を見ることが、多様化した現代の学力観にそぐわないと言っている。１５歳でマイクロチューブを用いた膵臓癌の検査方法を開発するような事例に対応できない。
>>861
今日は当直明けの内視鏡バイト、少なめで９件だった。
こういうのは体験者ならわかる
若い女性のVater乳頭はエロいなぁ。 >>859
８G でやったら、
perm11=try(perm(11))
saveRDS(perm11,"perm11.rds")
idx11=which(apply(perm11,1,is.sq))
apply(perm11[idx11,],1,a2d)
計算終了。数学板での結果を検証することになった。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。 >>862
御託はいいから、これに答えて基礎学力くらいあるところを示してくれ。
バッタ並の頭じゃ無理だぞ。
ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。 先を越されてしまった。
コンパイラーじゃないと速度がでないな。
386 １３２人目の素数さん sage 2020/01/06(月) 20:10:41.10 ID:Bpkl9Cm1
>>385
ちなみに
n=12の時もないがn=13の時はあった（58911124131067321等）
どうやら>>352の予想は外れたようだ こっちは、難しい。
平面に空いた半径1の円の穴を、辺の長さがaの正四面体が回転しながらくぐり抜けるときのaの最大値を求めよ。
題意は、知恵の輪を解くようにありとあらゆる回転と移動を行って
厚さ0の平面に空いた単位円の穴をくぐり抜けるという意味。
>>848
再帰呼び出しなし
permu <- function (n) {
z <- matrix(1)
for (i in 2:n) {
x <- cbind(z, i)
a <- c(1:i, 1:(i - 1))
z <- matrix(0, ncol = ncol(x), nrow = i * nrow(x))
z[1:nrow(x), ] <- x
for (j in 2:i - 1) {
z[j * nrow(x) + 1:nrow(x), ] <- x[, a[1:i + j]]
}
}
return(z)
}
> permu(3)
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 2 1 3
[3,] 2 3 1
[4,] 1 3 2
[5,] 3 1 2
[6,] 3 2 1 permu <- function (n) {
z <- matrix(1)
for (i in 2:n) {
x <- cbind(z, i)
a <- c(1:i, 1:(i - 1))
z <- matrix(0, ncol = ncol(x), nrow = i * nrow(x))
z[1:nrow(x), ] <- x
for (j in 2:i - 1) {
z[j * nrow(x) + 1:nrow(x), ] <- x[, a[1:i + j]]
}
}
return(z)
}
perm <- function (n) {
v=1:n
sub <- function(n, v) {
if (n == 1)
matrix(v, 1, 1)
else {
x = NULL
for (i in 1:n) x =rbind(x, cbind(v[i], sub(n -1,v[-i])))
x
}
}
sub(n, v)
}
圧倒的な速度差
> system.time(perm(9))
user system elapsed
18.45 0.14 19.61
> system.time(permu(9))
user system elapsed
0.12 0.01 0.17
ド底辺シリツ医大卒の国語力０の症例報告
無職のナマポでさえ避けたがるのがド底辺シリツ医大卒
ナマポの症例報告です。
実例↓
517 卵の名無しさん 2018/02/25(日) 11:36:00.56 ID:gq76tAvs
福岡のあの歯科大かな？
歯科口腔外科で抜歯依頼したら爺ちゃんが〇〇歯科大卒の先生は避けて下さいねがあった
けど。
この爺ちゃん、聖マリ卒の先生もよけて下さいと初診時に言ってた札付き爺さん。
生保受給者のくせにね。
ド底辺私立聖マ卒って、本当に頭悪いよ
東京 大田 藤◯記◯耳鼻◯喉科
内紛の挙げ句、
三代目、がっかり
2人が、10×10の形をした100片からなる板チョコで次のようなゲームをする。
先手は板チョコを溝に沿ってまっすぐ2つに切り、大小問わずどちらか一方を食べる。
次に、後手は残りの板チョコを溝に沿ってまっすぐ2つに切り、どちらか一方を食べる。
これを繰り返しす。
これを繰り返し、最後の1個を相手に残した人が勝者となる。
つまり、最後の1個を食べざるをえない方が負け。
先手と後手とどちらを選ぶ方が有利か？
君がほんとうにこれからの人生で二度と致命的な失敗を犯したくないと、本気で望んでいるのなら、自分自身の「最初の不適切な決断」を反省しなければならない。「自分はいつ、どのようにして、決断を誤ったのか」、それを自分に向かって問わねばならない。
ダラダラと自分の人生を失敗させ続ける人にしか見えないです。かわいそうではあるが。
シリツ医の「不適切な決断」はシリツ医大に進学したこと。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない
精神の病者が医師になってはいけないんです。社会的信用に関わる問題ですから。
彼が何か問題を起こした時に責任を取らなければならないのは誰でしょうか？
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない
おそらく責任はライセンスを取得させてしまった国であり、採用してしまった医療機関ということになります。リスクは高いのです。
裏口入学の学生を除籍処分にしない以上、
シリツ医＝裏口入学容疑者
基礎学力を欠如しているのはこのスレでも明らか。
彼の大学時代の様子は推測できます。おそらく奇行や問題行動等をたくさんしているはずです。卒業させてしまった大学は大きな責任があると思います。彼にとっても社会にとっても適切ではなかったですね。
まずは精神病を寛解させて医師の判断を得てから医師を目指すことを勧めます。
医師になることはちょっと無理かもしれませんね。主治医とよく話し合って納得されてください。医師以外でも仕事はいくらでもあります。これでも応援してるんですよ。
その問いからしてあきらかに一般的な社会常識を逸脱しているんですよ。ここで大事な個人情報を言うわけがないでしょう。ここ5ちゃんねるですよ。
>>876
これはシミュレーションプログラムを組むのは難しいな。 学会でも講演では演者の経歴として必ず卒業大学から紹介されるよ。
>>890
母校に誇りはないの？
俺は医科歯科卒。入学は二期校時代。
>>895
あんた、どこ卒？
母校に誇りはないの？
俺は医科歯科卒。入学は二期校時代。
我々の情報では貴殿は国立N大学卒との話がありますがね。
貴殿の情報はリアルでもネットでも各所で噂になっています。あまり派手に掲示板を荒らさない方が利口ですよ。皆さん笑いながら注目してます。
>>897
別人だろ。
医科歯科の神経解剖の元教授のペットの猫の名前も言えるぞ。
毎年講義で言ってたジョークだから聞く前に先輩から聞いていたよ。
今日はクリニックで内視鏡バイト。
年末の十二指腸の異所性胃粘膜のIIa+IIc疑いがectopic gastric mucosa, no malignancyで返ってきたからフォローをどうするか迷っている。
んで、あんどこ卒？ 第三法則は令和になっても正しいことが実証されました。
Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
>>901
母校に誇りはないの？
俺は医科歯科卒。入学は二期校時代。 >>901
裏口は 悲しからずや ド底辺
下の句を希望。 リアルな医師と5ちゃんねらーの偽医師とでは天と地の差がありすぎます。笑うしかないんです。
医局に今日の当直ナースを呼んだ。可愛いんだよな。今度ドライブデートしようかな。病棟は安定している。
第三法則は令和になっても正しいことが実証されました。
Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
>>897
>我々の情報
ド底辺シリツ医の情報収集能力の欠如を示しているよなぁ。
誤投薬や患者取り違えとかやりそうだね。
シリツ医の実態↓
あまりにも常識外れでメディクメディアのバイトを途中で解雇されましたよね。
>>911
誰だよそれ？
病院や診療所以外でバイトしたことがないよ。
んで、あんたどこ卒？ 今日の勤務も内視鏡。
若い女性のVater乳頭は実に色っぽい。
因みに学生時代には高輪のシリツ医大専門予備校でバイトしたよ。
オマエみたいなバカ揃いだったがこれが合格しちゃうんだよなぁ。
またウソつき烏賊鹿か
当時の教授の名前言ってみろ
パッとせん烏賊鹿ごときでハッタリかましたつもりか
クソボケ
板チョコの問題に関してニム和とかいう話が数学板で出てきた。
初めて聞いた言葉なので検索したら
https://oddie.hatena●blog.com/entry/2018/05/05/174030
こういう表をみると自分でプログラムして作成したくなる。
dec2nw <- function(num, N=2, digit){
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
nim <- function(...){
a=c(...)
if(max(a)==0) return(0)
m=floor(log(max(a))/log(2))+2 # ...の最大数の2進法表示桁数 + 1
b=as.matrix(sapply(a,function(x) dec2nw(x,N=2,digit=m))) # m桁の2進数表示
n=apply(b,1,sum)%%2 #各桁を足して排他的論理和＝２の剰余
ans=sum(2^((m-1):0) * n) # 10進法表示
return(ans)
}
nim2 <- function(x,y) nim(x,y)
vn=Vectorize(nim2)
z=outer(0:15,0:15,vn)
z >>915
別に動揺してないよ。
今日も内視鏡は無事終了。
異所性胃粘膜の変化には戸惑ったけど。
んで、あんたどこに裏口入学？
Rの続き
> z
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15] [,16]
[1,] 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
[2,] 1 0 3 2 5 4 7 6 9 8 11 10 13 12 15 14
[3,] 2 3 0 1 6 7 4 5 10 11 8 9 14 15 12 13
[4,] 3 2 1 0 7 6 5 4 11 10 9 8 15 14 13 12
[5,] 4 5 6 7 0 1 2 3 12 13 14 15 8 9 10 11
[6,] 5 4 7 6 1 0 3 2 13 12 15 14 9 8 11 10
[7,] 6 7 4 5 2 3 0 1 14 15 12 13 10 11 8 9
[8,] 7 6 5 4 3 2 1 0 15 14 13 12 11 10 9 8
[9,] 8 9 10 11 12 13 14 15 0 1 2 3 4 5 6 7
[10,] 9 8 11 10 13 12 15 14 1 0 3 2 5 4 7 6
[11,] 10 11 8 9 14 15 12 13 2 3 0 1 6 7 4 5
[12,] 11 10 9 8 15 14 13 12 3 2 1 0 7 6 5 4
[13,] 12 13 14 15 8 9 10 11 4 5 6 7 0 1 2 3
[14,] 13 12 15 14 9 8 11 10 5 4 7 6 1 0 3 2
[15,] 14 15 12 13 10 11 8 9 6 7 4 5 2 3 0 1
[16,] 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0
多分、正しくニム和が計算できていると思う。
おい、ド底辺シリツ医よ、数字くらい読めるだろ？
合致しているか、照合してみ！ >>916
萬年教授だよ。
絵画も趣味で自分の絵画はマンネリズムという冗談もいってたよ。 - memo -
C言語
#include <stdio.h>
int main(int argc, char* argv[])
{
while(argc--)
printf("%s\n", *argv++);
return 0;
}
R言語
main <- function(...){
argv=c(...)
for(i in 1:length(argv)) print(argv[i])
}
あれパフォーマンスですよね。見ていると異様ですよ。
# https://mathtrain.jp/nim
# ニム和の二進法表示
nimwa <- function(...){
a=c(...)
if(max(a)==0) return(0)
m=floor(log(max(a))/log(2))+1 # ...の最大数の2進法表示桁数
b=as.matrix(sapply(a,function(x) dec2nw(x,N=2,digit=m))) # m桁の2進数表示
b2=apply(b,1,sum)%%2 #各桁を足して排他的論理和＝２の剰余
b2
}
nimwa(2,4,5) 昭和61年多浪の末やっと低倍率の入試で合格ですか。
https://mathtrain.jp/nimには
>友達とニムをやりたくなりますが，実戦で毎回2進数の和をカリカリ計算するのはなんかカッコ悪いですね。
との記述があるが、プログラムしていればカリカリ計算する必要もないんだよなぁ。
dec2nw <- function(num, N=2, digit){
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
nimwa <- function(...){
a=c(...)
if(max(a)==0) return(0)
m=floor(log(max(a))/log(2))+1 # ...の最大数の2進法表示桁数
b=as.matrix(sapply(a,function(x) dec2nw(x,N=2,digit=m))) # m桁の2進数表示
b2=apply(b,1,sum)%%2 #各桁を足して排他的論理和＝２の剰余
b2
}
> nimwa(2,4,5)
[1] 0 1 1
と即答してくれる。 >>926
あんた、どこ卒？
母校に誇りはないの？
俺は医科歯科卒。入学は二期校時代。
卒業は昭和59年、国試の指定選択科目はウロとプシコだから楽勝だったよ。
Cだと可変長の引数の扱いは簡単というか、それができなきゃCのプログラムが書けない。
Rだとarg?じゃなくて ... でしかも c(...) とか list(...)でないと引き出せないという不親切仕様だった。
#include <stdio.h>
int main(int argc, char* argv[])
{
while(argc--)
printf("%s\n", *argv++);
return 0;
}
main <- function(...){
argv=c(...)
for(i in 1:length(argv)) print(argv[i])
}
>>930
ちょっと、実験してみる。
> main <- function(...){
+ argv=c(...)
+ for(i in 1:length(argv)) cat(argv[i])
+ cat('\n')
+ }
> main("シリツ医","ならば","裏口入学")
シリツ医ならば裏口入学
> main("ド底辺","シリツ医大","卒は恥ずかしくて、","学校名を","皆さま言いません。")
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
可変長引数に対応できている。 学生時代、ずいぶんと騒動を起こしてらしたようですな。こちらまで噂は届いていますよ。
>>929
理３は模擬試験判定Bだったからね。理１は受かったけど才能ないから医科歯科を選んで正解だったと思うね。
平日勤務は週３の午前だけで、あとは道楽の数学（主に確率や統計）でボケ予防。
ド底辺シリツ医は最初からボケているというより、知恵遅れだよなぁ。
私立医大の高額な学費が払える経済環境で教育投資したのに地元の国立医学部にすら入れないドアホ。 >>932
悪いが、別人だろ。
俺は品行方正で真実を語る正直者。
昭和の御代から伝わる普遍の真実がこれな！
Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 ド底辺シリツ医にも救いの道を説いているぞ。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない
5ちゃんねるで嘘であっても自分の情報を晒す人は常識から考えてもいませんよ。精神病です。早く治療されて社会復帰しましょうよ。医師は無理です。
>>936
いや、母校に誇りがあるからね。
あんたは母校に誇りはないの？
あんた、どこに裏口入学？ >>936
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない >>936
開業医スレにシリツ医には、額にド底辺とか裏口の刺青を義務付けるべきと書いたら
こんど医師会で提案してみる、とのレスをもらったんだが
あんたも同じような活動をしろよ
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない いつも不満ばかり口にしていると、さらに悪いことを呼び込んでしまいます。自分が考えていることや口にしている言葉は、潜在意識にそのまま刷り込まれるので、あなたの知らないうちに脳が勝手に実現しようとするのです。
>>927
ニムゲームの必勝形表示スクリプトを作ってみた。
dec2nw <- function(num, N=2, digit){ # digit桁の２進法に変換
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
nim <- function(...){ # ニム和を計算 $bin:二進法 $dec:十進法
a=c(...)
if(max(a)==0) return(list(0,0)) # 既に必勝形
m=floor(log(max(a))/log(2))+1 # ...の最大数の2進法表示桁数
(b=as.matrix(sapply(a,function(x) dec2nw(x,N=2,digit=m)))) # m桁の2進数表示
if(m==1) b=t(b)
bin=apply(b,1,sum)%%2 #各桁を足して排他的論理和＝２の剰余
dec=sum(2^((m-1):0) * bin) # 10進法表示
return(list(bin=bin,dec=dec))
}
つづく seek0 <- function(...){
x=c(...) # 引数を配列化
x=x[x!=0] # 0個の山を除く
n=length(x) # 山の数
if(n==1) return(0) # 山が１個なら全部取って勝ち(相手に0を返す)
ans=NULL # 必勝形候補(既に必勝形ならNULLが返る)
for(i in 1:n){ # 山ごとに
for(j in 0:(x[i]-1)){ # コインを減らして
if(nim(j,x[-i])$dec==0){ # 必勝形なら
xx=x # xのコピーに
xx[i]=j # 減らした数で置き換えて
ans=rbind(ans,xx) # 必勝形候補に追加
}
}
}
rownames(ans)=NULL
return(ans)
}
コインが上限１０個で３山あるとすると排他的論理和＝０になるのは
> ans
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 1 4 5
[3,] 2 4 6
[4,] 3 5 6
[5,] 3 4 7
[6,] 2 5 7
[7,] 1 6 7
[8,] 1 8 9
[9,] 2 8 10
[10,] 3 9 10
山４つだと
> head(ans)
[,1] [,2] [,3] [,4]
[1,] 1 1 1 1
[2,] 1 1 2 2
[3,] 2 2 2 2
[4,] 1 1 3 3
[5,] 2 2 3 3
[6,] 3 3 3 3
> tail(ans)
[,1] [,2] [,3] [,4]
[66,] 5 5 10 10
[67,] 6 6 10 10
[68,] 7 7 10 10
[69,] 8 8 10 10
[70,] 9 9 10 10
[71,] 10 10 10 10
７１個
厚労省の技官の知り合いの話だと、かなり昔から密かに各大学の問題学生のブラックリストがあるらしい。各大学の教授会で話題になっている学生リストだそうだ。また卒業後10年以上を経た受験生は 問題あり と査定しているとのことです。
国も冷たいもんだな。しかし問題を起こされても良くないしな。
アメリカンみたいに問題起こしたら射殺でいいのでは？
示しがつかない
>>952
問題と言えばド底辺シリツの裏口入学学生だろ。
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件である。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと.
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない >>956
お仲間の仕業？？安定のシリツｗｗｗｗｗ
ホテルでタイ人女性に暴行 殺人容疑で医学部生を逮捕
2019.2.9 12:32社会事件・疑惑
TwitterFacebookMessenger文字サイズ印刷
昨年１２月にホテルでタイ国籍の女性に暴行を加え、殺害したとして、警視庁下谷署は９日、殺人の疑いで、千葉県船橋市前貝塚町の昭和大医学部生、*******容疑者（２０）を逮捕した。 >>956
こういうのを射殺しろってこと？
白衣の下に牛刀…日本医科大生が東京医科歯科大病院の医師を刺した白昼の戦慄 狂気に走らせたのは「女性トラブル」
 
  "赤色のカメレオン13匹と、青色のカメレオン15匹と、黄色のカメレオンが17匹いる。もし、異なる色の2匹のカメレオンが出会えば、2匹とも3番目の色に変わる。
例えば、青色と黄色が出会えば2匹とも赤色になる。同じ色の2匹のカメレオンが出会っても色は変わらない。このとき、全てのカメレオンが同じ色になることは可能か？"
r=13 ; b=15 ; y=17
cam=c(rep(1,r),rep(2,b),rep(3,y))
N=length(cam)
ct <- function(x,y){ # camelleon transformation
if(x==y)return(0) # 同色なら0を返す
else return((1:3)[-c(x,y)]) # 異色なら第３色を返す
}
ce <- function(x){ # camelleon encounter
ab=sample(N,2) # indexから２個選ぶ
a=x[ab[1]] # indexに相当するxの要素
b=x[ab[2]]
z=ct(a,b)
if(z!=0){ # 同色でなければ
x[ab[1]]=z # 第３の色に入れ替える
x[ab[2]]=z
}
return(x)
}
is.uc <- function(x){ # is uniform color?
length(unique(x))==1
}
x=cam
while(is.uc(x)!=1){
x=ce(x)
}
>>952
ド底辺シリツ医って大学は文科省の管轄であることも知らないようだ。
三科目の軽量裏口入試だからだろうなぁ。
何を書いても馬鹿を晒すのがド底辺シリツ医。
> x=cam
> while(is.uc(x)!=1){
+ x=ce(x)
+ }
の while loopで処理が終わらないなぁ。
simulationは時間がかかって結論だせないみたいだ。 東京医大の入試不正、前文科省局長の息子だったのに。
医科大学が文科省の管轄であるという常識すら欠いているようなアホが裏口入学するのがド底辺シリツ医大ってことだな。
>>961
回数上限を決めてfor loopに変更
ct <- function(x,y){ # camelleon transformation
if(x==y)return(0) # 同色なら0を返す
else return((1:3)[-c(x,y)]) # 異色なら第３色を返す
}
ce <- function(x){ # camelleon encounter x=c(1,2,2,3,3,3)
N=length(x)
ab=sample(N,2) # indexから２個選ぶ
a=x[ab[1]] # indexに相当するxの要素
b=x[ab[2]]
z=ct(a,b) # camelleon transformation
if(z!=0){ # 同色でなければ
x[ab[1]]=z # 第３の色に入れ替える
x[ab[2]]=z
}
return(x)
}
is.uc <- function(x){ # is uniform color?
length(unique(x))==1
}
ca <- function(r,b,y) rep(1:3,c(r,b,y)) # camelleon array sim <- function(r,b,y,k=1e3,verbose=FALSE){
x=ca(r,b,y) # 色からカメレオン配列形成
U=FALSE # 一色か？
for(i in 1:k){ # camelleon encounterをk回繰り返す
if(verbose) cat(i,':',x,'\n')
x=ce(x)
U=is.uc(x)
if(U) {
print(x)
break # 途中で一色ならfor loopを抜ける
}
}
return(U) # 一色になったかを返す
}
sim(1,2,2,v=T)
sim <- function(r,b,y,k=1e3,verbose=FALSE){
x=ca(r,b,y) # 色からカメレオン配列形成
U=FALSE # 一色か？
i=0
while(!U & k>0){ # camelleon encounterを最大k回繰り返す
if(verbose) cat(i,':',x,'\n') ; i=i+1 # 配列表示
x=ce(x)
U=is.uc(x)
k=k-1
if(U) {
print(x)
break # 途中で一色ならloopを抜ける
}
}
return(U) # 一色になったかを返す
}
>>952
こういう見え透いた嘘（大学は厚労省の管轄ではない）を平気でつける虚言癖って生来のものなのか？安倍晋三みたいに？
それとも、息を吐くように嘘をつく半島系の人物ということか？ この方が統一色の色番号が返ってくるからいいな。
is.uc <- function(x){ # is uniform color?
y=unique(x)
if(length(y)==1) return(y) # 一色ならその色番号を返す
else return(0) # それ以外は0を返す
}
数学の証明はコンピュータじゃ無理だけど
シミュレーションはアルゴリズムとプログラムの勉強になって( ・∀・)ｲｲ!!
>>969
いまだ別人だとわからないとは相当頭が悪いな。
あんた、裏口入学じゃねぇの？ 赤色のカメレオン13匹と、青色のカメレオン15匹と、黄色のカメレオンが17匹いる。
もし、異なる色の2匹のカメレオンが出会えば、2匹とも3番目の色に変わる。
例えば、青色と黄色が出会えば2匹とも赤色になる。
同じ色の2匹のカメレオンが出会っても色は変わらない。
出会いを重ねて、全てのカメレオンが同じ色になることは可能か？
可能ならば何色になるか？
>>952
こういう見え透いた嘘（大学は厚労省の管轄ではない）を平気でつける虚言癖って生来のものなのか？安倍晋三みたいに？
それとも、息を吐くように嘘をつく半島系の人物ということか？ そうですか ウリュ○ヒロ○○くんではないんですね？ふふふ
>>971
カメレオン問題は楽しめた。
あんたもやってみて>972に答えてみたら。
頭を使ってないと馬鹿になるぞ。
馬鹿だからド底辺シリツ医なのか？
ド底辺シリツ医だから馬鹿なのか？ >>976
安倍こと李晋三自体がウソつき半島系ですが何か？ >>980
このスレのシリツ医も半島系なのかなぁ？ 医大が文科省の管轄であることすら知らない馬鹿だから入試に社会科のないド底辺シリツ医を選択するしかなかったんだろうなぁ。
カメレオン一色化の最短経路をだすプログラムは俺の能力を超える。
未だに、# 問題 : 11 リットルと 7 リットルの容器を使って 9 リットルの水を測るにはどうすればいい？
の>636が最短解なのか確信がもてないでいる。
>>983
なんのことかわからんが、ド底辺シリツであるより惨めなことは医療の世界にはないよ。
んで、あんたどこ卒？ >>986
医大が文科省の管轄であることすら知らない馬鹿だから入試に社会科のないド底辺シリツ医を選択するしかなかったんだろう。
あんた、どこ卒？ >>987
山５つだと、パソコンないと計算が大変。 >>988
法外な学費を払って、ナマポからも蔑まれるのがド底辺シリツ医。
んで、あんたどこ卒？ >>994
風俗嬢からも蔑まれるのがド底辺シリツ医だろう。
シリツ医大と風俗といえばこれだよなぁ。
殺人容疑で医大生逮捕＝ホテルでタイ人女性暴行－警視庁
2019年02月09日13時28分
東京都台東区のホテルで昨年１２月、タイ国籍の女性が意識不明の重体で見つかり、その後死亡した事件で、
警視庁下谷署は９日、殺人容疑で、千葉県船橋市前貝塚町の昭和大医学部２年＊＊＊＊容疑者（２０）を逮捕した。
暴行したことは認めているが、殺意は否認しているという。 Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
>>995
ああ、それね。
シリツは犯罪行為普通にやるよ。
万引き、無免許運転、レイープ
今度は殺人かw
医者になっても患者殺しまくりだからな。 lud20230201080232ca
このスレへの固定リンク： http://5chb.net/r/hosp/1575242106/ヒント：5chスレのurlに
http://xxxx.5ch
b.net/xxxx のように
bを入れるだけでここでスレ保存、閲覧できます。
TOPへ TOPへ
全掲示板一覧 この掲示板へ 人気スレ |
>50
>100
>200
>300
>500
>1000枚
新着画像
↓「底辺私立医大を卒業した医者って頭悪いよね？ Part13 YouTube動画>15本 ->画像>47枚 」を見た人も見ています：
・底辺私立医大を卒業した医者って頭悪いよね？ Part12
・底辺私立医大を卒業した医者って頭悪いよね？ Part11
・底辺私立医大を卒業した医者って頭悪いよね？ Part10
・底辺私立医大を卒業した医者って頭悪いよね？ Part16
・底辺私立医大を卒業した医者って頭悪いよね？ Part18
・底辺私立医大を卒業した医者って頭悪いよね？ Part15
・底辺私立医大を卒業した医者って頭悪いよね？ Part17
・底辺私立医大を卒業した医者って頭悪いよね？ Part9
・底辺私立医大を卒業した医者って頭悪いよね？ Part2
・底辺私立医大を卒業した医者って頭悪いよね？ Part5
・底辺私立医大を卒業した医者って頭悪いよね？ Part6
・底辺私立医大を卒業した医者って頭悪いよね？ Part19
・底辺私立医大を卒業した医者って頭悪いよね？ Part14
・底辺私立医大を卒業した医者って頭悪いよね？ Part8
・底辺私立医大を卒業した医者って頭悪いよね？ Part4
・底辺私立医大を卒業した医者って頭悪いよね？ Part23
・底辺私立医大を卒業した医者って頭悪いよね？ Part20
・底辺私立医大を卒業した医者って頭悪いよね？ Part26
・底辺私立医大を卒業した医者って頭悪いよね？ Part24
・底辺私立医大を卒業した医者って頭悪いよね？ Part21
・底辺私立医大を卒業した医者って頭悪いよね？ Part20
・底辺私立医大を卒業した医者って頭悪いよね？ Part22
・底辺私立医大を卒業した医者って頭悪いよね？ Part27
・底辺私立医大を卒業した頭悪いよね？
・初級英語も和訳できない底辺私立医大卒のスレ
・早稲田理工蹴って底辺私立医通ってるけど質問ある？
・【再受験】底辺私立医学部に正規合格しました
・最底辺私立医でも早慶理工より難しいと主張してる人って
・俺らよりも頭悪い私立医でも医者になる事実
・最底辺私立医学部って国立理系非医でいうとどのくらいの難易度なんや
・底辺国立医学部＝東京大学理科1類、底辺私立医学部＝早慶理工ってマジなんか？
・底辺私立医学科合格するのと早慶下位とか北大九大合格するのってどっちが難しいの？
・日大法現役VS.底辺私立医学部3浪VS.東京大学理三5浪←誰に転生したい？
・底辺私立医だけど質問ある？
・底辺私立医学部志望だけど
・【底辺私立医学生】順天堂大学裸まつり【良家子息】
・底辺私立医の学生だけど質問ある？
・実際底辺私立医学科でも早慶くらい難しいのかな？
・【大卒】大学卒業したのにひきこもり【ヒッキー】 Part18
・【大卒】大学卒業したのにひきこもり【ヒッキー】 Part17
・高須克弥「西川史子はタレントになるための箔付けとして三流医大を卒業したヤブ医者なんやで！」と一刀両断
・原作者って頭悪いよね（確信）
・原作者って頭悪いよね（確信）
・原作者って頭悪いよね（確信）
・医大卒業して形成外科で研修医やった人って
・高須克弥「西川史子はタレントになるための箔付けとして三流医大を卒業したヤブ医者なんやで！」と一刀両断 ©bbspink.com
・【実際】乃木坂って仲悪いし病んで休業したり卒業する人多いよね...【選抜制度は失敗制度】
・私立医大の評判って…
・国試4浪の東大医学部卒ルシファーさん(36)「私立医学部数学として慈恵医大の問題をやっていた」 医師国家試験まであと49日！
・慶應って頭悪いよね？
・底辺私立歯学部に通ってるけど質問ある？？
・【モーニング娘。11期】 小田さくら応援スレッドPart283 【武道館観に来てくれた私立恵比寿中学の柏木ひなたちゃん卒業してしまうのか】
・pixiv 底辺卒業スレ part113
・底辺私立大学（Fランク）の薬学部を中退したゴミクズ人間だけど質問ありますか？？？？
・pixiv 底辺卒業スレ part103
・私立医大はオウム真理教とどう違うんだ？
・不倫って頭悪いよね。あたしでーすｗｗｗ
・pixiv 底辺卒業スレ part114
・pixiv 底辺卒業スレ part110
・pixiv 底辺卒業スレ part118
・pixiv 底辺卒業スレ part104
・pixiv 底辺卒業スレ part107
・pixiv 底辺卒業スレ part111
・pixiv 底辺卒業スレ part105
・私立医大生だけど質問ある？
・自殺する奴って頭悪いよね
22:55:57 up 13 days, 8:04, 0 users, load average: 7.75, 8.96, 8.89
in 0.055602073669434 sec
@0.055602073669434@0b7 on 120312
|
@YouTube
@YouTube
@YouTube
@YouTube
@YouTube
@YouTube
@YouTube
@YouTube
@YouTube
@YouTube
