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

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2ch.scのread.cgiへ]
Update time : 12/18 17:42 / Filesize : 467 KB / Number-of Response : 1092
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：卵の名無しさん mailto:sage [2020/06/15(月) 19:09:47 ID:jnY7bdq5.net]: タイトルまんまです

すなわち、タイトルの正しさを検証するスレです。

※前スレ
底辺私立医大を卒業した頭悪いよね？
egg.2ch.net/test/read.cgi/hosp/1472273747/
底辺私立医大を卒業した医者って頭悪いよね？ Part2
egg.2ch.net/test/read.cgi/hosp/1520807375/
底辺私立医大を卒業した医者って頭悪いよね？ Part3
egg.2ch.net/test/read.cgi/hosp/1522967067/
底辺私立医大を卒業した医者って頭悪いよね？ Part4
egg.2ch.net/test/read.cgi/hosp/1526677794/
底辺私立医大を卒業した医者って頭悪いよね？ Part5
egg.2ch.net/test/read.cgi/hosp/1529666055/
底辺私立医大を卒業した医者って頭悪いよね？ Part6
egg.5ch.net/test/read.cgi/hosp/1531305684/
底辺私立医大を卒業した医者って頭悪いよね？ Part7
egg.2ch.net/test/read.cgi/hosp/1532472024/
底辺私立医大を卒業した医者って頭悪いよね？ Part8
egg.2ch.net/test/read.cgi/hosp/1533510399/
底辺私立医大を卒業した医者って頭悪いよね？ Part9
egg.2ch.net/test/read.cgi/hosp/1535547275/
底辺私立医大を卒業した医者って頭悪いよね？ Part10
https://egg.2ch.net/test/read.cgi/hosp/1537867846/
底辺私立医大を卒業した医者って頭悪いよね？ Part11
https://egg.5ch.net/test/read.cgi/hosp/1544320163/
底辺私立医大を卒業した医者って頭悪いよね？ Part12
https://egg.5ch.net/test/read.cgi/hosp/1550969602/
底辺私立医大を卒業した医者って頭悪いよね？ Part13
https://egg.5ch.net/test/read.cgi/hosp/1575242106/
底辺私立医大を卒業した医者って頭悪いよね？ Part14
https://egg.5ch.net/test/read.cgi/hosp/1578616997/
底辺私立医大を卒業した医者って頭悪いよね？ Part15
https://egg.5ch.net/test/read.cgi/hosp/1584050953/
底辺私立医大を卒業した医者って頭悪いよね？ Part16
https://egg.5ch.net/test/read.cgi/hosp/1587907116/
2 名前：卵の名無しさん mailto:sage [2020/06/15(月) 19:10:01 ID:jnY7bdq5.net]: 人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。

これな！

不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<

東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
3 名前：卵の名無しさん mailto:sage [2020/06/15(月) 19:10:34 ID:jnY7bdq5.net]: シリツ医のこれが現実

１次方程式もできないド底辺特殊シリツ医大卒の記録
imagizer.imageshack.com/img923/2715/RosCsf.jpg

何度読んでも馬鹿すぎる。
男女別の割合と全体での割合から男女比が計算できるとも思わないとは。
なんでこんなのが大学に入れるわけよ？
裏口入学以外に説明がつく？
中学生でも解ける一次方程式の問題だろ。

それすらできない馬鹿が自信を持って発言。
>患者の男女比が必要なのもわからないのか？
だとさ。
imagizer.imageshack.com/img923/9687/zNivZW.jpg

0.2575549
と答を書いてやったら
>単位も書かずに答えだとか…
ド底辺シリツ医大では確率に単位があるらしいぞw
何でこんな馬鹿が大学に入れるわけ？
裏口入学以外に説明がつく？
imagizer.imageshack.com/img923/5683/vMw9nv.jpg
4 名前：卵の名無しさん mailto:sage [2020/06/15(月) 19:10:59 ID:jnY7bdq5.net]: ド底辺シリツ医大卒ってこれだよな

底辺私立医大卒が国立大学医学部卒を妬むスレ [転載禁止](c)2ch.net
potato.5ch.net/test/read.cgi/hosp/1424846816/695

695 名前：卵の名無しさん[] 投稿日：2016/09/25(日) 22:04:25.53 ID:FzuOCpqV
匿名先生
精神科
▲
1
評価

私立出でも、素晴らしい医師がいるし、国立でも、どうしようもないのもいる。
そんなのは、あくまで個人の資質差と思ってました。

が、

今いる病院（医師の大部分が、いわゆる底辺私立）に来て、その考えは変わりました。

とある、気に食わない医師の白衣やサンダルを隠す、机の上にゴミを置く、など、小学生じみた嫌がらせをしている医師というのを、はじめて見ました。

国立出の変人も多々みてきましたが、こんな、小学生のイタズラみたいなことをする人は、いませんでした。

やはり、底辺私立は、それなりなんだと思いました。

2016年09月02日 00時21分09秒
5 名前：卵の名無しさん mailto:sage [2020/06/15(月) 22:31:57 ID:OTTmEUPR.net]: 【豊橋】狂犬病発症の男性死亡、フィリピンで感染 [ひよこ★]
rosie.5ch.net/test/read.cgi/editorialplus/1592202354/
6 名前：卵の名無しさん mailto:sage [2020/06/16(火) 05:21:34.30 ID:M9JisPSz.net]: 安倍の台本
あまり知られてないようだが、水を飲む場所も台本に書いてある
https://dotup.org/uploda/dotup.org2175546.jpg
7 名前：卵の名無しさん mailto:sage [2020/06/16(火) 09:47:08.07 ID:M9JisPSz.net]: これが医師国家試験問題とは!　単なる比例計算。中学入試より易しい。
https://i.imgur.com/aNifrIQ.jpg

ド底辺シリツ医のこれが現実
１次方程式もできないド底辺シリツ医大卒の記録
imagizer.imageshack.com/img923/2715/RosCsf.jpg

実際、算数の掛け算すら怪しいシリツ医がこういう事故を起こしている。
i.imgur.com/ArPaux9.png
8 名前：卵の名無しさん [2020/06/16(火) 12:06:08.29 ID:zKrdDm32.net]: ではなぜそんな簡単な試験に合格できなかったのかね？
9 名前：卵の名無しさん mailto:sage [2020/06/16(火) 13:49:35.15 ID:M9JisPSz.net]: >>8
ウロと精神科が指定選択の年に新卒で合格したよ。
10 名前：卵の名無しさん mailto:sage [2020/06/16(火) 13:49:40.75 ID:M9JisPSz.net]: Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。　　

1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。

2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater　which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

前々スレからのド底辺シリツ医への宿題

若い女性研修医（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。
フェラをしてもらうには何と言えばいいか？

答だせないってアホなの？　
フェラよりセンズリが好きなの？
11 名前：卵の名無しさん mailto:sage [2020/06/20(土) 18:15:58.68 ID:HBwhidDl.net]: 8/7950 # 厚労省
7/1000 # 東大
191/44066 # ソフトバンク

positives=c(K=8,T=7,S=191)
subjects=c(K=7950,T=1000,S=44066)

chisq.test(positives,subjects)
Fisher.test(positives,subjects)
pairwise.prop.test(positives,subjects,p.adjust='bon')
fmsb::pairwise.fisher.test(positives,subjects,p.adjust='bon')
(m=sum(positives)/sum(subjects))
(rates=positives/subjects)
(SD=diff(range(rates))/2)
source('tools.R')
ab=mv2ab(m,SD^2)
curve(dbeta(x,ab[1],ab[2]),bty='n',0,0.05)

jags4prop(4,0,500,500)
12 名前：卵の名無しさん mailto:sage [2020/06/20(土) 19:23:38.78 ID:HBwhidDl.net]: > prop.test(c(4,0),c(500,500))$p.value
[1] 0.1328367
Warning message:
In prop.test(c(4, 0), c(500, 500)) :
Chi-squared approximation may be incorrect
> Fisher.test(c(4,0),c(500,500))$p.value
[1] 0.1242496
> poisson.test(c(4,0),c(500,500))$p.value
[1] 0.125
13 名前：卵の名無しさん mailto:sage [2020/06/22(月) 07:17:41.11 ID:+Cx74dSj.net]: Covid19Inciden
14 名前：ceRasInhibitors https://github.com/ohdsi-studies/Covid19Icarius/blob/master/Covid19IncidenceRasInhibitors/readme.md How to run []: [ここ壊れてます]
15 名前：卵の名無しさん mailto:sage [2020/06/22(月) 07:20:19 ID:+Cx74dSj.net]: 非痙攣性てんかん重積の病態と治療

https://www.jstage.jst.go.jp/article/jcns/25/3/25_229/_pdf

>急性発作で意識障害が重篤であったり，呼吸抑制などを認める場合は一般的なSEの治療に準ずる17）．
>しかし，このような場合は脳波測定までにはある程度の時間を要するものと考える．
>また，意識障害が高度である患者に，ジアゼパムやホスフェニトインなど抗てんかん薬やミタゾラムやプロポフォールの静脈麻酔薬を投与することは一般的には躊躇されるものと考えられる．

ほんと、これなんだが。
結論は陳腐。

>やはり，まず症候から早期よりNCSEを疑うことが治療への近道になる．
16 名前：卵の名無しさん mailto:sage [2020/06/22(月) 07:37:41.88 ID:+Cx74dSj.net]: https://www.ncbi.nlm.nih.gov/pmc/articles/PMC3105634/

Nonepileptic conditions mimicking features of NCSE

A number of conditions may resemble NCSE clinically, but are not associated with periodic or rhythmic EEG abnormalities.
These include prolonged migraine auras, transient global amnesia, transient ischaemic attacks and psychiatric disturbances such as stupor or dissociative disorders.
It should be kept in mind that status pseudoepilepticus may take various clinical forms.
Bizarre and wild motor features are most common and therefore will per definition not be confused with NCSE.
In some patients status pseudoepilepticus may take the form of feigned loss or impairment of consciousness without any motor features.
Such cases should not be overlooked. None of the mentioned conditions is accompanied by periodic or rhythmic EEG abnormalities, thus excluding the diagnosis of NSCE.

If EEG recording is not feasible, 2?mg iv lorazepam may be administered for diagnostic purposes.
A clear clinical response to benzodiazepines indicates a diagnosis of NCSE, as none of the abovementioned other conditions improves with lorazepam.
This is also true for the rare cases of NCSE with negative surface EEG.

そういえば、ワイパックスの注射液がロラピタとして発売されていな。
意識混濁ある患者にベンゾジアゼピン注射は当直帯ではやりたくない。
仕方ないのでやったけど。
17 名前：卵の名無しさん mailto:sage [2020/06/22(月) 07:39:09.87 ID:+Cx74dSj.net]: retrospectiveにみると、苦し紛れにtransient ischaemic attacksと診断した中にNCSEが混ざっていたのだろうなぁ。
18 名前：卵の名無しさん mailto:sage [2020/06/22(月) 07:58:11.71 ID:+Cx74dSj.net]: >>15
> as none of the abovementioned other conditions improves with lorazepam.

Hyperventilationには効果があるように思えるが
19 名前：卵の名無しさん mailto:sage [2020/06/22(月) 19:33:14.10 ID:Dbr2SscI.net]: Record of a DoTeihen graduate incompetent to solve linear equation
imagizer.imageshack.com/img923/2715/RosCsf.jpg

We are taken aback by the daunting stupidity of the DoTeihen that he is not able to calculate the male/female proportion when each ratio and overall ratio are given

How come could such a retard go to the DoTeihen medical school?

Is there any better accounting for it than his bribing his way into the DoTeihen medical school, in other word Uraguchi?

Mr. Kazuki Enari, who insists DoTeihen medical school accommodates such feebs who cannot solve quadratic equations, would be flabbergasted .

It is as easy as anything even for junior high school students to solve the problem with a linear equation.

That Doteihen dumb contends unwisely that
male/female proportion is necessary to figure out.
imagizer.imageshack.com/img923/9687/zNivZW.jpg

After I posted the answer of its probability 0.2575549,
he responded that the answer needed unit.

There seems to be some unit to denote probability in DoTeihen medical school , LOL

How come could such a retard go to the DoTeihen medical school?

Is there any better accounting for it than his bribing his way into the DoTeihen medical school, in other word Uraguchi?
imagizer.imageshack.com/img923/5683/vMw9nv.jpg
20 名前：卵の名無しさん mailto:sage [2020/06/22(月) 22:23:41.69 ID:Dbr2SscI.net]: ７インチタブレット
https://stop-the-engine.com/tablet/457
21 名前：卵の名無しさん mailto:sage [2020/06/22(月) 23:09:03.21 ID:Dbr2SscI.net]: >>15
神経内科医と話をしてみたけど
緊急で脳波のとれない当直帯でpostictal stateとnonconvulsive status epilepticusの鑑別はほぼ不可能との意見だったな。
22 名前：卵の名無しさん mailto:sage [2020/06/22(月) 23:09:53.82 ID:Dbr2SscI.net]: https://clinicalsup.jp/contentlist/747.html

NCSEを疑いながらも、脳波へのアクセスや脳神経内科医の迅速な介入が困難な場合においては、診断的治療目的にベンゾジアゼピン系薬剤（ジアゼパム、ロラゼパム）の投与が許容される（推奨度3）。
23 名前：卵の名無しさん mailto:sage [2020/06/23(火) 00:49:04.65 ID:Xhm/pAYT.net]: ネットの投稿って保存されているなぁ。

xxxx.5chb.net/r/hosp/1501744847/

昔、アップロードした画像

gb.nakadashi.pw/pic.php?http://i.imgur.com/fsEWmbQ.jpg
24 名前：卵の名無しさん mailto:sage [2020/06/23(火) 00:52:42.91 ID:Xhm/pAYT.net]: こんなの書いた馬鹿もいたな。

対偶をとると意味が逆になる例、とか底抜け馬鹿だぞ。

https://i.imgur.com/XBFnEcU.jpg
25 名前：卵の名無しさん mailto:sage [2020/06/23(火) 01:08:34.23 ID:Xhm/pAYT.net]: 自宅で安眠できる幸せと
毎日じゃないけど二度寝ができる幸せの方が
金髪碧眼ねーちゃんと外泊していた頃
gb.nakadashi.pw/pic.php?http://i.imgur.com/fsEWmbQ.jpg
より幸せだということにようやく気づいた。
26 名前：卵の名無しさん mailto:sage [2020/06/23(火) 16:22:57.22 ID:Xhm/pAYT.net]: A modelling framework to assess the likely effectiveness of facemasks in combination with ‘lock-down’ in managing the COVID-19 pandemic

https://royalsocietypublishing.org/doi/10.1098/rspa.2020.0376

Identifying airborne transmission as the dominant route for the spread of COVID-19

https://www.pnas.org/content/early/2020/06/10/2009637117

https://www.pnas.org/content/pnas/early/2020/06/10/2009637117/F3.medium.gif
27 名前：卵の名無しさん mailto:sage [2020/06/23(火) 17:19:37.56 ID:Xhm/pAYT.net]: 飛沫の可視化

https://youtu.be/UNHgQq0BGLI
28 名前：卵の名無しさん mailto:sage [2020/06/23(火) 17:29:46.22 ID:Xhm/pAYT.net]: >>26
Visualizing Speech-Generated Oral Fluid Droplets with Laser Light Scattering

https://www.nejm.org/doi/10.1056/NEJMc2007800
29 名前：卵の名無しさん mailto:sage [2020/06/24(水) 06:48:14.69 ID:8Q04USn0.net]: 箸のマナー
www.osaka-kyoiku.ac.jp/~ioku/foodsite/hashi/manar.html
30 名前：卵の名無しさん mailto:sage [2020/06/24(水) 07:23:28 ID:8Q04USn0.net]: これが普通だろな。

https://egg.5ch.net/test/read.cgi/hosp/1592662437/73

73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH
宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ
私大入学というインチキを経由したイシャモドキが、あんま調子のんなや
31 名前：卵の名無しさん mailto:sage [2020/06/24(水) 09:16:45.96 ID:NnLe6+55.net]: A modelling framework to assess the likely effectiveness of facemasks in combination with ‘lock-down’ in managing the COVID-19 pandemic

https://royalsocietypublishing.org/doi/10.1098/rspa.2020.0376

Identifying airborne transmission as the dominant route for the spread of COVID-19

https://www.pnas.org/content/early/2020/06/10/2009637117
https://www.pnas.org/content/pnas/early/2020/06/10/2009637117/F3.medium.gif

飛沫の可視化
https://youtu.be/UNHgQq0BGLI
32 名前：卵の名無しさん mailto:sage [2020/06/24(水) 13:35:18 ID:8Q04USn0.net]: 安楽死はよしてくれや

安楽死は、よしてくれや
安楽死、はよしてくれや
33 名前：卵の名無しさん mailto:sage [2020/06/24(水) 20:41:21 ID:8Q04USn0.net]: https://www.pnas.org/content/pnas/early/2020/06/10/2009637117/F2.large.jpg
34 名前：卵の名無しさん mailto:sage [2020/06/24(水) 20:45:21.93 ID:8Q04USn0.net]: https://www.pnas.org/content/pnas/early/2020/06/10/2009637117/F2.large.jpg
35 名前：卵の名無しさん mailto:sage [2020/06/24(水) 20:46:34.74 ID:8Q04USn0.net]: https://www.pnas.org/content/pnas/early/2020/06/10/2009637117/F3.large.jpg
36 名前：卵の名無しさん mailto:sage [2020/06/24(水) 23:09:29.80 ID:8Q04USn0.net]: 確率が出せず困っています。
0.1.2.3.4.5.6.7.8.9の10枚のカードを使って、4桁＋4桁の足し算をした時、答えが8888になる確率を教えていただけませんか。

library(gtools)
pm=permutations(10,8,v=0:9)
nrow(pm) # 10!/2=1814400
fn <- function(x){
sum(x[1:4]*10^(3:0))+sum(x[5:8]*10^(3:0))==8888
}
sum(apply(pm,1,fn)) # 384
384/1814400 # 1/4725=0.0002116402
#--- simulation ----
sim <- function(){
x=sample(0:9,8)
sum(x[1:4]*10^(3:0))+sum(x[5:8]*10^(3:0))==8888
}
mean(replicate(1e8,sim()))
37 名前：卵の名無しさん mailto:sage [2020/06/24(水) 23:47:59.22 ID:8Q04USn0.net]: library(gtools)
pm=permutations(10,8,v=0:9)
nrow(pm) # 10!/2=1814400
fn <- function(x){
sum(x[1:4]*10^(3:0))+sum(x[5:8]*10^(3:0))==8888
}
sum(apply(pm,1,fn)) # 384
384/1814400 # = 1/4725=0.0002116402
#--- simulation ----
sim <- function(){
x=sample(0:9,8)
sum(x[1:4]*10^(3:0))+sum(x[5:8]*10^(3:0))==8888
}
mean(replicate(1e7,sim()))

f <- function(x){
x[1]!=0 & x[5]!=0
}
pm1=pm[apply(pm,1,f),]
nrow(pm1) # 1451520
sum(apply(pm1,1,fn)) # 288
288/1451520 # = 1/5040 = 0.0001984127
38 名前：卵の名無しさん mailto:sage [2020/06/25(木) 07:13:22 ID:qa/NsT4U.net]: ここに2つの門があります。1つは天国へ続く門で、もう1つは地獄へ続く門です。門の前には1人ずつ門番が立っています。
門番の1人は天使で、もう1人は悪魔です。天使は本当の事しか言わず、悪魔は嘘しか言いません。この2人は外見では見分けられません。
門番の一人に以下の質問をしました。

あなたは「あなたは「あなたは「この門は天国へ続く門ですか？」と聞かれたときに2o と答えますか？」と聞かれたときにYesと答えますか？」と聞かれたときに2o と答えますか？上記質問に対し「Yes」という回答が得られた場合、上記質問の「この門」は天国へ続く門でしょうか？
39 名前：卵の名無しさん mailto:sage [2020/06/25(木) 12:03:09.33 ID:qa/NsT4U.net]: 月額所得税
https://i.imgur.com/PvcgIye.png
40 名前：卵の名無しさん mailto:sage [2020/06/25(木) 13:38:54.40 ID:qa/NsT4U.net]: # https://support.yayoi-kk.co.jp/faq_Subcontents.html?page_id=19590
# https://www.nta.go.jp/publication/pamph/gensen/zeigakuhyo2019/data/denshi-kou.pdf
# 162,500円以下その月の課税給与所得金額×5.105%
# 162,501円 ~ 275,000円その月の課税給与所得金額×10.210%－8,296円
# 275,001円 ~ 579,166円その月の課税給与所得金額×20.420%－36,374円
# 579,167円 ~ 750,000円その月の課税給与所得金額×23.483%－54,113円
# 750,001円 ~ 1,500,000円その月の課税給与所得金額×33.693%－130,688円
# 1,500,001円 ~ 3,333,333円その月の課税給与所得金額×40.840%－237,893円
# 3,333,334円以上その月の課税給与所得金額×45.945%－408,061円

up=c(162500,275000,579166,750000,1500000,3333333) # 上限
tx=c(0.05105,0.10210,0.20420,0.23483,0.33693,0.40840,0.45945) # 税率
b=c(0,8296,36374,54113,130688,237893,408061) # 控除額
f45 <- function(a) { # 四捨五入
x=a-floor(a)　# floor(a):aを超えない整数ガウス記号[x]と同じ,x:小数部分をxに入れる
floor(a)+ (x>=0.5) # xが0.5以上なら１をそうでないなら０を加える
}
income <- function(x){ # 月額給与→手取り
i=sum(x>up)+1 　 # どの税率区分に該当するか
y=x*tx[i]-b[i]　 # 四捨五入前の税金
tax=f45(y/10)*10 # 10円未満の端数を四捨五入
x-tax # 手取り額
}
b4tax <- function(u) uniroot(function(x) income(x)-u ,c(1,1e7))$root

# https://www.nta.go.jp/publication/pamph/gensen/zeigakuhyo2019/data/01.xls
41 名前：卵の名無しさん mailto:sage [2020/06/25(木) 16:41:23.31 ID:aEo8/MMq.net]: ↑朝鮮人
42 名前：卵の名無しさん [2020/06/25(木) 18:55:41 ID:7nkYYYXw.net]: 私立医学部は授業料は国立に比べて破格に高額だけど、
授業がキッチリしてると噂があるのでうらやましいけどな。

地方国立卒だけど、マジでまともな授業なんか無くて、
大学は辺鄙な地域にあるし、住民は民度が低いし、
マジで最悪だった。

都会の国公立だったら話は別だけど、親がお金持ちだったら
地方の国立医大より都内の私立医大の方が絶対に良いよ！
43 名前：卵の名無しさん [2020/06/25(木) 18:59:00 ID:7nkYYYXw.net]: そもそもあまり国試合格率も良い方じゃ無い大学のくせに
国家試験対策は皆無で、教授の趣味みたいな分野の勉強
ばかりやらされてて、みんなが俺ら国試大丈夫か？と言って
たのを思い出すわ。ほとんどの人がなんとか合格したけど。
44 名前：卵の名無しさん mailto:sage [2020/06/25(木) 23:23:17 ID:qa/NsT4U.net]: >>41
東京の国立医学部に行けばいいだけ。
幸い東京には国立大学医学部は2校ある
45 名前：卵の名無しさん mailto:sage [2020/06/25(木) 23:29:23 ID:qa/NsT4U.net]: >>42
放っておいても勝手に勉強する学生を入試で選別しているから
教員も自分の研究に力を注ぐけど学生の教育は適当、
国試対策らしきものはなかったぞ。
一般に難関大学の方が進級判定が甘い。
46 名前：卵の名無しさん mailto:sage [2020/06/26(金) 11:59:41 ID:vSOmQn7C.net]: 最近の数学板は問題の意味すら理解できない問題が多くてついていけなかったけど、
これは面白かったなぁ。

ベイズ的思考で結果をシミュレーションプログラムで解決できたので
きょうは、ぐっすり眠れそう。

分からない問題はここに書いてね460
https://rio2016.5ch.net/test/read.cgi/math/1589811916/621

621 名前：１３２人目の素数さん[] 投稿日：2020/06/25(木) 02:38:31.89 ID:a4EJWEDG
(´・ω・｀)
別スレにも書いたのですが回答がないのでこちらにも書きます。
たまたま目にした企業の入社試験なのですが問2がわかりません。
1/2 <= 1/3 の証明のどこに穴があるかを指摘する問題なのですが、分からなくてもやもやします。

https://dotup.org/uploda/dotup.org2182228.pdf
47 名前：卵の名無しさん mailto:sage [2020/06/26(金) 12:10:41.07 ID:vSOmQn7C.net]: "
(1)「犬」と書かれたカードと「猫」と書かれたカードがたくさんある山を用意する。
山から1枚カードを引くとき、「犬」が出る確率も「猫」が出る確率も等しく1/2とする。
"
cards=rep(0:1,1e4) # 0：猫 1:犬のカードが1万枚

"
(2) A君は山から2枚のカードを引き、その2枚を手元でシャッフルし、2枚の中から1枚を表にする。
"
sim <- function(){
drawn=sample(cards,2) # 2枚のカードを引き
index=sample(2,1) # 2枚の中から1枚を
turned=drawn[index] # 表のカード
hidden=drawn[-index] # 裏のままのカード
"
(3) 表にしたカードが「猫」なら、2枚を山に戻して(2)に戻る。
表にしたカードが「犬」なら、もう1枚のカードを表にして、そこに書いてある文字を紙にメモする。
そして、2枚を山に戻して(2)に戻る。
"
if(turned==0){ # 表のカードが猫0なら
res=NA # 返り値にNA(Not Available)を
}else{　　 # そうでない（表のカードが犬1なら
res=hidden # 裏のままのカードの記載を返り値に
}
return(res)
}

"この作業を延々と繰り返してメモに書かれたデータを蓄積していく。
メモが発生した回数を N として、N 回分のデータのうち「犬」が書かれた回数を k とすれば、
k/N は N が大きければ大きいほど 1/3 に近づく。
"
48 名前：卵の名無しさん mailto:sage [2020/06/26(金) 12:10:45.93 ID:vSOmQn7C.net]: M=replicate(1e5,sim()) # １０万回繰り返して
N=sum(!is.na(M))　　　 # 返り値がNAでない（＝メモが取られた)回数をNとする
k=sum(M,na.rm=TRUE)　　# 返り値が犬1である個数を返す
k/N
49 名前：卵の名無しさん mailto:sage [2020/06/26(金) 16:04:11.76 ID:vSOmQn7C.net]: 拳銃を一発撃ったときに、狙った相手を撃ち殺す確率は、
Ａは 1/3、Ｂは 1/2（50%）、Ｃは 1/1（100%）とします。
なお、この確率は、全員が知っているものとします。
拳銃を撃つ順番は、Ａ、Ｂ、Ｃの順番で、以降は最後の一人が生き残るまでこの順番を繰り返すものとします。
Ａ、Ｂ、Ｃは拳銃を撃つときに誰を狙っても良いこととします。ただし、一発で二人を狙うことはできません。
Ａ、Ｂ、Ｃの生き残る確率を求めなさい。
50 名前：卵の名無しさん mailto:sage [2020/06/26(金) 16:07:15.07 ID:vSOmQn7C.net]: pa=1/3 ; qa=1-pa # probability of dead ; alive
pb=1/2 ; qb=1-pb
pc=1 ; qc=1-pc

# simulation of 3 alive to 2 alive
# each shoots at the superior sniper
# Hence,A shoots C -> B shoots C -> C shoots B
f3 <- function(){
a=b=c=1
bshoot=FALSE # is next shooter B?
while(a+b+c==3){
c=rbinom(1,1,qa) # A shoots C
if(c==0) bshoot=TRUE # if A kills C, next shooter is B
c=rbinom(1,1,qb) # B shoots C
if(c==1) b=rbinom(1,1,qc) # if C alive, C shoots B
}
return(list(abc=c(a,b,c),bshoot=bshoot))
}
51 名前：卵の名無しさん mailto:sage [2020/06/26(金) 16:07:45.68 ID:vSOmQn7C.net]: # simulation of 2 alive to 1 alive
# Notice who has the right to shoot
f2 <- function(){
re3=f3() # simulation to 2 suvivors
a=re3$abc[1] # 1 1
b=re3$abc[2] # 1 0
c=re3$abc[3] # 0 1
while(a+b+c==2){ # while 2 alive
if(c==0){ # when C dead
if(re3$bshoot){ # when A killed C, B can shoot A
a=rbinom(1,1,qb)
if(a==0) return(c(a,b,c))
}
else{ # when B killed C
b=rbinom(1,1,qa) # A can shoot B
if(b==0) return(c(a,b,c))
}
}
else{ # when C alive (C killed B, C shot at superior B)
c=rbinom(1,1,qa) # A can shoot C
if(c==0) return(c(a,b,c)) # if A killed C
a=rbinom(1,1,qc) # when A missed C,C can shoot A
if(a==0) return(c(a,b,c)) # C can always kill A
}
}
}
k=1e5
re2=replicate(k,f2())
apply(re2,1,mean) # c(1/2,1/6,1/3)
52 名前：卵の名無しさん mailto:sage [2020/06/26(金) 19:47:21 ID:vSOmQn7C.net]: # 乱射狙撃手
rm(list=ls())
RandomDuel <- function(
pa=1/3, # probability of death
pb=1/2,
pc=1,
k=1e5){
ps=c(1-pa,1-pb,1-pc) # probability of survival
f32 <- function(){
abc=c(1,1,1) # survival probability
shop=c(0,0,0) # shooting priority for A,B,C
while(sum(abc)==3){ # while 3 suviors
bc=c(2,3) # A shoots B or C
i=sample(1:2,1) # index of target bc
alive=abc[bc[i]]=rbinom(1,1,ps[1]) # target alive or dead
if(alive==0){ # if either killed
shop[bc[-i]]=1 # the survivor gets shooting priority
break
}
ca=c(3,1) # B shoots C or A
i=sample(1:2,1) # index of target ca
alive=abc[ca[i]]=rbinom(1,1,ps[2]) # target alive or dead
if(alive==0){ # if either killed
shop[ca[-i]]=1 # the survivor gets shooting priority
break
}
53 名前：卵の名無しさん mailto:sage [2020/06/26(金) 19:47:32 ID:vSOmQn7C.net]: ab=c(1,2)
i=sample(1:2,1)
alive=abc[ab[i]]=rbinom(1,1,ps[3])
if(alive==0){
shop[ab[-i]]=1
break
}
}
return(list(abc=abc,shop=shop))
}

# verify
f32()
re32=replicate(1e4,f32()$abc)
apply(re32,1,mean)

f21 <- function(){ # two suvivors to 1 survivor
re32=f32() # which two survive and who has shooting priority
abc=re32$abc # alive or dead
shop=re32$shop # who has shooting priority
while(sum(abc)==2){ # while 2 survivors
shooter=which(abc==1 & shop==1) # shooter shoots
target =which(abc==1 & shop==0) # the target
alive=abc[target]=rbinom(1,1,ps[shooter]) # alive or dead
if(alive==0) break # break if someone killed
}
return(abc)
}
54 名前：卵の名無しさん mailto:sage [2020/06/26(金) 19:47:37 ID:vSOmQn7C.net]: f21()
# k=1e5
re21=replicate(k,f21())
return(apply(re21,1,mean))
}
RandomDuel(1/3,1/2,1)
RandomDuel(1,1,1)
55 名前：卵の名無しさん [2020/06/27(土) 00:10:12 ID:aWO+D22+.net]: 本人は寄付金は払わずに合格したつもりだけど
親御さんは合格を喜んでる息子に本当のことを
言えないと言うのが私立医大合格者の実情らしい。
56 名前：卵の名無しさん mailto:sage [2020/06/27(土) 06:11:18 ID:Zi3cCzHj.net]: ド底辺シリツ医入学というだけで、ド底辺シリツ医大の莫大な学費が払える経済環境にありながら教育投資しても
ド底辺シリツ医大にしか入れなかったアホとわかる。
57 名前：卵の名無しさん mailto:sage [2020/06/27(土) 09:28:03.11 ID:Zi3cCzHj.net]: 中国語になった和製漢語の例として、「意識」、「右翼」、「運動」、「階級」、「共産主義」、「共和」、「左翼」、「失恋」、「進化」、「接吻」、「唯物論」など種々の語がある。
58 名前：卵の名無しさん mailto:sage [2020/06/27(土) 14:03:40.96 ID:Zi3cCzHj.net]: rm(list=ls()) # clear workspace

p=c(1/3,1/2,1) # killing probablity
q=1-p # survival probability

# Three survivors to two survivors
f32 <- function(init=1){
abc=c(1,1,1) # dead or alive
n=length(abc) # initial survivors 3
s=sum(abc) # current survivors
sh=init # initial shooter
while(s==n){ # while 3 survivors
tmp=p
tmp[sh]=0 # set shooter for 0 probability (could be negative)
target=which.max(tmp) # target : the superior sniper
abc[target]=rbinom(1,1,q[sh]) # target dead(0) or alive(1)
# next shooter : if next sniper alive next index, otherwise survived sniper
sh=ifelse(abc[sh%%n+1]==1,sh%%n+1,(1:n)[-c(sh,target)])
s=sum(abc) # how many surviors left
}
list(abc=abc,sh=sh)
}
59 名前：卵の名無しさん mailto:sage [2020/06/27(土) 14:04:18.01 ID:Zi3cCzHj.net]: # demo
f32()
apply(replicate(1e5,f32()$abc),1,mean)

# Two survivors to one survivor
f21 <- function(){ # Three survivors to 2 survivor
re32=f32() # two surviors & next shooter
abc=re32$abc # two survivor
sh=re32$sh # shooter
sv=which(abc==1) # index of two suvivor
target=sv[sv!=sh] # index of target
s=sum(abc)
while(s==2){ # while two survivors, mutual shooting
abc[target]=rbinom(1,1,q[sh]) # target dead(0) or alive(1)
s=sum(abc) # how many surviors left
tmp=target # exhange shooter for target
target=sh
sh=tmp
}
abc
}
f21()
apply(replicate(1e5,f21()),1,mean)
60 名前：卵の名無しさん mailto:sage [2020/06/27(土) 14:19:16 ID:Zi3cCzHj.net]: rm(list=ls()) # clear workspace

p=c(1/3,1/2,1) # killing probablity
q=1-p # survival probability

# Three survivors to two survivors
f32 <- function(init=1){
abc=c(1,1,1) # dead or alive
n=length(abc) # initial survivors 3
s=sum(abc) # current survivors
sh=init # initial shooter
while(s==n){ # while 3 survivors
tmp=p
tmp[sh]=0 # set shooter for 0 probability (could be negative)
target=which.max(tmp) # target : the superior sniper
abc[target]=rbinom(1,1,q[sh]) # target dead(0) or alive(1)
# next shooter : if next sniper alive next index, otherwise survived sniper
sh=ifelse(abc[sh%%n+1]==1,sh%%n+1,(1:n)[-c(sh,target)])
s=sum(abc) # how many surviors left
}
list(abc=abc,sh=sh)
}
# demo
f32()
apply(replicate(1e5,f32()$abc),1,mean)
61 名前：卵の名無しさん mailto:sage [2020/06/27(土) 14:19:21 ID:Zi3cCzHj.net]: # Two survivors to one survivor
f21 <- function(){ # Three survivors to 2 survivor
re32=f32() # two surviors & next shooter
abc=re32$abc # two survivor
sh=re32$sh # shooter
sv=which(abc==1) # index of two suvivor
target=sv[sv!=sh] # index of target
s=sum(abc)
while(s==2){ # while two survivors, mutual shooting
abc[target]=rbinom(1,1,q[sh]) # target dead(0) or alive(1)
s=sum(abc) # how many surviors left
tmp=target # exhange shooter for target
target=sh
sh=tmp
}
abc
}
f21()
apply(replicate(1e5,f21()),1,mean)
62 名前：卵の名無しさん mailto:sage [2020/06/27(土) 16:31:06.34 ID:Zi3cCzHj.net]: > apply(replicate(1e5,f21()),1,mean)
[1] 0.36255 0.41738 0.22007

ABCの生存確率の理論は
13/36,15/36,8/36

数学板の助けを借りでデバッグできた。
63 名前：卵の名無しさん mailto:sage [2020/06/27(土) 20:31:29.15 ID:Zi3cCzHj.net]: 数学板には珍しく暗算で答が出せる問題

https://i.imgur.com/HYNgQUw.jpg
64 名前：卵の名無しさん mailto:sage [2020/06/28(日) 06:17:15.51 ID:SIGrmsx3.net]: 山梨県の20代の男性は、3月に新型コロナウイルスに感染した後に髄膜炎を発症、一時意識障害もあったが、回復し退院した。
だが、この1～2年間の記憶を失っていることが判明した。

https://news.livedoor.com/article/detail/18359037/

感染したら医師生命が終わりかもしれんな。
失う記憶すらないド底辺シリツ医は最強かもしれん。
中学の数学すら記憶していないのがド底辺シリツ医。

症例報告

imagizer.imageshack.com/img923/2715/RosCsf.jpg
65 名前：卵の名無しさん mailto:sage [2020/06/28(日) 06:22:01.29 ID:SIGrmsx3.net]: (仮想事例)
ある開業医が新型コロナ肺炎に罹患したとする。
行動調査によって発症前にキャバクラに行っており接客したキャバ嬢が開業医発症の２日後に発症していたことがわかった。
キャバ嬢は開業医から移されたと主張して１億円の賠償を求めている。
潜伏期間には幅がありキャバ嬢から移された可能性もあると主張してその確率を計算して賠償金を値切りたい。
いくら値切れるか計算せよ。

発症順と感染順が逆転する確率密度を乱数発生させて作ったのがヒストグラム、
これに解析解（といっても数値積分での値）の曲線を重ねてみた。
https://i.imgur.com/ljbosiW.png
よく一致しているので

数値積分での結果を使って発症間隔と感染順が発症の逆の確率をグラフにしてみた。

https://i.imgur.com/SSuzKzk.png

発症が2日間隔だと0.2955891なのでキャバクラ感染ネタでは2956万円値切ることができる。
66 名前：卵の名無しさん mailto:sage [2020/06/28(日) 10:42:28.55 ID:4raxPB4V.net]: やはり、医師を蔑む常套句だね！

https://egg.5ch.net/test/read.cgi/hosp/1590129801/745

745 卵の名無しさん sage 2020/06/26(金) 23:11:45.37 ID:Mwn80KUd
>>743
不勉強な底辺私大卒なんて相手にすんなや
67 名前：卵の名無しさん mailto:sage [2020/06/28(日) 12:27:01.05 ID:uqLusHpk.net]: コロナが始まって日本人はマスクを買い増したが
アメリカ人が買い増したのはライフル銃の弾。
68 名前：卵の名無しさん mailto:sage [2020/06/28(日) 13:55:39.38 ID:uqLusHpk.net]: rm(list=ls())
# 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)
}
69 名前：卵の名無しさん mailto:sage [2020/06/28(日) 13:55:44.70 ID:uqLusHpk.net]: price=c(200,200,300,300,400,400)
vec2mat<- function(x){ # binary vector -> matrix 5
70 名前：人 × 6ネタ mat=matrix(x,ncol=6,nrow=5,byrow=T) rownames(mat)=LETTERS[1:5] colnames(mat)=c('いか赤','たこ赤','いくら黒','まぐろ黒','うに金','たい金') mat } (x=dec2nw(10^9,2,digit=30)) (y=vec2mat(x)) fn <- function(y){ pay=apply(y,1,function(x) sum(x*price)) all( all(apply(y,1,sum)>=3), sum(pay)==5000, which.max(pay)==1 & sum(y[1,]*price)==1600, all(y[,4]==1), all(y[1:3,3]==1), sum(y[4,1:2])==2 & sum(y[4,3:4])==1 & sum(y[4,5:6])==1 ) } fn(y) ans=NULL for(i in 1:(2^31-1)){ x=dec2nw(i,2,digit=30) y=vec2mat(y) z=fn(y) if(z==TRUE) ans=append(ans,i) } []: [ここ壊れてます]
71 名前：卵の名無しさん mailto:sage [2020/06/28(日) 13:59:58.42 ID:uqLusHpk.net]: https://i.imgur.com/mHve7Br.png

一般職試験（高卒者試験）
https://www.jinji.go.jp/saiyo/siken/mondairei/16_00.pdf
72 名前：卵の名無しさん mailto:sage [2020/06/28(日) 14:06:09.02 ID:uqLusHpk.net]: fn <- function(y){
pay=apply(y,1,function(x) sum(x*price))
all(
all(apply(y,1,sum)>=3), # 5人は，それぞれ3皿以上注文した。
sum(pay)==5000, # 人が注文した金額の合計は5，000円であった。
which.max(pay)==1 & sum(y[1,]*price)==1600, # 注文した金額が最も多かったのはＡで，1，600円
all(y[,4]==1), # 5人とも，「まぐろ」を注文した。
all(y[1:3,3]==1), # A，Ｂ，Ｃは，「いくら」を注文した。
sum(y[4,1:2])==2 & sum(y[4,3:4])==1 & sum(y[4,5:6])==1 # D は，赤皿を2皿，黒皿を1皿，金皿を1皿の合計4皿を注文した。
# all(y<2) # 同じネタを2皿以上注文した者はいなかった。
)
}
fn(y)
ans=NULL
for(i in 1:(2^31-1)){
x=dec2nw(i,2,digit=30)
y=vec2mat(y)
z=fn(y)
if(z==TRUE) ans=append(ans,i)
}
73 名前：卵の名無しさん mailto:sage [2020/06/29(月) 02:20:04.82 ID:kaJIrJ2A.net]: 整数nを十進法表記したとき、どの桁の数も4,7,9のいずれかであり、かつ、4,7,9のいずれも少なくとも1回は現れるという。
このようなn全体からなる集合をSとしたとき、Sの要素で平方数となるものは存在するか。

library(gtools)
library(gmp)
v=c(4,7,9)
fn <- function(n){
pm=permutations(3,n,v,rep=T)
f <- function(x){
if(all(v %in% x)){
y=as.numeric(paste0(x,collapse = ''))
if(is.whole(sqrt(y))) return(y)
}
}
unlist(apply(pm,1,f))
}
i=1
flg=is.null(fn(i))
while(flg){
flg=is.null(fn(i))
i=i+1
print(i-1)
}
fn(i-1)
74 名前：卵の名無しさん [2020/06/29(月) 06:29:09 ID:0ZEcuQv3.net]: でも底辺私立医大卒の医者が一番の勝ち組だよな。
だって親がお金持ちじゃなかったら本来は医者じゃ
なかったかもしれない連中なんだぜ。
まあ親御さんには一生頭が上がらないとは思うけど、
一番の勝ち組であることは間違いないよ
75 名前：卵の名無しさん mailto:sage [2020/06/29(月) 07:18:36.70 ID:rBYPE8FD.net]: こういうのの相手をする野党は忍耐強いね。

>>
山添「つまり趣旨は伝わってるんですよ、総理、いかがですか」
安倍
「ですが、しゅし、趣旨については伝わったという話をいたしましたが、こっ…こっ…ﾁｯ…
このですね、この、ｲﾜﾊﾞｯ、ｻｧﾝｷﾞﾝの……………が、書いた、いるですね、この　ｫｰ
ｷﾞｮｳｾｲｷｶﾝﾉﾎﾕｳｽﾙｼﾞｮｳﾎｳﾉｺｳｶｲﾆｶﾝｽﾙﾎｳﾘﾂﾆﾓﾄﾁﾞｭｲﾃ、名簿全体を、公開されることもありますと
いうこと、では、ｷきていない、ということは申し上げた、わけで、あります
で、そもそもですね！えー、この…この、最初の、ないか、えー、れんらく、うー
事務連絡で、かいたあることもですね、えー、ｶｲ請求の対象！とされることも、あります！
とこうかいて、ｳｪ、ある、わけぇ、で、ｱﾘﾏｼﾃ、対象とされることもありますということとですね、
ｴ、ｶｲｼﾞ、ｴ、ｱﾉﾑ、名簿ｼﾞｪﾝﾀｲを公開される、ということとは、これ、ｴｰ、…f…fｾ、請求の対象ﾄｾ！
対象ですから！対象とされたってこと、でありますから、そこが、ﾏｧ違うということだとｵﾓﾏｽｶﾞ
いずれぇいたしましてもですね、ｲｽﾞﾚｪいたしましても、いわば、ｱ､そうい、う、方、をですね、
ｴｰ、選んでくださいと、いうことについては、ｿﾚｧ、当然、ｴｷﾃｲﾙということは
先ほども申し上げた趣旨、にﾁｭｲﾃﾊ、申し上げている通りであります」
山添「ちょっとはっきり趣旨が分かりませんけども」

<<
https://youtu.be/5qCy3bROT48?t=140
2分20秒辺りから
76 名前：卵の名無しさん mailto:sage [2020/06/29(月) 07:19:15.16 ID:rBYPE8FD.net]: 人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。

これな！

不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<

東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
77 名前：卵の名無しさん mailto:sage [2020/06/29(月) 11:16:41.04 ID:wl9ALaOg.net]: a=2*pi/3
P=1+0*1i
Q=cos(a)+1i*sin(a)
R=cos(-a)+1i*sin(-a)
b=seq(-pi,pi,len=100)
X=cos(b)+1i*sin(b)
fn <- function(n){
y=abs(P-X)^n+abs(Q-X)^n+abs(R-X)^n
print(summary(y))
}
for(i in 1:50) fn(i)
78 名前：卵の名無しさん [2020/06/29(月) 12:10:12.42 ID:uLj4gkXU.net]: 頭悪い人は国試合格できないと思うけど…
79 名前：卵の名無しさん mailto:sage [2020/06/29(月) 12:15:05.88 ID:wl9ALaOg.net]: >>76
いや、中学数学できないアホでも通るよ。
80 名前：卵の名無しさん mailto:sage [2020/06/29(月) 12:33:37.71 ID:wl9ALaOg.net]: 半径1の円Cに内接する正三角形△PQRと、C上を動く点Xを考える。
このとき自然数nの定め方によっては、a[n]=|XP|^n+|XQ|^n+|XR|^n
がnのみに依存する値をとることがある（すなわち、C上のどの位置にXがあってもa[n]の値は不変である）。
そのようなnを全て決定せよ。
81 名前：卵の名無しさん mailto:sage [2020/06/29(月) 12:35:44.36 ID:wl9ALaOg.net]: 昼御飯前に頭の体操

>>784
プログラム�
82 名前：� > a=2*pi/3 > P=1+0*1i > Q=cos(a)+1i*sin(a) > R=cos(-a)+1i*sin(-a) > b=seq(-pi,pi,len=100) > X=cos(b)+1i*sin(b) > fn <- function(n){ + y=abs(P-X)^n+abs(Q-X)^n+abs(R-X)^n + if(round(min(y),1)==round(max(y),1)) print(n) + } > for(i in 1:1000) fn(i) [1] 2 [1] 4 []: [ここ壊れてます]
83 名前：卵の名無しさん [2020/06/29(月) 13:55:21.71 ID:FTmo9j4R.net]: いたがき
84 名前：卵の名無しさん mailto:sage [2020/06/29(月) 19:27:52.86 ID:Gd6JANC8.net]: 日本は最近、韓国やイタリアにも一人当たりのGDPが抜かれた。
一人当たりのGDPが高いとその国の国民は豊かになり、低いと貧しくなる。
つまり、日本の国民は韓国やイタリアの国民より貧しくなってしまった。
85 名前：卵の名無しさん mailto:sage [2020/06/30(火) 06:43:28 ID:ORfjVN68.net]: 中国はすごいな。
新型コロナ感染追及の矛先を黒人ヘイトにすり替えてしまった。
頭の悪い黒人白人見事に騙された。
ついでに言えば香港の民主化デモも新型コロナで潰しやがった
お見事！
86 名前：卵の名無しさん mailto:sage [2020/06/30(火) 07:53:57.02 ID:ORfjVN68.net]: バイクの正しい乗り方として
　大怪我する前にやめること
というのが正しかったと納得。
https://youtu.be/MAqKw0hooIw
87 名前：卵の名無しさん mailto:sage [2020/06/30(火) 08:29:53.84 ID:ORfjVN68.net]: 切り取り印象操作だったんだな。

専門家からも出た「スピード世界一」への疑問

この仕分けの議論は一時間半ほどかかった。議論の後半の大部分は世界一を目指す意義についてだった。「なぜ2位じゃダメなのか」という趣旨の質問は、蓮舫議員だけではなく他の「仕分け人」からも同様の意見が出されていた。しかも、指摘をしていた仕分け人の中には、スパコンの利用者側の立場でもある金田康正氏（当時東大教授）や松井孝典氏（東大名誉教授）らもいた。決して「素人の思い付き」で進んでいたのではなく、専門的視点も含めての議論であった。

また、仕分け人側が言いっぱなしだったのではなく、文科省に回答を求めていたが、その時の文科省の答えは「最先端のスパコンがないと最先端の競争に勝てない」「世界一を取ることにより国民に夢を与える」など定性的、情緒的なものばかりでかみ合わなかった。スパコンという「道具」を使うことで、どのような研究成果を期待しているのか、スピードで世界一を取ると、具体的にどのような変化があるかについては、再三の質問の中でも答えは返ってこなかった。

https://news.yahoo.co.jp/byline/itoshin/20190909-00141136/
88 名前：卵の名無しさん mailto:sage [2020/06/30(火) 09:00:37.83 ID:ORfjVN68.net]: 3^(3^(3^(3^3))) の最上位の1桁を求めよ(計算機を用いてもよい)。
89 名前：卵の名無しさん mailto:sage [2020/06/30(火) 09:15:12.54 ID:ORfjVN68.net]: 安定のシリツだなぁ。

無届け再生医療　大阪医大元講師ら逮捕　府警

https://www.sankei.com/west/news/200115/wst2001150014-n1.html
90 名前：卵の名無しさん mailto:sage [2020/06/30(火) 11:43:29.30 ID:ORfjVN68.net]: これが医師国家試験問題とは!　単なる比例計算。
中学入試より易しい。
https://i.imgur.com/aNifrIQ.jpg

同じ比例計算でも公務員(一般職)の試験の方が複雑。
https://i.imgur.com/HYNgQUw.jpg

思考力を問う問題は高卒者対象の試験の方が難しい
https://i.imgur.com/mHve7Br.png
追加の問題を考えてみた。
６つの○に書かれた条件をみたすような
５人の注文の仕方は何通りあるかを求めよ。
91 名前：卵の名無しさん mailto:sage [2020/06/30(火) 14:19:22 ID:ORfjVN68.net]: dec2nw <- function(num, N, digit = 4){ # numをdigit桁のN進数に変換
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q
92 名前：%/%N digit=digit-1 } return(r) } price=c(200,200,300,300,400,400) A=c(NA,NA, 1, 1, 1, 1) B=c(NA,NA, 1, 1,NA,NA) C=c(NA,NA, 1, 1,NA,NA) D=c( 1, 1, 0, 1,NA,NA) E=c(NA,NA,NA, 1,NA,NA) ABCDE=rbind(A,B,C,D,E) colnames(ABCDE)=c('いか(赤)','たこ(赤)','いくら(黒)','まぐろ(黒)','うに(金)','たい(金)') ABCDE sum(is.na(ABCDE)) # 17個のNAを0,1で総当り　2^17=131072 i2y<- function(i){ # i -> binary -> matrix 5人 × 6ネタ x=dec2nw(i,2,digit=17) y=ABCDE y['A',c(1,2)]=x[1:2] y['B',c(1,2,5,6)]=x[3:6] y['C',c(1,2,5,6)]=x[7:10] y['D',c(5,6)]=x[11:12] y['E',c(1,2,3,5,6)]=x[13:17] y } []: [ここ壊れてます]
93 名前：卵の名無しさん mailto:sage [2020/06/30(火) 14:19:39 ID:ORfjVN68.net]: fn <- function(y){
pay=apply(y,1,function(x) sum(x*price))
all(
all(apply(y,1,sum)>=3),# 5人は，それぞれ3皿以上注文した。
sum(pay)==5000,# 5人が注文した金額の合計は5，000円であった
which.max(pay)==1 & sum(y[1,]*price)==1600,# 注文した金額が最も多かったのはＡで，1，600円であった。
all(y[,4]==1), # 5人とも，「まぐろ」を注文した。
all(y[1:3,3]==1), # A，Ｂ，Ｃは，「いくら」を注文した。
sum(y[4,1:2])==2 & sum(y[4,3:4])==1 & sum(y[4,5:6])==1, # Dは，赤皿を2皿，黒皿を1皿，金皿を1皿の合計4皿を注文した。
all(y<2) # 同じネタを2皿以上注文した者はいなかった。
)
}
94 名前：卵の名無しさん mailto:sage [2020/06/30(火) 14:19:53 ID:ORfjVN68.net]: # brute force
ans=NULL
N=2^17-1
dec2nw(N,2)

for(i in 1:N){
y=i2y(i)
if(fn(y)){
ans=append(ans,i)
}
}
length(ans) # 可能な注文組み合わせ 16通り
re=lapply(ans,i2y)

TF=numeric()
# Ａは「たこ」を注文した。
for(j in 1:16) TF[j]=re[[j]]['A','たこ(赤)']
all(TF==1)
# Ｂは赤皿を2皿注文した。
for(j in 1:16) TF[j]=sum(re[[j]]['B',c('いか(赤)', 'たこ(赤)')])
all(TF==2)
# Ｃが注文した金額は800円であった。
for(j in 1:16) TF[j]=sum(re[[j]]['C',]*price)
all(TF==800)
# Ｄは「うに」を注文した。
for(j in 1:16) TF[j]=re[[j]]['D','うに(金)']
all(TF==1)
for(j in 1:16) TF[j]=sum(re[[j]]['E',c('うに(金)','たい(金)')])
all(TF==1)
95 名前：卵の名無しさん mailto:sage [2020/07/01(水) 13:33:18.54 ID:4kSzXCeL.net]: 歴史は取り消しのきかない過去から未知の未来へと進む
96 名前：卵の名無しさん mailto:sage [2020/07/02(木) 09:37:24.50 ID:YjrX9sKV.net]: 資本・財・労働の国際移動を規制するためには、国境を管理できる主権国家が存在しなければならない。

安倍は真逆を志向している。
97 名前：卵の名無しさん mailto:sage [2020/07/03(金) 03:57:04.04 ID:Ginm/oIe.net]: 日本復活に必要なのは反グローバリズムなんだが
中韓と左翼をディスって悦にいっている国民が
日本の衰退を招いていることに気づかんのかね？
98 名前：卵の名無しさん mailto:sage [2020/07/03(金) 10:49:01 ID:Ginm/oIe.net]: 共産党が自民党の提案を推奨している

https://www.youtube.com/watch?v=zUVSf6qzOY4&feature=youtu.be&t=610
10分10秒辺りから
99 名前：卵の名無しさん mailto:sage [2020/07/03(金) 16:13:56.09 ID:Ginm/oIe.net]: 安倍晋三はやってる政策、言動と、どこからどう見てもバリバリのグローバリストで保守とは真逆だからな。

安倍晋三「もはや国境や国籍にこだわる時代は過ぎ去りました。
国を開くことは私の中に流れる一貫した哲学。」平成25年9月25日NY証券取引所でのスピーチ
https://ameblo.jp/evening--primrose/entry-12137323273.html
安倍晋三「(外資と移民の国である)シンガポールに追いつき、できれば追い越したい。
真剣に、そう思っています｣平成25年7月26日シンガポール・レクチャー)
https://www.kantei.go.jp/jp/96_abe/statement/2013/0726speech.html
安倍晋三「外国の企業・人が、最も仕事をしやすい国に、日本は変わっていきます。
ではいかにして、成長を図るのか。国を開くこと、日本の市場を、オープンにすることです。
これは、政治家となって以来、私の中に流れる一貫した哲学でした。」（平成26年1月22日ダボス講演）
https://mamo
100 名前：renihon.wordpress.com/2018/05/21/gaikoku-kigyo-hito-shigoto-shiyasui/ 安倍晋三　桜井誠のヘイトスピーチ「決してあってはならないと強く感じた。日本国の品格にかかわること。 人権侵害が認められる時には当該人物に勧告を行っているものと承知をしている」平成26年3月18参院・予算委員会 01. https://yaplog.jp/wasavi2016511/archive/42 へイトスピーチ法が成立　「不当な差別的言動は許されない」 02. http://www.sankei.com/politics/news/160524/plt1605240020-n1.html 安倍首相「志の高いアジアの若者を積極的に受け入れられるようにしていきたいと思います」国家戦略特別区域諮問会議　平成29年1月20日 03. http://www.kantei.go.jp/jp/97_abe/actions/201701/20kokkasenryaku.html 安倍首相は「我が国がＴＰＰを承認すれば、保護主義の蔓延（まんえん）を食い止める力になる」と述べ 04. http://headlines.yahoo.co.jp/hl?a=20161111-00050077-yom-pol 安倍総理大臣の「グローバル市民賞」受賞 05. http://www.mofa.go.jp/mofaj/na/na1/us/page3_001824.html 安倍晋三　総理復帰直後の平成CSISでの政策スピーチ　ジャパンハンドラーズに忠誠を誓う安倍晋三 06. https://www.kantei.go.jp/jp/96_abe/statement/2013/0223speech.html []: [ここ壊れてます]
101 名前：卵の名無しさん mailto:sage [2020/07/03(金) 21:19:14 ID:Ginm/oIe.net]: 数学板から

"
サンドウィッチの詰め方

「縦12センチ(3センチ×4)、横20センチ(10センチ×2)の大きさの容器に、パン屋の店員が、縦×横=3センチ×10センチの大きさの4種類
(ツナ、タマゴ、ハム、チーズ)のサンドウィッチを各2個ずつ、計8個、隙間なく詰めるとする。このとき、サンドウィッチの詰め方は何通りあるか？

1. サンドウィッチの短い辺同士が隣り合う場合は、互いに異なる種類のサンドウィッチ同士でなければならないとし、また、
2. 各縦の列にサンドウィッチを詰める際は、4種類すべてのサンドウィッチを詰めなければならないとする。
容器を回転して同じ配列の場合は、同じ詰め方とする

(今回は容器なので、裏返しにすると、載せることは出来ても、詰めることは出来ないので注意。店長は飽くまで、パンパンに詰めて販売したいのである。店長なりのサービス精神である。)。
ちなみに、同じ種類のサンドウィッチ同士は区別がつかないものとする。」
"
102 名前：卵の名無しさん mailto:sage [2020/07/03(金) 21:19:49 ID:Ginm/oIe.net]: library(gtools)
pm=unique(permutations(8,8,v=rep(1:4,2),set=FALSE))
x2mat <- function(x) matrix(x,ncol=4,byrow=T) # vector-> matrix
x2mat(c(2,1,3,4,1,3,4,2)) # demo
fn <- function(x){
y=x2mat(x)
all(
all(1:4 %in% y[1,]), # 1st row includes all of 1:4
all(1:4 %in% y[2,]), # 2nd row includes all of 1:4
all(apply(y,2,diff)!=0) # difference in each column is not zero
)
}
idx=which(apply(pm,1,fn))
length(idx)
x2mat(pm[idx[100],]) # demo

pm1=pm[idx,]
x2mat(pm1[216,]) # demo
fn1 <- function(x){
(y=x2mat(x))
(z=matrix(c(rev(y[2,]),rev(y[1,])),ncol=4,byrow=T)) # after rotation
all(y==z)
}
idx1=which(apply(pm1,1,fn1))
x2mat(pm1[idx1[24],])

s_as=length(idx) # symmetric + asymmetric
sym =length(idx1) # symmetric

(s_as-sym)/2 + sym
103 名前：卵の名無しさん mailto:sage [2020/07/03(金) 21:52:01.32 ID:Ginm/oIe.net]: rm(list=ls())
graphics.off()
# 円を描く
circle <- function(z,r,...){
if(is.complex(z)){ a=Re(z) ; b=Im(z)
}else{ a=z[1] ; b=z[2] }
x=seq(a-r,a+r,length=100)
y=b+sqrt(r^2-(x-a)^2)
plot(x,y,ylim=c(b-r,b+r),type='l',bty='l',...)
lines(x,2*b-y,...)
}
circle(c(0,0),1,col='gray',lty=3,ann=F)
n=7
x=cos(2*pi/n*0:n)
y=sin(2*pi/n*0:n)
polygon(x,y,border=4)
n=9
x=cos(2*pi/n*0:n)
y=sin(2*pi/n*0:n)
polygon(x,y,border=2)
104 名前：卵の名無しさん mailto:sage [2020/07/04(土) 08:00:41.75 ID:Sxvv6yAr.net]: まあおそらくは出来レースというかお芝居なんだろうけどね。
党でこういう事があったとなれば、
香港情勢に対して国民や他の民主主義国に対しても面目が立つし。
どうせ経団連がらみで来日を許す事になるだろうが、
それでも議論の末に決めた事だと言い訳が立つ。

まあ中国も不快感を示すだろうが、その辺はかけ引きだね。
ま、中国の広報は己らの出世のためにもでかい口を叩きたがるだろうがｗ
105 名前：卵の名無しさん mailto:sage [2020/07/04(土) 17:02:52.67 ID:Sxvv6yAr.net]: hash-kotoba.thyme.jp/
106 名前：卵の名無しさん mailto:sage [2020/07/04(土) 22:46:53.71 ID:Sxvv6yAr.net]: 「新型コロナウイルス」(33) 児玉龍彦・東京大学先端科学技術研究センターがん・代謝プロジェクトプロジェクトリーダー（東京大学名誉教授）/ 村上世彰・一般財団法人村上財団創設者

://youtu.be/8qW7rkFsvvM
107 名前：卵の名無しさん mailto:sage [2020/07/05(日) 10:35:38.74 ID:fzoDXMpz.net]: 西浦先生の予測
何も対策しない場合（５月）

https://www.ntv.co.jp/news_covid19/articles/images/23j2bhjf7tshp3u5hyvz8wxa7kt1q3.jpg

こういう数量モデルは必要なんじゃないの
経済優先でするにしても、そのときの感染者がどうなるか
ある程度の判断材料になるわけだしね
108 名前：卵の名無しさん mailto:sage [2020/07/05(日) 14:37:12.59 ID:T+5emEsp.net]: 抗体陽性率が0.1%の今で約1000人死亡だから
40%が抗体持つくらい広まれば40万人死んでも不思議じゃないね。
109 名前：卵の名無しさん mailto:sage [2020/07/05(日) 15:11:36 ID:T+5emEsp.net]: >>
京都市は先月市内の飲食店で開かれた小規模のパーティーで新型コロナウイルスの集団感染＝クラスターが発生したと発表しました。これまでに男女12人の感染が確認され、市が濃厚接触者などの調査を進めています。
クラスターが発生したのは先月27日に京都市内の飲食店で開かれたパーティで参加した14人のうち今月2日から4日にかけて男女10人の感染が確認されたということです。
また、二次会が開かれたバーの従業員2人の感染も確認され、関係する感染者は合わせて12人に上っています。
京都市は、目安となる「同一の場所で5人以上の感染」が確認されたとして、二次会での感染も含めて新たなクラスターが発生したとしています。
市は濃厚接触者などの調査を進めています。
<<
https://www3.nhk.or.jp/news/html/20200705/k10012497081000.html

rm(list=ls())

mu=0.58 # mean of reproductive number
size=0.45 # dispersion parameter
(prob = size/(size+mu)) # its probability
Rt=rnbinom(1e5,size=size,mu=mu) # random number of negative binomial distribution
hist(Rt,breaks = 'scott',freq=F,ann=F) # show its hist
110 名前：gram sim <- function(n=10){ # simulation infectee=0 # initial value while(infectee!=n){ # while infectee is unequal to n infector=sample(1:n,1) # prior discrete uniform distribution of infector number infectee=sum(sample(Rt,infector)) # total number of infectee } return(infector) # when n infectee, return infector number } s=replicate(1e5,sim()) # simulation & calculation hist(spreader,freq=F,ylab='',axes=F,breaks='scott') ; axis(1) HDInterval::hdi(spreader) BEST::plotPost(spreader) []: [ここ壊れてます]
111 名前：卵の名無しさん mailto:sage [2020/07/05(日) 15:35:39.29 ID:T+5emEsp.net]: while loopで改良

rm(list=ls())

mu=0.58 # mean of reproductive number
size=0.45 # dispersion parameter
(prob = size/(size+mu)) # its probability
Rt=rnbinom(1e5,size=size,mu=mu) # random number of negative binomial distribution
hist(Rt,breaks = 'scott',freq=F,ann=F) # show its histgram
sim <- function(n=10){ # simulation
infectee=0 # initial value
while(infectee!=n){ # while infectee is unequal to n
infector=sample(1:n,1) # prior discrete uniform distribution of infector number
infectee=sum(sample(Rt,infector)) # total number of infectee
}
return(infector) # when n infectee, return infector number
}
spreader=replicate(1e5,sim()) # simulation & calculation
hist(spreader,freq=F,ylab='',axes=F,breaks='scott') ; axis(1)
HDInterval::hdi(spreader)
BEST::plotPost(spreader)
sum(spreader==1)/length(spreader)
112 名前：卵の名無しさん mailto:sage [2020/07/05(日) 15:57:34.63 ID:T+5emEsp.net]: 実効再生産数は一定ではなくて、時期や個々の例で変わる。

実効再生産数は負の二項分布に従うらしくそのパラメータを検討した論文がこれ。
https://www.researchsquare.com/article/rs-29548/v1
From the empirical offspring distribution and
fitted negative binomial distribution shown in Figure 2B,
we estimated an observed reproductive number (R) of 0.58 (95% CI: 0.45 ? 0.71)
and dispersion parameter (k) of 0.45 (95% CI: 0.31 ? 0.76).

上記、パラメータを使って

> クラスターが発生したのは先月27日に京都市内の飲食店で開かれたパーティで参加した
> 14人のうち今月2日から4日にかけて男女10人の感染が確認されたということです。
から、

(1) 参加者のうちパーティ前に感染した人数の期待値と95%信頼区間を計算せよ。
(2) 1人のスーパースプレッダーから広まった確率も併せて求めよ。
113 名前：卵の名無しさん mailto:sage [2020/07/05(日) 16:35:51.63 ID:T+5emEsp.net]: 1年前の記事
「新型インフルエンザから１０年　いまパンデミックが起きたら」
www.nhk.or.jp/kaisetsu-blog/700/319587.html

被害想定（日本）１７万～６４万人
これ新型コロナじゃなく新型インフルエンザな
４２万は別に突飛な数字を言ったわけじゃない
114 名前：卵の名無しさん mailto:sage [2020/07/05(日) 16:38:56.24 ID:T+5emEsp.net]: A「カギかけないと泥棒きちゃうから外出時はカギかけなきゃ」
B「カギかけなくても泥棒こないのに」
→カギかけて外出
→泥棒はこなかった

B「ほら！泥棒に入られなかった！」
A「それはカギをかけてたから…」
B「カギなんかかける必要なかったね！おまえはウソつきだ！」
A「」
B「Aはウソつき！煽りすぎ！」
115 名前：卵の名無しさん mailto:sage [2020/07/05(日) 17:42:29.66 ID:T+5emEsp.net]: K値
・X=累計感染者数
・Y=1週間前の累計感染者数
とおき、“画期的な”指標である「K値」を
・K=(X-Y)/X=1-Y/X
116 名前：卵の名無しさん mailto:sage [2020/07/05(日) 18:36:47.53 ID:T+5emEsp.net]: rm(list=ls())

mu=0.58 # mean of reproductive number
size=0.45 # dispersion parameter
(prob = size/(size+mu)) # its probability
Rt=rnbinom(1e5,size=size,mu=mu) # random numbers of negative binomial distribution
hist(Rt,breaks = 'scott',freq=F,ann=F) # show its histgram
sim <- function(n=10){ # simulation
infectee=0 # initial value
while(infectee!=n){ # while infectee is unequal to n
infector=sample(n,1) # prior discrete uniform distribution of infector number
infectee=sum(sample(Rt,infector)) # total number of infectee
}
return(infector) # when n infectee, return infector number
}
spreader=replicate(1e5,sim()) # simulation & calculation
hist(spreader,freq=F,ylab='',axes=F,breaks='scott') ; axis(1)
HDInterval::hdi(spreader)[1:2] # 95% credibility interval
BEST::plotPost(spreader) # graph with 95%CI & mean
sum(spreader==1)/length(spreader) # the probability of single super-spreader
117 名前：卵の名無しさん mailto:sage [2020/07/05(日) 19:42:39 ID:zhxaSd/7.net]: >>110
バグ修正

rm(list=ls())

mu=0.58 # mean of reproductive number
size=0.45 # dispersion parameter
(prob = size/(size+mu)) # its probability
Rt=rnbinom(1e5,size=size,mu=mu) # random numbers of negative binomial distribution
hist(Rt,breaks = 'scott',freq=F,ann=F) # show its histgram
sim <- function(n=10){ # simulation
infected=0 # initial value
while(infected!=n){ # while infected is unequal to n
infector=sample(n,1) # prior discrete uniform distribution of infector number
infectee=sum(sample(Rt,infector)) # number of infectee
infected=infectee+infector # number of infected
}
return(infector) # when n infectee, return infector number
}
spreader=replicate(1e5,sim()) # simulation & calculation
hist(spreader,freq=F,ylab='',axes=F,breaks='scott') ; axis(1)
HDInterval::hdi(spreader)[1:2] # 95% credibility interval
BEST::plotPost(spreader) # graph with 95%CI & mean
sum(spreader==1)/length(spreader) # the probability of single super-spreader
118 名前：卵の名無しさん mailto:sage [2020/07/05(日) 20:18:33 ID:T+5emEsp.net]: これは、いいたとえだな。

西浦は別に間違ったこと�
119 名前：ﾍ言ってない。 「ナイフで人を刺したら死ぬかも」と言ったようなもので、まあ本当にいう必要あったか？とは思うが。 []: [ここ壊れてます]
120 名前：卵の名無しさん mailto:sage [2020/07/05(日) 22:17:23 ID:T+5emEsp.net]: # 有病率pでｎ人のクラスター発生時の再生産数の期待値
R0 <- function(n,p){
i=1:n
w=dbinom(i,n,p)
r0=(n-i)/i
sum(r0*w)/sum(w)
}
R0(10,0.005)
121 名前：卵の名無しさん mailto:sage [2020/07/06(月) 00:00:56.66 ID:nKQCQwoY.net]: R0 <- function(n,p){
i=1:n
w=dbinom(i,n,p)
r0=(n-i)/i
sum(r0*w)/sum(w)
}
n=12
uniroot(function(x) R0(n,x)-1 ,c(0.001,1),tol=1e-15)
122 名前：卵の名無しさん mailto:sage [2020/07/06(月) 00:01:13.71 ID:nKQCQwoY.net]: R0 <- function(n,p){
i=1:n
w=dbinom(i,n,p)
r0=(n-i)/i
sum(r0*w)/sum(w)
}
n=12
uniroot(function(x) R0(n,x)-1 ,c(0.001,1),tol=1e-15)
123 名前：卵の名無しさん mailto:sage [2020/07/06(月) 00:27:48.88 ID:nKQCQwoY.net]: 有病率の低い伝染病の患者が多発していれば他人に移しやすいのは直観でわかる。
１２人のクラスタが発生したときに有病率がいくらであれば再生産数が１になるか？
124 名前：卵の名無しさん mailto:sage [2020/07/06(月) 00:57:13 ID:nKQCQwoY.net]: >>116
R0 <- function(n,p){
i=1:n
w=dbinom(i,n,p)
r0=(n-i)/i
sum(r0*w)/sum(w)
}
R0=Vectorize(R0)
p=seq(1e-4,1,le=1000)
n=1:1000
plot(n,R0(n,0.05),bty='l',type='l')
plot(p,R0(12,p),bty='l',type='l') ; abline(h=1,lty=3)
uniroot(function(x) R0(12,x)-1 ,c(1e-5,1),tol=1e-15)$root
125 名前：卵の名無しさん mailto:sage [2020/07/06(月) 06:46:11 ID:nKQCQwoY.net]: 分からない問題はここに書いてね460
https://rio2016.5ch.net/test/read.cgi/math/1589811916/879

879 名前：１３２人目の素数さん[sage] 投稿日：2020/07/05(日) 23:34:34.60 ID:6pnuWzuz
A君が坂の途中のP地点に立っている。
A君がP地点から東に歩いたときの勾配は3/4であり、南に歩いた時の勾配は2/3であった。
この坂の勾配が最もきついのはP地点から見てどの方角か。
126 名前：卵の名無しさん mailto:sage [2020/07/06(月) 06:46:29 ID:nKQCQwoY.net]: >>118
library(pracma)
east=c(4,0,3)
south=c(0,-3,2)
(nv=pracma::cross(east,south)) # c(9,-8,-12) 外積=法線ベクトル
"
dot(c(x,y,z),nv)==0
9x-8y-12z=0 平面の式
z=(9x-8y)/12
fn <- function(x,y) 9*x - 8*y # 最大値でいいので/12は無視
x=cosθ, y=sinθとおいて
"
fn <- function(theta) 9*cos(theta) - 8*sin(theta)
curve(fn(x),-pi,pi)
(th=optimise(fn,c(-pi,pi),maximum = TRUE)$max)
th*180/pi
127 名前：卵の名無しさん mailto:sage [2020/07/06(月) 07:58:35.79 ID:nKQCQwoY.net]: p=0.1/100
R=0.58 # mean of reproductive number
k=0.45 # dispersion parameter
k/(k+R) # its probability
n=10 # maximum number of infector
m=12 # combined infected
Rt=rnbinom(1e5,k,mu=R) # random numbers of negative binomial distribution
hist(Rt,breaks = 'scott',freq=F,ann=F) # show its histgram
sim <- function(){ # simulation
infected=0 # initial value
while(infected!=m){ # while infected is unequal to m
infector=sample(1:n,1) # prior discrete uniform distribution of infector number
infectee=sum(sample(Rt,infector)) # number of infectee
infected=infectee+infector # number of infected
}
return(infector) # when n infected, return infector number
}
spreader=replicate(1e5,sim()) # simulation & calculation
hist(spreader,freq=F,ylab='',axes=F,breaks='scott') ; axis(1)
HDInterval::hdi(spreader)[1:2] # 95% credibility interval
BEST::plotPost(spreader,xlim=c(1,10)) # graph with 95%CI & mean
summary(spreader)
sum(spreader==1)/length(spreader) # the probability of single super-spreader
128 名前：卵の名無しさん mailto:sage [2020/07/06(月) 07:58:45.62 ID:nKQCQwoY.net]: > HDInterval::hdi(spreader)[1:2] # 95% credibility interval
lower upper
5 10
> BEST::plotPost(spreader,xlim=c(1,10)) # graph with 95%CI & mean
> summary(spreader)
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.000 7.000 8.000 7.806 9.000 10.000
> sum(spreader==1)/length(spreader) # the probability of single super-spreader
[1] 0.00021
129 名前：卵の名無しさん mailto:sage [2020/07/06(月) 16:07:12.53 ID:RBXc/6V3.net]: シリツの裏口が話題になってますなぁ！

【朝日新聞デジタル】文科省汚職、元局長が無罪を主張「息子に加点、知らず」 [爆笑ゴリラ★]
https://asahi.5ch.net/test/read.cgi/newsplus/1593999549/
130 名前：卵の名無しさん mailto:sage [2020/07/06(月) 16:09:27.66 ID:RBXc/6V3.net]: 周りも裏口だらけとか？

https://asahi.5ch.net/test/read.cgi/newsplus/1593999549/41
131 名前：卵の名無しさん mailto:sage [2020/07/06(月) 18:28:45.70 ID:RBXc/6V3.net]: １０人のなかにスーパースプレッダーがいて合計１２人に感染させた可能性
rm(list=ls())

p=0.1/100
R=0.58 # mean of reproductive number
k=0.45 # dispersion parameter
k/(k+R) # its probability
n=10 # maximum number of infector
m=12 # combined infected
Rt=rnbinom(1e5,k,mu=R) # random numbers of negative binomial distribution
hist(Rt,breaks = 'scott',freq=F,ann=F) # show its histgram
sim <- function(){ # simulation
infected=0 # initial value
while(infected!=m){ # while infected is unequal to m
infector=sample(1:n,1) # prior discrete uniform distribution of infector number
infectee=sum(sample(Rt,infector)) # number of infectee
infected=infectee+infector # number of infected
}
return(infector) # when n infected, return infector number
}
spreader=replicate(1e5,sim()) # simulation & calculation
hist(spreader,freq=F,ylab='',axes=F,breaks='scott') ; axis(1)
HDInterval::hdi(spreader)[1:2] # 95% credibility interval
BEST::plotPost(spreader,xlim=c(1,10)) # graph with 95%CI & mean
summary(spreader)
sum(spreader==1)/length(spreader) # the probability of single super-spreader
132 名前：卵の名無しさん mailto:sage [2020/07/06(月) 18:29:03.10 ID:RBXc/6V3.net]: > HDInterval::hdi(spreader)[1:2] # 95% credibility interval
lower upper
5 10
> BEST::plotPost(spreader,xlim=c(1,10)) # graph with 95%CI & mean
> summary(spreader)
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.000 7.000 8.000 7.837 9.000 10.000
> sum(spreader==1)/length(spreader) # the probability of single super-spreader
[1] 0.00033
133 名前：卵の名無しさん mailto:sage [2020/07/07(火) 11:35:2 ]: [ここ壊れてます]
134 名前：6.75 ID:8nEdlkS9.net mailto: https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14184580814?ccode=ofv&pos=4

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14128403299?__ysp=44OV44Oq44O844Oh44Kk44K944OzLOemj%2BayouirreWQiQ%3D%3D []: [ここ壊れてます]
135 名前：卵の名無しさん mailto:sage [2020/07/08(水) 06:48:28 ID:DzricCbv.net]: C:y=x^2+1
D:x=2y^2+2

PQ2 <- function(xy){
x=xy[1]
y=xy[2]
P=c(x,x^2+1)
Q=c(2*y^2+2,y)
(P-Q)^2
}

optim(c(0,0),PQ2,method='Ne')
136 名前：卵の名無しさん mailto:sage [2020/07/08(水) 07:37:02.96 ID:DzricCbv.net]: PQ <- function(xy){
x=xy[1]
y=xy[2]
P=c(x,x^2+1)
Q=c(2*y^2+2,y)
sqrt(sum((P-Q)^2))
}

opt=optim(par=c(0,0),fn=PQ,method='Nelder')
x=opt$par[1]
(P=c(x,x^2+1))
y=opt$par[2]
(Q=c(2*y^2+2,y))
PQ(opt$par)

f <- function(x,y) PQ(c(x,y))
vf <- Vectorize(f)
x=seq(0.615,0.630,length=100)
y=seq(0.2,0.205, length=100)
z=outer(x,y,vf)
contour(x,y,z)
137 名前：卵の名無しさん mailto:sage [2020/07/08(水) 09:25:17 ID:looQjzP9.net]: ↑あほ
138 名前：卵の名無しさん [2020/07/08(水) 18:36:23.80 ID:ZTu6jETl.net]: 東京医科大】過去に不正合格させた、受験生や親の名前が書かれた
「裏口入学リスト」を作成　特捜部、大学側からリスト入手
2018年07月13日08:55

文部科学省の私立大学支援事業を巡る汚職事件に絡み、受託収賄容疑で逮捕された
同省前局長の佐野太容疑者（５８）の息子を不正に合格させたとされる
東京医科大学（東京）が、過去に不正合格させた受験生やその親の名前などが
書かれた「裏口入学リスト」を作成していたことが関係者の話でわかった。
東京地検特捜部は、同大側から複数のリストを入手しており、
同大が不正入試を繰り返していたとみて調べている。

裏口佐野の公判が始まったようだなｗ
139 名前：卵の名無しさん mailto:sage [2020/07/08(水) 19:09:04.69 ID:DzricCbv.net]: From the empirical offspring distribution and
fitted negative binomial distribution shown in Figure 2B,
we estimated an observed reproductive number (R) of 0.58 (95% CI: 0.45 - 0.71)
and dispersion parameter (k) of 0.45 (95% CI: 0.31 - 0.76).
library(HDInterval)
m=0.58
f <- function(x) hdi(qnorm,mean=m,sd=x)[1:2]
f1 <- function(x) (f(x)[1]-0.45)^2 + (f(x)[2]-0.71)^2
(sd=optimize(f1,c(0,1))$min)
qnorm(0.025,m,sd)
qnorm(0.025,m,sd,lower=F)
pnorm(0.71,m,sd)-pnorm(0.45,m,sd)

# 期待値 m = shape*scale
m=0.45
f0 <- function(x,m=0.45){
sh=x
sc=m/x
pgamma(0.76, shape=sh,scale=sc) -
pgamma(0.31,shape=sh,scale=sc) - 0.95
}
f0=Vectorize(f0)
curve(f0(x),1,100)
abline(h=0,lty=3)
(sh=uniroot(f0,c(0,100),tol=1e-15)$root)
(sc=0.45/sh)
curve(dgamma(x,shape=24.38466,scale=0.01845),ann=F)
pgamma(0.76,sh,scale=sc)-pgamma(0.31,sh,scale=sc)
140 名前：卵の名無しさん mailto:sage [2020/07/09(木) 23:20:47 ID:N2v3KqqG.net]: library(randtests)
data=c(2808,5857,1913,9958,9209,0978,4752,8713,8836,0335,
8687,9217,2207,1775,0425,0773,9447,5706,3983,4477,
4097,7214,5351,3012,6240,2973,5141,2598,4906,9561,
4717,4489,8864,7838,7034,1092,7573,2175,4803,4017,
2861,7072,5078,9836,0426,2402,2929,1429,8886,4893,
7278,8472,3775,0029,0828,1149,0491,3417,4430,2116,
9011,7471,6531,6845,2369,4996,3752,1598,7886,5859,
7709,4767,1447,2739,7732,8473,3036,0517,8183,3061,
8609,3730,0881,8475,9617,0722,8256,1944,8970,6754,
8139,7
141 名前：206,6079,4370,9421,1341,9147,0386,9856,7437) bartels.rank.test(data) cox.stuart.test(data) difference.sign.test(data) rank.test(data) []: [ここ壊れてます]
142 名前：卵の名無しさん mailto:sage [2020/07/09(木) 23:40:01 ID:WLGoT3ZZ.net]: 2ヶ月前の予測が恐ろしいほどハマってる。
https://i.imgur.com/owdiRVU.jpg
143 名前：卵の名無しさん mailto:sage [2020/07/10(金) 05:05:17.10 ID:uIx5PDyl.net]: 脳症の報告もあがってきている。
https://academic.oup.com/brain/article/doi/10.1093/brain/awaa240/5868408
144 名前：卵の名無しさん mailto:sage [2020/07/10(金) 10:08:23.60 ID:uIx5PDyl.net]: いや底辺ほど感染リスク高いから緊急事態宣言を望んでいるのだが
レジ打ちやウエイトレスや掃除やゴミ収集などは
いつ感染してもおかしくないからね

経済回せと叫んでいるのはリモートワークなどで余裕のホワイトカラー
145 名前：卵の名無しさん mailto:sage [2020/07/10(金) 10:20:46 ID:uIx5PDyl.net]: COVID-19のアウトなところ

・空気感染する→湿度が低下するとより伝播しやすくなるので秋冬大変！
・免疫が数週間でなくなる→常に防御する必要性がある
・物質の表面上で不活性化するまでの時間が長い→ツルツルのプラスティックで最長9日間
・精液/排泄物/体液にも存在する→セックスでも感染する。トイレで糞尿の匂いを嗅いだだけでもアウト
・感染者と１M以内に15分以上、喋らずただ息をしているだけで感染する
・NIAIDによると季節性が全くない、なので暑くなろうが湿度が高くなろうが流行が収まらない。尚、湿度が下がると飛散距離が延びるので感染する機会が多くなる
・CDCによると容認できる最低の人と人の安全距離は1.8M、尚日本は1Mとしている池沼っぷり

国内から根絶するまでロックダウンしないとダメな感染症
西村と安倍、事の重大性を認識できてない
146 名前：卵の名無しさん [2020/07/10(金) 12:20:36 ID:vzOjmNtZ.net]: あのーお仕事はされてないんでしょうか？
147 名前：卵の名無しさん mailto:sage [2020/07/10(金) 14:39:47.68 ID:HSKMYqwj.net]: おまえのことだろクソニート朝鮮人
148 名前：卵の名無しさん mailto:sage [2020/07/10(金) 14:50:50.41 ID:uIx5PDyl.net]: アビガン
www.yakugai.gr.jp/topics/file/Fujita_kansatsukenkyu_chuukan_houkoku_ikensho.pdf
149 名前：卵の名無しさん mailto:sage [2020/07/10(金) 16:59:45.99 ID:uIx5PDyl.net]: >>138
人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。

これな！

不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８
150 名前：－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。 当の本人には面と向かっては絶対にそんなことは言わないけどね。 << []: [ここ壊れてます]
151 名前：卵の名無しさん mailto:sage [2020/07/11(土) 07:09:08.74 ID:aDDXoU7O.net]: 傘をさしててもしぶきで濡れるし
大雨だったら役に立たないこともあるし

だから普段から傘をさすことは無意味であるということになる？
152 名前：卵の名無しさん mailto:sage [2020/07/11(土) 07:12:28.80 ID:aDDXoU7O.net]: 民主党政権が取り上げて使用不能にした総連ビルをトリモロして北朝鮮に再び引き渡したのは誰でしょう？

ホニャララ内角の北兆戦への最大の貢ぎ物はホニャララビルの特別配慮
ttps://www.news-postseven.com/archives/20141123_288467.html?DETAIL
153 名前：卵の名無しさん mailto:sage [2020/07/11(土) 07:58:16.62 ID:aDDXoU7O.net]: そもそも中国人ウェルカムやってコロナ爆発させて
金づるの中国人が来なくなったから
日本人に金使わせようとする魂胆しかも感染対策は何もなしで罹るのは自己責任。
154 名前：卵の名無しさん mailto:sage [2020/07/11(土) 12:43:21.42 ID:GlB5Fub6.net]: # https://stackoverflow.com/questions/6424856/r-function-for-returning-all-factors
library(gmp)
library(plyr)

get_all_factors <- function(n)
{
prime_factor_tables <- lapply(
setNames(n, n),
function(i)
{
if(i == 1) return(data.frame(x = 1L, freq = 1L))
plyr::count(as.integer(gmp::factorize(i)))
}
)
lapply(
prime_factor_tables,
function(pft)
{
powers <- plyr::alply(pft, 1, function(row) row$x ^ seq.int(0L, row$freq))
power_grid <- do.call(expand.grid, powers)
sort(unique(apply(power_grid, 1, prod)))
}
)
}

get_all_factors(c(1, 7, 60, 663, 2520, 75600, 15876000, 174636000, 403409))
get_all_factors(factorial(10))
155 名前：卵の名無しさん mailto:sage [2020/07/11(土) 12:43:54.00 ID:GlB5Fub6.net]: dividers <- function(n){
m=seq_len(n)
m[n%%m==0]
}
dividers(factorial(10))
156 名前：卵の名無しさん mailto:sage [2020/07/11(土) 13:36:09 ID:GlB5Fub6.net]: "
異なる6(=ｎ)個の自然数の配列a[1],a[2],...,a[n](a[1]<a[2]<...<a[n]は,最大公約数が1で、
最小公倍数は6!(=720=m)である。このようなaの配列は何通りあるか。
"

rm(list=ls())
dividers <- function(n){
m=seq_len(n)
m[n%%m==0]
}
# demo
dividers(factorial(10))

library(numbers)
# demo
divisors(factorial(10))
library(gtools)
fn <- function(n=3,m=12){
(dv=divisors(m))
(l=length(dv))
f <- function(i){ # i:index
y=dv[i] # dividers of index
mGCD(y)==1 & mLCM(y)==m
}
comb=combinations(l,n)# (270,10) ->cannot allocate vector of size 129.6 Mb
sum(apply(comb,1,f)) # sum(combn(l,n,f))
}

fn(3,12)
fn(5,factorial(5))
x=6
fn(x,factorial(x)) # 290104
157 名前：卵の名無しさん mailto:sage [2020/07/11(土) 15:17:20 ID:aRaMDGCL.net]: 表が出る確率が1/2のコインを1000回投げたときに表がちょうど10回連続してでる確率を求めよ。
158 名前：卵の名無しさん mailto:sage [2020/07/11(土) 16:37:49.32 ID:GlB5Fub6.net]: #　simulation for N coin flips with n(+) sequentical heads
sim <- function(N=1000,n=10,p=0.5,greater=TRUE){ # n+ sequential heads after N flips (greater=T)
x=rbinom(N,1,p)
(y=rle(x))
i=which(y$values==1)
ifelse(greater,max(y$lengths[i])>=n,max(y$lengths[i])==n)
}

mean(replicate(1e6,sim())) # n+ sequential heads
mean(replicate(1e6,sim(greater = FALSE))) # maximum sequential heads = n
159 名前：卵の名無しさん mailto:sage [2020/07/11(土) 17:07:24 ID:GlB5Fub6.net]: "
あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値を求めよ。
"
# 可読性無視のone-liner
sum((60:100)*(choose(60-1,5-1)/choose(60:100,5))/(sum(choose(60-1,5-1)/choose(60:100,5))))
160 名前：卵の名無しさん mailto:sage [2020/07/11(土) 19:05:02 ID:GlB5Fub6.net]: >>149
分数の答を計算させる

library(gmp)
n=as.bigq(60:100)
pmf=chooseZ(60-1,5-1)/chooseZ(n,5) #Pr(max=60|n)
plot(n,pmf,ylab='probability')
pdf=pmf/sum (pmf)
plot(n,pdf,ylab='density')
(E=sum(n*pdf)) #E(n)
as.numeric(E)

# シミュレーション解
sim <- function(){
M=0 # M:5台のうちの最大番号(初期値０）)
while(M!=60){　 # Mが60でないなら
N=sample(60:100,1) # タクシー総数Nを60~100から選んで
M=max(sample(1:N,5)) # N台から5台選択して最大値をMにいれる
}
return(N) # タクシー総数を返す
}
mean(replicate(1e5,sim())) # 10万回繰り返して平均値(期待値)を算出
161 名前：卵の名無しさん mailto:sage [2020/07/12(日) 08:34:44 ID:UrFsdd6z.net]: "
マラソン大会で1000枚のゼッケンを準備したという。
スタート地点のピンぼけ写真を確認したら77人の番号が読み取れて最小値は111で最大値は777であったという。
マラソン参加人数の期待値と95%信頼区間(信用区間)を求めよ
"
z=1000
legible=77
max=777

n=as.bigq(max:z)
layout(matrix(1:2),2)
plot(n,rep(1/length(n),length(n)),bty='l',type='h',ylab='density',main='prior',col='gray')
pmf0 = 1/chooseZ(n,legible) # ∝　pmf
pdf=pmf0/sum (pmf0)
plot(n,pdf,ylab='density',type='h',bty='l',main='posterior',col=2)
(E=sum(n*pdf)) #E(n)
as.numeric(E)
sum((max:z)*(1/choose(max:z,legible))/sum(1/choose(max:z,legible)))
layout(1)
cdf=asNumeric(cumsum(pdf))
plot(n,cdf,type='l',bty='l')
abline(h=0.95,lty=3)
plot(n,pdf,ylab='density',type='h',bty='l',main='posterior',col=2)
(idx=which(0.945<cdf & cdf<0.955))
cdf[idx]
n[idx]
162 名前：卵の名無しさん mailto:sage [2020/07/12(日) 21:40:52 ID:UrFsdd6z.net]: library(ibm)

?localLotkaVolterra
set.seed(880820)
par = list(alpha=5e-4, beta=5e-4, r=0.1, m=0.05, D=list(N=8e-5, P=8e-5),
L=list(N=0.2, P=0.2))
N0 = with(par, m/(2*beta*L$P))
P0 = with(par, r/(2*alpha*L$N))
par$initial = list(N=round(N0), P=round(P0))
sim = localLotkaVolterra(par, T=240, replicates=100, dim=1, maxpop = 1e4,verbose=FALSE)
plot(sim)
163 名前：卵の名無しさん mailto:sage [2020/07/13(月) 07:39:11.49 ID:0kEbxjUg.net]: "
試射させたところ
ゴルゴ13は100発100中
ゴルゴ14は10発10中
ゴルゴ15は1発1中
であったとする。
各ゴルゴの狙撃成功率の期待値と95%信頼区間はいくらか？
"
# 試射前の狙撃成功率の分布をbeta(a,b)に想定、試射データから成功率の分布を求める
a=b=1
# 事前分布
curve(dbeta(x,a,b),bty='l',xlab='probability',ylab='density',lty=3,ylim=c(0,10))
# 事後分布
for(hit in c(1,10,100)) curve(dbeta(x,a+hit,b),bty='l',ann=F,add=TRUE,col=hit)
# 期待値
for(hit in c(1,10,100)) print(integrate(function(x) x*dbeta(x,a+hit,b),0,1)$value)
# 95%Credibility Interval下限(上限は１）
for(hit in c(1,10,100)) print(qbeta(0.95,a+hit,b))
164 名前：卵の名無しさん mailto:sage [2020/07/13(月) 23:10:37.76 ID:CDSirGZ5.net]: 今の内閣が史上最低学歴の内閣
やっぱ学歴って大事なんだなと
165 名前：痛感したわ []: [ここ壊れてます]
166 名前：卵の名無しさん mailto:sage [2020/07/14(火) 00:27:33.91 ID:7+6JkGeO.net]: [シｼ]\s*[りりﾘ]\s*[ツﾂ]
167 名前：卵の名無しさん mailto:sage [2020/07/14(火) 10:25:50.78 ID:bf2JlY+k.net]: >>154
羽田も成城大学だったなぁ。
最短と最長が底辺シリツ卒
168 名前：卵の名無しさん mailto:sage [2020/07/14(火) 16:12:58 ID:5CzX8ch/.net]: ほーか
でんでんノータリンにホーセー禿げ
学歴詐称不正選挙エジプトユダ公工作員股ユル子
アホばっかしじゃのお
169 名前：卵の名無しさん mailto:sage [2020/07/14(火) 16:52:33.92 ID:bf2JlY+k.net]: あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
何台観察したかは不明だが最大の番号が６０であった。
この会社の保有するタクシー台数の期待値を求めよ。

尚、計算には数値の分布が不明な場合は一様分布を仮定する。
保有タクシーの台数は60～100の一様分布
観察した台数は1～60の一様分布
と仮定して

f(j)= (1/60)Σ[i=1,60] C[59,i-1]/C[j,i]
Σ[k=60,100] k * f(j) / (Σ[j=60,100] f(j))

を求めて
期待値は　77453110029594251294/1232675015146841933　= 62.83336
95%信頼区間は60～75
170 名前：卵の名無しさん mailto:sage [2020/07/14(火) 16:54:04.59 ID:bf2JlY+k.net]: # 分数表示
library(gmp)
pmf <- function(n.taxi,Max=60){
p=list() # 確率の配列
for(n.obs in 1:Max){ # n.obs : 観察台数1 ~ 60
# 総台数n.taxiで観察数がn.obsのとき最大番号がMaxになる確率
p[[n.obs]]=chooseZ(Max-1,n.obs-1)/chooseZ(n.taxi,n.obs)　
}
s=as.bigq(0)
for(i in 1:Max) s = s + p[[i]] # sに分数加算
s/Max # 平均値(期待値)
}
n=60:100　# 総台数の候補
pdf=pmf(n)/sum.bigq(pmf(n)) # pmfをpdf化
(E=sum(n*pdf)) # 期待値
asNumeric(E)

# 観察された台数が不明なときのシミュレーション
sim <- function(){
M=m=0 # m:観察台数 M:最大番号 (初期値0)
while(M!=60){　 # M=60でないなら
N=sample(60:100,1) # タクシー総数Nを60 ~ 100から選ぶ
m=sample(1:min(N,60),1)# 観察する台数mを1 ~ min(N,60)から選ぶ
M=max(sample(1:N,m)) # N台からm台選択して最大値をMにいれる
}
return(N) # タクシー総数を返す
}
re=replicate(1e4,sim()) # 1万回繰り返して平均値(期待値)を算出
mean(re)
BEST::plotPost(re,xlab='N',cex.lab=1)
171 名前：卵の名無しさん mailto:sage [2020/07/14(火) 16:54:27.47 ID:bf2JlY+k.net]: # 95% CI
fn <- function(n.taxi,Max=60){
p=numeric() # 確率の配列
for(n.obs in 1:Max){ # n.obs : 観察台数1 ~ 60
# 総台数n.taxiで観察数がn.obsのとき最大番号がMaxになる確率
p[n.obs]=choose(Max-1,n.obs-1)/choose(n.taxi,n.obs)　
}
mean(p) # その期待値
}
pmf=Vectorize(fn)
n=60:100　# 総台数の候補
pdf=pmf(n)/sum(pmf(n)) # pmfをpdf化
sum(n*pdf) # 期待値
plot(n,pdf,axes=F,type='h',col=2,ylab='',xlab='N',lwd=5) ; axis(1)
cdf=cumsum(pdf)
idx=which(0.945<cdf & cdf<0.955)
cdf[idx]
n[idx]
172 名前：'' mailto:sage [2020/07/14(火) 17:14:45.92 ID:V6RZOqwd.net]: 2020**2020
173 名前：卵の名無しさん mailto:sage [2020/07/14(火) 18:27:26 ID:bf2JlY+k.net]: >>158
"
f(j)= (1/60)Σ[i=1,60] C[59,i-1]/C[j,i]
Σ[k=60,100] k * f(k) / (Σ[j=60,100] f(j))
"
i=1:60
f <- function(j)(1/60)*sum(choose(59,i-1)/choose(j,i))
f=Vectorize(f)
k=60:100
j=60:100
sum(k*f(k))/sum(f(j))
174 名前：卵の名無しさん mailto:sage [2020/07/14(火) 20:06:57.13 ID:bf2JlY+k.net]: f <- function(x,y){
A=c(1,0)
B=c(cos(x),sin(x))
C=c(cos(y),sin(y))
pracma::dot(A-B,A-C)
}
(opt=optim(par=c(1,1),fn=function(xy)f(xy[1],xy[2])))
round(opt$par*180/pi,1)

source('tools.R')
f=Vectorize(f)
x=y=seq(-pi,pi,length=50)
z=outer(x,y,f)
contour(x,y,z)
rgl::persp3d(x,y,z,col=2)
Persp(x,y,z)

library(pracma)
fn <- function(x,y,z,p=0.5){
A=c(1,0)
B=c(cos(x),sin(x))
C=c(cos(y),sin(y))
P=c(p*cos(z),p*sin(z))
dot(P-B,P-C)+dot(P-C,P-A)+dot(P-A,P-B)
}
g <- function(p){
optim(par=c(1,1,1),
fn=function(w) fn(w[1],w[2],w[3],p),method='L')$value
}
g=Vectorize(g)
optimize(g,c(0,1))
175 名前：卵の名無しさん mailto:sage [2020/07/14(火) 20:57:44.76 ID:bf2JlY+k.net]: library(pracma)
fn <- function(x,y,z,p){
A=c(1,0)
B=c(cos(x),sin(x))
C=c(cos(y),sin(y))
P=c(p*cos(z),p*sin(z))
dot(P-B,P-C)+dot(P-C,P-A)+dot(P-A,P-B)
}
g <- function(p){
optim(par=c(1,1,1),
fn=function(w) fn(w[1],w[2],w[3],p),method='L')$value
}
g=Vectorize(g)
optimize(g,c(0,1))
176 名前：卵の名無しさん mailto:sage [2020/07/14(火) 20:58:01.78 ID:bf2JlY+k.net]: 点Oを中心とする半径1の円Kの周上を3点A,B,Cが動く。

（1）内積↑AB・↑ACの最小値を求めよ。

（2）円の周上または内部の点Pが固定されており、OP=p(0≦p≦1)である。(↑PB・↑
177 名前：PC)+(↑PC・↑PA)+(↑PA・↑PB)の最初うちを求めよ。 []: [ここ壊れてます]
178 名前：卵の名無しさん mailto:sage [2020/07/14(火) 20:58:37.90 ID:bf2JlY+k.net]: rm(list=ls())
cab <- function(M,N=100){
i=1:M
f <- function(j)(1/M)*sum(choose(M-1,i-1)/choose(j,i))
f=Vectorize(f)
k=j=M:N
sum(k*f(k))/sum(f(j))
}
cab=Vectorize(cab)
plot(1:100,cab(1:100),bty='l',type='l')
which.min(cab(1:100))
cab(5)
179 名前：卵の名無しさん mailto:sage [2020/07/14(火) 22:00:34 ID:g3eNSQhk.net]: コピペ荒らしじゃないなら時間の無駄だアホしね
180 名前：卵の名無しさん mailto:sage [2020/07/15(水) 05:42:29.48 ID:HEINqbZ7.net]: 新宿を放置した安倍と小池の失政

コロナが蔓延してる地域には強い規制が必要
全くコロナが発生してない地域には規制をかけずに経済最優先
それなのに全国一斉に緊急事態宣言出したりして、経済ガタガタにして
緊急事態宣言終われば、まだ終息してない新宿あたりも自由に営業させた

小池が一番悪いが、それを放置した安倍も同罪

国民は、今回の判断力と指導力には完全に失望した
181 名前：卵の名無しさん mailto:sage [2020/07/15(水) 06:46:52.14 ID:HEINqbZ7.net]: # 観察された台数が不明なときのシミュレーション
sim <- function(max=60){
M=m=0 # m:観察台数 M:最大番号 (初期値0)
while(M!=max){　 # M=maxでないなら
N=sample(max:100,1) # タクシー総数Nをmax ~ 100から選ぶ
m=sample(1:100,1) # 観察する台数mを1 ~ 100から選ぶ
if(m<=N) M=max(sample(1:N,m)) # N台からm台選択して最大値をMにいれる
}
return(c(N=N,m=m)) # タクシー総数Nと観察台数mを返す
}

replicate(20,sim())

> replicate(20,sim())
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
N 72 100 60 64 62 62 61 60 60 61 73 62 60
m 9 3 38 7 24 4 19 7 60 49 16 5 54
[,14] [,15] [,16] [,17] [,18] [,19] [,20]
N 63 61 95 60 60 65 60
m 13 59 5 20 43 14 51
182 名前：'' mailto:sage [2020/07/15(水) 10:12:26.43 ID:uSeyg7dZ.net]: >>167
Rは理系ならばできて当然。
183 名前：卵の名無しさん mailto:sage [2020/07/15(水) 12:26:33.94 ID:5TbXEwcN.net]: なにをぬかす
超理系だ
若い頃、世界は物理数学で全て記述出来ると考えてた
間違いだった
貴重な時間を無駄にした
184 名前：卵の名無しさん mailto:sage [2020/07/15(水) 13:09:21.87 ID:uSeyg7dZ.net]: 0,1,2,3,4,5,6,7,8,9の数字を並べかえて10桁の数字をつくる。
ただし0で始まる数字は10桁の数字とはみなさない。
小さい順に並べたときに100万個目の数字はいくつになるか？

n=gtools::permutations(10,10,0:9)
cat(paste0(n[n[,1]!=0,][1e6,],collapse=''),'\n')
185 名前：卵の名無しさん mailto:sage [2020/07/15(水) 13:17:38.43 ID:uSeyg7dZ.net]: >>171
この答もだせないなら裏口シリツ医と同じレベルになるわけだが。

前々スレからのド底辺シリツ医への宿題

若い女性研修医（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。
フェラをしてもらうには何と言えばいいか？
186 名前：卵の名無しさん mailto:sage [2020/07/15(水) 14:12:01.48 ID:uSeyg7dZ.net]: rm(list=ls())
library(gtools)
n=gtools::permutations(10,10,0:9)
cat(paste0(n[n[,1]!=0,][1e6,],collapse=''),'\n')
cat(paste0(n[n[,1]!=0,][2e6,],collapse=''),'\n')
cat(paste0(n[n[,1]!=0,][3e6,],collapse=''),'\n')

百マンコめ
3782915460

２百マンコめ
6458731092

三百マンコめ
9241687530
187 名前：卵の名無しさん mailto:sage [2020/07/15(水) 18:42:28.48 ID:HEINqbZ7.net]: # demo
(s1=paste0(rep("0:9",3),collapse=','))
(s2=paste0("1:9,",s1))
(s3=paste0("expand.grid(",s2,')'))
(lang=str2lang(s3))
eval(lang)
188 名前：卵の名無しさん mailto:sage [2020/07/15(水) 18:43:37.82 ID:HEINqbZ7.net]: >>174
ソートして確認

library(gtools)
n=gtools::permutations(10,10,0:9)
n10=n[n[,1]!=0,]
v2d <- function(x){ # c(1,2,3) -> 123
as.numeric(paste0(as.character(x),collapse=''))
}
N10=apply(n10,1,v2d)
sN10=sort(N10)
N10[1e6]
sN10[1e6]
189 名前：卵の名無しさん mailto:sage [2020/07/15(水) 18:4 ]: [ここ壊れてます]
190 名前：4:27.14 ID:HEINqbZ7.net mailto: # 数列を連結して数字に
v2d <- function(x){ # c(1,2,3) -> 123
as.numeric(paste0(as.character(x),collapse=''))
} []: [ここ壊れてます]
191 名前：卵の名無しさん mailto:sage [2020/07/16(木) 04:53:24 ID:VPoZ/5q3.net]: 感染拡大防止、医療体制
6000億円

全国コロナお届けキャンペーン
1兆6000億円

imgur.com/zqbEiHy.jpg
192 名前：卵の名無しさん mailto:sage [2020/07/16(木) 06:37:51.07 ID:VPoZ/5q3.net]: df <- function(x) 2*x # pdf
pf <- function(x) x^2 # cdf = ∫pdf
qf <- function(x) sqrt(x) # cdf=f(qf)

rf <- function(n) qf(runif(n))# random ~ pdf
(E=integrate(function(x) x*df(x),0,1)$value) ; 2/3
(V=integrate(function(x) (x-2/3)^2*df(x),0,1)$value) ; 1/18
sd=sqrt(1/18)

hist(rf(1e5))
fun=rf
sim <- function(n=100){
re=replicate(1e4,mean(replicate(n,fun(1))))
hist(re,freq=F)
lines(density(re),lty=3,col=8)
library(fitdistrplus)
fitdist(re,"norm")
}
n=100
sim(n) ; curve(dnorm(x,2/3,sd/sqrt(n)),add=TRUE)
193 名前：卵の名無しさん mailto:sage [2020/07/16(木) 06:38:16.13 ID:VPoZ/5q3.net]: 問題文↓
https://i.imgur.com/8NnOhkP.jpg
194 名前：卵の名無しさん mailto:sage [2020/07/16(木) 07:46:55.32 ID:VPoZ/5q3.net]: rm(list=ls())

# 三辺の和が3のときに面積が最大になる三角形は？
H3 <- function(a,b,c){
if(a<=b & b<=c & a+b>c & c<3){
s=(a+b+c)/2
S=sqrt(s*(s-a)*(s-b)*(s-c))
return(S)
}else{return(0)}
}

f3 <- function(a,b){
c=3-a-b
H3(a,b,c)
}
f3=Vectorize(f3)
a=b=seq(0,3,le=100)
S=outer(a,b,f3)
image(a,b,S,xlim=c(0,1.5),ylim=c(0,1.5),col = hcl.colors(length(a), "YlOrRd", rev = F))
contour(a,b,S,xlim=c(0,1.5),ylim=c(0,1.5),nlevels=5,add=TRUE)
opt=optim(par=c(0.5,1.2),fn=function(x) f3(x[1],x[2]),control = list(fnscale=-1))
opt$par
opt$value ; 1*sin(pi/3)/2
195 名前：卵の名無しさん mailto:sage [2020/07/16(木) 07:54:31.46 ID:VPoZ/5q3.net]: rm(list=ls())

# 三辺の和が3のときに面積が最大になる三角形は？
H3 <- function(a,b,c){
if(a<=b & b<=c & a+b>c & c<3){
s=(a+b+c)/2
S=sqrt(s*(s-a)*(s-b)*(s-c))
return(S)
}else{return(0)}
}

f3 <- function(a,b){
c=3-a-b
H3(a,b,c)
}
f3=Vectorize(f3)
a=b=seq(0,3,le=100)
S=outer(a,b,f3)
image(a,b,S,xlim=c(0,1.5),ylim=c(0,1.5))
contour(a,b,S,xlim=c(0,1.5),ylim=c(0,1.5),nlevels=5,add=TRUE)
opt=optim(par=c(0.5,1.2),fn=function(x) f3(x[1],x[2]),
method='Nelder-Mead',control = list(fnscale=-1))
opt$par
opt$value ; 1*sin(pi/3)/2
196 名前：卵の名無しさん mailto:sage [2020/07/16(木) 15:53:49.99 ID:VPoZ/5q3.net]: RSA暗号は要点だけ書けば次のような仕組みです。
1.素数a,bを決める
2.c=abとおく
3.d=(a-1)(b-1)とおく
4.dと互いに素な自然数eを一つ決める
5.feをdで割った余りが1となる自然数fを求める
6.ペア(c,e)を公開鍵、ペア(c,f)を秘密鍵とする
7.平文（を自然数列に変換した項の一つ）をmとすると、暗号文はm^eをcで割った余りnである
8.暗号文がnのとき、n^fをcで割った余りはmであるので復号できる（∵数論のオイラーの定理）
197 名前：卵の名無しさん mailto:sage [2020/07/16(木) 17:00:44 ID:VPoZ/5q3.net]: >>183
面白そうなので、ちょっと実験してみた。
暗号文ｍは123

> library(numbers)
> library(gmp)
> options(digits=22)
> k=1e3
> (ab=sample(Primes(k),2))
[1] 911 47
> # 1
> a=ab[1] ; b=ab[2] ; GCD(a,b)
[1] 1
> # 2
> (c=a*b)
[1] 42817
> # 3
> (d=(a-1)*(b-1))
[1] 41860
> # 4
> flg=FALSE
> while(!flg){
+ e=sample(k,1)
+ flg <- GCD(d,e)==1
+ }
> e ; GCD(d,e)
[1] 361
[1] 1
198 名前：卵の名無しさん mailto:sage [2020/07/16(木) 17:00:50 ID:VPoZ/5q3.net]: > # 5
> flg=FALSE
> f=0
> while(!flg){
+ f=f+1
+ flg <- (f*e)%%d==1
+ }
> f ; (f*e)%%d
[1] 18321
[1] 1
> # 6
> (public=c(c,e))
[1] 42817 361
> (secret=c(c,f))
[1] 42817 18321
> # 7
> m=as.bigz(123)
> (n=m^e%%c)
Big Integer ('bigz') :
[1] 3047
> #8
> n^f%%c
Big Integer ('bigz') :
[1] 123

復号されていて面白い。
199 名前：卵の名無しさん mailto:sage [2020/07/16(木) 18:28:04.10 ID:VPoZ/5q3.net]: angle <- function(x,y){
dot.prod <- x%*%y
norm.x <- norm(x,type="2")
norm.y <- norm(y,type="2")
theta <- acos(dot.prod / (n
200 名前：orm.x * norm.y)) as.numeric(theta) } theta <- acos( sum(a*b) / ( sqrt(sum(a * a)) * sqrt(sum(b * b)) ) ) []: [ここ壊れてます]
201 名前：卵の名無しさん mailto:sage [2020/07/16(木) 18:28:54.82 ID:VPoZ/5q3.net]: こういうのどうやるのが速い？　と思ったら

stackoverflowで検索が速いや。

https://stackoverflow.com/questions/1897704/angle-between-two-vectors-in-r
202 名前：卵の名無しさん mailto:sage [2020/07/16(木) 20:36:58.43 ID:VPoZ/5q3.net]: #####
rm(list=ls())
# 複素数ベクトルのなす角
z2angle <- function(z1,z2) abs(Arg(z1)-Arg(z2))

# draw segment of complex a to complex b
seg <- function(a,b,...){
segments(Re(a),Im(a),Re(b),Im(b),col=2,...)
}
# draw text y at complex x
pt <- function(x,y=NULL,...){
text(Re(x),Im(x), ifelse(is.null(y),'+',y), ...)
}

TAB2S <- function(TAB,print=TRUE){ # c(T,a1,a2,b1,b2)
T =TAB[1]
a1=TAB[2]
a2=TAB[3]
b1=TAB[4]
b2=TAB[5]
D=0+0i
A=a1+a2*1i
B=b1+b2*1i
s=abs(A-D)
p=abs(B-A)
qr=2*T-s-p # destined length of q+r

r2qr<-function(r){ # r -> q+r
C=r+0i
q=abs(B-C)
q+r
}
203 名前：卵の名無しさん mailto:sage [2020/07/16(木) 20:37:18.12 ID:VPoZ/5q3.net]: # find r as destined
r=uniroot(function(x) r2qr(x)-qr,c(0,T))$root
C=r+0i
q=qr-r
A_=z2angle(D-A,B-A)
C_=z2angle(B-C,D-C)
S=sqrt((T-p)*(T-q)*(T-r)*(T-s)-p*q*r*s*(cos(A_/2+C_/2))^2)
(res=list(A=A,B=B,C=C,D=D,S=S))
if(print==TRUE){
xlim=c(0,1.25*max(Re(A),Re(B),Re(C),Re(D)))
ylim=c(0,1.25*max(Im(A),Im(B),Im(C),Im(D)))
plot(NULL,type='n',xlim=xlim,ylim=ylim,bty='l',ann=F)
seg(A,B) ; seg(B,C) ; seg(C,D) ; seg(D,A)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
legend('center',bty='n',legend=paste('S =',round(S,2)))
}

return(res)
}
# DEMO
TAB=c(10,1,2,3,4) ; TAB2S(TAB)
TAB=c(10,2,3,4,5) ; TAB2S(TAB)

quad <- function(x,T=10){
tab=c(T,x)
TAB2S(tab,p=F)$S
}
quad(c(1,2,3,4))

(opt=optim(par=c(1,2,3,4),fn=quad,control=list(fnscale=-1)))
TAB2S(c(10,opt$par))
204 名前：卵の名無しさん mailto:sage [2020/07/17(金) 03:46:42.94 ID:k5RESdc+.net]: https://katekyo.mynavi.jp/juken/7993

16Lの容器いっぱいに油が入っています。7Lの容器と9Lの容器を使って、この油を8Lずつに分けます。最も少ない回数で分けるとすると、何回で分けられますか。

> pitcher(7,9,8)
7L 9L
[1,] 0 0
[2,] 7 0
[3,] 0 7
[4,] 7 7
[5,] 5 9
[6,] 5 0
[7,] 0 5
[8,] 7 5
[9,] 3 9
[10,] 3 0
[11,] 0 3
[12,] 7 3
[13,] 1 9
[14,] 1 0
[15,] 0 1
[16,] 7 1
[17,] 0 8
205 名前：卵の名無しさん mailto:sage [2020/07/17(金) 04:18:09.39 ID:k5RESdc+.net]: >>183
https://sites.google.com/site/seijiimura/home/11-da-xue-ru-shi-wen-tide-xuebu-shu-xue/2-er-xiang-ding-litosono-ying-yong

https://1ae3a02d-a-62cb3a1a-s-sites.googlegroups.com/site/seijiimura/home/11-da-xue-ru-shi-wen-tide-xuebu-shu-xue/2-er-xiang-ding-litosono-ying-yong/%E3%82%AA%E3%82%A4%E3%83%A9%E3%83%BC%E5%AE%9A%E7%90%86%EF%BC%91.jpg?attachauth=ANoY7coUXwGJ1Z0ATcycC-Sj-5jHWmr-kj-SjD90WCBbPpcyQf_yib9yZxNC3L9IeLF2pZrK7hvNVA3VeLZZmzADkqTBqcIw6tgO0r2v_PwtjPLKImZ3c10BFBe73dyIk5meXU_pUR4CT3A5NGDypilPQ
206 名前：2gWKl9ZeSFPdML2giLT_-Fx3j01NWOmJNDHi1J9omPsSenZbDqkmgj0gMoU-VbnSMHjZP52m2y1wqx26vLfNBCyEpV8ZSvoQciHaA3naSppVBt6-byjsyiMxhADASBgVtvSa7G7Go67jFiPKv10pVzsTQqXqZGHIpEmzd6QKd6b35WPfFXbgUDHoELXQSHvzV6fGtYNunKCXCRTbchOl_RE8LjyDTktCfI_lPnLk4NzuEDotnnjfdc90G6vgQbB4qayOVW2_A%3D%3D&attredirects=0 []: [ここ壊れてます]
207 名前：卵の名無しさん mailto:sage [2020/07/17(金) 06:21:26.04 ID:aHrIu0jV.net]: %E5%A4%A7%E5%AD%A6%E5%85%A5%E8%A9%A6%E5%95%8F%E9%A1%8C%E3%81%A7%E8%AA%9E%E3%82%8B%E6%95%B0%E8%AB%96%E3%81%AE%E4%B8%96%E7%95%8C%E2%80%95%E7%B4%A0%E6%95%B0%E3%80%81%E5%AE%8C%E5%85%A8%E6%95%B0%E3%81%8B%E3%82%89%E3%82%BC%E3%83%BC%E3%82%BF%E9%96%A2%E6%95%B0%E3%81%BE%E3%81%A7-%E3%83%96%E3%83%AB%E3%83%BC%E3%83%90%E3%83%83%E3%82%AF%E3%82%B9-%E6%B8%85%E6%B0%B4-%E5%81%A5%E4%B8%80/dp/4062577437
208 名前：卵の名無しさん mailto:sage [2020/07/17(金) 07:53:38.08 ID:k5RESdc+.net]: ＃　ｎｕｍｂｅｒ　ｔｏ　ｃｈａｃｔｅｒ
ｎ２ｃ　＜－　ｆｕｎｃｔｉｏｎ（ｎ）｛　＃　１１　－＞　＇Ａ＇，　１２　－＞　＇Ｂ＇，．．．，　３７　－＞　＇Ｚ＇
　　ｉｆ（１０＜ｎ　＆　ｎ＜３８）｛
　　　　ＬＥＴＴＥＲＳ［ｎ－１０］
　　　　｝ｅｌｓｅ　ｒｅｔｕｒｎ（＇？＇）　＃　５５　－＞　？
｝
＃　ｄｉｇｉｔｓ　ｔｏ　ｓｔｒｉｎｇ
ｄ２ｓ　＜－　ｆｕｎｃｔｉｏｎ（ｄ）｛
　　ｓ＝ａｓ．ｃｈａｒａｃｔｅｒ（ｄ）
　　ｎｃ＝ｎｃｈａｒ（ｓ）
　　ｉｆ（ｎｃ％％２＝＝０）｛
　　　　ｃｈ＝ｃｈａｒａｃｔｅｒ（）
　　　　ｆｏｒ（ｉ　ｉｎ　１：（ｎｃ％／％２））｛
　　　　　　ｃｈ［ｉ］＝ｎ２ｃ（ａｓ．ｉｎｔｅｇｅｒ（ｓｕｂｓｔｒ（ｓ，２＊ｉ－１，２＊ｉ）））
　　　　｝
　　｝ｅｌｓｅ　ｒｅｔｕｒｎ（０）
　　ｒｅ＝ｐａｓｔｅ０（ｃｈ，ｃｏｌｌａｐｓｅ＝＇＇）
　　ｃａｔ（ｒｅ，＇\ｎ＇）
　　ｉｎｖｉｓｉｂｌｅ（ｒｅ）
｝
209 名前：卵の名無しさん mailto:sage [2020/07/17(金) 07:53:49.02 ID:k5RESdc+.net]: ｃ２ｎ　＜－　ｆｕｎｃｔｉｏｎ（ｃ）｛　＃　＇Ａ＇　－＞　１１，＇Ｂ＇－＞１２，．．．，＇Ｚ＇－＞３６
　　ｘ＝（ＬＥＴＴＥＲＳ［１：２６］＝＝ｃ）
　　ｉｆ（ａｎｙ（ｘ））　１０＋ｗｈｉｃｈ（ｘ）
　　ｅｌｓｅ　０
｝
ｓ２ｄ　＜－　ｆｕｎｃｔｉｏｎ（ｓ）｛　＃　＂ＯＨ＂　－＞　２５１８
　　ｎｃ＝ｎｃｈａｒ（ｓ）
　　ｄｃ＝ｃｈａｒａｃｔｅｒ（）
　　ｆｏｒ（ｉ　ｉｎ　１：ｎｃ）｛
　　　　ｘ＝ｃ２ｎ（ｓｕｂｓｔｒｉｎｇ（ｓ，ｉ，ｉ））
　　　　ｄｃ［ｉ］＝ｉｆｅｌｓｅ（ｘ！＝０，ａｓ．ｃｈａｒａｃｔｅｒ（ｘ），＂００＂）
　　｝
　　ｒｅ＝ｐａｓｔｅ０（ｄｃ，ｃｏｌｌａｐｓｅ＝＇＇）
　　ｃａｔ（ｒｅ，＇\ｎ＇）
　　ｉｎｖｉｓｉｂｌｅ（ｒｅ）
｝
ｓ２ｄ（＂ＳＨＩＮＥ＂）
ｄ２ｓ（２９１８１９２４１５）

ｓ２ｄ（＂ＵＲＡＧＵＣＨＩ＂）
210 名前：卵の名無しさん mailto:sage [2020/07/17(金) 07:54:37.95 ID:k5RESdc+.net]: > s2d("URAGUCHI")
3128111731131819
> s2d('DOTEIHENSHIRITSU')
14253015191815242918192819302931
211 名前：卵の名無しさん mailto:sage [2020/07/17(金) 08:05:08.49 ID:k5RESdc+.net]: online OCR

https://ocr.space/
212 名前：卵の名無しさん mailto:sage [2020/07/17(金) 11:21:38.31 ID:ugAPa8+J.net]: 香川と奈良は今でも裏口やってんじゃないの？
ま、推薦という名の裏口がまかり通ってるけどね。
昔は無かった。
正真正銘の実力試験のみ。
シリツは別、発想からして裏口開業医養成学校。
213 名前：卵の名無しさん mailto:sage [2020/07/17(金) 21:58:41.17 ID:k5RESdc+.net]: 国会ダイジェスト字幕付き】児玉龍彦教授
214 名前：、渾身の訴え「このままでは来月は目を覆うような惨状になる・・・」コロナ対策とGoToについて言及【参議院新型コロナ閉会中審査】 1:15~ 現在の日本の現状 6:54~ 検査数増加に伴う陽性率増加について 14:56~ GoToキャンペーンについて ://youtu.be/a-AlGLO8YNc []: [ここ壊れてます]
215 名前：'' mailto:sage [2020/07/18(土) 08:58:50.60 ID:EXxQ7xor.net]: c=42817
d=41860
e=361
f1=18321
fmax=1e6
f=0
flg=F
while(!flg | f<fmax){
f=f+1
flg <- (f*e)%%d==1
if(flg & f<fmax) print(f)
}
216 名前：'' mailto:sage [2020/07/18(土) 09:38:33.02 ID:O/N4isUA.net]: > c=42817
> d=41860
> e=361
> f1=18321
> fmax=1e6
> f=0
> flg=F
> e
[1] 361
> re=NULL
> while(!flg | f<fmax){
+ f=f+1
+ flg <- (f*e)%%d==1
+ if(flg & f<fmax) re=c(re,f)
+ }
> re
[1] 18321 60181 102041 143901 185761 227621 269481 311341 353201 395061
[11] 436921 478781 520641 562501 604361 646221 688081 729941 771801 813661
[21] 855521 897381 939241 981101
>
217 名前：'' mailto:sage [2020/07/18(土) 09:44:56.69 ID:O/N4isUA.net]: c=42817
d=41860
e=361
f1=18321
fmax=1e6
f=0
flg=F
e
re=NULL
while(!flg | f<fmax){
f=f+1
flg <- (f*e)%%d==1
if(flg & f<fmax) re=c(re,f)
}
n=as.bigz(3047)
for(f in re){
print( n^f%%c )
}
218 名前：'' mailto:sage [2020/07/18(土) 09:46:34.48 ID:O/N4isUA.net]: c=42817
d=41860
e=361
f1=18321
fmax=1e6
f=0
flg=F
re=NULL
while(!flg | f<fmax){
f=f+1
flg <- (f*e)%%d==1
if(flg & f<fmax) re=c(re,f)
}
n=as.bigz(3047)
for(f in re){
print( n^f%%c )
}
219 名前：卵の名無しさん mailto:sage [2020/07/18(土) 10:52:24.86 ID:e0H2uXza.net]: >>197
北の方が酷いと思う
そもそも医者が残らないし
旭川と弘前は黒だわ
220 名前：卵の名無しさん mailto:sage [2020/07/18(土) 12:01:28.82 ID:wCmNWJI0.net]: 最底辺グループですな
221 名前：卵の名無しさん mailto:sage [2020/07/18(土) 13:37:01.16 ID:4YqdABa6.net]: ### 暗号解読 ###
rm(list=ls())
# 公開鍵 (c,e)
c=42817
e=361
# 暗号
n=3047

# 素因数分解してdを決定
library(gmp)
(c1=gmp::factorize(c)) # 計算機にcを素因数分解させて
(d=prod((c1-1)))　　　 # 素因数-1の積dを求める

# fを虱潰しに探す
fmax=1e6 # 探索させる秘密鍵 (c,f)のｆの上限=10^6
f=0 # 初期値
flg=FALSE　# 条件をみたすか否かのフラッグ
re.f=NULL # fの候補を容れる数列
# fmax以下でf*eをdで割った余りが1となるfの値を数をre.fに追加する
while(!flg | f<=fmax){
f=f+1 # 1増やして
flg <- (f*e)%%d==1 # f*e (mod d)が1に等しいか?
if(flg & f<=fmax) re.f=c(re.f,f) # 等しければre.fに追加
}
re.f # 秘密鍵(c,f)のfの候補
decode=NULL # 秘密鍵(c,f)を使っての復号
for(f in re.f){
decode=append(decode,asNumeric(mod.bigz(pow.bigz(n,f),c)))
}
decode
222 名前：卵の名無しさん mailto:sage [2020/07/18(土) 13:37:39.37 ID:4YqdABa6.net]: > # 素因数分解してdを決定
> library(gmp)
> (c1=gmp::factorize(c)) # 計算機にcを素因数分解させて
Big Integer ('bigz') object of length 2:
[1] 47 911
> (d=prod((c1-1)))　　　 # 素因数-1の積dを求める
Big Integer ('bigz') :
[1] 41860
>
> # fを虱潰しに探す
> fmax=1e6 # 探索させる秘密鍵 (c,f)のｆの上限=10^6
> f=0 # 初期値
> flg=FALSE　# 条件をみたすか否かのフラッグ
> re.f=NULL # fの候補を容れる数列
> # fmax以下でf*eをdで割った余りが1となるfの値を数をre.fに追加する
> while(!flg | f<=fmax){
+ f=f+1 # 1増やして
+ flg <- (f*e)%%d==1 # f*e (mod d)が1に等しいか?
+ if(flg & f<=fmax) re.f=c(re.f,f) # 等しければre.fに追加
+ }
> re.f # 秘密鍵(c,f)のfの候補
[1] 18321 60181 102041 143901 185761 227621 269481 311341 353201 395061 436921
[12] 478781 520641 562501 604361 646221 688081 729941 771801 813661 855521 897381
[23] 939241 981101
> decode=NULL # 秘密鍵(c,f)を使っての復号
> for(f in re.f){
+ decode=append(decode,asNumeric(mod.bigz(pow.bigz(n,f),c)))
+ }
> decode
[1] 123 123 123 123 123 123 123 123 123 123 123 123 123 123 123 123 123 123 123 123
[21] 123 123 123 123
223 名前：卵の名無しさん mailto:sage [2020/07/18(土) 14:55:41.14 ID:4YqdABa6.net]: ｒｍ（ｌｉｓｔ＝ｌｓ（））

＃＃　暗号化　ｂｙ　ＲＳＡ　　＂ＡＨＯ＂　－＞　ｃｉｐｈｅｒ，　ｐｕｂｌｉｃ＿ｋｅｙ，　ｓｅｃｒｅｔ＿ｋｅｙ
Ｅｎｃｏｄｅ　＜－　ｆｕｎｃｔｉｏｎ（ｘ＝＂ＡＨＯ＂，ｋ＝１ｅ４）｛　＃　設定素数の上限
＃＃　－－　文字列を数値化　　－－
　　＃　ｃｈａｒａｃｔｏｒ　ｔｏ　ｎｕｍｂｅｒ
　　ｃ２ｎ　＜－　ｆｕｎｃｔｉｏｎ（ｃ）｛　＃　＇Ａ＇　－＞　１１，＇Ｂ＇－＞１２，．．．，＇Ｚ＇－＞３７，＇０＇－＞７０，　＇１＇－＞　７１
　　　　ｓｙｍｂｏ＝ｃ（＇　＇，＇＿＇，＇！＇，＇＋＇，＇－＇，＇＊＇，＇／＇）
　　
224 名前：　　ＬＥＴ＝ｃ（ＬＥＴＴＥＲＳ，ｌｅｔｔｅｒｓ，ｓｙｍｂｏ，０：９） ｘ＝（ＬＥＴ［１：６９］＝＝ｃ） ｉｆ（ａｎｙ（ｘ））　１０＋ｗｈｉｃｈ（ｘ） ｅｌｓｅ　０ ｝ ＃　ｓｔｒｉｎｇ　ｔｏ　ｄｉｇｉｔｓ ｓ２ｄ　＜－　ｆｕｎｃｔｉｏｎ（ｓ）｛　＃　＂ＯＨ＂　－＞　２５１８ ｎｃ＝ｎｃｈａｒ（ｓ） ｄｃ＝ｃｈａｒａｃｔｅｒ（） ｆｏｒ（ｉ　ｉｎ　１：ｎｃ）｛ ｘ＝ｃ２ｎ（ｓｕｂｓｔｒ（ｓ，ｉ，ｉ）） ｄｃ［ｉ］＝ｉｆｅｌｓｅ（ｘ！＝０，ａｓ．ｃｈａｒａｃｔｅｒ（ｘ），＂００＂） ｝ ｒｅ＝ｐａｓｔｅ０（ｄｃ，ｃｏｌｌａｐｓｅ＝＇＇） ｃａｔ（ｓ，＇－＞＇，ｒｅ，＇\ｎ＇） ｉｎｖｉｓｉｂｌｅ（ａｓ．ｎｕｍｅｒｉｃ（ｒｅ）） ｝ []: [ここ壊れてます]
225 名前：卵の名無しさん mailto:sage [2020/07/18(土) 14:56:15.39 ID:4YqdABa6.net]: ＃＃　－－　ＲＳＡ　アルゴリズム　　
　　ｌｉｂｒａｒｙ（ｎｕｍｂｅｒｓ）
　　ｌｉｂｒａｒｙ（ｇｍｐ）
　　ｏｐｔｉｏｎｓ（ｄｉｇｉｔｓ＝２２）
　　＃　１．素数ａ，ｂを決める（上限＝ｋ）
　　（ａｂ＝ｓａｍｐｌｅ（Ｐｒｉｍｅｓ（ｋ），２））
　　ａ＝ａｂ［１］　；　ｂ＝ａｂ［２］
　　＃　２．ｃ＝ａｂとおく
　　（ｃ＝ａ＊ｂ）
　　＃　３．ｄ＝（ａ－１）（ｂ－１）とおく
　　（ｄ＝（ａ－１）＊（ｂ－１））
　　＃　４．ｄと互いに素な自然数ｅを一つ決める
　　ｆｌｇ＝ＦＡＬＳＥ
　　ｗｈｉｌｅ（！ｆｌｇ）｛
　　　　ｅ＝ｓａｍｐｌｅ（ｋ，１）
　　　　ｆｌｇ　＜－　ＧＣＤ（ｄ，ｅ）＝＝１
　　｝
　　＃　５．ｆｅをｄで割った余りが１となる自然数ｆを求める
　　ｆｌｇ＝ＦＡＬＳＥ
　　ｆ＝０
　　ｗｈｉｌｅ（！ｆｌｇ）｛　＃　ｃｏｕｌｄ　ｂｅ　ｌｅｎｇｔｈｙ　ｐｒｏｃｅｓｓ　．．．．
　　　　ｆ＝ｆ＋１
　　　　ｆｌｇ　＜－　（ｆ＊ｅ）％％ｄ＝＝１
　　｝
226 名前：卵の名無しさん mailto:sage [2020/07/18(土) 14:56:41.28 ID:4YqdABa6.net]: 　　＃　６．ペア（ｃ，ｅ）を公開鍵、ペア（ｃ，ｆ）を秘密鍵とする
　　（ｐｕｂｌｉｃ＿ｋｅｙ＝ｃ（ｃ，ｅ））
　　（ｓｅｃｒｅｔ＿ｋｅｙ＝ｃ（ｃ，ｆ））
　　＃　７．平文（を自然数に変換）をｍとすると暗号文はｍ＾ｅをｃで割った余りｎである
　　ｍ＝ａｓ．ｂｉｇｚ（ｓ２ｄ（ｘ））
　　ｉｆ（ｍ＜ｃ）｛　＃　ｍ　＜　ｃ　の時のみ暗号化　
　　　　ｎ＝ｍ＾ｅ％％ｃ
　　｝ｅｌｓｅ｛
　　　　ｎ＝ＮＵＬＬ
　　｝
　　ｌｉｓｔ（ｃｉｐｈｅｒ＝ｎ，ｐｕｂｌｉｃ＿ｋｅｙ＝ｐｕｂｌｉｃ＿ｋｅｙ，ｓｅｃｒｅｔ＿ｋｅｙ＝ｓｅｃｒｅｔ＿ｋｅｙ）
｝

Ｅｎｃｏｄｅ（＂ＡＨＯ＂）
227 名前：卵の名無しさん mailto:sage [2020/07/18(土) 14:57:11.91 ID:4YqdABa6.net]: ＃＃＃　Ｄｅｃｏｄｅ　　復号化　＃＃＃
Ｄｅｃｏｄｅ　＜－　ｆｕｎｃｔｉｏｎ（ｃｉｐｈｅｒ，ｓｅｃｒｅｔ＿ｋｅｙ１，ｓｅｃｒｅｔ＿ｋｅｙ２）｛
　　＃　ｎｕｍｂｅｒ　ｔｏ　ｃｈａｃｔｅｒ
　　ｎ２ｃ　＜－　ｆｕｎｃｔｉｏｎ（ｎ）｛　＃　１１　－＞　＇Ａ＇，　１２　－＞　＇Ｂ＇，．．．，　７３　－＞　＇３＇
　　　　ｓｙｍｂｏ＝ｃ（＇　＇，＇＿＇，＇！＇，＇＋＇，＇－＇，＇＊＇，＇／＇）
　　　　ＬＥＴ＝ｃ（ＬＥＴＴＥＲＳ，ｌｅｔｔｅｒｓ，ｓｙｍｂｏ，０：９）
　　　　ｉｆ（１０＜ｎ　＆　ｎ＜７９）｛
　　　　　　ＬＥＴ［ｎ－１０］
　　　　｝ｅｌｓｅ　ｒｅｔｕｒｎ（＇？＇）　＃　９９　－＞　？
　　｝
　　
　　＃　ｄｉｇｉｔｓ　ｔｏ　ｓｔｒｉｎｇ
　　ｄ２ｓ　＜－　ｆｕｎｃｔｉｏｎ（ｄ）｛　＃　１２３４５６　－＞　ＢＸｔ
　　　　ｓ＝ａｓ．ｃｈａｒａｃｔｅｒ（ｄ）
　　　　ｎｃ＝ｎｃｈａｒ（ｓ）
　　　　ｉｆ（ｎｃ％％２＝＝０）｛
　　　　　　ｃｈ＝ｃｈａｒａｃｔｅｒ（）
　　　　　　ｆｏｒ（ｉ　ｉｎ　１：（ｎｃ％／％２））｛
　　　　　　　　ｃｈ［ｉ］＝ｎ２ｃ（ａｓ．ｉｎｔｅｇｅｒ（ｓｕｂｓｔｒ（ｓ，２＊ｉ－１，２＊ｉ）））
　　　　　　｝
　　　　｝ｅｌｓｅ　ｒｅｔｕｒｎ（０）
　　　　ｒｅ＝ｐａｓｔｅ０（ｃｈ，ｃｏｌｌａｐｓｅ＝＇＇）
　　　　ｃａｔ（ｒｅ，＇\ｎ＇）
　　　　ｉｎｖｉｓｉｂｌｅ（ｒｅ）
　　｝
　　ｌｉｂｒａｒｙ（ｇｍｐ）
　　ｍ＝ｍｏｄ．ｂｉｇｚ（ｐｏｗ．ｂｉｇｚ（ｃｉｐｈｅｒ，ｓｅｃｒｅｔ＿ｋｅｙ２），ｓｅｃｒｅｔ＿ｋｅｙ１）
　　ｄ２ｓ（ａｓＮｕｍｅｒｉｃ（ｍ））
｝
Ｅｎｃｏｄｅ（＂ＢＡＫＡ＂）
Ｄｅｃｏｄｅ（９９０５３８４，９０８７６９１１，７７９５７４０７）
228 名前：卵の名無しさん mailto:sage [2020/07/18(土) 17:25:36.17 ID:Dqjsvzt7.net]: どあほ
229 名前：卵の名無しさん mailto:sage [2020/07/18(土) 18:04:18.44 ID:4YqdABa6.net]: 10Lの容器いっぱいに油が入っています。7Lの容器と3Lの容器を使って、この油を5Lずつに分けます。どのような分け方がありますか。

move7 <- function(xy){
x=xy[1] ; y=xy[2]
# x==7
if(x==7) re=c(7-(3-y),3)
# x==0
if(x==0) re=c(7,y)
# y==3
if(y==3) re=c(x,0)
# y==0
if(y==0 & x!=7){
if(x>=3) re=c(x-3,3)
else re=c(0,x)
}
if(0<=re[1] & re[1]<=7 & 0<=re[2] & re[2]<=3) return(re)
else return(FALSE)
}
move7(c(7,0))
move7(move7(c(7,0)))
move7(move7(move7(c(7,0))))
move7(move7(move7(move7(c(7,0)))))
move7(move7(move7(move7(move7(c(7,0))))))
move7(move7(move7(move7(move7(move7(c(7,0)))))))
move7(move7(move7(move7(move7(move7(move7(c(7,0))))))))
move7(move7(move7(move7(move7(move7(move7(move7(c(7,0)))))))))
230 名前：卵の名無しさん mailto:sage [2020/07/18(土) 18:05:00.73 ID:4YqdABa6.net]: status=c(7,0)
cat('1 : ',status,'\n')
i=1
while(!identical(status,c(0,0))){
i=i+1
status=move7(status)
cat(i,' : ',status,'\n')
}

> status=c(7,0)
> cat('1 : ',status,'\n')
1 : 7 0
> i=1
> while(!identical(status,c(0,0))){
+ i=i+1
+ status=move7(status)
+ cat(i,' : ',status,'\n')
+ }
2 : 4 3
3 : 4 0
4 : 1 3
5 : 1 0
6 : 0 1
7 : 7 1
8 : 5 3
9 : 5 0
231 名前：卵の名無しさん mailto:sage [2020/07/18(土) 18:05:05.25 ID:4YqdABa6.net]: 10 : 2 3
11 : 2 0
12 : 0 2
13 : 7 2
14 : 6 3
15 : 6 0
16 : 3 3
17 : 3 0
18 : 0 3
19 : 0 0
232 名前：卵の名無しさん mailto:sage [2020/07/18(土) 18:39:15.05 ID:4YqdABa6.net]: move3 <- function(xy){ # start from c(0,3)
x=xy[1] ; y=xy[2]
if(y==3){
if(x<=(7-3)) re=c(x+3,0)
else re=c(7, 3-(7-x))
}
if(y==0) re=c(x,3)
if(x==7) re=c(0,y)
233 名前：if(x==0) re=c(y,0) return(re) } status=c(0,3) cat('1 : ',status,'\n') i=1 while(!identical(status,c(0,0))){ # stop at c(5,0) for solution i=i+1 status=move3(status) cat(i,' : ',status,'\n') } > cat('1 : ',status,'\n') 1 : 0 3 > while(!identical(status,c(0,0))){ # stop at c(5,0) for solution + i=i+1 + status=move3(status) + cat(i,' : ',status,'\n') + } []: [ここ壊れてます]
234 名前：卵の名無しさん mailto:sage [2020/07/18(土) 18:40:32.08 ID:4YqdABa6.net]: 2 : 3 0
3 : 3 3
4 : 6 0
5 : 6 3
6 : 7 2
7 : 0 2
8 : 2 0
9 : 2 3
10 : 5 0
11 : 5 3
12 : 7 1
13 : 0 1
14 : 1 0
15 : 1 3
16 : 4 0
17 : 4 3
18 : 7 0
19 : 0 0

７リットルから開始で９回の移動、３リットルから開始で１０回の移動で５リットルが測れる
235 名前：卵の名無しさん mailto:sage [2020/07/18(土) 18:55:31.30 ID:pMfDhNh8.net]: ボケ
236 名前：卵の名無しさん mailto:sage [2020/07/18(土) 20:25:32.47 ID:4YqdABa6.net]: >>190
９から始めた方がステップがすくないな
> a7=9 ; b3=7

1 : 9 0
2 : 2 7
3 : 2 0
4 : 0 2
5 : 9 2
6 : 4 7
7 : 4 0
8 : 0 4
9 : 9 4
10 : 6 7
11 : 6 0
12 : 0 6
13 : 9 6
14 : 8 7
15 : 8 0
237 名前：卵の名無しさん mailto:sage [2020/07/18(土) 21:51:09.00 ID:ZK4CJMhK.net]: カス
238 名前：卵の名無しさん mailto:sage [2020/07/18(土) 22:33:34.04 ID:4YqdABa6.net]: 6を法として+1に合同な素数と、-1に合同な素数が、p以下に同数あるような素数pを「均衡素数」と呼ぶことにする。
(例えば2,3,7,13は均衡素数だが、5,11はそうでない)
このとき、均衡素数を20個見つけよ

F <- function(N){
library(numbers)
prime=Primes(N)
n_p=length(prime)
f1 <- function(x) x%%6==1
f5 <- function(x) x%%6==5
p1=prime[sapply(prime,f1)]
p5=prime[sapply(prime,f5)]
f <- function(p) sum(p1<=p)==sum(p5<=p)
p=NULL
i=1
lp=length(p)
while(i <= n_p){
x=prime[i]
if(f(x)==TRUE) p=c(p,x)
lp=length(p)
i=i+1
}
p
}
F(1e3)
F(1e4)
F(1e5)
F(1e6)
239 名前：卵の名無しさん mailto:sage [2020/07/18(土) 22:34:04.03 ID:4YqdABa6.net]: "
容量8Lの袋と容量5Lの袋を使って池の水を丁度4L集めたい。
袋に目盛りはついていません。
袋から袋への移し替えは全量で行います。
池からとる水の量や池に捨てる水の量には制限はありません。
最初に片方に満たした作業を１回目として
丁度4Lを集めるのに最低何回の移動が必要か？
"
a7=8 ; b3=5

# starting from the bigger pitcher
movea7 <- function(xy){ # start from c(a7,0)
x=xy[1] ; y=xy[2]
# x==a7
if(x==a7) re=c(a7-(b3-y),b3)
# x==0
if(x==0) re=c(a7,y)
# y==b3
if(y==b3) re=c(x,0)
# y==0
if(y==0 & x!=a7){
if(x>=b3) re=c(x-b3,b3)
else re=c(0,x)
}
return(re)
}
240 名前：卵の名無しさん mailto:sage [2020/07/18(土) 22:34:20.69 ID:4YqdABa6.net]: STATUS=status=c(a7,0)
i=1
while(!identical(status,c(0,0))){#
i=i+1
status=movea7(status)
STATUS=rbind(STATUS,status)
}
rownames(STATUS)=1:nrow(STATUS)
colnames(STATUS)=c(paste0(a7,'L'),paste0(b3,'L'))
STATUS
241 名前：卵の名無しさん mailto:sage [2020/07/18(土) 22:34:29.67 ID:4YqdABa6.net]: # starting from the smaller pitcher
moveb3 <- function(xy){ # start from c(0,b3)
x=xy[1] ; y=xy[2]
if(y==b3){
if(x<=(a7-b3)) re=c(x+b3,0)
else re=c(a7, b3-(a7-x))
}
if(y==0) re=c(x,b3)
if(x==a7) re=c(0,y)
if(x==0) re=c(y,0)
return(re)
}

STATUS=status=c(0,b3)
i=1
while(!identical(status,c(0,0))){ # stop at c(5,0) for solution
i=i+1
status=moveb3(status)
STATUS=rbind(STATUS,status)
}
rownames(STATUS)=1:nrow(STATUS)
colnames(STATUS)=c(paste0(a7,'L'),paste0(b3,'L'))
STATUS
242 名前：卵の名無しさん mailto:sage [2020/07/18(土) 22:35:49.09 ID:4YqdABa6.net]: > STATUS
8L 5L
1 0 5
2 5 0
3 5 5
4 8 2
5 0 2
6 2 0
7 2 5
8 7 0
9 7 5
10 8 4
11 0 4
12 4 0
13 4 5
14 8 1
15 0 1
16 1 0
17 1 5
18 6 0
19 6 5
20 8 3
21 0 3
22 3 0
23 3 5
24 8 0
25 0 0
243 名前：卵の名無しさん mailto:sage [2020/07/18(土) 22:36:11.58 ID:4YqdABa6.net]: > STATUS
8L 5L
1 8 0
2 3 5
3 3 0
4 0 3
5 8 3
6 6 5
7 6 0
8 1 5
9 1 0
10 0 1
11 8 1
12 4 5
13 4 0
14 0 4
15 8 4
16 7 5
17 7 0
18 2 5
19 2 0
20 0 2
21 8 2
22 5 5
23 5 0
24 0 5
25 0 0
244 名前：卵の名無しさん mailto:sage [2020/07/19(日) 07:47:44.51 ID:ZhvraOW0.net]: SEIRモデルにK値という指標を重ねてこんなグラフを作って遊んでみた。
https://i.imgur.com/5AsiQxW.png

K値の評価を検査していたら
https://tatsuharug.com/kvalue
ページにあたった。

獣医にも賢い人がいるなぁ、と思って経歴をみたら、
https://tatsuharug.com/profile#i-5

納得した。
245 名前：卵の名無しさん mailto:sage [2020/07/19(日) 11:40:45.82 ID:ZhvraOW0.net]: abc2ABC <- function(a,b,c,axis=FALSE,...){ # 三辺の長さを与えて角度を計算して三角形を描画する
abc=c(a,b,c)
if((0<a & 0<b & 0<c) & ( max(abc) < sum(abc[-which.max(abc)]))){
A=acos((b^2+c^2-a^2)/(2*b*c))
B=acos((c^2+a^2-b^2)/(2*c*a))
C=acos((a^2+b^2-c^2)/(2*a*b))
ABC=c(A,B,C)
plot(NULL,asp=1,xlim=c(0,max(abc)),ylim=c(0,max(abc)),bty='n',
ann=F,axes=axis)
segments(0,0,c,0,...)
segments(0,0,b*cos(A),b*sin(A),...)
segments(c,0,b*cos(A),b*sin(A),...)
return(list(ABCrad=ABC,ABCdeg=ABC*180/pi))
}else return(0)
}
abc2ABC(12,13,5,col=2)
abc2ABC(3,3,3,T,col=2)
246 名前：卵の名無しさん mailto:sage [2020/07/19(日) 15:22:15.54 ID:xIzaGZqM.net]: ↑あほシリツ
247 名前：卵の名無しさん mailto:sage [2020/07/19(日) 21:04:42.06 ID:ZhvraOW0.net]: # 放物線y=x^2 0<=x<=1の回転体の容器に水を入れて45度傾ける
par(bty='l')
source('tools.R')
x=seq(-1,1,0.01)
curve(x^2,-1,1,asp=1,ann=F)
x=seq(0,1,0.01)
segments(x,x^2,x,x,col='blue')
integrate(function(z) pi*sqrt(z)^2, 0,1)
seg(0+0i,0+0.6i,col=8) ; pt(0+0.3i,'z')
seg(0+0.6i,sqrt(0.6)+0.6i,col=8) ; pt(0.3+0.6i,'√z')
integrate(function(y) pi*sqrt(y)^2, 0,1)$value ; pi/2
integrate(function(x)x-x^2,0,1)$value ; 1/6

# x^2+y^2=z
x=y=seq(-1,1,0.1)
f <- function(x,y) x^2+y^2
z=outer(x,y,f)
rgl::persp3d(x,y,z,zlim=c(0,1),asp=1,col=rgb(0.99,0.99,0.99,0.99))
z[z>1]=1
persp(x,y,z, theta=35, lty=3,col='lightgreen',xlab='x',ylab='y',zlab='z',
ticktype='detailed',shade=0.4,phi=30,ltheta=-10,border=TRUE)
248 名前：卵の名無しさん mailto:sage [2020/07/19(日) 21:08:45.08 ID:ZhvraOW0.net]: https://i.imgur.com/Q302eTI.png
249 名前：卵の名無しさん mailto:sage [2020/07/19(日) 21:46:36 ID:ZhvraOW0.net]: 放物線y=x^2 (0<= x <=1)をy軸を中心に回転させてできる面からなる容器に水を満たして45°傾けたときに残る水の体積はいくらか？

https://i.imgur.com/Q89Uv7f.png
https://i.imgur.com/togYUp3.png
https://i.imgur.com/Q302eTI.png
250 名前：'' mailto:sage [2020/07/19(日) 23:16:48.49 ID:ZhvraOW0.net]: >>231
x＝x^2+t^2
α=1/2 (1 - sqrt(1 - 4 t^2))
β=1/2 (1 + sqrt(1 - 4 t^2))
t=[-1/2,1/2]
β-α=2*sqrt(1-4*t^2)
f=function(x) (2*sqrt(1-4*x^2))^3/6
integrate(f, -1/2,1/2)
251 名前：'' mailto:sage [2020/07/19(日) 23:35:23.16 ID:ZhvraOW0.net]: x＝x^2+t^2
α=1/2 (1 - sqrt(1 - 4 t^2))
β=1/2 (1 + sqrt(1 - 4 t^2))
t=[-1/2,1/2]
β-α=sqrt(1-4*t^2)
f=function(x) (sqrt(1-4*x^2))^3/6
integrate(f, -1/2,1/2)$value/pi
252 名前：'' mailto:sage [2020/07/19(日) 23:35:42.09 ID:ZhvraOW0.net]: x＝x^2+t^2
α=1/2 (1 - sqrt(1 - 4 t^2))
β=1/2 (1 + sqrt(1 - 4 t^2))
t=[-1/2,1/2]
β-α=sqrt(1-4*t^2)
f=function(x) (sqrt(1-4*x^2))^3/6
integrate(f, -1/2,1/2)$value
253 名前：'' mailto:sage [2020/07/19(日) 23:46:20.75 ID:ZhvraOW0.net]: k*x＝a*x^2+t^2
α=1/2 (1 - sqrt(1 - 4 t^2))
β=1/2 (1 + sqrt(1 - 4 t^2))
t=[-1/2,1/2]
β-α=sqrt(1-4*t^2)
f=function(x) (sqrt(1-4*x^2))^3/6
integrate(f, -1/2,1/2)$value/pi

(β-α)^2=(α+β)^2-4αβ=(k/a)^2-4t^2/a
254 名前：卵の名無しさん mailto:sage [2020/07/20(月) 06:50:14 ID:mdlQ7W67.net]: # y=ax^2の放物線回転体で上縁の半径がrである器をdeg度傾けて残る液体の量
Tilt <- function(deg=45,a=1,r=1){
θ=deg*pi/180
max=atan(2*a*r)
if(θ>max) return(0)
f <- function(x){
(a/6)* ((1/a)*sqrt(4*a^2*r^2 - 4*a^2*x^2 - 4*a*r*tan(θ) + tan(θ)^2))^3
}
abs(integrate(f,-(tan(θ)/(2*a)-r),tan(θ)/(2*a)-r)$value)
}

degs=seq(0,atan(2)*180/pi,length=500)
Volume=sapply(degs,Tilt)
plot(degs,Volume,xlab='傾き',ylab='残像量',type='l',lwd=2)

# 残りの液量割合から傾ける角度を算出
uniroot(function(x) Tilt(x)-Tilt(0)/2, c(0,60))$root
Vol2deg <- function(vol=0.5,A=1,R=1){ # proportion of the full-filled volume
uniroot(function(x) Tilt(x,A,R) - vol
255 名前：*Tilt(0,A,R),c(0,atan(2*A*R)*180/pi))$root } Vol2deg(0.5) vol=1:20/20 data.frame(残量割合=vol,傾斜角度=sapply(vol,Vol2deg)) vols=seq(0,1,0.01) plot(vols,sapply(vols,Vol2deg),type='l',col='navy',lwd=2, xlab='残存割合',ylab='傾斜角度') []: [ここ壊れてます]
256 名前：卵の名無しさん mailto:sage [2020/07/20(月) 06:58:13.09 ID:mdlQ7W67.net]: >>231
これ類題が東大入試の過去問にあるんだよなぁ。
俺が受験した頃でも、とても試験時間内に解けるとは思えん。
257 名前：卵の名無しさん mailto:sage [2020/07/20(月) 08:26:25.26 ID:mdlQ7W67.net]: (draft)

" y=f(x)
y=sqrt(r^2-x^2)
f(sqrt(x^2+y^2))
= sqrt(r^2-x^2-y^2)
"
fc = function(x,r=1) 1-sqrt(r^2-x^2)
fc=Vectorize(fc)
curve(fc(x),asp=1)
f = function(x,y,r=1){
if(r^2-(x^2+y^2) > 0) 1-sqrt(r^2-(x^2+y^2))
else 0
}
f=Vectorize(f)
x=y=seq(-1,1,0.01)
z=outer(x,y,f1)
rgl::persp3d(x,y,z,zlim=c(0,1),col=2)
258 名前：'' mailto:sage [2020/07/20(月) 12:36:11.83 ID:2KPrymDE.net]: (draft)

" y=f(x)
y=sqrt(r^2-x^2)
f(sqrt(x^2+y^2))
= sqrt(r^2-x^2-y^2)
"
fc = function(x,r=1) 1-sqrt(r^2-x^2)
fc=Vectorize(fc)
curve(fc(x),asp=1)
f = function(x,y,r=1){
if(r^2-(x^2+y^2) > 0) 1-sqrt(r^2-(x^2+y^2))
else NA
}
f=Vectorize(f)
x=y=seq(-1,1,0.01)
z=outer(x,y,f)
idx=which(z!=NA)
z=z[idx]
x=x[idx]
y=y[idx]
rgl::persp3d(x,y,z,zlim=c(0,1),col=2)
259 名前：'\n' mailto:sage [2020/07/20(月) 12:36:57.99 ID:2KPrymDE.net]: (draft)

" y=f(x)
y=sqrt(r^2-x^2)
f(sqrt(x^2+y^2))
= sqrt(r^2-x^2-y^2)
"
fc = function(x,r=1) 1-sqrt(r^2-x^2)
fc=Vectorize(fc)
curve(fc(x),asp=1)
f = function(x,y,r=1){
if(r^2-(x^2+y^2) > 0) 1-sqrt(r^2-(x^2+y^2))
else NA
}
f=Vectorize(f)
x=y=seq(-1,1,0.01)
z=outer(x,y,f)
idx=which(z!=NA)
z=z[idx]
x=x[idx]
y=y[idx]
rgl::persp3d(x,y,z,zlim=c(0,1),col=2)
260 名前：卵の名無しさん mailto:sage [2020/07/20(月) 17:46:44 ID:6Z+kbl12.net]: cse.naro.affrc.go.jp/takezawa/r-tips/r/38.html

関数 polyroot() で多項式の解（根）を求めることが出来る．例えば，p(x) = 5 + 4x + x2 の根を求める場合は c(5, 4, 1) を与える．
261 名前：卵の名無しさん mailto:sage [2020/07/20(月) 19:44:08.15 ID:6Z+kbl12.net]: "
25枚の山札があり内1枚がレアカードだとします。
25枚の山札から10枚を引いて手札にし、
更に手札の10枚のうち2枚を山札から交換できる場合
（交換は、交換したいカードを山札でない場所に捨てたあとに山札から引きます)
"
# exchange n cards
exch <- function(x,y,n){
nx=length(x)
ny=length(y)
ix=sample(nx,n) # index of x exchanged
iy=sample(ny,n)
X=c(y[iy],x[-ix])
Y=c(x[ix],y[-iy])
list(X,Y)
}

#
sim <- function(
r=1, # レアカードの枚数
n25=25, # 最初の山札の枚数
n10=10, # 最初に引く手札の枚数
e2=2){ # 交換する枚数
t10=sample(n25,n10) # 交換前の手札10枚
y15=(1:n25)[-t10] # 交換前の山札15枚
te=exch(t10,y15,e2)[[2]] # 交換後の手札
any(1:r %in% te) # １枚でもレアカードを含むか？
}

mean(replicate(1e6,sim(1))) # レアカード１枚
mean(replicate(1e6,sim(2))) # レアカード２枚
262 名前：卵の名無しさん mailto:sage [2020/07/21(火) 00:02:50.07 ID:1tv7qVWN.net]: 半球状のお椀をθ傾けたときの残量

y1=r+tanθ(x-r)
y2=r-sqrt(r^2-(x^2+t^2))
α = r sin^2(θ) - cos^2(θ) sqrt(r^2 - t^2 - t^2 tan^2(θ))
β = r sin^2(θ) + cos^2(θ) sqrt(r^2 - t^2 - t^2 tan^2(θ))
y1-y2=tanθ(x-r) + sqrt(r^2-(x^2+t^2))
S(t)=integrate[α,β] (y1-y2)dx
integrate[-rcosθ,rcosθ] S(t)dt
263 名前：卵の名無しさん mailto:sage [2020/07/21(火) 01:39:25.34 ID:1tv7qVWN.net]: Volume <- function(deg,r=1){
θ=deg*pi/180
g <- function(t){
f <- function(x){
tan(θ)*(x-r) + sqrt(r^2-(x^2+t^2))
}
integrate(f,
r*sin(θ)^2 - cos(θ)^2*sqrt(r^2-t^2-t^2*tan(θ)^2),
r*sin(θ)^2 + cos(θ)^2*sqrt(r^2-t^2-t^2*tan(θ)^2))$value
}
integrate(Vectorize(g),-r*cos(θ),r*cos(θ))$value
}

Volume(0) ; (4/3)*pi/2
degs=0:90
vol=sapply(degs,Volume)/Volume(0)
plot(degs,vol,type='l') ; abline(h=0.5,lty=3)
uniroot(function(x) Volume(x)/Volume(0)-0.5,c(15,30))$root
264 名前：卵の名無しさん mailto:sage [2020/07/21(火) 02:36:32.06 ID:rpT3NeyM.net]: 数値積分して値を出したが
数学板ではあっという間に厳密解を出されてしまった。
数値解と一致していて安心した。

>>
半球面お碗を�
265 名前：p度 θ 傾けて液体を半分にするには... V(θ) = r^3 ∫[x=sinθ..1] dx π* { √(1-x^2) }^2 = πr^3 ∫[x=sinθ..1] dx ( 1-x^2 ) = r^3 (x - x^3/3 )[x=sinθ, 1] = πr^3 { 1-sinθ - (1-(sinθ)^3)/3 } = πr^3 { 2/3 -t + t^3/3 } 　(t = sinθ と置いた) V(θ)/V(0) = 3/2 * { 2/3 - t + t^3/3 } = 1/2 よって t^3 - 3t + 1 = 0 を解く。 WolframAlpha で "solve t^3 - 3t + 1 = 0" とやると第2根が [0,1] の範囲に来るので, θ = arcsin(t) = arcsin( √(2 - √3 cos(π/18) - sin(π/18)) ) = 20.322... [deg] と求まる。 どうやら √(2 - √3 cos(π/18) - sin(π/18)) = 2cos4π/9 が成り立つらしい。 []: [ここ壊れてます]
266 名前：卵の名無しさん mailto:sage [2020/07/21(火) 08:12:10 ID:1tv7qVWN.net]: 3次方程式: x^3 - αx + β = 0 の解について

3倍角公式: 4cos³θ -3cosθ - cos(3θ) = 0
を 4c³ -3c - C = 0 と書く
0 = a³/4*(4c³ -3c - C) = (ac)³ - (3a²/4)(ac) - a³C/4
α=3a²/4, β=-a³C/4 となるように a, θを選ぶ
つまり
　a = √(4α/3),
　θ = ±arccos(-4β/a³)/3 + 2Nπ/3 {Nは任意整数}
このとき
0 = (ac)^3 -α(ac) +β　より x=a*cosθ が解となる。
267 名前：卵の名無しさん mailto:sage [2020/07/21(火) 08:15:23 ID:1tv7qVWN.net]: 3次方程式: x^3 - αx + β = 0 の解について

3倍角公式: 4cos^3θ -3cosθ - cos(3θ) = 0
を 4c^3 -3c - C = 0 と書く.
両辺にa^3/4を乗じて
a^3/4*(4c^3 -3c - C) = (ac)^3 - (3a^2/4)(ac) - a^3C/4 = 0
α=3a^2/4, β=-a^3C/4 となるように a, θを選ぶ
つまり
　a = √(4α/3),
　θ = ±arccos(-4β/a^3)/3 + 2Nπ/3 {Nは任意整数}
このとき
0 = (ac)^3 -α(ac) +β　より x=a*cosθ が解となる。
268 名前：卵の名無しさん mailto:sage [2020/07/21(火) 08:55:59.51 ID:1tv7qVWN.net]: θ°傾けて残り水がπ/3になったとすると、
π∫[t=0→1-sinθ]｛1-(1-t^2)｝dt=π/3
∫[t=0→1-sinθ](2t-t^2)dt=1/3
[t^2-t^3/3](t=1-sinθ)=1/3
(1-sinθ)^2-(1-sinθ)^3/3=1/3
269 名前：卵の名無しさん mailto:sage [2020/07/21(火) 10:48:13.08 ID:1tv7qVWN.net]: "
ある日本人100人からなる職場では1年間に平均20人に一人が退職する。
退職したら移民で補充するが移民は1年間に平均で10人に一人が退職する。
職場の過半数が移民になるのは何年後か？
"
270 名前：卵の名無しさん mailto:sage [2020/07/21(火) 11:45:22 ID:xxK05TYc.net]: "
原住民100人からなるある職場では平均して1年間に20人に一人が退職する。
一人の１年間の退職確率は1/20で退職は独立事象とする。
民族を問わず誰かが退職したら同じ人数を移民で補充する。
移民の１年間退職確率は1/10で独立事象とする。
職場の過半数が移民になるのは何年後か？
"
sim <- function(
N=100,
J=100,
I=0){
i=0
while(I < N/2){
i = i + 1　　　　　　# カウンター
(rJ=rbinom(1,J,1/20)) # 退職原住民数
(rI=rbinom(1,I,1/10)) # 退職移民数
(J=J-rJ) # 原住民職員
(I=I-rI) # 移民職員数（補充前)
(rT=rJ+rI)　　　　　　# 退職総数
I=I+rT　　　　　　　　# 補充後移民職員数
}
return(i)
}
re=replicate(1e5,sim())
BEST::plotPost(re,xlab='Years')
271 名前：卵の名無しさん mailto:sage [2020/07/21(火) 13:17:03.55 ID:xxK05TYc.net]: 表が出る確率が1/2のコインを1000回投げたときに表が10回以上連続することが少なくとも１回ある確率を求めよ」

> mean(replicate(10^5,seqn(10)))
[1] 0.38546999999999998

> P10[1000]
[1] 0.38544975241248169
272 名前：卵の名無しさん mailto:sage [2020/07/21(火) 13:41:42.01 ID:xxK05TYc.net]: rle

function (x)
{
if (!is.vector(x) && !is.list(x))
stop("'x' must be a vector of an atomic type")
n <- length(x)
if (n == 0L)
return(structure(list(lengths = integer(), values = x),
class =
273 名前："rle")) y <- x[-1L] != x[-n] i <- c(which(y | is.na(y)), n) structure(list(lengths = diff(c(0L, i)), values = x[i]), class = "rle") } []: [ここ壊れてます]
274 名前：卵の名無しさん mailto:sage [2020/07/21(火) 14:44:33 ID:xxK05TYc.net]: library(gmp)
N=1000
K=10
a=vector('list',N)
for(i in 1:K) a[[i]]=as.bigz(2^(i-1))
for(i in K:(N-1)){
a[[i+1]]=a[[i]]+a[[i-1]]+a[[i-2]]+a[[i-3]]+a[[i-4]]+a[[i-5]]+a[[i-6]]+a[[i-7]]+a[[i-8]]+a[[i-9]]
}

P0=vector('list',N)
for(i in 1:N) P0[[i]]=a[[i]]/2^i

# Pk(n+1)=1/2*P(k-1)(n)
P1=vector('list',N)
P1[[1]]=1/2
for(i in 1:(N-1)) P1[[i+1]]=(1/2)*P0[[i]]

P2=vector('list',N)
P2[[1]]=0
for(i in 1:(N-1)) P2[[i+1]]=(1/2)*P1[[i]]

P3=vector('list',N)
P3[[1]]=0
for(i in 1:(N-1)) P3[[i+1]]=(1/2)*P2[[i]]

P4=vector('list',N)
P4[[1]]=0
for(i in 1:(N-1)) P4[[i+1]]=(1/2)*P3[[i]]
275 名前：卵の名無しさん mailto:sage [2020/07/21(火) 14:44:50 ID:xxK05TYc.net]: P5=vector('list',N)
P5[[1]]=0
for(i in 1:(N-1)) P5[[i+1]]=(1/2)*P4[[i]]

P6=vector('list',N)
P6[[1]]=0
for(i in 1:(N-1)) P6[[i+1]]=(1/2)*P5[[i]]

P7=vector('list',N)
P7[[1]]=0
for(i in 1:(N-1)) P7[[i+1]]=(1/2)*P6[[i]]

P8=vector('list',N)
P8[[1]]=0
for(i in 1:(N-1)) P8[[i+1]]=1/2*P7[[i]]

P9=vector('list',N)
P9[[1]]=0
for(i in 1:(N-1)) P9[[i+1]]=(1/2)*P8[[i]]

for(i in 1:N) {
P10[i]=list(1-(P0[[i]] + P1[[i]] + P2[[i]] + P3[[i]] + P4[[i]] +
P5[[i]] + P6[[i]] + P7[[i]] + P8[[i]] + P9[[i]])) }
P10[[1000]]
asNumeric(P10[[1000]])
276 名前：卵の名無しさん mailto:sage [2020/07/21(火) 14:45:17 ID:xxK05TYc.net]: > asNumeric(P10[[1000]])
[1] 0.38544975241248158
277 名前：卵の名無しさん mailto:sage [2020/07/21(火) 14:45:45 ID:xxK05TYc.net]: > P10[[1000]]
Big Rational ('bigq') :
[1] 4130127273477897798494681823208953122987954337675657485013615586768080707967696405909423852137579237591446526939613263507523948827986893531646240157193872907615641166955214783072447145493481590610836072499227213105120994997891548869020651578128373092635280064104398841562373328900104830268510093352961/10715086071862673209484250490600018105614048117055336074437503883703510511249361224931983788156958581275946729175531468251871452856923140435984577574698574803934567774824230985421074605062371141877954182153046474983581941267398767559165543946077062914571196477686542167660429831652624386837205668069376
278 名前：卵の名無しさん mailto:sage [2020/07/21(火) 14:52:58 ID:xxK05TYc.net]: P10[[1000]]
(p=asNumeric(P10[[1000]]))
Rmpfr::mpfr(p,1000)

> Rmpfr::mpfr(p,1000)
1 'mpfr' number of precision 1000 bits
[1] 3.85449752412481583263570428243838250637054443359375e-1
279 名前：卵の名無しさん mailto:sage [2020/07/21(火) 15:31:19.07 ID:xxK05TYc.net]: rm(list=ls())
# 表が出る確率が1/2のコインを1000回投げたときに表が10回以上連続することが少なくとも１回ある確率を求めよ

sim <- function(n=10,N=1000){
x=rle(rbinom(N,1,1/2))
x1=x$lengths[x$values==1]
r1 <- any(x1>=n) # 10回以上連続することが少なくとも1回ある
r2 <- sum(x1>=n)==1 # 10回以上連続することが1回だけある
r3 <- max(x1)==n # 表の連続回数の最大値が10回になることが少なくとも1回ある
r4 <- max(x1)==n & sum(x1==n)==1 # 最大値10回が１回だけある
c(r1,r2,r3,r4)
}

re=replicate(1e6,sim())
apply(re,1,mean)

100万回のシミュレーション結果

> apply(re,1,mean)
[1] 0.38601400000000002 0.30114299999999999 0.17037500000000000
[4] 0.15071799999999999
280 名前：卵の名無しさん mailto:sage [2020/07/21(火) 15:31:47.83 ID:xxK05TYc.net]: > # 表が連続する最大値が10回の確率
> PP10[[1000]] - PP11[[1000]]
Big Rational ('bigq') :
[1] 1821758352608942392045081404980435252751028506386180152981553957955804306451779919369627290763341161624148375682827473771447204863438275322517352119276475196303665700811594413542122049315965374987419727999162516864425201176898714701858037099287917141519581989266644207027301080510161753883001018598769/10715086071862673209484250490600018105614048117055336074437503883703510511249361224931983788156958581275946729175531468251871452856923140435984577574698574803934567774824230985421074605062371141877954182153046474983581941267398767559165543946077062914571196477686542167660429831652624386837205668069376
281 名前：卵の名無しさん mailto:sage [2020/07/21(火) 15:33:29.01 ID:xxK05TYc.net]: >>259
> Rmpfr::mpfr(asNumeric(PP10[[1000]] - PP11[[1000]]),1e4)
1 'mpfr' number of precision 10000 bits
[1] 1.700180792194284362661704790298244915902614593505859375e-1

0.17でシミュレーションと合致しているので計算は正しいのだろうと思う。

検算希望！（裏口シリツには無理だけどｗｗｗ）
282 名前：卵の名無しさん mailto:sage [2020/07/21(火) 18:00:49.91 ID:xxK05TYc.net]: sim <- function(x=0.5,y=0.5){
seg <- function(a,b,...) segments(Re(a),Im(a),Re(b),Im(b),...)
pt <- function(x,y=NULL,...) text(Re(x),Im(x), ifelse(is.null(y),'+',y), ...)
plot(0,type='n',axes=F,ann=F,xlim=c(0,2),ylim=c(0,2),asp=1)
A=0
B=1
C=x+1i*y
pt(A,'A')
pt(B,'B')
pt(C,'C')
seg(A,B)
seg(A,C)
seg(B,C)
sub <- function(pqr){
p=pqr[1];q=pqr[2];r=pqr[3]
P=p
Q=q*(C-A)+(1-q)*(B-A)
R=r*(C-A)
(abs(P-Q) - abs(Q-R))^2 + (abs(P-Q) - abs(P-R))^2
}
par=optim(c(0.5,0.5,0.5),sub)$par
P=par[1]
Q=par[2]*(C-A)+(1-par[2])*(B-A)
R=par[3]*(C-A)
pt(P,'P')
pt(Q,'Q')
pt(R,'R')
seg(P,Q,col=2,lwd=2)
seg(R,Q,col=2,lwd=2)
seg(R,P,col=2,lwd=2)
}
283 名前：卵の名無しさん mailto:sage [2020/07/22(水) 07:40:29.06 ID:mrtD6Gnl.net]: x3
x?
284 名前：'\n' mailto:sage [2020/07/22(水) 11:13:25.97 ID:0hwy4Afp.net]: >>253
for(i in K:(N-1)){
a[[i+1]]=a[[i]]
for(j in 1:(K-1)){ a[[i+1]] <- a[[i+1]] + a[[i-j]] }
}
#a[[i+1]]=a[[i]]+a[[i-1]]+a[[i-2]]+a[[i-3]]+a[[i-4]]+a[[i-5]]+a[[i-6]]+a[[i-7]]+a[[i-8]]+a[[i-9]]
285 名前：卵の名無しさん mailto:sage [2020/07/22(水) 15:20:44.01 ID:mrtD6Gnl.net]: # 1000(N)回投げて10(K)回以上表が出る確率
flip <- function(N=1000,K=10){
library(gmp)
library(Rmpfr)

a=vector('list',N)
for(i in 1:K) a[[i]]=as.bigz(2^(i-1))
for(i in K:(N-1)){
a[[i+1]]=a[[i]]
for(j in 1:(K-1)){ a[[i+1]] <- a[[i+1]] + a[[i-j]] }
}

P0=vector('list',N)
for(i in 1:N) P0[[i]]=a[[i]]/2^i

P1=vector('list',N)
P1[[1]]=1/2
for(i in 1:(N-1)) P1[[i+1]]=(1/2)*P0[[i]]

P=vector('list',N)
P[[1]]=P1

for(k in 2:(K-1)){
P[[k]][[1]]=0
for(i in 1:(N-1)) P[[k]][[i+1]]=(1/2)*P[[k-1]][[i]]
}
Ans=1-P0[[N]]
for(k in 1:(K-1)) Ans=Ans-P[[k]][[N]]
ans=Rmpfr::mpfr(asNumeric(Ans),1000)
list(Ans,ans)
}
286 名前：卵の名無しさん mailto:sage [2020/07/22(水) 16:22:40.67 ID:mrtD6Gnl.net]: １０００回のコイントスで連続表の最大値とその確率
https://i.imgur.com/g2CIMZU.png
287 名前：卵の名無しさん mailto:sage [2020/07/22(水) 17:06:27.08 ID:fDOX4lOD.net]: # Probability of max(sequential heads)==10 in 1000 coin flips
flip.max <- function(N=1000,K=10){
p11=flip(N,K+1)
p10=flip(N,K)
Ans=p10[[1]]-p11[[1]]
ans=Rmpfr::mpfr(Ans,1000)
list(Ans,ans)
}
flip.max()
flip.max(100,5)

# most probable sequaential heads in 1000 flips
n=3:20
y=sapply(n,function(x) as.numeric(flip.max(1000,x)[[2]]))
plot(n,y,xlab='maximal seq',ylab='p',type='h',col='maroon',lwd=10)
flip.max(1000,8)
flip.max(1000,9)
288 名前：'\n' mailto:sage [2020/07/22(水) 17:26:37.73 ID:57hr+I+5.net]: 10 秒速３０ｍで走る長さ３６０ｍの急行列車が、秒速２０ｍで走る長さ４４０ｍの貨物列車に追いついてから追い
抜くまでに何秒かかるか？
（解き方）
〔〕秒
11 ３６Km 離れた２地点を船で往復した。上りにかかった時間が４時間、下りにかかった時間が３時間だった。
このとき川の流れの速さを求めよ。
（解き方）
〔〕km/h
12 PとQの二人が、１週１２Km のサイクリングコースを自�
289 名前：]車で走る。Pは時速２１Km、Qは時速１２Km で 走行する。Q が走り始めてから１５分後に、Pが同じ方向に走り始めた。PがQに追いつくのは、Pが走り始め てから何分後か？ （解き方） 〔〕分後 []: [ここ壊れてます]
290 名前：卵の名無しさん mailto:sage [2020/07/22(水) 20:11:35 ID:57hr+I+5.net]: > sim <- function(){
+ x=rbinom(1000,1,0.5)
+ y=rle(x)
+ max(y$lengths[y$values==1])
+ }
> hmax=replicate(1e6,sim())
> hist(hmax,breaks='scott')
> table(hmax)
hmax
5 6 7 8 9 10 11 12
270 17858 120786 236790 238654 169560 101409 55748
13 14 15 16 17 18 19 20
29148 14687 7610 3790 1821 896 493 225
21 22 23 24 25 26 27 30
139 52 28 14 13 6 1 1
34
1
291 名前：卵の名無しさん mailto:sage [2020/07/23(木) 13:45:13.51 ID:pmHw67ja.net]: > data.frame(試行N=N,連続H=unlist(y[1,]),確率P=unlist(y[2,]))
試行N 連続H 確率P
1 2 1 0.5000000
2 3 1 0.5000000
3 4 1 0.4375000
4 5 1 0.3750000
5 6 2 0.3593750
6 7 2 0.3671875
7 8 2 0.3671875
8 9 2 0.3613281
9 10 2 0.3515625
10 11 2 0.3388672
292 名前：卵の名無しさん mailto:sage [2020/07/23(木) 13:46:22.90 ID:pmHw67ja.net]: > data.frame(試行N=N,連続H=unlist(y[1,]),確率P=unlist(y[2,]))
試行N 連続H 確率P
1 12 3 0.2849121
2 29 3 0.2743004
3 30 4 0.2708245
4 61 4 0.2559712
5 62 5 0.2561859
6 123 5 0.2475915
7 124 6 0.2471829
8 247 6 0.2424969
9 248 7 0.2423227
10 494 7 0.2396818
11 495 8 0.2395349
12 989 9 0.2380215
13 990 9 0.2380925
293 名前：卵の名無しさん mailto:sage [2020/07/23(木) 18:58:52.19 ID:pmHw67ja.net]: コロナ前は、内需型サービス業なのに日本人をぞんざいに扱って、
シナ人ウェルカムの守銭奴ビジネスに熱狂していた業界。
294 名前：卵の名無しさん mailto:sage [2020/07/24(金) 02:25:41.79 ID:J3kAbTyn.net]: abura(40,39,20)　76　ステップ必要
295 名前：卵の名無しさん mailto:sage [2020/07/24(金) 13:31:16.84 ID:So3Kh77K.net]: # its simulation
fn <- function(N,k=1e4){
sim <- function(n){
x=rbinom(n,1,0.5)
y=rle(x)
max(y$lengths[y$values==1])
}
hmax=replicate(k,sim(N))
hist(hmax,breaks='scott',freq=F)
(tbl=table(hmax))
data.frame(H=as.numeric(names(which.max(tbl))), p=max(tbl)/k)
}
fn(100)
fn(1000)
fn(10000)
fn(100000)
fn(1000000)
296 名前：卵の名無しさん mailto:sage [2020/07/24(金) 15:25:52.61 ID:So3Kh77K.net]: minStep <- function(x){
a=x[1] ; b=x[2] ; c=x[3]
abr=abura(a,b,c,print=F)
with(abr,min(min_Bigger,min_Smaller))
}

library(numbers)

sim <- function(P=numbers::Primes(100),m=100){
y=0
while(y<m){
x=sort(sample(P,3),dec=T)
y=minStep(x)
}
list(x=x,y=y)
}

sim(m=170)
min_transfer(97,83)
abura(97,83,7)
297 名前：卵の名無しさん mailto:sage [2020/07/24(金) 15:26:38.27 ID:So3Kh77K.net]: minStep <- function(x){
a=x[1] ; b=x[2] ; c=x[3]
abr=abura(a,b,c,print=F)
with(abr,min(min_Bigger,min_Smaller))
}

library(numbers)

sim <- function(P=numbers::Primes(100),m=100){
y=0
while(y<m){
x=sort(sample(P,3),dec=T)
y=minStep(x)
}
list(x=x,y=y)
}

sim(m=170)
min_transfer(97,83)
abura(97,83,7)
298 名前：卵の名無しさん mailto:sage [2020/07/24(金) 20:40:58.54 ID:So3Kh77K.net]: library(expm)
# 1-(MatrixPower[M,1001].v).v
M=matrix(c(
1,1,1,1,1,1,1,1,1,1,0,
1,0,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,
0,0,1,0,0,0,0,0,0,0,0,
0,0,0,1,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,0,0,
0,0,0,0,0,1,0,0,0,0,0,
0,0,0,0,0,0,1,0,0,0,0,
0,0,0,0,0,0,0,1,0,0,0,
0,0,0,0,0,0,0,0,1,0,0,
0,0,0,0,0,0,0,0,0,1,2),11,11,byrow=TRUE)
v=c(1,0,0,0,0,0,0,0,0,0,0)
'%.%' <- function(x,y) sum(x*y)
1- (M%^%1001%.%v)%.%v
299 名前：卵の名無しさん mailto:sage [2020/07/24(金) 21:29:10.19 ID:9xpmk6ID.net]: 手持ちの金０のギャンブラーがいるとする。
朝起きてコインを投げて表が出たら１万円貰える。
裏が出れば１万円を払う。手元に金がないときは借金として記録される。金利はつかない。
１年間これを行って黒字であった日数を
300 名前：記録して精算して持ち金を０にリセットする。閏日はギャンブルなしとして これを毎年繰り返したときの黒字の日数の分布は年数を増やすと正規分布になるか？ []: [ここ壊れてます]
301 名前：卵の名無しさん mailto:sage [2020/07/25(土) 06:32:51.87 ID:Wl4jphdd.net]: flip <- function(N=1000,n=10){ # n+ heads in N coin flips
library(gmp)
library(expm)
'%.%' <- function(x,y) sum(x*y)
M=cbind(rbind(rep(1,n),diag(1,n,n)),c(rep(0,n),2))
v=as.vector.bigq(c(1,rep(0,n)))
P=as.bigq((M/2)%^%N %*% v)[n+1]
list(P=P,p=as.numeric(P))
}
flip(1000,10)$p
flip(1000,10)$p - flip(1000,11)$p
flip.max <- function(N=1000,n=10){
P=flip(N,n)$P - flip(N,n+1)$P
list(P=P,p=as.numeric(P))
}
sapply(11:13, function(x) flip.max(1e4,x)$p)
sapply(14:16, function(x) flip.max(1e5,x)$p)
sapply(17:19, function(x) flip.max(1e6,x)$p)
sapply(21:23, function(x) flip.max(1e7,x)$p)
sapply(24:26, function(x) flip.max(1e8,x)$p)
302 名前：卵の名無しさん mailto:sage [2020/07/25(土) 06:42:53.28 ID:Wl4jphdd.net]: 分数表示版がようやく完成。

Flip <- function(N=100,n=5){ # n+ heads in N coin flips
library(gmp)
library(expm)
'%.%' <- function(x,y) sum(x*y)
M=as.bigq(cbind(rbind(rep(1,n),diag(1,n,n)),c(rep(0,n),2)))
v=as.vector.bigq(c(1,rep(0,n)))
d=diag(1,n+1,n+1)
for(i in 1:N) d=d%*%M/2
P=(d%*%v)[[n+1]]
list(P=P,p=as.numeric(P))
}
Flip(1000,10)

Flip.max <- function(N=1000,n=10){
P=Flip(N,n)$P - Flip(N,n+1)$P
list(P=P,p=as.numeric(P))
}
Flip.max(1000,10)
303 名前：卵の名無しさん mailto:sage [2020/07/25(土) 06:44:20.01 ID:Wl4jphdd.net]: コインを1000回投げて表が連続する回数の最大が10回である確率

1821758352608942392045081404980435252751028506386180152981553957955804306451779919369627290763341161624148375682827473771447204863438275322517352119276475196303665700811594413542122049315965374987419727999162516864425201176898714701858037099287917141519581989266644207027301080510161753883001018598769/10715086071862673209484250490600018105614048117055336074437503883703510511249361224931983788156958581275946729175531468251871452856923140435984577574698574803934567774824230985421074605062371141877954182153046474983581941267398767559165543946077062914571196477686542167660429831652624386837205668069376
304 名前：卵の名無しさん mailto:sage [2020/07/25(土) 06:48:32.76 ID:Wl4jphdd.net]: コインを1億回投げて表が連続する回数の最大数を当てる賭けをするにはいくつに賭けるのが最も勝利確率が高いか？
さすがに分数表示は無理だが、その確率は 0.2493603162　とわりと高い。
305 名前：卵の名無しさん mailto:sage [2020/07/25(土) 06:54:00.02 ID:Wl4jphdd.net]: binom(n, p)　～　N((n+1)p -1/2, (n+1)p(1-p))
306 名前：卵の名無しさん mailto:sage [2020/07/25(土) 08:19:35.41 ID:trkp01ai.net]: >>277
標準化するとJefferey分布になった。
307 名前：卵の名無しさん mailto:sage [2020/07/25(土) 10:37:32.40 ID:Wl4jphdd.net]: 手持ちの金0のギャンブラーがいるとする。
朝起きて1回コインを投げて表が出たら1万円貰える。
裏が出れば1万円を払う。手元に金がないときは借金として記録される。金利は0
1年(365日とする)間これを行って黒字であった日数を記録して精算して持ち金を0にリセットする。
これを毎年繰り返す。1年に300日以上黒字である確率は？

１－300/365かなという、直感に反するな。
https://i.imgur.com/rnzYEDC.png
308 名前：卵の名無しさん mailto:sage [2020/07/26(日) 07:15:37.17 ID:XfcrZ/1x.net]: rm(list=ls())
source('toolmini.R')
options(digits=10)
ngon
n=7
p=ngon(n,axis=T)
seg(p[4],0.5,lty=2)
seg(p[4],p[1],lty=2)
abs(p[4]-0.5) # height
abs(p[4]-p[1])
309 名前：'\n' mailto:sage [2020/07/26(日) 07:47:12.87 ID:XfcrZ/1x.net]: rm(list=ls())
options(digits=10)
# draw regular polygon
ngon <- function(n,digit=TRUE,axis=FALSE,cex=1,...){
r=exp(2*pi/n*1i)
p=complex(n)
for(i in 1:(n+1)) p[i]= (1-r^i)/(1-r)
plot(p,bty='l',type='l',axes=axis, ann=FALSE,asp=1)
points(1/(1-r),pch='.')
if(digit) text(Re(p),Im(p),1:n,cex=cex)
if(axis){axis(1) ; axis(2)}
invisible(p)
}

n=7
# (1/2)/R=sin((2pi/n)/2)
(R=sin(pi/n)/2)
p=ngon(n,axis=T)
seg(p[4],0.5,lty=2)
seg(p[4],p[1],lty=2)R=
h=abs(p[4]-0.5) # height
m=abs(p[4]-p[1]) # max diagnonal length
m>h
310 名前：'\n' mailto:sage [2020/07/26(日) 08:17:07.20 ID:XfcrZ/1x.net]: options(digits=10)
# draw regular polygon
ngon <- function(n,digit=TRUE,axis=FALSE,cex=1,...){
r=exp(2*pi/n*1i)
p=complex(n)
for(i in 1:(n+1)) p[i]= (1-r^i)/(1-r)
# plot(p,bty='l',type='l',axes=axis, ann=FALSE,asp=1)
# points(1/(1-r),pch='.')
# if(digit) text(Re(p),Im(p),1:n,cex=cex)
# if(axis){axis(1) ; axis(2)}
invisible(p)
}
# draw segment of complex a to complex b
seg <- function(a,b,...){
segments(Re(a),Im(a),Re(b),Im(b),...)
}
# draw text y at complex x
pt <- function(x,y=NULL,...){
text(Re(x),Im(x), ifelse(is.null(y),'+',y), ...)
}
n=7
# (1/2)/R=sin((2pi/n)/2)
(R=sin(pi/n)/2)
p=ngon(n,axis=T)
#seg(p[4],p[1],lty=2)
m=which.max(abs(p[1]-p[1:n])) # maximal diagnonal vertex
mdl=abs(p[1]-p[m]) # max. diagnonal length
top=1/2+1i*Im(p[floor(median(n))] )
# seg(0.5,top)
height=Im(top)
mdl > height
311 名前：卵の名無しさん mailto:sage [2020/07/26(日) 10:40:41.64 ID:sQTZfadO.net]: '%&%' <- function(x,y) paste0(x,y)

> '√2 =' %&% sqrt(2) %&% ', π = ' %&% pi
[1] "√2 =1.4142135623731, π = 3.14159265358979"
312 名前：卵の名無しさん mailto:sage [2020/07/26(日) 10:45:51.35 ID:sQTZfadO.net]: random <- function(n,char=c(LETTERS,letters,0:9)){
re=paste0(sample(char
313 名前：,n),collapse='') cat(re,'\n') invisible(re) } random() []: [ここ壊れてます]
314 名前：卵の名無しさん mailto:sage [2020/07/26(日) 10:53:58.03 ID:sQTZfadO.net]: > random(16)
PLZrvwnDVbmC4fWz

> random(100)
Error in sample.int(length(x), size, replace, prob) :
cannot take a sample larger than the population when 'replace = FALSE'

エラーが出たｗ
315 名前：卵の名無しさん mailto:sage [2020/07/26(日) 10:55:22.34 ID:sQTZfadO.net]: デバッグ

random <- function(n=16,char=c(LETTERS,letters,0:9)){
rep=ifelse(n>length(char),TRUE,FALSE)
re=paste0(sample(char,n,replace=rep),collapse='')
cat(re,'\n')
invisible(re)
}
> random()
ldWENnFATyQbBve7fXMSopCKq8r5guVY
> random(100)
ipb2KH88oGyrTGV7KCXU3Aez4PaFztnlI2IiHQqJbFlI8r3yYjDh9kKqhOLZUzuNjULlZBs6NNj4sFLqjeZ14bT3pROnNr6kYG8x

完成！
316 名前：卵の名無しさん mailto:sage [2020/07/26(日) 11:56:28 ID:oHGtg777.net]: １辺の長さ１の正７角形の高さ
(sin(2*pi/7)/((1 - cos(2*pi/7))^2 + sin(2*pi/7)^2) - (cos(4*2*pi/7)*sin(2*pi/7))/((1 - cos(2*pi/7))^2 + sin(2*pi/7)^2) - sin(4*2*pi/7)/((1 - cos(2*pi/7))^2 + sin(2*pi/7)^2) + (cos(2*pi/7)* sin(4*2*pi/7))/((1 - cos(2*pi/7))^2 + sin(2*pi/7)^2))

外接円の半径は
(1/2)*/sin(pi/7))
317 名前：卵の名無しさん mailto:sage [2020/07/26(日) 13:06:16.71 ID:oHGtg777.net]: # draw regular polygon
ngon <- function(n,digit=TRUE,cex=1,...){
r=exp(2*pi/n*1i)
p=complex(n)
for(i in 1:(n+1)) p[i]= (1-r^i)/(1-r)
plot(p,bty='l',type='l',ann=FALSE,asp=1,...)
points(1/(1-r),pch='.')
if(digit) text(Re(p),Im(p),1:n,cex=cex)
invisible(p)
}
# draw segment of complex a to complex b
seg <- function(a,b,...){
segments(Re(a),Im(a),Re(b),Im(b),...)
}
# draw text y at complex x
pt <- function(x,y=NULL,...){
text(Re(x),Im(x), ifelse(is.null(y),'+',y), ...)
}
# draw circle
cir <- function(x, y, r, ...){
theta <- seq(-pi, pi, length=100)
lines(x + r*cos(theta), y + r*sin(theta), ...)
}
Cir <- function(z,r,...){
cir(Re(z),Im(z),r,...)
}

# R*sin(pi/n)=(1/2)*side
n=7 ; side=1
(R=(1/2)*side/sin(pi/n))
318 名前：卵の名無しさん mailto:sage [2020/07/26(日) 13:07:23.64 ID:oHGtg777.net]: manhole <- function(n,...){
p=ngon(n,...)
r=(1/2)/sin(pi/n) # Radius of circumsribing circle
C=(1/2+1i*(1/2)*sqrt(4*r^2-1)) # its enter
Cir(C,r,lty=3,col=8)
m=which.max(abs(p[1]-p[1:n])) # maximal diagnonal vertex
seg(p[1],p[m],col='blue')
(mdl=abs(p[1]-p[m])) # max. diagnonal length
top=1/2+1i*Im(p[floor( median(1:n) )] )
seg(0.5,top,col='red')
(height=Im(top))
list(対角線=mdl,高さ=height, 落下= mdl > height,R=R)
}
n=7
(a=manhole(n,axes=F))
(side=a[[1]]/a[[2]]) # 落下しない正n多角形の辺の長さ
(1/2)*side/sin(pi/n) # その外接円の半径
319 名前：卵の名無しさん mailto:sage [2020/07/26(日) 13:18:38 ID:oHGtg777.net]: >>294
正多角形なので重心＝外心ゆえ、連立方程式を解かずに拡張点の平均を求めれる方が早かった。

manhole <- function(n,...){
p=ngon(n,...)
r=(1/2)/sin(pi/n) # Radius of circumscribing circle
C= (1/2+1i*(1/2)*sqrt(4*r^2-1)) # its center == mean(p[1:7])
Cir(C,r,lty=3,col=8)
pt(mean(p[1:7]))
m=which.max(abs(p[1]-p[1:n])) # maximal diagonal vertex
seg(p[1],p[m],col='blue')
(mdl=abs(p[1]-p[m])) # max. diagnonal length
top=1/2+1i*Im(p[floor( median(1:n) )] )
seg(0.5,top,col='red')
(height=Im(top))
list(対角線=mdl,高さ=height, 落下= mdl > height,外接円半径=r)
}
n=7
(a=manhole(n,axes=F))
(side=a[[1]]/a[[2]]) # 落下しない正n多角形の辺の長さ
(1/2)*side/sin(pi/n) # その外接円の半径
320 名前：卵の名無しさん mailto:sage [2020/07/26(日) 14:32:49.44 ID:RI23naYo.net]: nを6以上の自然数とするとき
a+b+c=n , 0<a<b<c を満たす自然数a,b,cの組(a,b,c)の個数をnの式で表すことはできますか。
321 名前：卵の名無しさん mailto:sage [2020/07/26(日) 14:33:08.49 ID:RI23naYo.net]: f <- function(n=10,verbose=FALSE){
y=NULL
for(a in 1:(n-2)){
for(b in a:(n-1)){
for(c in b:n){
if(a+b+c==n & a!=b & b!=c & c!=a) y=rbind(y,c(a,b,c))
}
}
}
if(verbose) print(y)
return(nrow(y))
}
f(15,verbose = T)

f=Vectorize(f)
n=6:200
y=f(n)
plot(n,y,ylab='count')
dat=cbind(6:200,y)

"
(n-1)(n-5)/12 + d_2 /4 + d_3 /3
d_2 = {1 + (-1)^n}/2 = (nが偶数のとき1, nが奇数のとき0)
d_3 = {1 + ω^n + (ω~)^n}/3 = (nが3の倍数のとき1, 他は0)
"
f11 <- function(n){
d_2=ifelse(n%%2==0,1,0)
d_3=ifelse(n%%3==0,1,0)
(n-1)*(n-5)/12 + d_2/4 + d_3/3
}
Y=f11(n)
lines(n,Y,col=2,lwd=3)
322 名前：卵の名無しさん mailto:sage [2020/07/26(日) 16:05:53.17 ID:RI23naYo.net]: (n-1)(n-5)/12 + d_2 /4 + d_3 /3　= (1/12)^n2 - (1/2)*n + 5/12 + d_2/4 + d_3/3

> nls(Y ~ a*x^2+b*x+c, start=c(a=1,b=1,c=1))
Nonlinear regression model
model: Y ~ a * x^2 + b * x + c
data: parent.frame()
a b c
0.08333384 -0.50014021 0.66082814
residual sum-of-squares: 7.915997

Number of iterations to convergence: 1
Achieved convergence tolerance: 5.815117e-08

1/12=0.83333
1/2=0.5
5/12 + .... = 0.4166666667

上出来の近似
323 名前：卵の名無しさん mailto:sage [2020/07/26(日) 16:10:00.43 ID:RI23naYo.net]: 回帰式の値を四捨五入してみると

> data.frame(n,Y,round(Y.nls))
n Y round.Y.nls.
1 6 1 1
2 7 1 1
3 8 2 2
4 9 3 3
5 10 4 4
6 11 5 5
7 12 7 7
8 13 8 8
9 14 10 10
10 15 12 12
...
187 192 2977 2977
188 193 3008 3008
189 194 3040 3040
190 195 3072 3072
191 196 3104 3104
192 197 3136 3136
193 198 3169 3169
194 199 3201 3201
195 200 3234 3234

6から200まで、すべて一致している。
324 名前：卵の名無しさん mailto:sage [2020/07/26(日) 23:18:09.03 ID:sQTZfadO.net]: curve(-cos(x),-pi,pi,bty='l',ylim=c(-1,1),ann=F)

wine <- function(x,z) -cos(sqrt(x^2+z^2))
N=1e7
x=runif(N,-pi,pi)
y=runif(N,-1,1)
z=runif(N,-pi,pi)
(2*pi)*2*(2*pi) * mean(y >wine(x,z) & x^2+z^2<pi^2 )

N=1e5
x=runif(N,-pi,pi)
y=runif(N,-1,1)
z=runif(N,-pi,pi)
w=NULL
counter=0
for(i in 1:N){
if(y[i]>wine(x[i],z[i]) & x[i]^2+z[i]^2<pi^2 ){
w=rbind(w,c(x[i],y[i],z[i]))
counter=counter+1
}
}
(2*pi)*2*(2*pi)*counter/N
rgl::plot3d(w[,1],w[,2],w[,3],col='maroon',asp=1)
325 名前：卵の名無しさん mailto:sage [2020/07/26(日) 23:18:39.18 ID:sQTZfadO.net]: rm(list=ls())
source('toolmini.R')
# full volume
f<- function(x) -cos(x) # == sin(x-pi/2) == -cos(x)
curve(f(x),-pi,pi,ylab='-cos(x)')
seg(-1i,-0.5i,col=8)
seg(0-0.5i,pi-acos(-0.5)-0.5i,col=8)
seg(-1i,pi-acos(-0.5)-1i,col=8,lty=3)
seg(pi-acos(-0.5)-1i,pi-acos(-0.5)-0.5i,col=8,lty=3)
pt(-0.5i,'h')
pt(pi-acos(-0.5)-0.5i,'(π-acos(h))')
A <- function(x) pi*(pi-acos(x))^2
# ∫[-1,-1]　pi*(pi-acos(h))^2　dh
integrate(A,-1,1)$value ; pi*(pi^2-4) # π(π^2-4)
#
326 名前：卵の名無しさん mailto:sage [2020/07/27(月) 06:31:58.53 ID:fPL65dIy.net]: 回転正弦曲面のグラフ化

fy=function(x,z){
ss=x^2+z^2
if(ss<pi^2) -cos(sqrt(x^2+z^2))
else NA
}
fy=Vectorize(fy)
x=z=seq(-pi,pi,length=300)
y=outer(x,z,fy)
rgl::persp3d(x,z,y,col='maroon')
327 名前：卵の名無しさん mailto:sage [2020/07/28(火) 05:10:09.62 ID:aOvLDJx1.net]: intsect <- function(a,b,c,d)){
a1=Re(a) ; a2=Im(a)
b1=Re(b) ; b2=Im(b)
p=(b1-b2)/(a1-a2)
# y-a2=p*(x-a1)
# p*x - y = p*a1 - a2

c1=Re(c) ; c2=Im(c)
d1=Re(d) ; d2=Im(d)
q=(d1-d2)/(c1-c2)
# y-c2=q*(x-c1)
# q*x - y = q*c1 - c2

M=matrix(c(p,-1,q,-1),2,2,b=T)
v=c(p*a1-a2, q*c1-c2)
s=solve(M,v)
s[1]+1i*s[2]
}
328 名前：卵の名無しさん mailto:sage [2020/07/28(火) 05:11:02.41 ID:aOvLDJx1.net]: 三角形ABCの内部に点DをとりADとBC、BDとAC、CDとABの交点を各々E,F,Gとする。
このとき点Dをうまく選べば三角形EFGを任意の三角形に相似にすることが可能であるという命題は真か偽か？
329 名前：卵の名無しさん mailto:sage [2020/07/28(火) 06:01:04.85 ID:DTNXsFlH.net]: # ある点が三角形の内部にあるか？

oup <- function(A,B){ # 外積 outer prodct
Ax=A[1];Ay=A[2];Az=A[3]
Bx=B[1];By=B[2];Bz=B[3]
c(Ay*Bz-Az*By, Az*Bx-Ax*Bz, Ax*By-Ay*Bx)
}
# 二次元なので Z�
330 名前：ｲの値の正負のみが必要 # Ax=Re(a);Ay=Im(a);Az=0 # Bx=Re(b);By=Im(b);Bz=0 # c(Ay*Bz-Az*By, Az*Bx-Ax*Bz, Ax*By-Ay*Bx) opc <- function(a,b){ # outer product on complex plane Re(a)*Im(b)-Im(a)*Re(b) } align <- function(ABC){ # ベクトルABとベクトルACの外積が0なら3点は直線上にある opc(ABC[2]-ABC[1],ABC[3]-ABC[1])==0 } in3 <- function(P,A,B,C){ # is P inside triangle ABC? sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3==0 #　右ねじ外積の方向がZ軸で全て正か全て負かで三角形の内部と確認 } []: [ここ壊れてます]
331 名前：卵の名無しさん mailto:sage [2020/07/28(火) 14:36:46.43 ID:QfV5+v9R.net]: 100円玉3個と50円玉2個を同時に投げて、100円玉の表の出た枚数をX、50円玉の表を出た枚数をYとする。（X.Y)の2次元分布を書き、X.Yが独立であるかどうかを言いなさい。

当たり前のことを確認するのはわりと面倒

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)
}
(z=t(sapply(0:31, function(x) dec2nw(x,2,5))))
f=function(x) c(sum(x[1:3]),sum(x[4:5]))
xy=apply(z,1,f)
x=xy[1,] ; y=xy[2,]
table(x)
table(y)
px=as.bigq(table(x)/32)
py=as.bigq(table(y)/32)
outer(px,py)

gr=expand.grid(0:3,0:2)
g=function(x){
count=0
for(i in 1:32) count=count+(x[1]==xy[1,i] & x[2]==xy[2,i])
return(count)
}
as.bigq(matrix(apply(gr,1,g),nrow=4,ncol=3)/32)
332 名前：卵の名無しさん mailto:sage [2020/07/28(火) 16:08:20.74 ID:dmdMNkHK.net]: なるほどね
>>
イギリス+560(7/23)
イタリア+252(7/24)
香港+123(7/24)
韓国+113(7/24)
中国+34(7/24)
マレーシア+21(7/24)
タイ+8(7/23)
ベトナム+7(7/23)
台湾+3(7/24)

日本+777(7/24)

やっぱり低学歴には何をやらせてもダメだな
他より劣っていても平気でいられる感覚が染み付いてる
333 名前：卵の名無しさん mailto:sage [2020/07/28(火) 21:16:12.88 ID:aOvLDJx1.net]: tan(θ)*(x-x0)+y0+cos(sqrt(x^2+z0^2))=0
がxについて解けない。
334 名前：卵の名無しさん mailto:sage [2020/07/29(水) 05:48:14.10 ID:KEtlhFhM.net]: コロナ対策で様々な設備投資をしたら、それはそれで赤字。
コロナ患者を受け入れれば受け入れるほど赤字になる、と病院関係者が訴えてるが、安倍政権はGOTOキャンペーンに躍起。
335 名前：卵の名無しさん mailto:sage [2020/07/29(水) 07:17:57.63 ID:hLJ4GQ8O.net]: Gacha <- function(p){ # p: probability of each Gacha item , sum(p) <=1
if(sum(p)>1) warning("sum(p)>1")
sum.rev <- function(x){ # i,j,k -> 1/(p[i]+p[j]+p[k])
n=length(x)
s=numeric(n)
for(i in 1:n) s[i]=p[x[i]]
1/sum(s)
}
n=length(p)
re=numeric(n)
for(i in 1:n) re[i]=(-1)^(i-1)*sum(apply(combn(n,i),2,sum.rev))
sum(re)
}
336 名前：卵の名無しさん mailto:sage [2020/07/29(水) 07:18:41.15 ID:hLJ4GQ8O.net]: Gacha.fm <- function(p,write=FALSE){
n=length(p)
par=letters[1:n]
fm <- function(v){
nv=length(v)
re=character(nv)
for(j in 1:nv) re[j]=par[v[j]]
s=paste(re,collapse='+')
if(nv==1) paste0('1/',s)
else paste0('1/(',s,')')
}
fm1 <- function(mat){
paste(apply(mat,2,fm),collapse='+')
}
re=list()
for(i in 1:n) re[[i]]=fm1(combn(n,i))
re1=re[[1]]
for(i in 2:(n-1)){
re1=c(re1,ifelse(i%%2
337 名前：,' + ',' - '),'{',re[[i]],'}') } output=paste(paste(re1,collapse=""),ifelse(n%%2,'+','-'), re[[n]]) cat(output,'\n') if(write) write(output,'output.txt') invisible(output) } []: [ここ壊れてます]
338 名前：卵の名無しさん mailto:sage [2020/07/30(木) 00:42:57.06 ID:Pwc04S3w.net]: rm(list=ls())
library(gmp)

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)
}

is.plus<-function(x) (sum(x)+sum(x-1))>0 # is plus balance?

fn <- function(n){
balance=0
for(i in 1:(2^n)){
balance=balance+is.plus(dec2nw(i-1,2,n))
}
p=as.bigq(balance/2^n)
list(p,as.numeric(p))
}
fn(8)
n=1:15*2
re=lapply(n,fn)
339 名前：卵の名無しさん mailto:sage [2020/07/30(木) 09:43:48.43 ID:cu0H18iC.net]: θ傾けたワイングラスの支柱方向に積分
回転軸をy軸にしてy=tの断面での関数
x=(t-y0)/tan(θ) + x0
z=sqrt(acos(-t)+x^2)
340 名前：卵の名無しさん mailto:sage [2020/07/30(木) 09:56:37.86 ID:cu0H18iC.net]: x=z=seq(-pi,pi,0.1)
f<-function(x,z) -cos(sqrt(x^2+z^2))
f=Vectorize(f)
y=outer(x,z,f)
contour(x,z,y)
abline
341 名前：卵の名無しさん mailto:sage [2020/07/30(木) 10:00:48 ID:cu0H18iC.net]: x=z=seq(-pi,pi,0.1)
f<-function(x,z) -cos(sqrt(x^2+z^2))
f=Vectorize(f)
y=outer(x,z,f)
t=runif(1,-1,1)
contour(x,z,y,level=t)
abline(v=(t-y0)/tan(θ)+ x0)
342 名前：卵の名無しさん mailto:sage [2020/07/30(木) 11:15:24 ID:cu0H18iC.net]: >>313
theta=pi/19
x=z=seq(-pi,pi,0.1)
f<-function(x,z) -cos(sqrt(x^2+z^2))
f=Vectorize(f)
y=outer(x,z,f)
(t=runif(1,-1,1))
contour(x,z,y,level=t)
z0=0
df <- function(x) (x*sin(sqrt(x^2 + z0^2)))/sqrt(x^2 + z0^2)
df=Vectorize(df)
x0=uniroot(function(x) df(x)-tan(theta),c(pi/2,pi+1e-12),tol=1e-12)$root
y0=f(x0,0)
abline(v=(t-y0)/tan(theta)+ x0)
343 名前：卵の名無しさん mailto:sage [2020/07/30(木) 18:00:19 ID:cu0H18iC.net]: moon <- function(m,r=1){ # moon area above horizon
x1= -sqrt(r^2-m^2)
x2= sqrt(r^2-m^2)
if(m>0) {
a=function(x) sqrt(r^2-x^2)-m
integrate(a,x1,x2)$value
}else{
b=function(x) m+sqrt(r^2-x^2)
pi*r^2-integrate(b,x1,x2)$value
}
}
344 名前：卵の名無しさん mailto:sage [2020/07/30(木) 18:39:51.79 ID:Pwc04S3w.net]: # https://i.imgur.com/sq3AWZr.png

#
TWG <- function(theta){ # Tilted Wine Glass (0<= theta < pi/4)
f<-function(x,z) -cos(sqrt(x^2+z^2)) # curved surface of wine glass
f=Vectorize(f)
df <- function(x,z0=0) (x*sin(sqrt(x^2 + z0^2)))/sqrt(x^2 + z0^2) # f'
df=Vectorize(df)
# (x0,y0) upper coordinates of wine
x0=uniroot(function(x) df(x)-tan(theta),c(pi/2,pi+1e-12),tol=1e-12)$root
y0=f(x0,0)
# (u0x,u0y) lower coordinates of wine
u0x=uniroot(function(x,z0=0) tan(theta)*(x-x0)+y0+cos(sqrt(x^2+z0^2)), c(-pi,pi/4))$root
u0y=f(u0x,0)

moon <- function(m,r=1){ # return area of demi-circle above y=m
x1= -sqrt(r^2-m^2)
x2= sqrt(r^2-m^2)
if(m>0) {
a=function(x) sqrt(r^2-x^2)-m
integrate(a,x1,x2)$value
}else{
b=function(x) m+sqrt(r^2-x^2)
pi*r^2-integrate(b,x1,x2)$value
}
}
345 名前：卵の名無しさん mailto:sage [2020/07/30(木) 18:40:15.47 ID:Pwc04S3w.net]: area <- function(t){ # when y=t
r=acos(-t) # t -> radius
xL=(t-y0)/tan(theta)+ x0 # surface border
if(t>u0y){ # defected moon
moon(xL,r)
}else{
return(pi*r^2) # full moon
}
}
Area=Vectorize(area)
integrate(Area, -1,y0)$value
}
TWG(0)
TWG(pi/19)

WG <- function(deg) TWG(deg*pi/180)
WG(0)
WG(9)/WG(0)
WG(10)/WG(0)
WG=Vectorize(WG)
uniroot(function(x) WG(x)/WG(0)-1/2,c(9,10))$root
346 名前：卵の名無しさん mailto:sage [2020/07/30(木) 21:24:51.71 ID:Pwc04S3w.net]: tan(θ)*(x-pi+asin(tan(θ)))+cos(asin(tan(θ)))+cos(x)=0

θは定数でxについて解く必要がある。
347 名前：卵の名無しさん mailto:sage [2020/07/30(木) 21:34:30.35 ID:Pwc04S3w.net]: >>320
α*x + β + cos(x) = 0

α=taｎθ
β=-pi*taｎθ+taｎθasin(taｎθ) + cos(asin(taｎθ))
348 名前：卵の名無しさん mailto:sage [2020/07/30(木) 21:35:55 ID:Pwc04S3w.net]: α*x + β + cos(x) = 0

α=tanθ
β=-pi*tanθ+tanθasin(tanθ) + cos(asin(tanθ))
349 名前：卵の名無しさん mailto:sage [2020/07/31(金) 07:22:59.77 ID:cgKVbVqB.net]: 新型コロナウイルス対策 in 医者板 Part.13
https://egg.5ch.net/test/read.cgi/hosp/1594803201/712

712 名前：卵の名無しさん[sage] 投稿日：2020/07/30(木) 22:57:30.04 ID:ym0dFMP6
このまま行くと超過死亡また増えるね
①発熱→おことわり
②コロナ→赤字になるからやらない
③逃げられない感染指定、都立、国立→おなかい
350 名前：っぱいになったら崩壊 ④日本全国医療機関患者激減→経営困難 ⑤具合悪くてもコロナの恐怖で病院控える→手遅れになり死亡 ⑥介護施設クラスター→受け入れ先無し ⑦コロナによる死亡 ⑤が一番の恐怖でコロナより死亡が増える ④は国が救済しないと破綻する所が出てくる ②は一波の時さんざんな目にあった→スタッフの体勢が準備出来てません、などなど。 歌舞伎町のクラスターの時点で全自動さっさと認可して二桁多い検査と隔離してたら こんなに経済に負担が掛からなかったのに、重傷者まだ少ないし、政府は投げやり コロナが増える＝さまざまな経済や医療やナイナス要素しかない コロナはやっぱクラスター出たら全力で掃討しないと結局みんな損する でも得する一部の投資家や利権などなど。 自民から民主になろうが利権は継続する糸引いてる富豪が変わらない まあ資本主義と格差社会の象徴だな。コロナはここを突いてくる厄介な敵 []: [ここ壊れてます]
351 名前：卵の名無しさん mailto:sage [2020/07/31(金) 10:00:29 ID:1FDa12jC.net]: integral π (π - cos^(-1)(x))^2 dx = π (2 π sqrt(1 - x^2) - 2 (sqrt(1 - x^2) + π x) cos^(-1)(x) + (π^2 - 2) x + x cos^(-1)(x)^2) + 定数
352 名前：卵の名無しさん mailto:sage [2020/07/31(金) 10:48:32.90 ID:1FDa12jC.net]: https://i.imgur.com/qLtMpx9.png

"正弦回転体のワイングラスにストローを刺して半分飲む"

x=z=seq(-pi,pi,0.01)
f<-function(x,z=0) -cos(sqrt(x^2+z^2))
f=Vectorize(f)
curve(f(x),-pi,pi,ann=F,bty='n',axes=F)
segments(x,f(x),x,1,col='orange')
lines(x,f(x),lwd=2)
juice <- function(h){
# v <- function(x)pi*( 2*pi*sqrt(1-x^2)-2*(sqrt(1-x^2)+pi*x)*acos(x)
# +(pi^2-2)*x+x*(acos(x)^2) )
# v(-1+h) - v(-1) , v(-1) = 2*pi
# v(h-1) - 2*pi
pi*( 2*pi*sqrt(1- (h-1)^2)-2*(sqrt(1- (h-1)^2)+pi* (h-1))*acos( (h-1))
+(pi^2-2)* (h-1)+ (h-1)*(acos( (h-1))^2) ) -2*pi
}
juice(2) ; pi*(pi^2-4) # π(π^2-4)
uniroot( function(h) juice(h)/juice(2) - 1/2, c(0,2), tol = 1e-12)$root/2
353 名前：卵の名無しさん mailto:sage [2020/07/31(金) 13:52:37 ID:WoCCDCi1.net]: library(tidyverse)
6 %>% rerun(1:2) %>% expand.grid

'%&%' <- function(x,y) paste0(x,y)
eval(str2lang("expand.grid(" %&% paste0(rep("1:2",6),collapse=',') %&% ")"))

expand.grid(replicate(6,1:2,simplify = FALSE))

rerun(6,1:2)
10 %>% rerun(rnorm(5))
354 名前：卵の名無しさん mailto:sage [2020/07/31(金) 21:07:55 ID:L9TPsuXi.net]: # 正方形の対角線の座標から残りの対角線の座標を返す

dia <- function(a,b){
a1=a[1] ; a2=a[2]
b1=b[1] ; b2=b[2]
A=a1+1i*a2
B=b1+1i*b2
AB=B-A
th=Arg(AB)
r=abs(AB)
R=r/sqrt(2)
THc=th+pi/4
THd=th-pi/4
C=R*(cos(THc)+1i*sin(THc))+A
D=R*(cos(THd)+1i*sin(THd))+A
c1=Re(C) ; c2=Im(C)
d1=Re(D) ; d2=Im(C)
list(c(c1,c2),c(d1,d2))
}
355 名前：卵の名無しさん mailto:sage [2020/07/31(金) 21:44:10 ID:L9TPsuXi.net]: 正方形の対角線の座標から残りの対角線の座標を返す

dia <- function(a,b){
a1=a[1] ; a2=a[2]
b1=b[1] ; b2=b[2]
A=a1+1i*a2
B=b1+1i*b2
AB=B-A
th=Arg(AB)
r=abs(AB)
R=r/sqrt(2)
THc=th+pi/4
THd=th-pi/4
C=R*(cos(THc)+1i*sin(THc))+A
D=R*(cos(THd)+1i*sin(THd))+A
c1=Re(C) ; c2=Im(C)
d1=Re(D) ; d2=Im(D)
list(c(c1,c2),c(d1,d2))
}

dia(c(2,2),c(1,1))
356 名前：卵の名無しさん mailto:sage [2020/07/31(金) 23:24:19.00 ID:L9TPsuXi.net]: 交点の座標を返す

intsect <- function(a,b,c,d)){
a1=Re(a) ; a2=Im(a)
b1=Re(b) ; b2=Im(b)
p=(b1-b2)/(a1-a2)
# y-a2=p*(x-a1)
# p*x - y = p*a1 - a2

c1=Re(c) ; c2=Im(c)
d1=Re(d) ; d2=Im(d)
q=(d1-d2)/(c1-c2)
# y-c2=q*(x-c1)
# q*x - y = q*c1 - c2

M=matrix(c(p,-1,q,-1),2,2,b=T)
v=c(p*a1-a2, q*c1-c2)
s=solve(M,v)
s[1]+1i*s[2]
}
357 名前：卵の名無しさん mailto:sage [2020/07/31(金) 23:39:04.83 ID:L9TPsuXi.net]: # 正方形の対角線の複素座標から残りの対角線の座標を返す

dia <- function(a,b){
if(is.complex(a)){
a1=Re(a) ; a2=Im(a)
}else{
a1=a[1] ; a2=a[2]
}

if(is.complex(b)){
b1=Re(b) ; b2=Im(b)
}else{
b1=b[1] ; b2=b[2]
}

A=a1+1i*a2
B=b1+1i*b2
AB=B-A
th=Arg(AB)
r=abs(AB)
R=r/sqrt(2)
THc=th+pi/4
THd=th-pi/4
C=R*(cos(THc)+1i*sin(THc))+A
D=R*(cos(THd)+1i*sin(THd))+A
if (is.complex(a)) return(list(C,D))
else{
c1=Re(C) ; c2=Im(C)
d1=Re(D) ; d2=Im(D)
return(list(c(c1,c2),c(d1,d2)))
}

dia(c(2,2),c(1,1))
dia(0i,3+3i)
358 名前：卵の名無しさん mailto:sage [2020/07/31(金) 23:41:33.86 ID:L9TPsuXi.net]: # 正方形の対角線の複素座標から残りの対角線の座標を返す

dia <- function(a,b){
if(is.complex(a)){
a1=Re(a) ; a2=Im(a)
}else{
a1=a[1] ; a2=a[2]
}
if(is.complex(b)){
b1=Re(b) ; b2=Im(b)
}else{
b1=b[1] ; b2=b[2]
}

A=a1+1i*a2
B=b1+1i*b2
AB=B-A
th=Arg(AB)
r=abs(AB)
R=r/sqrt(2)
THc=th+pi/4
THd=th-pi/4
C=R*(cos(THc)+1i*sin(THc))+A
D=R*(cos(THd)+1i*sin(THd))+A
if (is.complex(a)) return(list(C,D))
else{
c1=Re(C) ; c2=Im(C)
d1=Re(D) ; d2=Im(D)
return(list(c(c1,c2),c(d1,d2)))
}
}

dia(c(2,2),c(1,1))
dia(0i,3+3i)
359 名前：卵の名無しさん mailto:sage [2020/08/01(土) 10:46:51.92 ID:l8LrHWTF.net]: "AB=4,BC=5,CA=6の△ABCの周および内部の領域をDとする。
D内に以下の条件を全て満たすように2つの正方形SとTを配置したい。
Sの一辺の長さsを求めよ。ただしTの一辺の長さをtとすると、s≧tである。

(i)SとTはともにDに含まれる。
(ii)SはTの外部にあるか、またはSとTは外接している。
(iii)条件(i)(ii)を満たすS,Tの配置は様々であるが、その中で積stが最大である。
"
360 名前：卵の名無しさん mailto:sage [2020/08/01(土) 10:47:32.74 ID:l8LrHWTF.net]: rm(list=ls())
source('toolmini.R')
# 正方形の対角線の複素座標から残りの対角線の座標を返す
dia <- function(a,b){
if(is.complex(a)){
a1=Re(a) ; a2=Im(a)
}else{
a1=a[1] ; a2=a[2]
}
if(is.complex(b)){
b1=Re(b) ; b2=Im(b)
}else{
b1=b[1] ; b2=b[2]
}

A=a1+1i*a2
B=b1+1i*b2
AB=B-A
th=Arg(AB)
r=abs(AB)
R=r/sqrt(2)
THc=th+pi/4
THd=th-pi/4
C=R*(cos(THc)+1i*sin(THc))+A
D=R*(cos(THd)+1i*sin(THd))+A
if (is.complex(a)) return(list(C,D))
else{
c1=Re(C) ; c2=Im(C)
d1=Re(D) ; d2=Im(D)
return(list(c(c1,c2),c(d1,d2)))
}
}
361 名前：卵の名無しさん mailto:sage [2020/08/01(土) 10:47:44.59 ID:l8LrHWTF.net]: # ある点P（複素点)が三角形ABCの内部にあるか？
opc <- function(a,b){ # outer product on complex plane
Re(a)*Im(b)-Im(a)*Re(b)
}
in3 <- function(P,A,B,C){ # is P inside triangle ABC?
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3==0
#　右ねじ外積の方向がZ軸で全て正か全て負かで三角形の内部と確認
}
# ある点Pが四角形の内部にあるか
in4 <- function(P,A,B,C,D){
in3(P,A,B,C) | in3(P,A,C,D)
}
362 名前：卵の名無しさん mailto:sage [2020/08/01(土) 10:48:17.97 ID:l8LrHWTF.net]: sim <- function(z=c(3,3,2.5,1, 1,1,1.2,0.5),print=FALSE){
s1x=z[1] ; s1y=z[2] ; s2x=z[3] ; s2y=z[4]
t1x=z[5] ; t1y=z[6] ; t2x=z[7] ; t2y=z[8]
s1=s1x+1i*s1y ; s2=s2x+1i*s2y
t1=t1x+1i*t1y ; t2=t2x+1i*t2y
# s1,s2,t1,t2が三角形の外部なら0を返す
if(!(in3(s1,A,B,C) & in3(s2,A,B,C) & in3(t1,A,B,C) & in3(t2,A,B,C))) return(0)
# 残りの対角点が三角形の外部なら0を返す
if(all(unlist(lapply(dia(s1,s2),function(x) in3(x,A,B,C))))==FALSE) return(0)
if(all(unlist(lapply(dia(t1,t2),function(x) in3(x,A,B,C))))==FALSE) return(0)
s34=dia(s1,s2)
s3=s34[[1]] ; s4=s34[[2]]
t34=dia(t1,t2)
t3=t34[[1]] ; t4=t34[[2]]
363 名前：卵の名無しさん mailto:sage [2020/08/01(土) 10:48:29.86 ID:l8LrHWTF.net]: # 正方形が重なっていれば０を返す
if(any(in4(s1,t1,t3,t2,t4), in4(s2,t1,t3,t2,t4), in4(s3,t1,t3,t2,t4),in4(s4,t1,t3,t2,t4),
in4(t1,s1,s3,s2,s4), in4(t2,s1,s3,s2,s4), in4(t3,s1,s3,s2,s4),in4(t4,s1,s3,s2,s4)
)){ return(0)
}else{
if(print){
plot(NULL,xlim=c(0,4),ylim=c(0,6),ann=F,bty='l',asp=1)
A=0i
B=4+0i
C=27/8+1i*sqrt(36-(27/8)^2)
seg(A,B) ; seg(A,C) ; seg(B,C)
pt(A,'A') ; pt(B,'B') ; pt(C,'C')
pt(s1,'s1') ; pt(s2,'s2') ; pt(t1,'t1') ; pt(t2,'t2')
pt(s3,'s3') ; pt(s4,'s4')
pt(t3,'t3') ; pt(t4,'t4')
par(lwd=2)
seg(s1,s3,col=2) ;seg(s2,s4,col=2) ; seg(s2,s3,col=2) ;seg(s1,s4,col=2)
seg(t1,t3,col=2) ;seg(t2,t4,col=2) ; seg(t2,t3,col=2) ;seg(t1,t4,col=2)
par(lwd=1)
}
s=abs(s1-s3)
t=abs(t1-t3)
if(s<t) return(0)
else return(s*t)
}
}
sim(print=T)
(opt=optim(par=c(3,3,2.5,1, 1,1,1.2,0.5),fn=sim,control=list(fnscale=-1,reltol=1e-16)))
sim(opt$par,print=T)
364 名前：卵の名無しさん mailto:sage [2020/08/01(土) 10:48:52.00 ID:l8LrHWTF.net]: 出来上がり

https://i.imgur.com/76fcWgE.png
365 名前：卵の名無しさん mailto:sage [2020/08/01(土) 16:46:06 ID:J6JoOboP.net]: # 平行なときはNAを返す
# 交点の座標を返す
intsect <- function(a,b,c,d){
a1=Re(a) ; a2=Im(a)
b1=Re(b) ; b2=Im(b)
p=(a2-b2)/(a1-b1)
# y-a2=p*(x-a1)
# p*x - y = p*a1 - a2

c1=Re(c) ; c2=Im(c)
d1=Re(d) ; d2=Im(d)
q=(c2-d2)/(c1-d1)
# y-c2=q*(x-c1)
# q*x - y = q*c1 - c2
if(p==q) return(NA)
else{
M=matrix(c(p,q,-1,-1),nrow=2)
v=c(p*a1-a2, q*c1-c2)
s=solve(M,v)
s[1]+1i*s[2]}
}
366 名前：卵の名無しさん mailto:sage [2020/08/01(土) 17:48:24.11 ID:J6JoOboP.net]: # 交点の座標を返す
intsect <- function(a,b,c,d){
a1=Re(a) ; a2=Im(a)
b1=Re(b) ; b2=Im(b)
p=(a2-b2)/(a1-b1)
# y-a2=p*(x-a1)
# p*x - y = p*a1 - a2

c1=Re(c) ; c2=Im(c)
d1=Re(d) ; d2=Im(d)
q=(c2-d2)/(c1-d1)
# y-c2=q*(x-c1)
# q*x - y = q*c1 - c2
if(p==q) return(NA)
else{
# M=matrix(c(p,q,-1,-1),nrow=2)
# v=c(p*a1-a2, q*c1-c2)
# s=solve(M,v)
# s[1]+1i*s[2]
x= ((p*a1 - a2) - (q*c1 - c2))/ (p-q)
y= p*x - ( p*a1 - a2)
x + 1iy
}
}
367 名前：卵の名無しさん mailto:sage [2020/08/02(日) 08:44:47.26 ID:iQy0Mb0r.net]: ウォーキングで10kmの坂道を減速し続けながら登る。
走行距離に比例して速度は減速する。

時速6km/hで登り始め、時速4km/hで頂上に到着したものとする。
このとき、坂道を登るのに要した時間はいくらか？
368 名前：卵の名無しさん mailto:sage [2020/08/02(日) 10:52:40 ID:iQy0Mb0r.net]: >>340
v0=6 ; v1=4 ; s1=10

v(t)=ds(t)/dt=as(t)+v0

s(t)= Ce^(at) - v0/a
v(t)=aC*e^(at)

t0=0
v(t0)=aC=v0 ∴ C=v0/a
v(t1)=aC*e^(at1)=v1 ∴ e^(at1)=v1/(aC)=v1/v0
s(t1)=Ce^(at1)-v0/a=s1 ∴ (v0/a)*(v1/v0)-v0/a=s1

a = (v1 - v0)/s1
C = v0/a　
　= v0*s1/(v1-v0)
369 名前：卵の名無しさん mailto:sage [2020/08/02(日) 10:52:44 ID:iQy0Mb0r.net]: # 距離を与えて所要時間を返す
t <- function(s1,v0=6,v1=4){ # s1:距離 v0:初速 v1:終速
a = (v1 - v0)/s1
C=　v0*s1/(v1-v0)
t = log((a*s1 + v0)/(a*C))/a
return(t)
}
t(10)
t(20)
curve(t(x),0,50,bty='l',xlab='走行距離',ylab='所要時間')

# 時間を与えて走行距離を返す
s <- function(t1,s1=10,v0=6,v1=4){
a = (v1 - v0)/s1
C =　v0*s1/(v1-v0)
s = C*exp(a*t1) - v0/a
return(s)
}
s(1)
s(2.027326)
s(5)
curve(s(x),0,30,xlab='走行時間',ylab='到達距離',bty='l')
370 名前：卵の名無しさん mailto:sage [2020/08/02(日) 11:05:34.25 ID:iQy0Mb0r.net]: >>342
これ、ｔの方は間違えているので撤回します。
どんどん減速するから、そんなに長距離を進める筈がないｗ
371 名前：卵の名無しさん mailto:sage [2020/08/02(日) 11:19:09 ID:iQy0Mb0r.net]: ウォーキングで10kmの坂道を減速し続けながら登る。
走行距離に比例して速度は減速する。

時速6km/hで登り始め、時速4km/hで頂上に到着したものとする。
このとき、坂道を登るのに要した時間はいくらか？
v(t)=ds(t)/dt=as(t)+v0

s(t)= Ce^(at) - v0/a
v(t)=aC*e^(at)

t0=0
v(t0)=aC=v0 ∴ C=v0/a
v(t1)=aC*e^(at1)=v1 ∴ e^(at1)=v1/(aC)=v1/v0
s(t1)=Ce^(at1)-v0/a=s1 ∴ (v0/a)*(v1/v0)-v0/a=s1

a = (v1 - v0)/s1
C = v0/a　
　= v0*s1/(v1-v0)

# 距離を与えて所要時間を返す
t <- function(s,s1=10,v0=6,v1=4){ # s1:距離 v0:初速 v1:終速
a = (v1 - v0)/s1
C=　v0*s1/(v1-v0)
t = ifelse(s>-v0/a,NA,log((a*s + v0)/(a*C))/a)
return(t)
}
t(10)
t(20)
t(25)
curve(t(x),0,30,bty='l',xlab='走行距離',ylab='所要時間')
372 名前：卵の名無しさん mailto:sage [2020/08/02(日) 11:19:14 ID:iQy0Mb0r.net]: # 時間を与えて走行距離を返す
s <- function(t1,s1=10,v0=6,v1=4){
a = (v1 - v0)/s1
C =　v0*s1/(v1-v0)
S = C*exp(a*t1) - v0/a
return(S)
}
s(1)
s(2.027326)
s(24)
curve(s(x),0,30,xlab='走行時間',ylab='到達距離',bty='l')
373 名前：卵の名無しさん mailto:sage [2020/08/02(日) 11:20:12 ID:iQy0Mb0r.net]: # 距離を与えて所要時間を返す
https://i.imgur.com/t6amc0d.png
> t(10)
[1] 2.027326
> t(20)
[1] 5.493061
> t(25)
[1] 8.958797

> # 時間を与えて走行距離を返す
https://i.imgur.com/hqsyWVQ.png>>405

> s(1)
[1] 5.438077
> s(2.027326)
[1] 10
> s(24)
[1] 29.75311
374 名前：卵の名無しさん [2020/08/02(日) 13:11:42 ID:sviBU70/.net]: スレ主ウリュウヒロユキいうのか
ふーん
フフフフフ
375 名前：卵の名無しさん mailto:sage [2020/08/02(日) 14:48:10.56 ID:iQy0Mb0r.net]: https://i.imgur.com/ZnswkDe.png

P : (p1,p2)
Q : (q1,q2)
Q2 : (r1,r2)

角Q2-P-Q = atan((r2-p2)/(r1-p1)) - atan((q2-p2)/(q1-p1)

atanはtanの逆関数、x=tan(θ)　θ=atan(x)
376 名前：卵の名無しさん mailto:sage [2020/08/02(日) 14:48:52.99 ID:iQy0Mb0r.net]: >>347
違うけど。
俺、医科歯科卒。
あんたは？
377 名前：卵の名無しさん mailto:sage [2020/08/02(日) 15:18:04.58 ID:iQy0Mb0r.net]: # 交点の座標を返す
intsect <- function(a,b,c,d){
a1=Re(a) ; a2=Im(a)
b1=Re(b) ; b2=Im(b)
p=(a2-b2)/(a1-b1)
# y-a2=p*(x-a1)
# p*x - y = p*a1 - a2

c1=Re(c) ; c2=Im(c)
d1=Re(d) ; d2=Im(d)
q=(c2-d2)/(c1-d1)
# y-c2=q*(x-c1)
# q*x - y = q*c1 - c2
if(p==q) return(NA)
else{
# M=matrix(c(p,q,-1,-1),nrow=2)
# v=c(p*a1-a2, q*c1-c2)
# s=solve(M,v)
# s[1]+1i*s[2]
x= ((p*a1 - a2) - (q*c1 - c2))/ (p-q)
y= p*x - ( p*a1 - a2)
x + 1i*y
}
}
378 名前：卵の名無しさん mailto:sage [2020/08/02(日) 15:18:27.10 ID:iQy0Mb0r.net]: plot(NULL,xlim=c(-10,30),ylim=c(0,25),xlab='',ylab='',type='n',bty='l',asp=1)
A=0;B=20;C=20+20i;D=20i
pt(A,'A') ; pt(B,'B'); pt(C,'C') ; pt(D,'D')
seg(A,B,col=8) ; seg(B,C,col=8) ; seg(C,D,col=8) ; seg(D,A,col=8)
E=20+3i ; F=30+3i ; G=30+13i ; H=20+13i
pt(E,'E') ; pt(F,'F') ; pt(G,'G') ; pt(H,'H')
seg(E,F,col=8) ; seg(F,G,col=8) ; seg(G,H,col=8)
seg(D,B,col=8) ; seg(A,C,col=8) ; seg(F,H,col=8) ; seg(E,G,col=8)
pt(P,'P')
pt(Q,'Q',cex=1.2)
P
Q
seg(P,Q,col=2)
cir(Re(P),Im(P),abs(P-Q),lty=3)
Q2=abs(Q-P)*(cos(Arg(Q-P)+pi/6)+1i*sin(Arg(Q-P)+pi/6))+P
pt(Q2,'Q2',cex=1.2)
seg(P,Q2,col=2)
379 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:12:21.45 ID:iQy0Mb0r.net]: "
△ABCの外部に3つの正三角形△PBC,△QCA,△RABをとる（いずれの三角形も△ABC内部の領域と共通部分を持たない）。
△ABCの形状が色々変化するとき、以下のrの取りうる値の範囲を求めよ。
r = {max(AP,BQ,CR)}/(AB+BC+CA)
380 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:12:48.46 ID:iQy0Mb0r.net]: source('toolmini.R')

# ある点P（複素点)が三角形ABCの内部にあるか？
opc <- function(a,b){ # outer product on complex plane
Re(a)*Im(b)-Im(a)*Re(b)
}
in3 <- function(P,A,B,C){ # is P inside triangle ABC?
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3==0
#　右ねじ外積の方向がZ軸で全て正か全て負かで三角形の内部と確認
}

# 線分PQの座標から正三角形PQR,PQSを作るR,Sの座標を返す
seg2tri <- function(P=runif(1)+1i*runif(1),Q=runif(1)+1i*runif(1),print=FALSE,...){
PQ=Q-P
R=abs(PQ)*(cos(Arg(PQ)+pi/3)+1i*sin(Arg(PQ)+pi/3))+P
S=abs(PQ)*(cos(Arg(PQ)-pi/3)+1i*sin(Arg(PQ)-pi/3))+P
if(print) { seg(P,R,...) ; seg(Q,R,...) ; seg(P,S,...) ; seg(Q,S,...)}
return(c(R,S))
}
# demo seg2tri(print=TRUE,col=8)
381 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:12:58.48 ID:iQy0Mb0r.net]: # △PBC,△QCA,△RAB
par(lwd=2)
art <- function(print=FALSE) { # adjacent regular triangle
plot(0,type='n',axes=F,ann=F,xlim=c(-1.5,1
382 名前：.5),ylim=c(-1,1.5),asp=1) A= -0.5 ; B= 0.5 x=runif(1) ; y=runif(1) C=x+1i*y if(print){pt(A,'A');pt(B,'B');pt(C,'C') ; seg(A,B);seg(A,C);seg(B,C)} r=seg2tri(A,B,print=FALSE) r12=c(opc(B-A,r[1]-A),opc(B-A,r[2]-A)) R=r[ifelse(opc(B-A,C)>0,which.min(r12),which.max(r12))] if(print) {pt(R,'R') ; seg(A,R,col=2) ; seg(B,R,col=2)} p=seg2tri(B,C,print=FALSE) p12=c(opc(C-B,p[1]-B),opc(C-B,p[2]-B)) P=p[ifelse(opc(C-B,A)>0,which.min(p12),which.max(p12))] if(print) {pt(P,'P') ; seg(B,P,col=2) ; seg(C,P,col=2)} q=seg2tri(C,A,print=FALSE) q12=c(opc(A-C,q[1]-C),opc(A-C,q[2]-C)) Q=q[ifelse(opc(A-C,B)>0,which.min(q12),which.max(q12))] if(print) {pt(Q,'Q') ; seg(A,Q,col=2) ; seg(C,Q,col=2)} # r = {max(AP,BQ,CR)}/(AB+BC+CA) r=max(abs(A-P),abs(B-Q),abs(C-R))/(abs(A-B)+abs(B-C)+abs(C-A)) if(print) legend('bottom',bty='n',legend=paste('r =',round(r,2))) return(r) } []: [ここ壊れてます]
383 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:13:20.67 ID:iQy0Mb0r.net]: art(print=TRUE)
layout(matrix(1:9,3))
replicate(9,art(T))
layout(1)
par(lwd=1)

re=replicate(1e4,art(F))
range(re)

> re=replicate(1e4,art(F))
> range(re)
[1] 0.4340035 0.5773468
384 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:34:50.34 ID:PU5tnH+4.net]: >>2
今は私立も偏差値が高いですがｗ
385 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:47:29.54 ID:iQy0Mb0r.net]: >>352
動作確認してみた。

https://i.imgur.com/NXShefl.gif
386 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:48:36.72 ID:iQy0Mb0r.net]: >>356
これをいつまで経っても答がだせない、アホだらけだよ。

前々スレからのド底辺シリツ医への宿題

若い女性研修医（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。
フェラをしてもらうには何と言えばいいか？
387 名前：卵の名無しさん [2020/08/02(日) 20:51:29.82 ID:C3BluAlB.net]: >>349
フフ、私立だがバッチリ医学科
出てるぞ
歯科は医者ではなーい！
ハハハハ
388 名前：卵の名無しさん mailto:sage [2020/08/03(月) 00:06:41.69 ID:ytVe6HxS.net]: >>359
>358に答えてみ！
できなきゃ裏口認定
389 名前：卵の名無しさん mailto:sage [2020/08/03(月) 07:20:43.28 ID:PpobZQKf.net]: # draw text y at x and perpendicular line
ptl <- function(x,y=NULL,...){
if(is.complex(x)) {a=Re(x) ; b=Im(x)}
else{a=x[1] ; b=x[2]}
text(a,b, ifelse(is.null(y),'+',y), ...)
segments(a,0,a,b,lty=3) ; segments(0,b,a,b,lty=3)
}
390 名前：卵の名無しさん mailto:sage [2020/08/03(月) 08:24:28.60 ID:PpobZQKf.net]: rm(list=ls())
source('toolmini.R')
θ=pi/3
α=0.1303291
eclip <- function(x,z){
sqrt(x^2+z^2)/tan(θ) - (tan(α)*(x-sin(θ))+cos(θ))
}
eclipse=Vectorize(eclip)
x=z=seq(-sin(θ),sin(θ),0.01)
y=outer(x,z,eclipse)
contour(x,z,y,levels=0,drawlabels = F,xlim=c(-1,1),asp=1)
391 名前：卵の名無しさん [2020/08/03(月) 18:35:40.28 ID:wO7yKm98.net]: 我々底辺私立卒医こそ大正義

貧乏国立卒医と違って上級国民だよｗ

でも底辺私立卒医と言っても
早慶非医学部より難関だけどなｗ
392 名前：卵の名無しさん mailto:sage [2020/08/03(月) 18:45:51 ID:15DQBE5r.net]: ワイングラスの形状が円錐面とする。
グラス底での角度２θは１２０°する。（θ＝６０°)
https://i.imgur.com/RApLE95.png
これを傾けて満杯のワインを半分にするには何度傾ければよいか？
https://i.imgur.com/CAuHmAq.png

cos(θ+α)/cos(θ-α)= 4^(-1/3)
393 名前：卵の名無しさん mailto:sage [2020/08/03(月) 19:24:39 ID:Tabwz5bT.net]: >>363
早稲田の理工と川崎医�
394 名前：ﾁて川崎医の方が難しいの？ []: [ここ壊れてます]
395 名前：卵の名無しさん mailto:sage [2020/08/04(火) 04:25:09.66 ID:B3l71IL2.net]: >>364
α = acos(sqrt(sin^2(θ) - cos^2(θ) + 2^(1/3) + 1)/sqrt(2))
396 名前：卵の名無しさん mailto:sage [2020/08/04(火) 04:30:54.14 ID:B3l71IL2.net]: >>365
早稲田の理工なら>364を解けるが川崎だと無理だろう。
あんたにも無理だろうから>358でも答えてみ！
397 名前：卵の名無しさん mailto:sage [2020/08/04(火) 05:33:23.06 ID:HLPeZtWd.net]: >>364
https://www.wolframalpha.com/input/?i=solve+cos%28%CE%B8%2Bx%29%3D%281%2F2%29%5E%282%2F3%29*cos%28%CE%B8-x%29+for+x+where+%CE%B8%3Dpi%2F3+and+0%3Cx%3Cpi%2F2&lang=ja
398 名前：卵の名無しさん mailto:sage [2020/08/04(火) 05:36:49.28 ID:oQGWkiq6.net]: https://www.wolframalpha.com/input/?i=solve+cos%28%CE%B8%2Bx%29%3Dp%5E%282%2F3%29*cos%28%CE%B8-x%29+for+x+where+%CE%B8%3Dpi%2F3+and+p%3D0.5+and+0%3Cx%3Cpi%2F2+&lang=ja
399 名前：卵の名無しさん mailto:sage [2020/08/04(火) 05:37:01.92 ID:kPaGPC8z.net]: https://www.wolframalpha.com/input/?i=solve+cos%28%CE%B8%2Bx%29%3Dp%5E%282%2F3%29*cos%28%CE%B8-x%29+for+x+where+%CE%B8%3Dpi%2F3+and+p%3D0.5+and+0%3Cx%3Cpi%2F2+&lang=ja
400 名前：卵の名無しさん mailto:sage [2020/08/04(火) 05:37:13.31 ID:HLPeZtWd.net]: solve cos(θ+x)=p^(2/3)*cos(θ-x) for x where θ=pi/3 and p=0.5 and 0<x<pi/2
401 名前：卵の名無しさん mailto:sage [2020/08/04(火) 06:00:43.54 ID:HLPeZtWd.net]: 円錐の展開図を描いて、その側面部に円を描きます。この展開図を組み立てて円錐としたとき、側面の円はどのような図形になるのでしょうか。
402 名前：卵の名無しさん mailto:sage [2020/08/04(火) 18:07:21.09 ID:lahyJk2n.net]: >>367
降参です。理解できません。
403 名前：卵の名無しさん mailto:sage [2020/08/04(火) 19:18:34.52 ID:kPaGPC8z.net]: >>372 >>971
グラフ化してみました。割と大変だったな。
https://i.imgur.com/kzwcLIz.png
404 名前：卵の名無しさん mailto:sage [2020/08/04(火) 19:19:10.24 ID:kPaGPC8z.net]: プログラムができたから
蚊取り線香を円錐側面に載せてみました。

https://i.imgur.com/ROMPVtF.png
405 名前：卵の名無しさん mailto:sage [2020/08/04(火) 20:00:42.04 ID:SiNiiw+2.net]: graph <- function(p=0.5){ # θ:cone angle, α:tilt, P:volume proportion
θ=seq(0,pi/2,0.01)
α=seq(0,pi/2,0.01)
fn <- function(θ,α,P=p) cos(θ+α)- P^(2/3)*cos(θ-α)
fn=Vectorize(fn)
z=outer(θ,α,fn)
contour(θ,α,z,levels = 0, drawlabels = F,xlab='θ(rad)',ylab='α(rad)',asp=1,bty='l')
}
graph()

tilt <- function(th,p=0.5){　# p=0.5 and 0< θ < pi/2
fn <- function(theta=th,x,P=p) cos(theta+x) - P^(2/3)*cos(theta-x)
fn=Vectorize(fn)
uniroot(function(x) fn(th,x,p),c(0,pi/6))$root
}
406 名前：卵の名無しさん mailto:sage [2020/08/04(火) 20:02:15.74 ID:SiNiiw+2.net]: > tilt(pi/3)*180/pi
[1] 7.466948
約7.5°だな。
407 名前：卵の名無しさん mailto:sage [2020/08/04(火) 22:00:54.11 ID:lahyJk2n.net]: >>358
普通は風俗に通うだろ。
408 名前：卵の名無しさん mailto:sage [2020/08/05(水) 08:19:28.51 ID:vZG88Q7w.net]: Schema <- function(){
plot(NULL,type='n',xlim=c(-1,1),ylim=c(0,1.5),asp=1,ann=F)
abline(h=0,v=0,col=8,lty=3)
α=25*pi/180
pt(-0.025+0.125i,'α')
th=pi/2-α
seg(0,-cos(th)+1i*sin(th),col=8,lty=3)
seg(-cos(th)+1i*sin(th),0,col=8,lty=3)
a=2*pi*cos(th) # 2*pi*sin(θ/2)
seg(0,cos(pi/2-a/2)+1i*sin(pi/2-a/2))
seg(0,cos(pi/2+a/2)+1i*sin(pi/2+a/2))
curve(sqrt(1-x^2),cos(pi/2+a/2),cos(pi/2-a/2),add=T)
# 2β=2πr
# r=sin(α)=β/π
# ∴ β=π*sin(α)
β=pi*sin(α)
α=asin(β/pi)
r=β/pi
seg(-r+1i*cos(α),1i*cos(α),lty=3,col=8)
curve(sqrt(0.25^2-x^2),-0.25/tan(pi/2-β),0,col=8,lty=2,add=T)
pt(-0.2+0.2i,'β')
pt(-0.2+0.925i,'r')
p=0.7 ; q=sqrt(1-p^2)
A=p+1i*q ; pt(A+0.1,'A(p,q)')
409 名前：卵の名無しさん mailto:sage [2020/08/05(水) 08:19:32.99 ID:vZG88Q7w.net]: seg(0,A,col=8)
# z=2*r=2*β/pi
# y=cos(α)=cos(asin(β/pi))
# x=cos(-pi/2+β/r)=sin(β/r)
cir(0,1+r,r,col=4) ; pt(c(0,1+r))
pt(0.05+0.125i,'θ')
θ=atan(p/q)
(xA=r*cos(-pi/2+θ/r))
r*sin(θ/r)
(β/pi)*sin(pi*θ/β)
(β/pi)*sin(pi*atan(p/q)/β)
Adash=xA+1i*(sqrt(r^2-xA^2)+1+r)
pt(Adash,'A\'') ; pt(0.2+1.5i,'r')
410 名前：seg(Adash,(1+r)*1i,lty=3,col=8) (yA=sqrt(p^2+q^2)*cos(θ)) sqrt(p^2+q^2)*cos(atan(p/q)) (zA=sqrt(p^2+q^2)*r*2) } Schema() []: [ここ壊れてます]
411 名前：卵の名無しさん mailto:sage [2020/08/05(水) 08:20:13.02 ID:vZG88Q7w.net]: https://i.imgur.com/5NRe3wP.png
412 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:08:32.23 ID:HCtqwRw4.net]: r’=sqrt(p^2+q^2) β/pi
γ=θpi/β
x=r'sin(γ)
y=√()cos(β)
z= √()+r'-r'cos(θpi/β)
413 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:11:18.41 ID:HCtqwRw4.net]: β=pi*sin(α)
α=asin(β/pi)
r=β/pi
414 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:27:15.67 ID:HCtqwRw4.net]: >>382
A(p,q):展開図上の座標
tan(θ)=q/p , θ=atan(q/p)
r':Aの円錐上で点A’を通る円Cの半径
γ:x=0面と、A'と円Cの中心を結ぶ線とAの角度
415 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:36:59 ID:GjPpIH0y.net]: >>384
θ=atan(p/q)だな
416 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:49:02.60 ID:GjPpIH0y.net]: cone <- function(p,q,α){
θ=atan(p/q)
β=pi*sin(α)
γ=pi*θ/β
PQ=sqrt(p^2+q^2)
rdash=PQ*β/pi
x=rdash*sin(γ)
y=PQ*cos(β)
z=PQ+rdash-rdash*cos(γ)
c(x,y,z)
}
417 名前：卵の名無しさん mailto:sage [2020/08/05(水) 16:08:18.82 ID:vZG88Q7w.net]: oncone <- function(p,q,α=pi/6){ # (p,q) 展開図上の座標、頂点の角度=２α
PQ=sqrt(p^2+q^2)
β=pi*sin(α)
θ=atan(p/q)
rdash=PQ*β/pi
γ=PQ*θ/rdash
x=rdash*sin(γ)
y=PQ/(tan(α)*sqrt(1+tan(α)^-2))
z=rdash*(1-cos(γ))
c(x=x,y=y,z=z)
}
onCone=Vectorize(oncone)
onCone(1:3,4:6)
library(rgl)
p0=0 ; q0=0.5 ; r=0.3
theta=seq(-pi,pi,0.01)
p=r*cos(theta)+p0
q=r*sin(theta)+q0
points(p,q,asp=1,col=2)
re=onCone(p,q)
x=re['x',] ;y=re['y',];z=re['z',]
rgl::plot3d(x,y,z,col='brown')

library(scatterplot3d)
scatterplot3d(x, y, z, highlight.3d=TRUE, col.axis="blue",
col.grid="lightblue", main="メガホンに輪ゴム", pch=20)
418 名前：卵の名無しさん mailto:sage [2020/08/05(水) 16:09:58.24 ID:vZG88Q7w.net]: >>387
https://i.imgur.com/qOojo9N.png
419 名前：卵の名無しさん mailto:sage [2020/08/05(水) 16:20:01.51 ID:ROroepFL.net]: >>378
頭が悪いのを金で補うのが普通だってｗ
さては売らシリツ医だな。
420 名前：卵の名無しさん mailto:sage [2020/08/06(木) 06:35:06.32 ID:1+RzuAJZ.net]: 展開図のどこに円を置くかで変わってくるな。
https://i.imgur.com/An5YvGR.png
https://i.imgur.com/sDW5Rdi.png

https://i.imgur.com/NQgdSZo.png
https://i.imgur.com/WmJCICs.png

と考えていたら、動画まで上げてくれる神が数学板に君臨。

https://i.imgur.com/j8DM7S1.mp4
421 名前：卵の名無しさん mailto:sage [2020/08/06(木) 07:03:23.13 ID:1+RzuAJZ.net]: numlockキーをbackspaceキーに変更するレジストリ（要再起動）

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,0e,00,45,00,00,00,00,00
422 名前：卵の名無しさん mailto:sage [2020/08/06(木) 08:41:39.49 ID:Vf3ylEcs.net]: 母線の長さが１、円錐角（母線と軸のなす角）がθの円錐側面の展開図を頂点を原点にｙ軸に対称に置く。円錐底面の円は考えない。
展開図上の点Aの座標を(p,q)とすると展開図を円錐化したときのAの三次元座標をp,q,θで表わせ。
423 名前：卵の名無しさん mailto:sage [2020/08/06(木) 08:42:17.72 ID:Vf3ylEcs.net]: >>378
発想が裏口シリツ医そのものだな
424 名前：卵の名無しさん mailto:sage [2020/08/06(木) 10:53:43 ID:YPzmx6MX.net]: ( x, y ) → √(x*x+y*y) * ( sinΘ*cos(atan2(y, x) /sinΘ), r*sinΘ*sin(atan2(y, x) /sinΘ), cosΘ )
425 名前：卵の名無しさん mailto:sage [2020/08/06(木) 14:31:01.10 ID:i90ZSgWD.net]: https://i.imgur.com/1kcxKBY.png
426 名前：卵の名無しさん mailto:sage [2020/08/06(木) 22:51:53 ID:1+RzuAJZ.net]: f <- function(x){
m=sum(x)
sub <- function(n){
if(n==1) return(1)
else{
return(n*Recall(n-1))
}
}
sub(m)
}

f(c(1,2,3))
427 名前：卵の名無しさん mailto:sage [2020/08/06(木) 22:57:19.88 ID:1+RzuAJZ.net]: >>392
# x=sqrt(p^2+q^2)*sin(α)*sin(atan(p/q)/sin(α))
# y=sqrt(p^2+q^2)/(tan(α)*sqrt(1+tan(α)^-2))
# z=sqrt(p^2+q^2)*sin(α)*(1-cos(atan(p/q)/sin(α)))
428 名前：卵の名無しさん mailto:sage [2020/08/07(金) 07:20:47 ID:Un6cahih.net]: # 円錐角から展開図を表示
opened <- function(α=25*pi/180,R=1){
plot(NULL,type='n',xlim=c(-R,R),ylim=c(-R,R),asp=1,ann=F,axes=F)
abline(h=0,v=0,col=8,lty=3)
β=pi*sin(α)
seg(0,-R*sin(α)+R*1i*cos(α))
seg(0, R*sin(α)+R*1i*cos(α))
seg(-R*sin(α)+R*1i*cos(α),R*sin(α)+R*1i*cos(α))
seg(0,-R*sin(β)+R*1i*cos(β),lty=2)
seg(0, R*sin(β)+R*1i*cos(β),lty=2)

pt(R*0.2*(-sin(α/2)+1i*cos(α/2)),'α')
alpha=seq(pi/2,pi/2+α,0.01)
lines(0.2*R*cos(alpha),0.2*R*sin(alpha),col=8)
pt(R*0.3*(-sin(β/2)+1i*cos(β/2)),'β')
beta=seq(pi/2,pi/2+β,0.01)
lines(0.3*R*cos(beta),0.3*R*sin(beta),col=8)
Beta=seq(pi/2-β,pi/2+β,0.01)
lines(R*cos(Beta),R*sin(Beta),lty=2)
}
opened(40*pi/180)
429 名前：卵の名無しさん [2020/08/08(土) 00:48:30.12 ID:58p97i51.net]: 底辺リシツ医師は問題外だが

自治医大卒の尾身をなんとかみんなでどうにかしてくれ～
430 名前：卵の名無しさん mailto:sage [2020/08/08(土) 05:49:15 ID:7Ekoauz2.net]: ＰＣＲ増えないね
https://i.imgur.com/diHa6Ld.jpg
431 名前：卵の名無しさん mailto:sage [2020/08/08(土) 05:55:33 ID:7Ekoauz2.net]: f <- function(s,t) s^2 + 4*s*t - 2*t^2 - 3*s + 2
s=t=seq(0,1,0.01)
z=outer(s,t,f)
contour(s,t,z)
432 名前：卵の名無しさん mailto:sage [2020/08/08(土) 07:09:43 ID:7Ekoauz2.net]: inside <-function(x,y,z){
(x>=0 & z^2+y^2 < 1/2*( sqrt(4*x + 1) + 2*x + 1 - 2*x^2))|
(x<0 & (z^2+y^2 < 1/2*( sqrt(4*x + 1) + 2*x + 1 - 2*x^2)) &
(z^2+y^2 > 1/2*(-sqrt(4*x + 1) + 2*x + 1 - 2*x^2)))
}

N=1e4
x=runif(N,-0.25,2)
y=runif(N,-1.3,1.3)
z=runif(N,-1.3,1.3)
v=diff(range(x))*diff(range(y))*diff(range(z))
w=NULL
counter=0
for(i in 1:N){
if(inside(x[i],y[i],z[i])){
w=rbind(w,c(x[i],y[i],z[i]))
counter=counter+1
}
}
counter/N*v
rgl::plot3d(w[,1],w[,2],w[,3],col='red',asp=1)
rgl::plot3d(w[,1],w[,2],w[,3],col=sample(c('black','red')),asp=1)
rgl::plot3d(w[,1],w[,2],w[,3],col=sample(colours()),asp=1)
433 名前：卵の名無しさん mailto:sage [2020/08/08(土) 08:43:35 ID:r0iXFBTE.net]: アベがベトナム移民を連れてきた
https://todo-ran.com/tdfkimages/00/00/02/41/241397cf40.png
434 名前：卵の名無しさん mailto:sage [2020/08/08(土) 10:52:25.65 ID:ermgG03e.net]: >>386
x=rdashでいい
435 名前：卵の名無しさん mailto:sage [2020/08/08(土) 10:54:21.20 ID:ermgG03e.net]: >>404
ｙ=rdash/tan(α)
436 名前：卵の名無しさん mailto:sage [2020/08/08(土) 10:56:20.12 ID:ermgG03e.net]: z=rdash(1-cos(γ))
γ= ガンマ
437 名前：卵の名無しさん mailto:sage [2020/08/08(土) 11:17:40.08 ID:ermgG03e.net]: x=√(p^2+q^2)sin(α)
y=rdash/tan(α)=√(p^2+q^2)sin(α)tan(α)
438 名前：卵の名無しさん mailto:sage [2020/08/08(土) 11:23:00.03 ID:ermgG03e.net]: gamma=atan(p/q)/sin(alpha)

√(p^2+q^2)sin(alpha)(1-cos(atan(p/q)/sin(alpha))
439 名前：卵の名無しさん mailto:sage [2020/08/08(土) 11:23:51.15 ID:ermgG03e.net]: z=√(p^2+q^2)sin(α)(1-cos(atan(p/q)/sin(α))
440 名前：卵の名無しさん mailto:sage [2020/08/08(土) 18:37:12.07 ID:Fonqs1WQ.net]: rm(list=ls())
source('toolmini.R')
# 円錐角から展開図を表示
opened <- function(α=40*pi/180,R=1){
plot(NULL,type='n',xlim=c(-R,R),ylim=c(-R,R),asp=1,ann=F,axes=T)
abline(h=0,v=0,col=8,lty=3)
β=pi*sin(α)
seg(0,-R*sin(α)+R*1i*cos(α))
seg(0, R*sin(α)+R*1i*cos(α))
# seg(-R*sin(α)+R*1i*cos(α),R*sin(α)+R*1i*cos(α))
seg(0,-R*sin(β)+R*1i*cos(β),lty=2)
seg(0, R*sin(β)+R*1i*cos(β),lty=2)

pt(R*0.2*(-sin(α/2)+1i*cos(α/2)),'α') ; pt(R*0.2*(sin(α/2)+1i*cos(α/2)),'α')
alpha=seq(pi/2-α,pi/2,0.01)
lines(0.18*R*cos(alpha),0.18*R*sin(alpha),col=8)
alpha=seq(pi/2,pi/2+α,0.01)
lines(0.20*R*cos(alpha),0.20*R*sin(alpha),col=8)
pt(R*0.3*(-sin(β/2)+1i*cos(β/2)),'β')　; pt(R*0.3*(sin(β/2)+1i*cos(β/2)),'β')
beta=seq(pi/2,pi/2+β,0.01)
lines(0.3*R*cos(beta),0.3*R*sin(beta),col=8)
beta=seq(pi/2-β,pi/2,0.01)
lines(0.28*R*cos(beta),0.28*R*sin(beta),col=8)
Beta=seq(pi/2-β,pi/2+β,0.01)
lines(R*cos(Beta),R*sin(Beta),lty=2)
pt(-0.025i*R,'O')
441 名前：卵の名無しさん mailto:sage [2020/08/08(土) 18:37:25.28 ID:Fonqs1WQ.net]: p=0.7*R;q=0.3*R
A=p+1i*q ; pt(A,'A(p,q)')
seg(A,0,col=8)
OA=abs(A-0)
(θ=atan(q/p)) ; Arg(A)
pt(0.1*OA*cos(θ/2)+1i*0.1*OA*sin(θ/2),'θ')
th=seq(0,θ,0.01)
lines(0.2*OA*cos(th),0.2*OA*sin(th),col=8)
th=seq(pi/2-β,pi/2+β,0.01)
lines(OA*cos(th),OA*sin(th),col=8)
B=OA*1i ; pt(B,'B',cex=1.2)
C=OA*cos(pi/2-β)+1i*OA*sin(pi/2-β) ; pt(C,'C')
(rdash=OA*β/pi) # ⌒BC＝πｒ' where β = pi*sin(α), then rdash=OA*sin(α)
cir(0,OA+rdash,rdash,col=8)
D=1i*(OA+rdash) ; pt(D,'D')
th=seq(θ,pi/2,0.1)
lines(OA*cos(th),OA*sin(th),col=2,lwd=2)
# arc(BA)＝arc(BE) OA*(pi/2-θ)=rdash*δ
δ=OA*(pi/2-θ)/rdash # OA*(pi/2-θ)/OA*sin(α) =
442 名前： (pi/2-θ)/sin(α) th=seq(-pi/2,-pi/2+δ,0.01) lines(rdash*cos(th),rdash*sin(th)+(OA+rdash),lwd=2,col=4) lines(0.2*rdash*cos(th),0.2*rdash*sin(th)+(OA+rdash),col=8) E=rdash*sin(δ)+1i*(rdash*(1-cos(δ))+OA) ; pt(E,'E') seg(D,E,col=8) pt((D+E)/2,'r\'') pt(0.2*rdash*cos(-pi/2+δ/2)+1i*0.2*rdash*sin(-pi/2+δ/2)+D,'δ') } opened(40*pi/180) []: [ここ壊れてます]
443 名前：卵の名無しさん mailto:sage [2020/08/08(土) 18:37:29.83 ID:Fonqs1WQ.net]: oncone <- function(p,q,α=40*pi/180){ # (p,q) 展開図上の座標、頂点の角度=２α
OA=sqrt(p^2+q^2)
θ=Arg(p+1i*q)
β=pi*sin(α) # π*r=R*β ; r=R*sin(α)
rdash=OA*sin(α) # r'== OA*β/π, r'*π == OA*β : hemi-circle==arc(B-c)
δ=(pi/2-θ)/sin(α) # r'*δ == OA*(π/2-θ) ; δ == OA*(π/2-θ)/r' 　
x=rdash*sin(δ) # Re(E)
y=rdash/tan(α) # tan(α)=r'/y
z=rdash-rdash*cos(δ) # IM(E-B) ; rdash+rdash(cos(π-δ))
c(x=x,y=y,z=z)
}

onCone=Vectorize(oncone)
444 名前：卵の名無しさん mailto:sage [2020/08/08(土) 18:37:46.52 ID:Fonqs1WQ.net]: oncone <- function(p,q,α=40*pi/180){ # (p,q) 展開図上の座標、頂点の角度=２α
OA=sqrt(p^2+q^2)
θ=Arg(p+1i*q)
β=pi*sin(α) # π*r=R*β ; r=R*sin(α)
rdash=OA*sin(α) # r'== OA*β/π, r'*π == OA*β : hemi-circle==arc(B-c)
δ=(pi/2-θ)/sin(α) # r'*δ == OA*(π/2-θ) ; δ == OA*(π/2-θ)/r' 　
x=rdash*sin(δ) # Re(E)
y=rdash/tan(α) # tan(α)=r'/y
z=rdash-rdash*cos(δ) # IM(E-B) ; rdash+rdash(cos(π-δ))
c(x=x,y=y,z=z)
}
445 名前：卵の名無しさん mailto:sage [2020/08/08(土) 20:21:06 ID:Fonqs1WQ.net]: ド底辺シリツ医には解けないであろう問題。

https://i.imgur.com/iBRWjep.jpg

プログラムして２０度以外でも答がでるようにしてみた。

intsect <- function(a,b,c,d){
a1=Re(a) ; a2=Im(a)
b1=Re(b) ; b2=Im(b)
p=(a2-b2)/(a1-b1)
c1=Re(c) ; c2=Im(c)
d1=Re(d) ; d2=Im(d)
q=(c2-d2)/(c1-d1)
if(p==q) return(NA)
else{
x= ((p*a1 - a2) - (q*c1 - c2))/ (p-q)
y= p*x - ( p*a1 - a2)
x + 1i*y
}
}
foo <- function(N20=20){

plot(NULL,type='n',xlim=c(0,2),ylim=c(0,2),asp=1,ann=F)
446 名前：卵の名無しさん mailto:sage [2020/08/08(土) 20:21:11 ID:Fonqs1WQ.net]: u=pi/180
A=cos(N20*u)+1i*sin(N20*u) ; pt(A,'A')
seg(0,A)
B=cos(2*N20*u)+1i*sin(2*N20*u) ; pt(B,'B')
seg(0,B)
seg(A,B)
abline(h=0,col=8)
a=Arg(A-B)/u+N20
f <- function(x) tan(a*u)*(x-Re(B))+Im(B)
curve(f(x),add=T,col=8)
C=intsect(0i,1+0i,B,1i*f(0)) ; pt(C,'C')
seg(C,A)
(Arg(A-C)-Arg(B-C))/u
}
foo=Vectorize(foo)
x=foo(1:35)
data.frame(angle=1:35,x=x)
447 名前：卵の名無しさん mailto:sage [2020/08/08(土) 20:40:27.27 ID:Fonqs1WQ.net]: >>413
https://i.imgur.com/Nq1xRAc.png

atanだと返り値が-pi/2,pi/2なのでうまくいかなかった。
偏角を返すArgにしてようやくデバッグできた。
448 名前：卵の名無しさん mailto:sage [2020/08/09(日) 01:00:48 ID:adohTave.net]: x = (a^2 - b^2 + c^2)/(2 a),
y = sqrt(c^2 - (a^2 - b^2 + c^2)^2/(4 a^2))
449 名前：卵の名無しさん mailto:sage [2020/08/09(日) 01:01:36 ID:adohTave.net]: x^2+y^2=c^2, (x-a)^2+y^2=b^2
450 名前：卵の名無しさん mailto:sage [2020/08/09(日) 06:58:14 ID:MrezVQaF.net]: https://i.imgur.com/3f7D3fW.png
451 名前：卵の名無しさん mailto:sage [2020/08/09(日) 08:18:10 ID:adohTave.net]: https://i.imgur.com/Lhul7zI.jpg
452 名前：卵の名無しさん mailto:sage [2020/08/09(日) 08:43:27 ID:MrezVQaF.net]: 、遅れて重症者に勢いついてきた・・・
https://youtu.be/ROuYug5gTZk
【8/9(日) 0時現在】動くチャートでみる日本の感染拡大の軌跡
453 名前：卵の名無しさん mailto:sage [2020/08/09(日) 09:32:27 ID:MrezVQaF.net]: 売国してんのは他ならぬ自称保守層（笑）だからな
IR汚職で中国から献金貰って逮捕されたのは靖国にも参拝する自民議員と維新だろ
竹島の日削除したのも自民党
北方領土献上したのも自民党
尖閣諸島で何もしないのも自民党
454 名前：卵の名無しさん mailto:sage [2020/08/09(日) 15:57:28 ID:MrezVQaF.net]: # draw arc A:center theta:angle
Arc <- function(A,B,theta,...){
th0=Arg(B-A)
th1=th0+theta
th=seq(th0,th1,0.01)
r=abs(B-A)
z=r*cos(th)+1i*r*sin(th)+A
lines(z,...)
}

source('toolmini.R')
plot(NULL,type='n',xlim=c(0,2),ylim=c(0,2),asp=1,ann=F)
p=ngon(7,col=0,digit=F,axes=F)
r=abs(p[7]-p[3])
th=BAC(p[4],p[7],p[3])[1]
for(i in 1:4) Arc(p[i],p[i+3],th,lwd=2)
for(i in 5:7) Arc(p[i],p[(i+3)%%7],th,lwd=2)
455 名前：卵の名無しさん mailto:sage [2020/08/09(日) 16:03:56 ID:MrezVQaF.net]: 50ペンス硬貨の輪郭

https://i.imgur.com/hEVsdnX.png
456 名前：卵の名無しさん mailto:sage [2020/08/09(日) 16:10:13 ID:MrezVQaF.net]: HK
2:18 / 2:34
Prince Rupert’s cube live demonstration
https://www.youtube.com/watch?v=nWPdpqUEfE0
457 名前：卵の名無しさん mailto:sage [2020/08/09(日) 16:11:59 ID:MrezVQaF.net]: https://www.youtube.com/watch?v=ua4LadxA6
458 名前：K8 []: [ここ壊れてます]
459 名前：卵の名無しさん mailto:sage [2020/08/09(日) 21:58:13 ID:nZS47/5e.net]: >>414
清書

https://i.imgur.com/iv18hkk.png
460 名前：卵の名無しさん mailto:sage [2020/08/10(月) 17:01:12 ID:hbIPQYoI.net]: これが医師国家試験問題とは!　単なる比例計算。中学入試より易しい。
https://i.imgur.com/aNifrIQ.jpg

中学入試
Xの角度は？（立体ではなくて平面図）
https://i.imgur.com/iv18hkk.png

ド底辺シリツ医のこれが現実
１次方程式もできないド底辺シリツ医大卒の記録
imagizer.imageshack.com/img923/2715/RosCsf.jpg

実際、算数の掛け算すら怪しいシリツ医がこういう事故を起こしている。
i.imgur.com/ArPaux9.png
461 名前：卵の名無しさん mailto:sage [2020/08/10(月) 19:52:18.35 ID:v42Q8Nti.net]: カージオイドの面積だけなら、極形式のままでモンテカルロで計算できる。

# r=func(θ)を描く
Draw <- function(func,th=seq(-pi,pi,length=500),...){
r=func(th)
x=r*cos(th)
y=r*sin(th)
plot(x,y,bty='l',type='l', ann=F,lwd=2,...)
invisible(list(x=x,y=y))
}
Draw(function(th) 1 + cos(th),asp=1,col='red')
abline(h=0,v=0,lty=3)

N=1e8
x=runif(N,-0.25,2)
y=runif(N,-1.3,1.3)
s=diff(range(x))*diff(range(y))
r=sqrt(x^2+y^2)
th=atan2(y,x) # Arg(x+1i*y)
s*mean(r<1+cos(th)) ; 3/2*pi
462 名前：卵の名無しさん mailto:sage [2020/08/11(火) 11:46:40 ID:HbOL/zrf.net]: ゆるゆるになったハサミを一発で直す方法

deeepstream.com/2017/09/08/scissors/

こんど懇意な女医にもやってみよう。
463 名前：卵の名無しさん mailto:sage [2020/08/11(火) 18:23:17 ID:CemoEfFW.net]: N=9
str='floor(x)+'
for (i in 2:(N-1)) {
str=c(str,paste0('floor(',i,'*x)+',collapse=''))
}
str=c(str,paste0('floor(',N,'*x)'))
str=paste0(str,collapse='')
str
f <- function(n){
m=sum(1:N)-1
x=n/m
eval(str2lang(str)) - m*x
}
464 名前：卵の名無しさん [2020/08/11(火) 21:25:38.81 ID:S1UttbZ6.net]: 関西医科
465 名前：卵の名無しさん mailto:sage [2020/08/12(水) 06:44:11 ID:VN6SxAqD.net]: ジュースディスペンサー
例　https://event21.co.jp/pic/mat_154.png
に１００％天然果汁が１０L入っていて常に撹拌されている。
すなわち、濃度はいつも均一とする設定。

コックにトラブルがあって１分間に１０ｍLずつ漏れている。
それを補うために１分間に１０ｍLの天然水を補っているとする。
５０％天然果汁のジュースになるのは何分後か？

(1-0.001*t)^n=0.5
lim[t→0] t*log(0.5)/log(1-0.001t)
466 名前：卵の名無しさん mailto:sage [2020/08/12(水) 09:55:50 ID:wqXElAn2.net]: 補充が５mLで１分毎に間欠的行われるとすると

v(0)=10000
v(1)=10000-10+5
v(t)=10000-5*t

c(0)=1
c(1)=9990/9995=c(0)*(v(0)-10)/v(1)
c(2)=c(1)*(v(1)-10)/v(2)

c(t+1)=c(t)*(v(t)-10)/v(t+1)
=c(t)*(10000-5*t-10)/(10000-5(t+1))
467 名前：卵の名無しさん mailto:sage [2020/08/12(水) 11:16:47 ID:KAV/NFrL.net]: V(0)=10000
V(1)=10000-10+5
V(t)=10000-5*t

C(0)=1
C(1)=9990/9995=C(0)*(V(0)-10)/V(1)
C(2)=C(1)*(V(1)-10)/V(2)

C(t+1)=C(t)*(V(t)-10)/V(t+1)

C=numeric
468 名前：() C[1]=9990/9995 for(t in 1:1000){ C[t+1]=C[t]*(10000-5*t-10)/(10000-5*(t+1)) } C []: [ここ壊れてます]
469 名前：卵の名無しさん mailto:sage [2020/08/12(水) 11:18:02 ID:KAV/NFrL.net]: V(0)=10000
V(1)=10000-10+5
V(t)=10000-5*t

C(0)=1
C(1)=9990/9995=C(0)*(V(0)-10)/V(1)
C(2)=C(1)*(V(1)-10)/V(2)

C(t+1)=C(t)*(V(t)-10)/V(t+1)

C=numeric()
C[1]=9990/9995
for(t in 1:1000){
C[t+1]=C[t]*(10000-5*t-10)/(10000-5*(t+1))
}

C
470 名前：卵の名無しさん mailto:sage [2020/08/12(水) 11:18:34 ID:D0LlG3yP.net]: V(0)=10000
V(1)=10000-10+5
V(t)=10000-5*t

C(0)=1
C(1)=9990/9995=C(0)*(V(0)-10)/V(1)
C(2)=C(1)*(V(1)-10)/V(2)

C(t+1)=C(t)*(V(t)-10)/V(t+1)

C=numeric()
C[1]=9990/9995
for(t in 1:1000){
C[t+1]=C[t]*(10000-5*t-10)/(10000-5*(t+1))
}

C
471 名前：卵の名無しさん mailto:sage [2020/08/12(水) 13:57:38.70 ID:6PNOPM0M.net]: これみてこんな問題を思いついた。

カージオイドr=1+cosθ
https://upload.wikimedia.org/wikipedia/commons/thumb/3/35/Cardioid.PNG/200px-Cardioid.PNG
で囲まれた面をｙ軸の周りに回転させてできる立体の体積をVとする。直線x=aを軸に回転させてできる立体の体積がV/2であるようなaの値はいくらか？

D(expression((1+cos(θ))*sin(θ)),'θ')
f60_90 <- function(th) pi*((1+cos(th))*cos(th))^2*(-sin(th)^2+cos(th)^2+cos(th))
(vb=integrate(f60_90,0,pi/3)$value)
(vg=integrate(f60_90,pi/2,pi/3)$value)
(vb - vg)*2

> (vb - vg)*2
[1] 24.90338
472 名前：卵の名無しさん mailto:sage [2020/08/12(水) 15:51:43 ID:VN6SxAqD.net]: １分毎に間欠的に5mLの水を補充するモデルで考えた。
V(t):t分後のジュースの総量
C(t):をt分後の濃度

V(0)=10000
V(1)=10000-10+5
V(t)=10000-5*t

C(0)=1
C(1)=9990/9995=C(0)*(V(0)-10)/V(1)
C(2)=C(1)*(V(1)-10)/V(2)

C(t+1)=C(t)*(V(t)-10)/V(t+1)
473 名前：卵の名無しさん mailto:sage [2020/08/12(水) 15:55:28 ID:6PNOPM0M.net]: １分毎に間欠的に5mLの水を補充するモデルで考えた。
V(t):t分後のジュースの総量
C(t):をt分後の濃度

V(0)=10000
V(1)=10000-10+5
V(t)=10000-5*t

C(0)=1
C(1)=9990/9995=C(0)*(V(0)-10)/V(1)
C(2)=C(1)*(V(1)-10)/V(2)

C(t+1)=C(t)*(V(t)-10)/V(t+1)　=　C(t)*(10000-5*t-10)/(10000-5*(t+1))
474 名前：卵の名無しさん mailto:sage [2020/08/12(水) 18:53:29 ID:NAeP5dUm.net]: ヤラセの質疑応答の原稿を晒してしまっている。

https://i.imgur.com/htSIaZp.png
475 名前：卵の名無しさん mailto:sage [2020/08/12(水) 18:59:33.44 ID:5KbzYiPc.net]: ジュースディスペンサー
例　https://event21.co.jp/pic/mat_154.png
に１００％天然果汁が１０L入っていて常に撹拌されている。
すなわち、濃度はいつも均一。

コックにトラブルがあって１分間に１０ｍLずつジュースが漏れている。
それを補うために１分毎に間欠的に５ｍLの天然水を補っているとする。
５０％天然果汁のジュースになるのは何分後か？そのときのジュースの総量は？
476 名前：卵の名無しさん mailto:sage [2020/08/12(水) 19:00:34.14 ID:5KbzYiPc.net]: ジュースディスペンサー
例　https://event21.co.jp/pic/mat_154.png
に１００％天然果汁が１０L入っていて常に撹拌されている。
すなわち、濃度はいつも均一。

コックにトラブルがあって１分間に１０ｍLずつジュースが漏れている。
それを補うために１分毎に間欠的に５ｍLの天然水を補っているとする。
５０％天然果汁のジュースになるのは何分後か？そのときのジュースの総量は？
477 名前：卵の名無しさん mailto:sage [2020/08/12(水) 20:51:24 ID:QYu4Ga5v.net]: とりあえず、作図（n=3）のとき。
https://i.imgur.com/l4d7V8x.png
478 名前：卵の名無しさん mailto:sage [2020/08/12(水) 21:10:36 ID:QYu4Ga5v.net]: #Recall二題

f <- function(...){
x=c(...)
if(length(x) == 0) return(1)
abs(x[1]) * Recall(x[-1])
}
f(1:100)

f <- function(...){
v=c(...)
n=length(v)
sub<-function(n){
if(n==0) return(1)
else abs(v[n])*Recall(n-1)
}
sub(n)
}
f(1:100)
479 名前：卵の名無しさん mailto:sage [2020/08/13(木) 07:39:16 ID:g+JSHuvd.net]: 世界の平均年収(円)
1995年→2005年→2015年

アメリカ:460→546→658
ドイツ:251→522→587
ポーランド:53→137→312
フランス:226→533→568
韓国:77→219→385
日本:445→440→415

世界中で日本だけ25年前から下がり続け、欧州諸国にはとっくに追い抜かされ差を広げられ続け、
韓国にすら追いつかれている(所得中央値は韓国以下)

この25年間以上、世界中で貧しくなったのは、【日本だけ】
小泉・竹中が築き上げた非正規雇用天国の日本は、貧困層激増し、これからも未婚率&少子化は大促進する
480 名前：卵の名無しさん mailto:sage [2020/08/13(木) 07:44:57.49 ID:g+JSHuvd.net]: 「高収入」が「1000万円以上」とされてたのはバブルの頃既に。
それから40年たっても未だに高収入が1000万円以上。
一方、諸外国では順調に給料をのばしたので、日本人の給料が
どんどん安い側に落ちてきている。
典型的なのが自動車で、昔は600万円程度だったクルマが今は
千何百万円とかになってるが日本人の給料はほとんど変わらないので
もの凄い高嶺の花になってしまった。昔は200万円程度だった日本車が
今は３百数十万くらいで「高くて買えない」になってる。
481 名前：卵の名無しさん mailto:sage [2020/08/13(木) 17:56:09.00 ID:O ]: [ここ壊れてます]
482 名前：P0ThbHs.net mailto: 熊に襲われて死ぬのは年間1人か2人だから、熊の対策なんていらないな。
暴力団の抗争に巻き込まれて死ぬ人も数人出ればいいとこだし、特に問題ない。
地下鉄サリン事件での死者は14人くらいだから。

安心して経済活動を行ってくれればいい []: [ここ壊れてます]
483 名前：卵の名無しさん mailto:sage [2020/08/14(金) 05:13:20 ID:XrAeYcww.net]: ミンス時代と違って幸せで穏やかで平和な日々が続いて心からウレシイ
じっさい、安倍政権になってから
めだって大きな災害は減り続けて最近は、疫病の流行もほぼゼロだよね
なんども来てた台風はなかなか来ないし水害も地震もミンス時代と違ってそんなに起きてない
あの東日本大震災は、自民党を裏切った国民に対して天が下した罰だったんだよ
ベタだけど「安倍総理のもとコロナに立ち向かう嬉しさよ、日本に生まれて良かった！」
484 名前：卵の名無しさん mailto:sage [2020/08/14(金) 09:54:21.96 ID:2IguuApe.net]: ｓｑｒｔ（１＋ｓｑｒｔ（２＋ｓｑｒｔ（３＋ｓｑｒｔ（４＋．．．

↑これ収束しそうなんですがどういう値か求める方法教えてくれませんか？

といおう投稿があったので数式を書くプログラムを書いてみた。

ｓｑｒｔｓｅｑ　＜－　ｆｕｎｃｔｉｏｎ（ｎ）｛　＃　３　－＞　＂ｓｑｒｔ（１＋ｓｑｒｔ（２＋ｓｑｒｔ（３）））＂
　　＇％＆％＇　＜－　ｆｕｎｃｔｉｏｎ（ｘ，ｙ）　ｐａｓｔｅ０（ｘ，ｙ）
　　ｓ　＝　ｖｅｃｔｏｒ（＇ｌｉｓｔ＇）
　　ｓ［［１］］　＝　＂ｓｑｒｔ（１）＂
　　ｉｆ（ｎ＝＝１）　ｒｅｔｕｒｎ（ｓ［［１］］）
　　ｆｏｒ（ｉ　ｉｎ　２：ｎ）｛
　　　　ｎｃ　＝　ｎｃｈａｒ（ｓ［［ｉ－１］］）
　　　　ｅｎｄ＿ｓ＝ｐａｓｔｅ０（ｒｅｐ（＇）＇，ｉ），ｃｏｌｌａｐｓｅ＝＇＇）
　　　　ｓ［［ｉ］］＝ｓｕｂｓｔｒ（ｓ［［ｉ－１］］，１，ｎｃ－ｉ＋１）　％＆％　＂＋ｓｑｒｔ（＂　％＆％　ｉ　％＆％　ｅｎｄ＿ｓ
　　｝
　　ｒｅｔｕｒｎ（ｓ［［ｎ］］）
｝
ｓｑｒｔｓｅｑ（５０）

＞　ｓｑｒｔｓｅｑ（５０）
［１］　＂ｓｑｒｔ（１＋ｓｑｒｔ（２＋ｓｑｒｔ（３＋ｓｑｒｔ（４＋ｓｑｒｔ（５＋ｓｑｒｔ（６＋ｓｑｒｔ（７＋ｓｑｒｔ（８＋ｓｑｒｔ（９＋ｓｑｒｔ（１０＋ｓｑｒｔ（１１＋ｓｑｒｔ（１２＋ｓｑｒｔ（１３＋ｓｑｒｔ（１４＋ｓｑｒｔ（１５＋ｓｑｒｔ（１６＋ｓｑｒｔ（１７＋ｓｑｒｔ（１８＋ｓｑｒｔ（１９＋ｓｑｒｔ（２０＋ｓｑｒｔ（２１＋ｓｑｒｔ（２２＋ｓｑｒｔ（２３＋ｓｑｒｔ（２４＋ｓｑｒｔ（２５＋ｓｑｒｔ（２６＋ｓｑｒｔ（２７＋ｓｑｒｔ（２８＋ｓｑｒｔ（２９＋ｓｑｒｔ（３０＋ｓｑｒｔ（３１＋ｓｑｒｔ（３２＋ｓｑｒｔ（３３＋ｓｑｒｔ（３４＋ｓｑｒｔ（３５＋ｓｑｒｔ（３６＋ｓｑｒｔ（３７＋ｓｑｒｔ（３８＋ｓｑｒｔ（３９＋ｓｑｒｔ（４０＋ｓｑｒｔ（４１＋ｓｑｒｔ（４２＋ｓｑｒｔ（４３＋ｓｑｒｔ（４４＋ｓｑｒｔ（４５＋ｓｑｒｔ（４６＋ｓｑｒｔ（４７＋ｓｑｒｔ（４８＋ｓｑｒｔ（４９＋ｓｑｒｔ（５０））））））））））））））））））））））））））））））））））））））））））））））））））＂
＞
485 名前：卵の名無しさん mailto:sage [2020/08/14(金) 18:04:53.99 ID:2IguuApe.net]: "
SEIR MODEL
dS(t)/dt = mu*(N-S) - b*S(t)*I(t)/N - nu*S(t)
dE(t)/dt = b*S(t)I(t)/N - (mu+sig)*E(t)
dI(t)/dt = sig*E(t) - (mu+g)*I(t)
dR(t)/dt = g*I(t) - mu*R + nu*S(t)
mu:自然死亡率 b:感染率(S->I)
nu:ワクチン有効率(S->R) sig:発症率(E->I),g:回復率(I->R)
"
SEIRモデルのパラメータ
SEIR2 <- function(
# Parameters
contact_rate = 10, # number of contacts per day
transmission_probability = 0.01, # transmission probability
beta = contact_rate * transmission_probability, # tranmission rate
infectious_period = 20, # infectious period
gamma = 1 / infectious_period, # Prob[infected -> recovered]
latent_period = 5, # latent perior
sigma = 1/latent_period, # The rate at which an exposed person becomes infective
486 名前： mu = 0, # The natural mortality rate nu = 0 , # vaccination moves people from susceptible to resistant directly, without becoming exposed or infected. Ro = beta/gamma, # Ro - Reproductive number. # Initial values for sub-populations. s = 99, # susceptible hosts e = 0, # exposed hosts i = 1, # infectious hosts r = 0, # recovered hosts # Compute total population. N = s + i + r + e, # Output timepoints. timepoints = seq (0, 365, by=0.5), ) []: [ここ壊れてます]
487 名前：卵の名無しさん mailto:sage [2020/08/14(金) 18:06:31.46 ID:2IguuApe.net]: 今月号の数学セミナー

＊感染症数理モデル元年に機構と外挿の狭間に立つ……西浦博　8
＊感染症数理モデル入門／SIRコンパートメントモデルと
　基本再生産数……小林鉄郎・西浦博　14
＊集団免疫論を超えて……稲葉寿　19
＊国内の流行初期のデータによる予測とその評価……國谷紀良　26
＊大規模流行の発生確率にまつわる数理……安齋麻美・西浦博　30
＊新型コロナウイルスの生体内感染動態の定量化とその応用／
　数理科学で挑む新型コロナウイルス感染症治療の確立
　　……岩波翔也・キム・クァンス・藤田泰久・江島啓介・岩見真吾　33
＊感染症流行の収束にまつわる数理……ナタリー・リントン・西浦博　40
488 名前：卵の名無しさん mailto:sage [2020/08/16(日) 11:23:25 ID:BPJ6HFJ4.net]: そりゃ安倍売国奴が7年も居座るような国ですから
日本国民の多くは安倍の異常性に気付くの遅過ぎ
野党ガーパヨクガーで思考停止してきた罰だわ
489 名前：卵の名無しさん mailto:sage [2020/08/16(日) 13:39:55.07 ID:rHNnv/+o.net]: MPC Black Edition

https://ja.osdn.net/projects/sfnet_mpcbe/releases/
490 名前：卵の名無しさん mailto:sage [2020/08/16(日) 18:30:52.54 ID:dWI2FauU.net]: 低学歴総理の日本モデル
https://i.imgur.com/Lhul7zI.jpg
491 名前：卵の名無しさん mailto:sage [2020/08/17(月) 07:54:58 ID:9K8MUr58.net]: https://www.gigafree.net/media/MediaPlayer/mediaplayerclassic.html
492 名前：卵の名無しさん mailto:sage [2020/08/17(月) 12:34:02 ID:v42vnrN1.net]: デマサポ「円高放置ガー」

現実は民主党政権は９２年以降、倒産件数最小です。

2012年（平成24年）の全国企業倒産1万2,124件
https://www.tsr-net.co.jp/news/status/yearly/2012_2nd.html

>件数が過去20年間で最少の1万2,124件　円滑化法などの金融支援で抑制続く
493 名前：卵の名無しさん mailto:sage [2020/08/17(月) 16:58:10 ID:xC7zRVs6.net]: 経済馬鹿用語

1.財政ファイナンス（そんな言葉ねぇよｗ）
2.ハイパーインフレ（年間で7京円以上の物やサービスが買われないとならないよｗ）
3.インフレ制御不能（30年以上制御したくも無いのに制御出来ている国がある）
4.預金封鎖（憲法違反ですｗ）
5.国の借金（単なる貨幣供給量。返している国など無い。日本は少なすぎて不況）
494 名前：卵の名無しさん mailto:sage [2020/08/17(月) 19:19:08.89 ID:GwXgz2RM.net]: Na <- 6.0022*10^23 # アボガドロ数
T
495 名前：Cs134 <- 2.0652*365.2425*24*60*60 # 半減期（秒） # λ:崩壊定数, 放射能A=-dN/dt=λN, N=A/λ=A*T/log2,　λ=log2/T (Cs134g_Bq <- TCs134/(log(2)*Na)*134) # Cs134:1ベクレルのグラム数 (Cs134Bq_pg <- (1/Cs134g_Bq)/(1*10^12)) # Cs134:1pgのベクレル TCs137 <- 30.16171*365.2425*24*60*60 (Cs137g_Bq <- TCs137/(log(2)*Na)*137) # Cs137:1ベクレルのグラム数 (Cs137Bq_pg <- (1/Cs137g_Bq)/(1*10^12)) # Cs137:1pgのベクレル # 半減期を秒で計算 # λ=log2/T λCs134 <- log(2)/TCs134 λCs137 <- log(2)/TCs137 N0 <- 1 Cesium134 <- function(s){ N0*exp(-λCs134*s) } Cesium137 <- function(s){ N0*exp(-λCs137*s) } []: [ここ壊れてます]
496 名前：卵の名無しさん mailto:sage [2020/08/17(月) 20:39:29 ID:GwXgz2RM.net]: #原子数=放射能/崩壊定数=放射能/(log2/半減期)=放射能*半減期*log2
#放射能が同じなら原子数∝半減期

cesium_now <- function(Date=NULL,RCs134=1,RCs137=1){
t=ifelse(is.null(Date),as.numeric((Sys.Date()-as.Date("2011/3/11"))/365.2425)
,as.numeric(as.Date(Date)-as.Date("2011/3/11"))/365.2425)
TCs134 <- 2.0652 # half-life(year)
TCs137 <- 30.16171
# mol ratio
cs <- RCs134*TCs134*(1/2)^(t/TCs134) + RCs134*TCs137*(1/2)^(t/TCs137)
cs0 <- RCs134*TCs134 + RCs134*TCs137
ratio=cs/cs0
# radioavtivity ratio
# decay constant = log(2)/half-life
# ratioactivity ∝ decay constant * mol
CS <- (1/2)^(t/TCs134) + (1/2)^(t/TCs137)
CS0 <- TCs134 + TCs137
Ratio=CS/CS0
list(mol_ratio=ratio,radioactivity_ratio=Ratio)
}
cesium_now()

# 放射能比=1:1
TCs134 <- 2.0652 # 半減期(年）
TCs137 <- 30.16171
CS <- function(t) (1/2)^(t/TCs134) + (1/2)^(t/TCs137)
curve(CS(x),0,30)
uniroot(function(t,u0=1/2) CS(t)/CS(0)- u0, c(0,30))$root
497 名前：卵の名無しさん mailto:sage [2020/08/17(月) 23:14:43.81 ID:v42vnrN1.net]: GoTo初日（７月２２日）
　東京・銀座のステーキ店「銀座ひらやま」
　自民党の二階俊博幹事長らと会食。

①首相動静（７月２３日）
　午前中は来客なく、私邸で過ごす。
　午後も来客なく、私邸で過ごす。

②首相動静（７月２４日）
　午前中は来客なく、私邸で過ごす。
　午後６時から同１分、報道インタビュー
「国民は予防を徹底しろ」

③首相動静（７月２５日）
　午前中は来客なく、私邸で過ごす。
　午後も来客なく、私邸で過ごす。

④首相動静（７月２６日）
　午前中は来客なく、私邸で過ごす。
　午後も来客なく、私邸で過ごす。

7/30 医師会オコ会見「コロナに夏休みは無い」
imgur.com/rQ4xJBF.jpg
498 名前：卵の名無しさん mailto:sage [2020/08/18(火) 08:09:19 ID:3Xg2dDMj.net]: https://news.yahoo.co.jp/articles/102567ee3152a78e45c3522317e3c3ac7f719e4a
499 名前：卵の名無しさん mailto:sage [2020/08/18(火) 08:57:04 ID:ONcJFdfp.net]: 米国債を売ろうした中川財務大臣はアメリカに抹殺された。
例の泥酔会見の直前、中川さんのワイングラスに薬を入れた実行犯も
正真正銘のCIAスパイ正力松太郎が作った読売新聞・日本テレビの記者「越前谷知子」「原聡子」と特定されてる。

https://stat.ameba.jp/user_images/20190724/20/sunsunsunsunsunsunsun/49/9b/j/o0600040014511587346.jpg?caw=800

ちなみに歴代首相で唯一、アメリカからの命令書（年次改革要望書）の受け取りを拒否した鳩山由紀夫元首相も
この直後からホワイトハウスからルーピー呼ばわりされ、電通CIA傘下のマスゴ
500 名前：ミもそれに追随、何の落ち度もないまま辞任に追い込まれた。 []: [ここ壊れてます]
501 名前：卵の名無しさん mailto:sage [2020/08/20(木) 06:22:23 ID:fG30J4pR.net]: 都合が悪い時は
　
定義を変える
解釈を変える
受け手側が勝手に勘違いした事にする
知らなかった事にする
想定外だった事にする
報告書を受け取らない
改竄する
隠蔽する
破棄した事にする
まわりが勝手に忖度した事にする
担当者が間違えた事にする
　
美しい国
502 名前：卵の名無しさん mailto:sage [2020/08/20(木) 06:24:38 ID:fG30J4pR.net]: 感染者で「コロナはただの風邪」と言ってる奴がいない以上、感染してもない奴がただの風邪と泣き喚いたって何の説得力もない
だから自分が感染者になって証明するしかねーんだよ。
ただの風邪なら、かかったらところでリスクは低いんだからさぁ
503 名前：卵の名無しさん mailto:sage [2020/08/20(木) 06:37:33 ID:fG30J4pR.net]: 鳩山のアメリカと中国でバランス取る外交は
日本の国益や防衛という意味でも別に悪くは無いと思うんだ
もう中国潰すなんて無理だし付き合うしか無いからな
504 名前：卵の名無しさん mailto:sage [2020/08/20(木) 07:14:27 ID:fG30J4pR.net]: https://tarelife.com/clone-ssd/
505 名前：卵の名無しさん [2020/08/20(木) 10:47:34 ID:ZKXOlZfB.net]: >>466
尖閣を盗もうとしてる侵略国家とまともに付き合うのは無理。
506 名前：卵の名無しさん mailto:sage [2020/08/20(木) 12:58:33 ID:fG30J4pR.net]: Package ‘XXX’ was installed before R 4.0.0: please re-install it

.libPaths()
update.packages(ask=FALSE, checkBuilt=TRUE)
507 名前：卵の名無しさん mailto:sage [2020/08/20(木) 13:23:46 ID:fG30J4pR.net]: >>468
満州を奪おうとした日本もそう思わrているだろうよ。
508 名前：卵の名無しさん mailto:sage [2020/08/20(木) 13:24:38 ID:fG30J4pR.net]: まあ、元寇の損害賠償を！とか言い出せば面白いとは思うけど。
509 名前：卵の名無しさん mailto:sage [2020/08/20(木) 20:19:59 ID:YbZyLutx.net]: 関西医科
ヤブ､ボッタクリ､反日朝鮮人の三拍子
510 名前：卵の名無しさん mailto:sage [2020/08/20(木) 23:57:16.71 ID:fG30J4pR.net]: >>827
貼れと言われた気がするんで貼っておきますね
これが安倍内閣の功績

https://i.imgur.com/vXAq4l6.jpg
511 名前：卵の名無しさん mailto:sage [2020/08/21(金) 00:11:28 ID:NIR9ZE7+.net]: 経済回せって
コロナ感染者が余計に増えて経済どん底。
残念ながら感染対策が最も有効な経済政策だとわからないアホの国が日本。
それを理解した中国は大量検査で制圧しているみたいだな。
512 名前：卵の名無しさん mailto:sage [2020/08/21(金) 02:24:55 ID:VA1y5WE8.net]: >>473
人のブログなんて糞にもならないソースで偉そうに笑
513 名前：卵の名無しさん mailto:sage [2020/08/21(金) 06:08:31 ID:NIR9ZE7+.net]: >>475
政府なんぞ専門家という匿名ソースだぞ。
514 名前：卵の名無しさん mailto:sage [2020/08/21(金) 15:37:30 ID:NIR9ZE7+.net]: 防護服着ての検査はくたびれる。
515 名前：卵の名無しさん mailto:sage [2020/08/22(土) 06:56:13.67 ID:d8M92xSQ.net]: # 問題「4/5より大きく5/6より小さい分数で、分母がいちばん小さい分数はなに？」
fn <- function(lo=4/5,up=5/6){
i=1
flg=FALSE
while(flg==FALSE){
for(j in 1:i){
flg = lo<j/i & j/i<up
if(flg==TRUE){
ans=paste0(j,'/',i)
break
}
}
i=i+1
}
cat(ans)
invisible(c(j,i))
}
fn()

fn(3/4,13/17)
fn(1/2,16/31)
516 名前：卵の名無しさん mailto:sage [2020/08/22(土) 07:22:49 ID:d8M92xSQ.net]: πの近似分数として
　22/7= 3.142857
　355/113= 3.141593
が
517 名前：知られている。 355/113より大きく22/7より小さい分数で、分母がいちばん小さい分数は何か？ []: [ここ壊れてます]
518 名前：卵の名無しさん mailto:sage [2020/08/22(土) 07:25:42 ID:d8M92xSQ.net]: 仮分数でも計算できるように修正

fn <- function(lo=355/113,up=22/7){
i=1
flg=FALSE
while(flg==FALSE){
for(j in 1:ceiling(i*up)){
flg = lo<j/i & j/i<up
if(flg==TRUE){
ans=paste0(j,'/',i)
break
}
}
i=i+1
}
cat(ans)
invisible(c(j,i))
}
519 名前：卵の名無しさん mailto:sage [2020/08/22(土) 07:30:48 ID:d8M92xSQ.net]: fn <- function(lo=355/113,up=22/7){
i=1
flg=FALSE
while(flg==FALSE){
for(j in 1:ceiling(i*up)){
flg = lo<j/i & j/i<up
if(flg==TRUE){
ans=paste0(j,'/',i)
break
}
}
i=i+1
}
cat(ans,'\n')
invisible(c(j,i))
}

fn(1/2,2/3)
fn(2/3,3/4)
fn(3/4,4/5)
fn(4/5,5/6)
fn(5/6,6/7)
fn(6/7,7/8)
fn(7/8,8/9)
fn(8/9,9/10)

# πの近似分数
fn(355/113,22/7)
520 名前：卵の名無しさん mailto:sage [2020/08/23(日) 07:44:08 ID:wPcVG3NC.net]: 現実は民主党政権は９２年以降、倒産件数最小です。

2012年（平成24年）の全国企業倒産1万2,124件
https://www.tsr-net.co.jp/news/status/yearly/2012_2nd.html

>件数が過去20年間で最少の1万2,124件　円滑化法などの金融支援で抑制続く
521 名前：卵の名無しさん mailto:sage [2020/08/23(日) 08:13:08 ID:wPcVG3NC.net]: コロナはただ風邪という人は唾をかけられても平気なのか？

「これでお前も感染した」英で唾かけられたタクシー運転手死亡
https://mainichi.jp/articles/20200523/k00/00m/030/075000c

駅係員、唾掛けられた後死亡　「感染」主張の男から―英
https://www.jiji.com/jc/article?k=2020051300657&g=int
522 名前：卵の名無しさん mailto:sage [2020/08/23(日) 08:19:20 ID:wPcVG3NC.net]: 経済回せって
コロナ感染者が余計に増えて経済どん底。
残念ながら感染対策が最も有効な経済政策だとわからないアホの安倍がリーダーの国が日本。
感染対策こそが経済政策と理解した中国は大量検査で制圧しているみたいだな。
523 名前：卵の名無しさん mailto:sage [2020/08/23(日) 10:10:13.42 ID:f4yg9Qq8.net]: # サイコロ6個振って目の合計が26を超える確率

library(gtools)
pm0=permutations(6,6,rep=T)
f<-function(x) sum(x) > 26
s=sum(apply(pm0,1,f))
S=nrow(pm0)
cat(s,'/',S,'\n')
s/S

#
dec2n <- function(num, N, digit = 6){
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
pm=sapply(0:(6^6-1),function(x) dec2n(x,6))
f<-function(x) sum(x) > 26-6
s=sum(apply(pm,2,f))
S=ncol(pm)
cat(s,'/',S,'\n')
s/S
524 名前：卵の名無しさん mailto:sage [2020/08/23(日) 11:36:45 ID:orYNoZE9.net]: library(gtools)
library(fitdistrplus)
pm0=permutations(6,6,rep=T)
f<-function(x) sum(x) > 26
s=sum(apply(pm0,1,f))
S=nrow(pm0)
cat(s,'/',S,'\n')
s/S

d=apply(pm0,1,sum)
hist(d)
mean(d) ; var(d) ; sd(d)
fit=fitdistrplus::fitdist(d,'norm')
plot(fit)
table(d)
plot(table(d))
plot(table(d)/S,ann=F)

#
x=1:6
n=length(x)
(m=mean(x))
(SS=sum((x-m)^2))
(var=var(1:6)) ; SS/(n-1) ; SS/n
(sd=sd(x))
N=100
(M=m*N)
(Var=var*N)
(Sd=sqrt(Var))
curve(dnorm(x,M,Sd),N,6*N)
pnorm(3*N,M,Sd,lower=T)
525 名前：卵の名無しさん mailto:sage [2020/08/23(日) 11:39:40 ID:orYNoZE9.net]: >>486
サイコロ10回振って目の合計を当てる賭けをするときいくつにかけるのが最も有利か？
サイコロ100回振って目の合計が300未満の確率はおよそいくらか？正規分布表を使ってよい。
526 名前：卵の名無しさん mailto:sage [2020/08/23(日) 12:57:54.21 ID:GvqXjXvG.net]: rm(list=ls())
source('toolmini.R')
library(gtools)
library(fitdistrplus)
N=6
(pm0=permutations(6,N,rep=T))
f<-function(x) sum(x) > 26
s=sum(apply(pm0,1,f))
S=nrow(pm0)
cat(s,'/',S,'\n')
s/S

d=apply(pm0,1,sum)
hist(d)
mean(d) ; var(d)
N*mean(1:6) ; N*sum((1:6-mean(1:6))^2)/N
fit=fitdistrplus::fitdist(d,'norm')
plot(fit)
table(d)
plot(table(d))
plot(table(d)/S,ann=F)
527 名前：卵の名無しさん mailto:sage [2020/08/23(日) 12:57:57.81 ID:GvqXjXvG.net]: #
x=1:6
n=length(x)
(m=mean(x))
(SS=sum((x-m)^2))
(var=var(1:6)) ; SS/(n-1) ; SS/n
(sd=sd(x))
N=100
(M=m*N)
(Var=var*N)
(Sd=sqrt(Var))
curve(dnorm(x,M,Sd),N,6*N)
pnorm(3*N,M,Sd,lower=T)
528 名前：卵の名無しさん mailto:sage [2020/08/23(日) 13:07:52 ID:GvqXjXvG.net]: コロナはただ風邪という人は唾をかけられても平気なのか？

「これでお前も感染した」英で唾かけられたタクシー運転手死亡
https://mainichi.jp/articles/20200523/k00/00m/030/075000c

駅係員、唾掛けられた後死亡　「感染」主張の男から―英
https://www.jiji.com/jc/article?k=2020051300657&g=int

経済回せって
コロナ感染者が余計に増えて経済どん底。
残念ながら感染対策が最も有効な経済政策だとわからないアホの安倍がリーダーの国が日本。

感染対策こそが経済政策と理解した中国は大量検査で制圧して経済復活しているようだな。
529 名前：卵の名無しさん mailto:sage [2020/08/23(日) 13:24:31 ID:r+MJ1zyN.net]: サヨクの最終目標・・・移住・移民が自由にできる世界
安倍晋三・・・移民を受け入れる政策実施
サヨクの悲願を実現したということはサヨクのヒーローだから
ようは, 安倍＝パヨク＝ネトウヨ
ネットはパヨク内のネトウヨ派とパヨク派の内ゲバ.
530 名前：卵の名無しさん mailto:sage [2020/08/23(日) 15:26:12 ID:UqMNAXmY.net]: 仮病演技と憔悴アピールを用いるという情けない首相、
子供がズル休みしたい時、前もって体調悪いアピールをやり出しますよね。それ�
531 名前：ﾆ同じ気がしますよね []: [ここ壊れてます]
532 名前：卵の名無しさん mailto:sage [2020/08/23(日) 16:04:31 ID:UqMNAXmY.net]: 西村大臣、黒塗り速記録の理由説明　「公表望まない人がいる」
https://www.youtube.com/watch?v=AWG-wjvjIqo

国の対コロナ政策をほぼ決めるような場で個人攻撃されるような話する方がおかしい。
533 名前：卵の名無しさん mailto:sage [2020/08/23(日) 16:16:55 ID:Fx6FhU/l.net]: コピペだがなるほどと思った

>>
俺も発熱したけど、ダマで(ﾏﾏ)出勤してたよ
「風俗いったでしょ」って決めつけられて社会的に終わるからな
アレルギーで鼻水出てるってことにして、ふらふらでも押し通したよ

正直、それで通ってしまう世の中
休んだ不利益だけおっかぶせて、組織は責任を取らないという風潮
<<
534 名前：卵の名無しさん mailto:sage [2020/08/23(日) 16:49:18 ID:Fx6FhU/l.net]: 不安な人は手軽に検査を受けられるようにして
陰性なら安心して旅行や帰省もできる、
陽性ならば不安なく仕事を休んで療養できる社会を作った国が勝者だろうね。
ケンサーズとか言っているような日本が負け組になるのは必至だな。
535 名前：卵の名無しさん mailto:sage [2020/08/23(日) 20:08:48 ID:orYNoZE9.net]: rm(list=ls())
# サイコロ10回振って目の合計を当てる賭けをするときいくつにかけるのが最も有利か？
# その確率は？>>209

N=10
#
dicesum <- function(num, N=6){
r=num%%N
q=num%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
}
return(sum(r))
}

d35=0
i=0
while(i<6^N){
if(dicesum(i)==3.5*N) d35=d35+1
i=i+1
}
d35
6^N
d35/6^N
536 名前：卵の名無しさん mailto:sage [2020/08/23(日) 20:39:51 ID:orYNoZE9.net]: rm(list=ls())
# サイコロ10回振って目の合計を当てる賭けをするときいくつにかけるのが最も有利か？
# その確率は？
N=10
#
pipsum <- function(num, N=6){
r=num%%N
q=num%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
}
return(sum(r)+N)
}

dmax=0
i=0
while(i<6^N){
if(pipsum(i)==3.5*N) dmax=dmax+1
i=i+1
}
dmax
6^N
dmax/6^N

# sim
sim <- function(n=35) sum(sample(6,10,rep=T))==n
mean(replicate(1e5,sim()))
537 名前：卵の名無しさん mailto:sage [2020/08/23(日) 20:40:53 ID:orYNoZE9.net]: >>497
１０回程度では正規分布での近似はあてはまりがよくないな。
m=mean(1:6)
v=var(1:6)
M=10*m
V=10*v
SD=sqrt(V)
pnorm(35.5,M,SD)-pnorm(34.5,M,SD)
538 名前：卵の名無しさん mailto:sage [2020/08/23(日) 21:33:15 ID:UqMNAXmY.net]: >>497
N10=10
#
pipsum <- function(num, N=6){
r=num%%N
q=num%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
}
return(sum(r)+N10)
}

dmax=0
i=0
while(i<6^N10){
if(pipsum(i)==3.5*N10) dmax=dmax+1
i=i+1
}
dmax # 4395456
6^N10 # 60466176
options(digits = 10)
dmax/6^N10 # 0.072692805974698974
539 名前：卵の名無しさん mailto:sage [2020/08/23(日) 22:49:36.14 ID:hJuNMaf+.net]: N10=10
#
pipsum <- function(num, N=6){
r=num%%N
q=num%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
}
return(sum(r)+N10)
}

pip=numeric(6*N10)
pip[1:9]=0
i=0
while(i<6^N10){
idx=pipsum(i)
pip[idx]=pip[idx]+1
i=i+1
}
plot(pip)
540 名前：卵の名無しさん mailto:sage [2020/08/23(日) 22:59:24 ID:Mvyrw/O5.net]: # サイコロをn10個振ったときの目の合計の分布

n10=10
pipsum <- function(num, N=6){
r=num%%N
q=num%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
}
return(sum(r)+n10)
}

pip=numeric(6*n10)
i=0
while(i<6^n10){
idx=pipsum(i)
pip[idx]=pip[idx]+1
i=i+1
}
plot(pip)
541 名前：卵の名無しさん mailto:sage [2020/08/23(日) 23:25:28.73 ID:orYNoZE9.net]: >>501
グラフ化

https://i.imgur.com/kVrjGMw.png
542 名前：卵の名無しさん mailto:sage [2020/08/23(日) 23:30:43 ID:orYNoZE9.net]: data.frame(sum=10:60,pips=pips[10:60])
sum pips
1 10 1
2 11 10
3 12 55
4 13 220
5 14 715
6 15 2002
7 16 4995
8 17 11340
9 18 23760
10 19 46420
11 20 85228
12 21 147940
13 22 243925
14 23 383470
15 24 576565
16 25 831204
17 26 1151370
18 27 1535040
19 28 1972630
20 29 2446300
21 30 2930455
22 31 3393610
23 32 3801535
24 33 4121260
25 34 4325310
26 35 4395456
543 名前：卵の名無しさん mailto:sage [2020/08/23(日) 23:30:49 ID:orYNoZE9.net]: 27 36 4325310
28 37 4121260
29 38 3801535
30 39 3393610
31 40 2930455
32 41 2446300
33 42 1972630
34 43 1535040
35 44 1151370
36 45 831204
37 46 576565
38 47 383470
39 48 243925
40 49 147940
41 50 85228
42 51 46420
43 52 23760
44 53 11340
45 54 4995
46 55 2002
47 56 715
48 57 220
49 58 55
50 59 10
51 60 1
544 名前：卵の名無しさん mailto:sage [2020/08/24(月) 17:20:52 ID:URaqF45j.net]: >>497
wolfram だと瞬時に答を返してきた。

Table[{k,Coefficient[(x+x^2+x^3+x^4+x^5+x^6)^10,x^k]},{k,10,60}]

https://www.wolframalpha.com/input/?i=Table%5B%7Bk%2CCoefficient%5B%28x%2Bx%5E2%2Bx%5E3%2Bx%5E4%2Bx%5E5%2Bx%5E6%29%5E10%2Cx%5Ek%5D%7D%2C%7Bk%2C10%2C60%7D%5D&lang=ja
545 名前：卵の名無しさん mailto:sage [2020/08/25(火) 08:59:41 ID:55jOBv3Y.net]: Vectorにfreewareをアップロードしていると秀丸エディターを無料で使える特典がもらえたが当時はVzやWzを使っていたから、
アイコンのダサさがいやで使ってなかった。
Resource Hacker
www.angusj.com/resourcehacker/
を使ってアイコンデータを書き換えても使えた。
起動時にCRCやハッシュ値は照合していないようだ。

半角→全角の変換もできてまあ、便利だな。
546 名前：卵の名無しさん mailto:sage [2020/08/25(火) 09:25:14 ID:55jOBv3Y.net]: 「安倍首相　体調不良説」に見るデジャヴ

https://www.youtube.com/watch?v=FAfIu1YKe3Q
547 名前：卵の名無しさん mailto:sage [2020/08/25(火) 10:33:05 ID:55jOBv3Y.net]: 薄型のノートってHDD交換とか手順が面倒だな。
https://www.youtube.com/watch?v=wnr1g731ziY
持ち出すことはまずなくて省スペース目的でのノートなら、厚手でバッテリー交換もねじ回しなしでやれる機種が楽だな。
買ってから気づいた。
548 名前：卵の名無しさん mailto:sage [2020/08/25(火) 12:34:05 ID:55jOBv3Y.net]: powershell

Start-Process powershell.exe -Verb runas

reagentc /info
549 名前：卵の名無しさん mailto:sage [2020/08/25(火) 20:49:14.60 ID:55jOBv3Y.net]: 安倍政権は病気をたてにメディアを利用して騒がせて表に出ないようにして居るずるい政権
550 名前：卵の名無しさん mailto:sage [2020/08/25(火) 20:51:54.35 ID:55jOBv3Y.net]: なんで最長政権になったか。

どんな不祥事があっても辞めないからだよ。

歴代首相には矜持があった。だから問題を抱えたら辞めた。

保守って何か？継続性だよ。自分が辞めても次の者が受け継ぐという確信、それが保守政治なんだ。安倍は自分のステージしか考えてない。

政治信条は受け継がれる、という発想すらないんだ。

ただの自己承認欲求が強いだけのガキだよ。
551 名前：卵の名無しさん mailto:sage [2020/08/25(火) 20:54:16.99 ID:55jOBv3Y.net]: 仮病演技と憔悴アピールを用いるという情けない首相
その安倍政権の雰囲気作りにまんまと乗せられるメディア
552 名前：卵の名無しさん mailto:sage [2020/08/25(火) 21:12:44.68 ID:55jOBv3Y.net]: 騙す、ごまかす、逃げまくる
553 名前：卵の名無しさん mailto:sage [2020/08/26(水) 05:20:39.52 ID:aO7Vmvet.net]: もうね、以前のようなインバウンドの幻影から目を覚ましたほうがいいよ当分、旅館ホテルは無理だから潰れるとこは潰れて淘汰されるよで、潰れた処を中国資本が安く買って時を同じくして馬鹿政府が中国からの観光客の入国制限を緩和するシナリオだろ？所詮、中国贔屓の2Fの利権分かり易いなw
554 名前：卵の名無しさん mailto:sage [2020/08/26(水) 16:46:59 ID:o1bYIlyP.net]: Exp <- function(x,
555 名前：n=20) { k=0:n sum(x^k/factorial(k)) } Exp(1) exp(1) Sin <- function(x,n=20){ k=0:n sum((-1)^k*x^(2*k+1)/factorial(2*k+1)) } Sin(1) sin(1) Cos <- function(x,n=20) { k=0:n sum((-1)^k*x^(2*k)/factorial(2*k)) } Cos(1) cos(1) []: [ここ壊れてます]
556 名前：卵の名無しさん mailto:sage [2020/08/27(木) 00:34:38 ID:Ytl6k6xz.net]: 私立医大！私立医大！って自分で言ってた同じ医学部のブス彼女持ちの浮気男がいたな。
自分でイケメンと謳っていたが残念だったわ。
ちなみに、私立底辺医大と自分で豪語していたが底辺という文字が抜けていた。
面白い人がいるもんだね。
557 名前：卵の名無しさん mailto:sage [2020/08/27(木) 10:00:41 ID:QadIsEqW.net]: witoutコロナで三密で生産できるのが中国。
withコロナで三密を避けて生産する日本。
どちらが生産性がよいかは自明だと思う。

春節ウェルカムで疫病輸入して再入国規制もせずに強毒株も追加輸入、そして今はGOTOで全国に拡散。

すべては安倍の採った政策。
558 名前：卵の名無しさん mailto:sage [2020/08/27(木) 10:43:48 ID:QadIsEqW.net]: イギリスのジョンソン首相は感染して回復したけど
そこそこ症状重くて苦しかったから
それ以降コロナを舐めた発言はしてないんだよな

アホ層は自分が苦しい経験をしないと学習しない。
559 名前：卵の名無しさん mailto:sage [2020/08/27(木) 12:33:51.40 ID:Di2rth9n.net]: witｈoutコロナで三密で生産できるのが中国。
withコロナで三密を避けて生産する日本。
どちらが生産性がよいかは自明だと思う。

春節ウェルカムで疫病輸入して再入国規制もせずに強毒株も追加輸入、そして今はGOTOで全国に拡散。すべては安倍の採った愚策。
560 名前：卵の名無しさん mailto:sage [2020/08/27(木) 22:48:34 ID:vvigFVXt.net]: 潰瘍性大腸炎患者の食事ｗ

キムチ・マッコリ・ホルモン
imgur.com/fEi23Tz.png

タバスコ
imgur.com/SB8u9PR.png
561 名前：卵の名無しさん mailto:sage [2020/08/28(金) 07:29:57 ID:I97SIklY.net]: 安倍総理大臣になってから
・過去最低の少子化を達成
・史上最悪のGDP成長率
・日本の憲政史上、最も実質賃金を引き下げた
・日本の憲政史上、最も実質消費を引き下げた
・日本の憲政史上、最も少子化を進め、人口を減らした
562 名前：卵の名無しさん mailto:sage [2020/08/28(金) 14:59:24 ID:q/b6Mbgi.net]: Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,0e,00,45,00,00,00,00,00
563 名前：卵の名無しさん mailto:sage [2020/08/28(金) 15:11:01 ID:I97SIklY.net]: num lockキーをback space(BS)に設定する。

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,0e,00,45,00,00,00,00,00
564 名前：卵の名無しさん mailto:sage [2020/08/28(金) 21:18:58 ID:I97SIklY.net]: m=c(rep(0,9),1)
sim <- function(){
i=sample(10,1)
a=m[i]
j=sample(9,1)
b=m[-i][j]
c=m[-i][-j]
c(a,b,c)
}

replicate(5,sim())
565 名前：卵の名無しさん mailto:sage [2020/08/29(土) 07:26:33.86 ID:qY0Chl6J.net]: 安倍って詐病じゃないのか？
数々の虚言と不節制な食事をみると詐病の疑いが払拭できない。

自称潰瘍性大腸炎患者の食事
マッコリ・ホルモン
imgur.com/fEi23Tz.png
タバスコ
imgur.com/SB8u9PR.png

虚言のほんの一例
imgur.com/7QBpwOa.png

詐病じゃなければ
「安倍しかいない」と、ストレスで悪化する難病を抱える人に重責を押し付けてきた自民党は人権無視の政党ということになる。
566 名前：卵の名無しさん mailto:sage [2020/08/29(土) 11:15:41 ID:zyqCNNbV.net]: 安倍「持病が悪化したので総理大臣辞めます。（二回目」
英霊「国家国民の為ならば死にます。」
567 名前：卵の名無しさん mailto:sage [2020/08/29(土) 14:10:03 ID:qY0Chl6J.net]: 首相は自身の体調について、6月の検診で持病再発の兆候が見られ、7月に異変を感じるようになったと説明。

首相動静
568 名前：会食 6月分 ●6月19日虎ノ門「ザダヴァン&ラウンジ」麻生、菅、甘利 ●6月20日永田町レストラン「ORIGAMI」秘書官と食事 ●6月22日千代田区日本料理店「和田倉」細田元幹事長と ●6月24日赤坂日本料理店「たい家」二階氏、林幹雄氏 ●6月29日永田町日本料理店「水簾」 首相動静会食記録 7月分 ●7月3日日本料理店「もりかわ」JR東海葛西氏、北村氏 ●7月21日松濤仏料理店「シェ松尾」首相補佐官、外務審議官、秘書官 ●7月22日銀座ステーキ店「銀座ひらやま」二階幹事長、林幹雄氏、王貞治氏、杉良太郎氏他 ●7月30日丸の内日本料理店「和田倉」岸田氏と会食 []: [ここ壊れてます]
569 名前：卵の名無しさん mailto:sage [2020/08/29(土) 14:50:44 ID:qY0Chl6J.net]: そんなに悪いなら谷垣さんみたく議員も辞めてリハビリや療養に専念すべしよね
570 名前：卵の名無しさん mailto:sage [2020/08/29(土) 21:33:46.17 ID:hN5ZbZd9.net]: まともに働いたことが無いボンボンなのに
　経済再生！
子供がいないのに
　少子化解消！
東京の高級マンションに住んで
　地方創生！
571 名前：卵の名無しさん mailto:sage [2020/08/29(土) 22:04:11 ID:byX8ALaZ.net]: >>529
ヤジにしても人としてアウト
572 名前：卵の名無しさん mailto:sage [2020/08/30(日) 04:39:54.24 ID:Gs8o5TWc.net]: 安倍総理の唯一の業績は
　世襲の低学歴を総理にすると国が衰退する
ということを示したことだな。
573 名前：卵の名無しさん mailto:sage [2020/08/30(日) 04:40:34.67 ID:Gs8o5TWc.net]: 羽田孜も低学歴だったが最短命だったから実害がなかった。
574 名前：卵の名無しさん mailto:sage [2020/08/30(日) 04:44:21 ID:Gs8o5TWc.net]: 長期政権の秘訣

安倍晋三の主張
・検査増やす
・アビガン認める
・消費税は減税（森友問題が出てきてすぐに撤回）

厚労省の主張
・検査すんな
・アビガン認めんな

財務省の主張
・消費税増税

安倍なんか官僚の操り人形だよ
575 名前：卵の名無しさん mailto:sage [2020/08/30(日) 05:01:30 ID:Gs8o5TWc.net]: solve (a1-p)^2+(a2-q)^2=(b1-p)^2+(b2-q)^2,(a1-p)^2+(a2-q)^2=(c1-p)^2+(c2-q)^2 for p,q

p = (a1^2 (-b2) + a1^2 c2 - a2^2 b2 + a2^2 c2 + a2 b1^2 + a2 b2^2 - a2 c1^2 - a2 c2^2 - b1^2 c2 - b2^2 c2 + b2 c1^2 + b2 c2^2)/(2 (-a1 b2 + a1 c2 + a2 b1 - a2 c1 - b1 c2 + b2 c1))

q = -(a1^2 (-b1) + a1^2 c1 + a1 b1^2 + a1 b2^2 - a1 c1^2 - a1 c2^2 - a2^2 b1 + a2^2 c1 - b1^2 c1 + b1 c1^2 + b1 c2^2 - b2^2 c1)/(2 (-a1 b2 + a1 c2 + a2 b1 - a2 c1 - b1 c2 + b2 c1)) and -a1 b2 + a1 c2 + a2 b1 - a2 c1 - b1 c2 + b2 c1!=0 and a2 - c2!=0
576 名前：卵の名無しさん mailto:sage [2020/08/30(日) 07:47:00 ID:fpxoRP6o.net]: bac <- function(B,A,C){ # 座標から角BACをラジアンで返す
if(is.complex(B)|is.complex(A)|is.complex(C)){ # 複素平面 1+2i
a=c(Re(A),Im(A)); b=c(Re(B),Im(B)); c=c(Re(C),Im(C))
}else{a=A;b=B;c=C} # 直交座標 (1,2)
ab=b-a
ac=c-a
dot=sum(ab*ac) # |ab|*|ac|*cos(θ) 内積
bac=acos(dot/sqrt(sum(ab^2))/sqrt(sum(ac^2))) # θ
return(bac)
}

oncircle <- function(A.B,C,D)
577 名前：卵の名無しさん mailto:sage [2020/08/30(日) 07:48:08 ID:fpxoRP6o.net]: bac <- function(B,A,C){ # 座標から角BACをラジアンで返す
if(is.complex(B)|is.complex(A)|is.complex(C)){ # 複素平面 1+2i
a=c(Re(A),Im(A)); b=c(Re(B),Im(B)); c=c(Re(C),Im(C))
}else{a=A;b=B;c=C} # 直交座標 (1,2)
ab=b-a
ac=c-a
dot=sum(ab*ac) # |ab|*|ac|*cos(θ) 内積
bac=acos(dot/sqrt(sum(ab^2))/sqrt(sum(ac^2))) # θ
return(bac)
}

oncircle <- function(A.B,C,D){
bac(A,C,B)==bac(A,D,B)
578 名前：卵の名無しさん mailto:sage [2020/08/30(日) 07:58:04 ID:fpxoRP6o.net]: bac <- function(B,A,C){ # 座標から角BACをラジアンで返す
if(is.complex(B)|is.complex(A)|is.complex(C)){ # 複素平面 1+2i
a=c(Re(A),Im(A)); b=c(Re(B),Im(B)); c=c(Re(C),Im(C))
}else{a=A;b=B;c=C} # 直交座標 (1,2)
ab=b-a
ac=c-a
dot=sum(ab*ac) # |ab|*|ac|*cos(θ) 内積
bac=acos(dot/sqrt(sum(ab^2))/sqrt(sum(ac^2))) # θ
return(bac)
}

oncircle <- function(A.B,C,D){
bac(A,C,B)==bac(A,D,B)
}

gr=expand.grid(1:3,1:3)
node=mapply(function(x,y) x+1i*y,gr[,1],gr[,2])

onCircle <- function(x) oncircle(x[1],x[2],x[3],x[4])
combn(9,4,onCircle)
579 名前：卵の名無しさん mailto:sage [2020/08/30(日) 11:39:35 ID:eu9oOJ4j.net]: 円周角の一致でなくて半径と中心が一致することで同一円と判定するようにアルゴリズムを変更

N=7
gr=expand.grid(1:N,1:N)
(node=mapply(function(x,y) x+1i*y,gr[,1],gr[,2]))
tric <- function(A,B,C){ # 複素点３点を通る円の中心と半径を返す
a1=Re(A) ; a2=Im(A)
b1=Re(B) ; b2=Im(B)
c1=Re(C) ; c2=Im(C)

p = (a1^2*(-b2) + a1^2*c2 - a2^2*b2 + a2^2*c2 + a2*b1^2 + a2*b2^2 - a2*c1^2 - a2*c2^2 - b1^2*c2 - b2^2*c2 + b2*c1^2 + b2*c2^2)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
q = -(a1^2*(-b1) + a1^2*c1 + a1*b1^2 + a1*b2^2 - a1*c1^2 - a1*c2^2 - a2^2*b1 + a2^2*c1 - b1^2*c1 + b1*c1^2 + b1*c2^2 - b2^2*c1)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
Ce=p+1i*q
r=abs(Ce-A)
c(Center=Ce,Radius=r)
}
onCir <- function(x){ # 中心と半径が一致するかを返す
all(tric(node[x[1]],node[x[2]],node[x[3]])==
tric(node[x[1]],node[x[2]],node[x[4]]))
}
sum(combn(N^2,4,onCir),na.rm=TRUE)

７×７個だと
> sum(combn(N^2,4,onCir),na.rm=TRUE)
[1] 5704
580 名前：卵の名無しさん mailto:sage [2020/08/30(日) 11:41:32 ID:eu9oOJ4j.net]: https://i.imgur.com/oq3OeYK.jpg
6個まで数えました
ただもっとありそうなので教えてください
581 名前：卵の名無しさん mailto:sage [2020/08/31(月) 05:09:00 ID:4PzQHapT.net]: fn <- function(M=4,N=6){
gr=expand.grid(1:M,1:N)
(node=mapply(function(x,y) x+1i*y,gr[,1],gr[,2]))
tric <- function(A,B,C){
a1=Re(A) ; a2=Im(A)
b1=Re(B) ; b2=Im(B)
c1=Re(C) ; c2=Im(C)

p = (a1^2*(-b2) + a1^2*c2 - a2^2*b2 + a2^2*c2 + a2*b1^2 + a2*b2^2 - a2*c1^2 - a2*c2^2 - b1^2*c2 - b2^2*c2 + b2*c1^2 + b2*c2^2)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
q = -(a1^2*(-b1) + a1^2*c1 + a1*b1^2 + a1*b2^2 - a1*c1^2 - a1*c2^2 - a2^2*b1 + a2^2*c1 - b1^2*c1 + b1*c1^2 + b1*c2^2 - b2^2*c1)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
Ce=p+1i*q
r=abs(Ce-A)
c(Center=Ce,Radius=r)
}
onCir <- function(x){
all(tric(node[x[1]],node[x[2]],node[x[3]])==
tric(node[x[1]],node[x[2]],node[x[4]]))
}
sum(combn(M*N2,4,onCir),na.rm=TRUE)
}

fn(3,3)
fn(5,5)
fn(4,6)
582 名前：卵の名無しさん mailto:sage [2020/08/31(月) 05:10:29 ID:4PzQHapT.net]: fn <- function(M=4,N=6){
gr=expand.grid(1:M,1:N)
(node=mapply(function(x,y) x+1i*y,gr[,1],gr[,2]))
tric <- function(A,B,C){
a1=Re(A) ; a2=Im(A)
b1=Re(B) ; b2=Im(B)
c1=Re(C) ; c2=Im(C)

p = (a1^2*(-b2) + a1^2*c2 - a2^2*b2 + a2^2*c2 + a2*b1^2 + a2*b2^2 - a2*c1^2 - a2*c2^2 - b1^2*c2 - b2^2*c2 + b2*c1^2 + b2*c2^2)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
q = -(a1^2*(-b1) + a1^2*c1 + a1*b1^2 + a1*b2^2 - a1*c1^2 - a1*c2^2 - a2^2*b1 + a2^2*c1 - b1^2*c1 + b1*c1^2 + b1*c2^2 - b2^2*c1)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
Ce=p+1i*q
r=abs(Ce-A)
c(Center=Ce,Radius=r)
}
onCir <- function(x){
all(tric(node[x[1]],node[x[2]],node[x[3]])==
tric(node[x[1]],node[x[2]],node[x[4]]))
}
sum(combn(M*N,4,onCir),na.rm=TRUE)
}

fn(3,3)
fn(5,5)
fn(4,6)
583 名前：卵の名無しさん mailto:sage [2020/08/31(月) 11:19:46 ID:4PzQHapT.net]: >>459
終値ベースで7000円台は
小泉政権では２３日
麻生政権では４３日
民主党政権は０日

これで民主党は株価ガー経済ガーとなる理由がわからん
しかもデマサポは鳩山と菅を叩くが8000円台のほとんどは
デマサポが唯一評価する野田政権の時だし
584 名前：卵の名無しさん mailto:sage [2020/09/01(火) 12:20:58.71 ID:/NmMbKp9.net]: 安倍政権の実績

https://i.imgur.com/31bnmJw.jpg

https://i.imgur.com/3Tlg3Bg.jpg
585 名前：卵の名無しさん mailto:sage [2020/09/01(火) 20:49:50 ID:/NmMbKp9.net]: Chapter 1　潰瘍性大腸炎の食事の基本
www.mochida.co.jp/believeucan/enjoyfood/
脂肪の多い食品や揚げ物など、油を多く使用している料理は控えめに。

安倍「6月13日に定期検診で潰瘍性大腸炎が再発と診断された」
https://www.tokyo-np.co.jp/article/51755?rct=politics
↓

その後、バターやチーズなどが基本のフランス料理を食いまくりw

●6月20日永田町レストラン「ORIGAMI」秘書官と食事
↑
フランス料理店

●7月21日松濤仏料理店「シェ松尾」首相補佐官、外務審議官、秘書官
↑
フランス料理店　
　　

w
586 名前：卵の名無しさん mailto:sage [2020/09/02(水) 20:48:49 ID:4uKRqdum.net]: 実は金持ちなんだよ
頭が悪いから大学受験失敗、仕方なく就職、夜間で法政へ
これだとゴミストーリーだから苦労人エピソードに改変

安倍晋三がストレス性の過敏性腸症候群を指定難病の潰瘍性大腸炎に改変したのと一緒

騙されるなよ
587 名前：卵の名無しさん [2020/09/03(木) 01:20:45 ID:KclMV4sz.net]: とにかく、私学補助金廃止
あれは一私企業
588 名前：卵の名無しさん mailto:sage [2020/09/03(木) 07:23:38 ID:pfUSSNDM.net]: solve (sin(8/x)*sin(pi/3)/sin(pi*2/9))^2+(cos(8/x)*cos(12/x)+sin(8/x)*sin(12/x)*cos(pi/3))^2=1

x = 4/(2 π n + π) and n element Z
x = 2/(π n) and n<=-1 and n element Z
589 名前：卵の名無しさん mailto:sage [2020/09/03(木) 07:24:52 ID:pfUSSNDM.net]: >>546
国家の教育への介入で憲法違反の虞があるよなぁ。
590 名前：卵の名無しさん mailto:sage [2020/09/03(木) 07:25:31 ID:pfUSSNDM.net]: 医師の地位向上には底辺シリツ医大の廃止から。
591 名前：卵の名無しさん [2020/09/03(木) 08:17:59 ID:KclMV4sz.net]: 現在の65歳くらいの底辺私立医大卒の医師って
ほぼ全入の時�
592 名前：繧ｾったんでしょ。 お金さえあればほぼ全入だったんだって。 そういう医者から専門医を取れ！とか言われてもな。 欲しくないものは欲しくないので断ったら執拗に 嫌がらせされて、あることないこと院長に告げ口 されまくってウザいので結局辞めちゃった。 しかし食べ終わった弁当の空き殻などのゴミをゴミ箱に 捨ててたら、それを拾って来て俺の机の上に置かれてた 時はマジでビックリしたよ。 60歳半ばを過ぎた人間のやることじゃ無いよな。 []: [ここ壊れてます]
593 名前：卵の名無しさん mailto:sage [2020/09/03(木) 09:51:59 ID:JLsTpaRe.net]: >550
まともな医学部を卒業した人間なら、私立でも国立でもそういう職場で
働く機会はないでしょう。
流れ流れて地の果てですね。
カラオケで演歌でも歌うとぴったりですね。
594 名前：卵の名無しさん [2020/09/03(木) 11:40:19 ID:KclMV4sz.net]: 日本語が変
595 名前：卵の名無しさん mailto:sage [2020/09/03(木) 17:40:58 ID:pfUSSNDM.net]: >>551
いや東大出て官僚になったのに暗愚の安倍を養護する虚偽答弁をする羽目になった気の毒な人もいるよ。
596 名前：卵の名無しさん [2020/09/03(木) 18:42:32 ID:KclMV4sz.net]: そもそも3000万円とか5000万円とかいう法外な授業料を払わないと
卒業できないような大学がまともなわけがない。
597 名前：卵の名無しさん [2020/09/03(木) 21:36:45 ID:+OdL1RHW.net]: 裏口医大ｗ
598 名前：卵の名無しさん mailto:sage [2020/09/03(木) 21:45:18 ID:pfUSSNDM.net]: >>554
そんな大金が払えるcategoryなら教育投資できたはず
金をかけても底辺シリツ医大へしか入れないのは
そういう頭脳ってこと。
599 名前：卵の名無しさん mailto:sage [2020/09/03(木) 21:45:45 ID:pfUSSNDM.net]: >>554
そんな大金が払える家庭なら教育投資できたはず
金をかけても底辺シリツ医大へしか入れないのは
そういう頭脳ってこと。
600 名前：卵の名無しさん [2020/09/04(金) 00:32:15.95 ID:qqth/dEZ.net]: >>557
www.tosyoku.org/jusei_seikyu/
https://seikotsuin-keiei.com/trouble/356/
www.jiko110.com/topics/seikotuin.htm
https://www.mbs.jp/mint/news/2020/01/20/074461.shtml
601 名前：卵の名無しさん mailto:sage [2020/09/04(金) 06:49:09 ID:demBzrfz.net]: Coefficient((sum[k=1,90]x^k)^10,x^100)
602 名前：卵の名無しさん [2020/09/04(金) 06:54:00 ID:NlKGsOB0.net]: そもそも3000万円とか5000万円とかいう法外な授業料を払わないと
卒業できないような大学がまともなわけがないし、その上、女子学生と
多浪生は何の告知も無しに、勝手に合格が難しくなるように現役の
男子学生に加点（笑）。
それを指摘されると、大学側は現役の男子学生が優秀で、女子は
結婚するとすぐに子供が出来て家庭に入るから敬遠した、なんて
言い訳して開き直ってる（笑）。
大学の開学の祖も草葉の陰で泣いてるわ。
603 名前：卵の名無しさん [2020/09/04(金) 07:02:08 ID:NlKGsOB0.net]: 大学はそもそも勉強をしたいと言う意思を持ってる万人に対して開かれるべき。
3000～5000万円とか言う法外な授業料を払わないと卒業できないなんて本来の
大学のあるべき姿ではない。
国立も授業料が高すぎる。昔のように授業料を下げるべき。
私立もすべて国公立に変えるべき。
国家予算が云々いう輩がいるかもしれないけど、お金をかけるところを間違えてる。
全国の不法出稼ぎ外国人の隠れ蓑になってるFランを片っ端から潰せばよいだけ。
604 名前：卵の名無しさん mailto:sage [2020/09/04(金) 07:32:01.65 ID:demBzrfz.net]: # 重複を許してｎ個からｒ個を選ぶ組み合わせを列挙する
fn <- function(n, r, v=1:n) {
if (r == 0)
NULL
else if (r == 1)
matrix(v, n, 1)
else if (n == 1)
matrix(v, 1, r)
else rbind(cbind(v[1], fn(n, r - 1, v)), fn(n - 1, r, v[-1]))
}
実例
> fn(3,4)
[,1] [,2] [,3] [,4]
[1,] 1 1 1 1
[2,] 1 1 1 2
[3,] 1 1 1 3
[4,] 1 1 2 2
[5,] 1 1 2 3
[6,] 1 1 3 3
[7,] 1 2 2 2
[8,] 1 2 2 3
[9,] 1 2 3 3
[10,] 1 3 3 3
[11,] 2 2 2 2
[12,] 2 2 2 3
[13,] 2 2 3 3
[14,] 2 3 3 3
[15,] 3 3 3 3
605 名前：卵の名無しさん mailto:sage [2020/09/04(金) 07:33:05.64 ID:demBzrfz.net]: >>561
政治家とか官僚の天下り先にFラン私立大が使われているからなぁ。
606 名前：卵の名無しさん mailto:sage [2020/09/04(金) 07:36:36.70 ID:Si7GUsDW.net]: 中韓とパヨクをディスって悦にいっている自称「保守」が安倍の暗愚政治を許したようなものだな。
607 名前：卵の名無しさん mailto:sage [2020/09/04(金) 08:35:23 ID:Si7GUsDW.net]: 組み合わせの問題で教えて下さい。

?～?の名前のついた箱があります。
一つの箱には最低１以上～９１以下の数字が入ります。

このとき、１０個の合計が必ず１００になる条件とした場の組み合わせを
求める方法はあるでしょうか。

1個ずつ玉の入った名前付きの箱を10個用意して、その箱にあと90個の玉を入れるのと同じことだから、
10個の箱から重複を許して90回選ぶ選び方と同じ
なので重複組合せ
608 名前：卵の名無しさん mailto:sage [2020/09/04(金) 08:35:49 ID:Si7GUsDW.net]: f <- function(Box,Sum){ # Box:箱の数,Sum：入った数字の合計の値
# 重複を許してｎ個からｒ個を選ぶ組み合わせを列挙する
H <- function(n, r, v=1:n) {
if (r == 0)
NULL
else if (r == 1)
matrix(v, n, 1)
else if (n == 1)
matrix(v, 1, r)
else rbind(cbind(v[1], H(n, r - 1, v)), H(n - 1, r, v[-1]))
}
h=H(Box,Sum-Box) # Box個の中から重複を許してSum-Box個を選ぶ
nh=nrow(h) # その組み合わせ数
re=matrix(rep(NA,Box*nh),nrow=nh,ncol=Box) # メモリ確保
a=numeric(Box)
for(i in 1:nh){　# 各々の選び方iに対して
for(j in 1:Box) a[j]=sum(j==h[i,]) # どの箱が何個選択されたかを
re[i,] =a # reのi行に入れる
}
return(re+1) # 1から始まる分を補正
}
f(Box=3,Sum=9)
f(Box=10,Sum=100)
609 名前：卵の名無しさん mailto:sage [2020/09/04(金) 08:36:19.68 ID:Si7GUsDW.net]: > f(Box=3,Sum=9)
[,1] [,2] [,3]
[1,] 7 1 1
[2,] 6 2 1
[3,] 6 1 2
[4,] 5 3 1
[5,] 5 2 2
[6,] 5 1 3
[7,] 4 4 1
[8,] 4 3 2
[9,] 4 2 3
[10,] 4 1 4
[11,] 3 5 1
[12,] 3 4 2
[13,] 3 3 3
[14,] 3 2 4
[15,] 3 1 5
[16,] 2 6 1
[17,] 2 5 2
[18,] 2 4 3
[19,] 2 3 4
[20,] 2 2 5
[21,] 2 1 6
[22,] 1 7 1
[23,] 1 6 2
[24,] 1 5 3
[25,] 1 4 4
[26,] 1 3 5
[27,] 1 2 6
[28,] 1 1 7
610 名前：卵の名無しさん mailto:sage [2020/09/04(金) 10:52:06 ID:demBzrfz.net]: エロ夫妻は同伴で最近パーティに出席し、そこには他の3組の夫婦が同伴で出席していた。いろいろな人々の間で接吻が行われた。
どの人も自分の同伴者とは接吻をせず、どの人も同じ人と2度以上は接吻をせず、また当然だが、誰も自分自身とは接吻をしなかった。
接吻をしたあと、エロ氏は彼の妻を含めた各人に、他人と何回接吻をしたかと尋ねた。驚いたことには、どの人も異なる回数を答えた。
さて、エロ夫人は何回接吻をしただろうか。
611 名前：卵の名無しさん mailto:sage [2020/09/04(金) 12:44:15 ID:demBzrfz.net]: >>568
n=8
(co=combn(n,2)) # 8人から2人選ぶ
(pair=co[,-c(1,14,23,28)]) #(1,2),(3,4),(5,6),(7,8)は除外して24通り
# 2^24=16777216通りの組み合わせ
f <- function(num,digit=24){ # numを24桁の2進数で表示
N=2
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
shake=numeric(n) # 握手した人数の数列 1:イナ氏　2:イナ夫人
612 名前： for(i in 1:n) shake[i]=sum(r[pair[1,]==i | pair[2,]==i]) if(all(0:7 %in% shake[-1])){　#イナ氏以外の握手人数がすべて異なれば return(shake[2]) #イナ夫人の握手人数を返す } } y=sapply(0:(2^24-1),f) y []: [ここ壊れてます]
613 名前：卵の名無しさん mailto:sage [2020/09/04(金) 12:57:16 ID:demBzrfz.net]: rm(list=ls())
library(gtools)
pm=permutations(2,24,0:1,rep=TRUE)
n=8
co=combn(n,2)
pair=co[,-c(1,14,23,28)]
g <- function(r){
shake=numeric(n)
for(i in 1:n) shake[i]=sum(r[pair[1,]==i | pair[2,]==i])
all(0:7 %in% shake[-1])
}
y=apply(pm,1,g)
pm[y,][,1:2]
614 名前：卵の名無しさん mailto:sage [2020/09/04(金) 14:42:47 ID:demBzrfz.net]: >>568
rm(list=ls())
n=8
(co=combn(n,2)) # 8人から2人選ぶ
(pair=co[,-c(1,14,23,28)]) #(1,2),(3,4),(5,6),(7,8)は除外して24通り
# 2^24=16777216通りの組み合わせ
library(gtools)
pm=permutations(2,24,0:1,rep=TRUE)
n=8
g <- function(r){
shake=numeric(n)
for(i in 1:n) shake[i]=sum(r[pair[1,]==i | pair[2,]==i])
all(0:6 %in% shake[-1])
}
y=apply(pm,1,g)
(yi=which(y))
# demo
rbind(pair,pm[yi[1],])

SHAKES=NULL
for(j in 1:length(yi)){
zj=rbind(pair,pm[yi[j],])
shake=numeric(n)
for(i in 1:n) shake[i]=sum(zj[3,][pair[1,]==i | pair[2,]==i])
SHAKES=rbind(SHAKES,shake)
}
rownames(SHAKES)=NULL
SHAKES
615 名前：卵の名無しさん mailto:sage [2020/09/04(金) 18:26:13 ID:Si7GUsDW.net]: エロ夫妻は同伴で最近パーティに出席し、そこには他の3組の夫婦が同伴で出席していた。いろいろな人々の間で合体が行われた。
どの人も自分の同伴者とは合体をせず、どの人も同じ人と2度以上は合体をせず、また当然だが、誰も自分自身とは合体をしなかった。
合体をしたあと、エロ氏は彼の妻を含めた各人に、他人と何回合体をしたかと尋ねた。驚いたことには、どの人も異なる回数を答えた。
さて、エロ夫人は何回合体をしただろうか。
616 名前：卵の名無しさん mailto:sage [2020/09/04(金) 18:26:50 ID:Si7GUsDW.net]: rm(list=ls())
n=8
(co=combn(n,2)) # 8人から2人選ぶ
(pair=co[,-c(1,14,23,28)]) #(1,2),(3,4),(5,6),(7,8)は除外して24通り
# 2^24=16777216通りの組み合わせ
library(gtools)
pm=permutations(2,24,0:1,rep=TRUE) # pairが握手をしたかの数列
n=8
g <- function(r){
shake=numeric(n) # 握手した人数の数列
for(i in 1:n) shake[i]=sum(r[pair[1,]==i | pair[2,]==i])
all(0:6 %in% shake[-1]) # 握手した人数が異なるか
}
y=apply(pm,1,g)
(yi=which(y)) # 48通り
# demo
demo <- function(k=sample(48,1),CEX=3){
(y1=rbind(pair,pm[yi[k],]))
plot(y1[1,],y1[2,],xlim=c(1,8),ylim=c(1,8),bty='l',ann=F,
pch=ifelse(y1[3,]==1,'○','×'),cex=CEX)
points(y1[2,],y1[1,],
pch=ifelse(y1[3,]==1,'○','×'),cex=CEX)
points(1:8,1:8,pch='×',cex=CEX)
points(c(1,3,5,7),c(2,4,6,8),pch='×',cex=CEX)
points(c(2,4,6,8),c(1,3,5,7),pch='×',cex=CEX)
}
617 名前：卵の名無しさん mailto:sage [2020/09/04(金) 18:26:55 ID:Si7GUsDW.net]: layout(1); demo()
par(mfrow=c(4,4))
for(k in 1:16) demo(k,1.5)
for(k in 17:32) demo(k,1.5)
for(k in 33:48) demo(k,1.5)
layout(1)
#
SHAKES=NULL
for(j in 1:length(yi)){
zj=rbind(pair,pm[yi[j],])
shake=numeric(n)
for(i in 1:n) shake[i]=sum(zj[3,][pair[1,]==i | pair[2,]==i])
SHAKES=rbind(SHAKES,shake)
}
rownames(SHAKES)=NULL
SHAKES
618 名前：卵の名無しさん mailto:sage [2020/09/05(土) 20:06:27 ID:u/h3SJdP.net]: 中学入試の方が医師国家試験より圧倒的に難しいなぁ。

同じ大きさのコインが10枚あり，9枚は鎖状につながって並んでいます。図のように，
コインCを9枚のコインのまわりをすべることなく回転させます。ただし，その途中で9枚全部に接していきます。
一周してもとの位置にもどるまでに，コインCは何回転するでしょうか。
sansuu.ciao.jp/essei/img43/image75[1].jpg
619 名前：卵の名無しさん mailto:sage [2020/09/06(日) 05:40:15 ID:JXzncR7v.net]: 同じ大きさのコインが10枚あり，9枚は鎖状につながって並んでいます。
図のように，コインCを9枚のコインのまわりをすべることなく回転させます。
ただし，その途中で9枚全部に接していきます。
一周してもとの位置にもどるまでに，コインCは何回転するでしょうか。

https://i.imgur.com/urVrSjo.jpg
620 名前：卵の名無しさん mailto:sage [2020/09/06(日) 14:45:55 ID:F509BYKQ.net]: こうやってまとめると、安倍政権って菅直人以後の民主党政権の延長だな。

https://i.imgur.com/JZAZ0Jk.jpg
621 名前：卵の名無しさん mailto:sage [2020/09/06(日) 17:18:11.79 ID:F509BYKQ.net]: 図のように半径2cmの円が6個あります。となり合う円はすべてぴったりとくっついているとします。周りにひもをたるまないようにかけました。
このひもの長さを求めなさい。

sansuu.ciao.jp/essei/img43/image89[1].jpg
622 名前：卵の名無しさん mailto:sage [2020/09/06(日) 18:24:05.90 ID:F509BYKQ.net]: 有事に仮病で逃げた首相、、、

【あれぇ？おかしいぞ】

6月13日

定期検診で潰瘍性大腸炎が再発
https://www.tokyo-np.co.jp/article/51755?rct=politics

↓

6月19日

安倍首相、ステーキ馬鹿食い
https://www.fnn.jp/articles/-/77180

その会食とは６月19日の夜に都内のホテルで行われた、安倍首相・麻生副総理・菅官房長官と甘利氏の4人での会合だ。
甘利氏はこんな裏話を披露した。

安倍首相との会食・6月19日
「最後の方にステーキが出たんですよね。（安倍首相は）ものすごい食欲があって出された肉はきれいに平らげられていました。
私はだいたい食べてるうちに『もういいかな』ってなるんですけれども。
総理と今まで何度も会食でご一緒しましたけれど、肉が出たら全部平らげますね」
623 名前：卵の名無しさん mailto:sage [2020/09/06(日) 22:47:38 ID:F509BYKQ.net]: library(gmp)
n=as.bigz(1476250)
ans=NULL
while(n<1e7){
m=as.bigz(1+3^n)
if((m%%n)==0){
print(n)
ans=append(ans,n)
}
n=n+10
}
ans
624 名前：卵の名無しさん mailto:sage [2020/09/06(日) 23:57:22 ID:F509BYKQ.net]: #include <stdio.h>
int main()
{
long a,b,c,d;
for(a=1000000;a<=10000000;a++){
for(b=a,c=3,d=1;b>0;b=b/2){
if (b%2 ==1) d = (d*c) % a;
c=(c*c) % a;
}
if (d + 1 == a){
printf("%d\n",a);
}
}
printf("done\n");
}

f <- function(lo=1,up=1e4){
a=lo
while(a<=up){
b=a
c=3
d=1
while(b>0){
if((b%%2)==1) d=(d*c)%%a
c=(c^2)%%a
b=b/2
}
if((d+1)==a) print(a)
a=a+1
}
}
f()
625 名前：卵の名無しさん mailto:sage [2020/09/06(日) 23:57:42 ID:F509BYKQ.net]: #include <stdio.h>
int main()
{
long a,b,c,d;
for(a=1000000;a<=10000000;a++){
for(b=a,c=3,d=1;b>0;b=b/2){
if (b%2 ==1) d = (d*c) % a;
c=(c*c) % a;
}
if (d + 1 == a){
printf("%d\n",a);
}
}
printf("done\n");
}

f <- function(lo=1,up=1e4){
a=lo
while(a<=up){
b=a
c=3
d=1
while(b>0){
if((b%%2)==1) d=(d*c)%%a
c=(c^2)%%a
b=b/2
}
if((d+1)==a) print(a)
a=a+1
}
}
f()
626 名前：卵の名無しさん mailto:sage [2020/09/07(月) 00:33:12 ID:dWMeeyoQ.net]: f <- function(lo=1,up=1e7,by=1){
for(a in lo:up){
b=a; c=3; d=1
while(b>0){
if((b%%2)==1) d=(d*c)%%a
c=(c*c)%%a
b=b%/%2
}
if((d+1)==a) cat(a,'\n')
a=a+by
}
}
f(1,10000)
f(10,1e8,10)
627 名前：卵の名無しさん mailto:sage [2020/09/07(月) 00:41:01.92 ID:dWMeeyoQ.net]: # 自然数nで「1+3^n は nで割り切れる」を満たすものはすべて分かりますか？
rm(list=ls())
library(gmp)
n=as.bigz(1)
ans=NULL
while(n<1e5){
m=as.bigz(1+3^n)
if((m%%n)==0){
print(n)
ans=append(ans,n)
}
n=n+1
}
ans

# 謎のアルゴリズム

f <- function(lo=1,up=1e7,by=1){
for(a in lo:up){
b=a; c=3; d=1
while(b>0){
if((b%%2)==1) d=(d*c)%%a
c=(c*c)%%a
b=b%/%2
}
if((d+1)==a) cat(a,'\n')
a=a+by
}
}
f(1,10000)
# 10の倍数らしいので
f(10,1e8,10)
628 名前：卵の名無しさん mailto:sage [2020/09/07(月) 06:12:35 ID:dWMeeyoQ.net]: # if((1+3^a) %% a == 0) print(a)
fn <- function(a,print=F){
b=a; c=3; d=1
while(b>0){
if(print) print(c(b,c,d))
if((b%%2)==1) d=(d*c)%%a
c=(c*c)%%a
b=b%/%2
}
if((d+1)==a) {
if(print) print(c(b,c,d))
cat(a,'\n')
}
}

fn(50,T)
629 名前：卵の名無しさん mailto:sage [2020/09/08(火) 11:47:06 ID:H7ii0TXv.net]: 日本の医療レベルが低いってことか？

862 卵の名無しさん 2020/09/07(月) 12:29:41.15 ID:hUXvwdzt
日本は昨日までコロナでの死者数が1357人で、韓国は334人、中国は4634人…
韓国と比べて人口は約2.4倍なのに死者数が4.1倍、中国の人口の9%なのに死者数が29.2%でダメだな
630 名前：卵の名無しさん mailto:sage [2020/09/08(火) 13:53:50 ID:H7ii0TXv.net]: dアカウントは複アカ作り放題
dアカウントと口座との紐付けに本人確認がない
勝手に作られたdアカに口座紐付けされて引き出されてる。
631 名前：卵の名無しさん mailto:sage [2020/09/08(火) 14:11:51 ID:xp2Wn7TU.net]: 【NTTドコモ】中国銀行でも #ドコモ口座を利用した不正利用が発生 [WATeR★]
https://asahi.5ch.net/test/read.cgi/newsplus/1599493554/333

333 名前：不要不急の名無しさん[] 投稿日：2020/09/08(火) 02:32:29.51 ID:4j6hyZlO0
>>234
1. 口座番号のリストを作成する(銀行によっては作成順の連番？)
2. 口座番号をもとに、振り込み処理を途中まで掛けて氏名を確認
3. ↑で確認した氏名でdアカウントを作成
4. dアカウントに口座番号、氏名、固定の暗証番号(0101 とか)で登録をトライ

これを1万アカウント繰り返したら…

ドコモの本人確認が甘いのと、地銀のセキュリティ対応が甘いところを突いてる。
生年月日や登録電話番号なりで多要素認証がある銀行には通用しないよ。
632 名前：卵の名無しさん mailto:sage [2020/09/08(火) 20:36:53.57 ID:H7ii0TXv.net]: 最近、通
633 名前：帳やキャッシュカードのコピーを添付して、氏名や生年月日をどこかに伝えませんでしたか？ []: [ここ壊れてます]
634 名前：卵の名無しさん mailto:sage [2020/09/09(水) 07:15:06 ID:kxoN9z33.net]: 暗証番号抜かれてもキャッシュカードや通帳は盗まれてないから平気と思ってたらキャッシュカードもどきをドコモが提供していた。

最近、通帳・キャッシュカード・免許証のコピーを添付して、
氏名や生年月日をどこかに伝えませんでしたか？
635 名前：卵の名無しさん mailto:sage [2020/09/09(水) 23:13:30 ID:kxoN9z33.net]: https://www.jp-bank.japanpost.jp/tetuzuki/download/pdf/sokujifurikaehaishi_docomokouza.pdf
636 名前：卵の名無しさん mailto:sage [2020/09/10(木) 01:28:44 ID:1su+rdtU.net]: 銀行窓口でWeb口座振替受付サービスの停止手続き
637 名前：卵の名無しさん mailto:sage [2020/09/10(木) 06:50:24.14 ID:F+w+DraO.net]: 自分の口座から引き落とし契約されている対象のサービスリストが
なぜ金を払ってる本人に提示されないのかがわからん
どんな理由で非公開なんだ
こんなもん銀行サイトのマイページに普通に掲載してていいめっちゃ基本情報なのに
それ掲載したら一体どんな不都合があるんだ。
638 名前：卵の名無しさん mailto:sage [2020/09/10(木) 14:01:37 ID:F+w+DraO.net]: Dux8sUjezkRK4t0E1qWdce8od8t674zQJ6LF7Hq1B5mb3M6UkJXKzHp3LhteyQRGUG2bqZmlVrEyjofViZoTO2m7fwJUokuNJ1OdvYUvQG2FTbif1jAnuhpebinmw71UJgoA1T5Q9dpqduMsZFRP3ZsXHSIa5n6jC7r92NDX5aYf2jabDbCiUoojR2ddnmn2TgjTvcTyHQq4yJacPtGs9SOQfPjCBn2QQCgZX0sKQZdTUKx6oY6MJWJrbitORoNbmvCtPDGTescHSWfPkT3buydBOA7ijY9c5deh0mcMTCo13urKc4bpDYA0JDnz4u6WbmtspwhAYpixuhiNlDFEE6MaF5vmueqwyavH1XwWicxBd6TuYU1s88WVLZ7ygQOqomafg6o65kfdsbRo2unuAWSXyuhd1iYbYmrsNGPQnwgUUrBIB5IiV4qkF6zW5t5dnhtYIENokZsgVre9R65nxqhClFfK0fvNlCI9XjcbhEmbmdn7fDFhx3PyyEJZB7oKGCWTFDJbhmcrRhAXX6XTl1QprrHBwwr8oKjKE2lQH5TUop4kILMJYd113BJvLUfVcW0Vrt26AgZ8BvWERmjoIBhld8yDSYRAdsZhoKy0YQZcnwEkeLE8ZurQTH8R9NwpeLfi7pRCWloS3T8qdUFPzKxduoohC8saGhUJ0WIC6iismxcWF9P46XtKpNfYTdRvmT0ZF1niYsOzIke0foq2WEW6zpJXNBCmyI9bTvO8dLeG8OgkYNKsdAnBJSAYXwAA7JT3qZCkJUdOuWEOeKkHWlZWWcypbMW8LqMNg0Gzly83FS5GU9Wd3Ldq1bJkzu5GmS88aCps19XjpHwd6a1GYiwSCFPvsmFj23taBv66eOIvqEVACmPDS0mmWuptvz4ALnvPBkBZlH7wbki7gybEczoYgC3bALf0gEcNotleTIx21SG3YSFNitZExyhPRcBT5anYO3ifruThSbylCj9i6vtlAwS3cHN8qp7bE47z
639 名前：卵の名無しさん mailto:sage [2020/09/10(木) 14:19:22 ID:F+w+DraO.net]: 1500桁のパスワード

zDcQsMwbarLQNVbaFCmwDiaKvH9q44IvGVsKUoCDO0Rs0DXjDOXLRY7PYUGqUerqyJ4OvPKZPIuWl6OIqs8ZSkZCwrc1IDHgDHVjqrsbj5XeKsAtMCp6133KRNUX8uoK7t6DKIQ0VoywgHVAsAKj3WZK5n8VZK44lFTELvbuC4aVVYkEEOmlXPGDoEfoJxDtIKloau20vo9QDuxu9s8UjezkRK2UtkERqWdmKhdrvWZfBQxmeIf0Th4GjzKdhAkudYynwhm2B8Knud81Ni3ZLCSl7a6eHYP6So2JWwK9UHwacjMjJISkjnu7E7Z3kBClXcg31WDwHYerWrY3FIbT6xz2sWxQBRdR4rpimaY7LZWjw9gTOTYKfAfFLCgC8bDeLD6CoMrFwCIQMsMUZgbEyCWxwGYesgY9D46mLR1fSRxBLbwDtOQiBnghxX3CwSrtd0SyERh1EuGgRfu6lRQRaGUppLorl2LlryuguVfCv2hwwDdoqNtUemzUc2cLSN9MEdwzGBzn0ZzmWeFZF6WCgnPJ3ZUbGcyI73vUjWKGuEqBB58FbRPXpzVbkcDHkZQmUaTF0x2NbO0Bo2cqUnOEm43a55FLCjhbxyyefqhP4KwR5krwduNDAzpEB57DmW5fvlS9XA2Sj90prdPn33by1P7ktUbPUCNB7aWahNcWeVJ8Vro9oeafzdXIaiR5uP5dbbyb24kYAsWqQgyhWaxL3X7obozw8PrPODYB3tXMCWU64b31hnMRoDowODano3UddCrg5d2yjT9qYwzyXaez87B8oVEVSCzw2mF1pDRNoimMUEFQkW3V3BS1zHWYdC4f1bpDlXbGMT75nis2k21b6o6NahWk2Yle6gbAwpbHDhnU30x9Ph6XLM7hFHsCGPqDxzTE3UmidnkX8E2qzcNH6ILmimXLlPMJClQwCnxHDBe7TSy22nClwYxQ2h2TAMWJha1xOHxTlCKWNtGpTMoSpYpvAUcBdcE6A5Awbqp4jbqukiDr4Tf69Kb5WEfRfn343L38svFO0Ylp7x6CwFdy8uUqFUz06yV3v5YDrIyuxBaLLAtxQ0DTbsHgxfQiePTpSEmmKxG4Saz9R3RfRdceY2GS7dc9GlAxP7tdz4y5qkEOfH2H4FRLw55z95PKosMJtlTC6zzXoSJBe9jcvqHqUyYDkg24HjtTj86uSpuvihX3xol4vJsIE2tfegsJW6EhqUeJL6CV17JPeFBaDqUqnAyysFJiHF7h43wyXMcXLQduwZBpqrGdzV6UlKhvice3qa6galoCYOGE2C2wpfOesqdRTW0w64mdktcp7JWirLGwY69FXr4Hc3mjXZn3k4Rdjr392WU
640 名前：38XXxUnBy1bPohAbUlVPU6AbaCurk3i00Gf2LRxs8zVXaBU8SZ270uqE10NKPvSpNj6be1ZaWZjlCupgQut3Dg6CDl0vO6hdpGMcrEGSPVtXxjYjtsG186xCEWZQNY4JdOF9Sev056BDkTWI2Q656 []: [ここ壊れてます]
641 名前：卵の名無しさん mailto:sage [2020/09/10(木) 14:19:51 ID:F+w+DraO.net]: random <- function(n=16,char=c(LETTERS,letters,0:9)){
rep=ifelse(n>length(char),TRUE,FALSE)
re=paste0(sample(char,n,replace=rep),collapse='')
cat(re,'\n')
invisible(re)
}
random(1500)
642 名前：卵の名無しさん mailto:sage [2020/09/10(木) 14:33:52.22 ID:F+w+DraO.net]: > random <- function(n=16,...){
+ char=c(LETTERS,letters,0:9,as.character(c(...)))
+ rep=ifelse(n>length(char),TRUE,FALSE)
+ re=paste0(sample(char,n,replace=rep),collapse='')
+ cat(re,'\n')
+ invisible(re)
+ }
> random(100,c('_','.','*'))
4kOf2HRLw5595KostlTzXBejcHqg24jT86uSuvhXxolvsItfe6UJ6CV7JeFaqqn*yFJH4wyXMcXLQwBprGdzV6Uvie3a6goY_wOs
643 名前：卵の名無しさん [2020/09/11(金) 20:50:09.90 ID:Bt/tjTEb.net]: 悲惨ですよ、私立医は。

長男が私立医、今春、次男も私立医の医師会会員なんか、

コロナ不況の中、もう哀れで、哀れで・・・・
644 名前：卵の名無しさん mailto:sage [2020/09/11(金) 21:24:30.03 ID:zaxQhPkr.net]: >>598
ふたりあわせて２億円
645 名前：卵の名無しさん [2020/09/12(土) 01:41:42.41 ID:tVi2H+Zr.net]: そもそも3000万円とか5000万円とかいう法外な授業料を払わないと
卒業できないような大学がまともなわけがない。
646 名前：卵の名無しさん [2020/09/12(土) 17:26:21.02 ID:r8RD59kr.net]: 聖マリアンナとかいう医大のなかのキングオブ底辺　
こんなとこに多浪して入るとかどんだけ学力低いんだよw？
地頭悪いんだろうな
マジでクソだわ
647 名前：卵の名無しさん [2020/09/12(土) 22:43:47.23 ID:1xQUBr0S.net]: 生きてて恥ずかしくならねーのかな？あいつ

いじめられっ子が
マジで腸が煮えくりかえるな
サイコ野郎が　
　
648 名前：卵の名無しさん [2020/09/13(日) 00:41:33.17 ID:BvNX1+3j.net]: >>601
誰の事？　O？wwww
649 名前：卵の名無しさん [2020/09/13(日) 03:06:51.98 ID:NkAzI/gM.net]: >>603
そうw
あの馬鹿w死ねよマジ
650 名前：卵の名無しさん mailto:sage [2020/09/13(日) 08:10:15.40 ID:zXha47WG.net]: 4 + 2sin(x) + 2cos(y) + sin(x) cos(y) - cos(x) sin(y)

(sin(y)-cos(x))^2 + (sin(x)+cos(y))^2 +(1+sin(x))^2+ (1+cos(y))^2
651 名前：卵の名無しさん mailto:sage [2020/09/13(日) 09:21:42.54 ID:zXha47WG.net]: 架空求人で履歴書かき集めれば個人情報売買できる
そういう企業が今たくさんある
５ｃｈで噂になってる企業あるよね
履歴書よりウェブ応募がいいね

ある外資系企業の下請は幽霊法人で国外のクラウドサービスに被保険者番号からマイナンバーまで保管
国外は個人情報保護法の対象外なんだと
間抜けな法律のお陰で個人情報は国外保管
きっと中国にもたくさんある
法人サポートが中国の場合、法人口座や拠点住所一覧も中国に握られている
契約のみデータセンターからすべてアウトソース依存国家の末路は怖い
652 名前：卵の名無しさん mailto:sage [2020/09/13(日) 11:34:50.71 ID:zXha47WG.net]: https://www.youtube.com/watch?v=EtUOxOKr93k

Mayo Clinic Q&A: COVID-19 update with Dr. Greg Poland

https://newschannel9.com/news/local/chattanooga-covid-19-long-hauler-patient-experiences-intense-effects-two-months-later

COVID-19 'long-hauler' patient still feeling intense effects two months later
653 名前：卵の名無しさん [2020/09/13(日) 16:26:56.33 ID:NkAzI/gM.net]: >>604
歳いくつよ？wその無能？w
654 名前：卵の名無しさん [2020/09/13(日) 16:53:51.02 ID:2Wd5rc6k.net]: >>608
確か37か38くらいだったかな？w
なんちゃって外科医やってるよ
ビビるよ？wクッソ無能だからなw
655 名前：卵の名無しさん mailto:sage [2020/09/13(日) 18:40:44.31 ID:zXha47WG.net]: https://www.tanita.co.jp/press/detail/2020/0910/
656 名前：卵の名無しさん mailto:sage [2020/09/13(日) 18:48:02.26 ID:zXha47WG.net]: 前々スレからのド底辺シリツ医への宿題

若い女性研修医（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。
フェラをしてもらうには何と言えばいいか？
657 名前：卵の名無しさん [2020/09/13(日) 19:20:47.79 ID:/CHL/RSK.net]: >>609
しかもありとあらゆる工作隠蔽してるっていうねw

内科の領域もみれますみたいな装ってる無能w

もはや人殺しだなw

あんなのを救急で見させるとか病院もどうかと思うけどなw
病院ぐるみでやってんだろうなw
658 名前：卵の名無しさん mailto:sage [2020/09/13(日) 21:07:38.96 ID:zXha47WG.net]: Mayo Clinic Q&A podcast: When it comes to COVID-19, who are 'long-haulers?'

https://www.youtube.com/watch?v=reHPBedlPxU
659 名前：卵の名無しさん mailto:sage [2020/09/13(日) 21:09:14.54 ID:zXha47WG.net]: >>612
＞内科の領域もみれます
ド底辺シリツ医大卒なので内科のことはさっぱりわかりません、と言えば誰もが納得してもらえるのに
やっぱり、頭が悪いんだね。
660 名前：卵の名無しさん [2020/09/13(日) 22:35:26.22 ID:Oi5ggPM4.net]: >>614
最悪な治療施されたからね

初めから受け入れるなと
あそこまでのヤブは見たことないわ

適当な診察ばっかしてんだろうな
医学部は最低でも早慶理工以上の学力ないと
入れないようにしないと
不幸な人間がうまれるだけだわ
661 名前：卵の名無しさん [2020/09/14(月) 17:09:09.72 ID:TZePAOs1.net]: >>612
で、まさかそいつとその家族はのうのうと生きてるのか？　人の家族を滅茶苦茶にして？
それは許されないだろ普通に
どうなんだ？　
662 名前：卵の名無しさん mailto:sage [2020/09/14(月) 19:09:19.55 ID:/VYR9UVn.net]: 公文書改竄するような今の政権下で国勢調査に協力したくないなぁ。
663 名前：卵の名無しさん mailto:sage [2020/09/14(月) 22:15:32.87 ID:/VYR9UVn.net]: 記者　「10年間くらい(消費税)引き上げなくてもいいという、その根拠ついては何だと考えられているのか」
菅　　「まさに、アベノミクスを推進をし、経済を成長させる。まさに、経済成長…え…経済を再生させると、させなければ、財政健全化ないという、その政策のである」

アベちゃん以上にひどいじゃないか。完全に耄碌ジジイ。

安倍のほうがマシだったという時代が来そうだな。
664 名前：卵の名無しさん mailto:sage [2020/09/14(月) 22:16:16.23 ID:/VYR9UVn.net]: 記者　「10年間くらい(消費税)引き上げなくてもいいという、その根拠ついては何だと考えられているのか」
菅　　「まさに、アベノミクスを推進をし、経済を成長させる。まさに、経済成長…え…経済を再生させると、させなければ、財政健全化ないという、その政策のである」

アベちゃん以上にひどいじゃないか。完全に耄碌ジジイ。

安倍のほうがマシだったという時代が来そうだな。

https://www.youtube.com/watch?v=xkZoN6p97gM

1分15秒あたりから
665 名前：卵の名無しさん mailto:sage [2020/09/15(火) 22:04:16.42 ID:rklwrHxI.net]: https://www.diabetesresearchclinicalpractice.com/article/S0168-8227(20)3041
666 名前：6-2/fulltext []: [ここ壊れてます]
667 名前：卵の名無しさん [2020/09/17(木) 01:34:28.56 ID:HFcI9XBG.net]: >>616
生きてんじゃねｗ
私立医大って事は父親も医者かそこそこの会社かだろ　
ご両親がご健在なのか是非知りたいとこではあるなw
お宅の息子さんについてどうお考えなのかｗ
面拝みたいものだ
まぁカルマは深いだろうなｗ
何れにせよこれからさ　これから始まる
668 名前：卵の名無しさん mailto:sage [2020/09/17(木) 16:21:49.19 ID:nbDmQgwa.net]: こういうのは裏口シリツ医には解けないと思う。

司法試験予備試験の問題から、

球面上の異なる 2 点間の球面に沿った最短距離は，大円（球の中心を通る平面と球面が交わって共有する円）のそれら 2 点を端点とする弧の（長くない方の）長さである。地球上で北緯 45 度・東経 145 度，北緯 45 度・西経 125 度に位置する 2 地点間の地表面に沿った最短距離として最も近いものを，次の1から5までの中から選びなさい。ただし，地球は半径 6378 km の球とする。
1．5009 km 2．6679 km 3．8348 km 4．9017 km 5．9876 km

fn <- function(
ai=45, 　# 北緯°
ak=145, 　# 東経°
bi=45, 　# 北緯°(南緯はー°)
bk=-125){　# 東経°(西経はー°)
R=6378 # 地球の半径km
u=pi/180
A=R*c(cos(ai*u)*cos(ak*u),cos(ai*u)*sin(ak*u),sin(ai*u))
B=R*c(cos(bi*u)*cos(bk*u),cos(bi*u)*sin(bk*u),sin(bi*u))
AB=sqrt(sum((A-B)^2))
asin(AB/(2*R))*2*R
}
fn()

試験会場で計算しやすいように問題では数値設定してあるなぁ。
669 名前：卵の名無しさん [2020/09/18(金) 07:30:41.20 ID:tOgDYNCb.net]: 大塚とかいうヤブぱねー
歯を食いしばって苦しめばいいのな
てめえとてめえの家族がな
許さねーからな　お前だけは
670 名前：卵の名無しさん mailto:sage [2020/09/18(金) 08:03:57.92 ID:kqShTUv4.net]: diskpart

list disk
671 名前：卵の名無しさん [2020/09/18(金) 11:06:38.21 ID:4pL23glN.net]: 大塚君元気にされてるかな。
アッチ系の先生だったけど
良い人だったな～。
672 名前：卵の名無しさん [2020/09/18(金) 14:49:47.81 ID:ZCF7Lfet.net]: こんなのを、でっけー釣り針って言うのか？
673 名前：卵の名無しさん mailto:sage [2020/09/18(金) 15:45:12.98 ID:pRVt8YPC.net]: HP
コンピューターの電源を入れるか、再起動します。画面に何も映っていないうちに、[F10] キーを押して BIOS 設定メニューに入ります。
BIOS 設定メニューは、一部のコンピュータにf2またはf6キーを押すことによりアクセス可能です。 BIOSが開いたら、ブート設定にアクセスします。

HPはロゴがでるまえにf10とは、大抵はロゴがでたらdeleteかf2だと思っていたのだが、特殊だなぁ。

Dell
BIOS セットアップの起動
ノートPC の電源を入れます（または再起動します）。
Dell のロゴが表示されたら、次のいずれかのアクションを実行し BIOS セットアッププログラムを起動します。キーボードあり ? 「BIOS セットアップを起動」メッセージが表示されるまで、<F2> をタップします。
674 名前：卵の名無しさん mailto:sage [2020/09/18(金) 18:51:01.58 ID:A4IaMG7V.net]: 年内に9万に死者数と予想しているなぁ。

https://covid19.healthdata.org/japan?view=total-deaths&tab=trend
675 名前：卵の名無しさん mailto:sage [2020/09/19(土) 07:46:47.13 ID:0Y3cTQB0.net]: 緊縮財政・構造改革・観光立国
この三つで衰退途上国日本の没落必須だな。
676 名前：卵の名無しさん mailto:sage [2020/09/19(土) 09:26:49.36 ID:tlEz4F7t.net]: 　６日の参院予算委員会で、立憲民主党の小西洋之議員が安倍晋三氏に「安倍総理はよく『法の支配』とおっしゃいますが、法の支配の対義語は何ですか？法の支配の反対の意味の言葉は何ですか。」と尋ねたところ、安倍晋三氏は「まさに、反対語と言うよりも、法の支配、え、ということを申し上げているのはですね、あわば、あ～この～この海、まさに法の支配による、この国際秩序を維持し、平和な海を守っていくことが、それぞれの海の反映に繋がっていく、という考え方を示しているところでございます。」と、トンチンカンな答弁を行ってしまいました。

　小西議員は「法の支配の対義語は、憲法を習う大学の１年生が一番最初の授業で習うことですよ。」と、法の支配の対義語を知らない安倍晋三氏に対し、「憲法がよって立つ基本原理すら理解せずに改憲を唱えている安倍総理に教えて差し上げます。法の支配の対義語は『人の支配』です。権力者の専断的行為によってルールをねじ曲げて、国民の権利や自由を侵害する、そういう時代がかつて人類にあったから、近代立憲主義に基づく憲法をつくる。その近代主義の憲法の基づく理念が『法の支配』の原理なんですよ。」と話し、立憲主義に基づく憲法の基本的な考え方を諭しました。

　『法の支配』の対義語が『海の平和を守る』とは・・・。

　『法の支配』の対義語が分からないのなら、『法の支配』の本当の意味も知らないということことなのではと疑いたくなります。

　辺野古を見てもそのとおりではないでしょうか。

　安倍晋三氏は、成蹊大学政治学部卒業という学歴を持っています。

　近代民主主義の基本は立憲主義であり、そのことからも憲法について学ぶことは、政治学を学ぶうえで「いろはのい」であるはずです。

　この方は本当に大学で政治学を修めてきたのでしょうか。
677 名前：卵の名無しさん mailto:sage [2020/09/19(土) 09:27:00.66 ID:tlEz4F7t.net]: www.t-tooru.com/blog/%E6%B3%95%E3%81%AE%E6%94%AF%E9%85%8D%E3%81%A8%E4%BA%BA%E3%81%AE%E6%94%AF%E9%85%8D/
678 名前：卵の名無しさん mailto:sage [2020/09/20(日) 00:14:58.35 ID:BZsX8Vc7.net]: 地球の大きさは，紀元前３世紀頃にエラトステネスによって初めて求められた。

アレキサンドリア　北緯31.20194ﾟN　東経29.91611ﾟE
アスワン　　　　　北緯24.08889ﾟN　東経32.89972ﾟE
両都市の地表での最短距離　843km
を用いて地球を球と仮定して赤道半径Rを推定せよ。

ai=31.20194
ak=29.91611
bi=24.08889
bk=32.89972
u=pi/180
A=c(cos(ai*u)*cos(ak*u),cos(ai*u)*sin(ak*u),sin(ai*u))
B=c(cos(bi*u)*cos(bk*u),cos(bi*u)*sin(bk*u),sin(bi*u))
AB=sqrt(sum((A-B)^2))
d=843
# asin(AB/2)*2*R=d
R=d/(asin(AB/2)*2)
R
679 名前：卵の名無しさん mailto:sage [2020/09/20(日) 12:30:23.81 ID:BZsX8Vc7.net]: Timeline: How The U.S. Reached 200,000 Deaths From COVID-19

トランプは２月の段階で
It's also more deadly than your, you know, even your strenuous flus.
と発言して正しい認識をしたたなぁ。

https://www.youtube.com/watch?v=VuCYhAIKpLo&feature=youtu.be&t=75
１分１５秒辺りから
680 名前：卵の名無しさん mailto:sage [2020/09/20(日) 14:45:11.27 ID:BZsX8Vc7.net]: 【広島】「うわっブスじゃー」小柄
681 名前：で小太りの高齢男性が女子中学生に暴言を吐く事案が発生 ★2 [potato★] https://asahi.5ch.net/test/read.cgi/newsplus/1600575993/1 1 名前：potato ★[] 投稿日：2020/09/20(日) 13:26:33.55 ID:GbdyZADl9 広島県警によると、１７日午前７時ごろ、東広島市西条町大沢で女子中学生への暴言が発生しました。（実行者の特徴：高齢男性、小柄、小太り、ジーパン、頭に白色系タオル巻く） ■実行者の言動や状況 ・登校途中の女子生徒に暴言を吐いた。 ・「うわっブスじゃー」 ■現場付近の施設 ・向陽中学校、★三升原交差点、国道３７５号線 2020/9/18 22:24 (JST) https://this.kiji.is/679679671982326881 ※前スレ https://asahi.5ch.net/test/read.cgi/newsplus/1600572224/ []: [ここ壊れてます]
682 名前：卵の名無しさん [2020/09/20(日) 19:14:43.55 ID:6sUnyL52.net]: 底辺医大卒なんかに絶対自分とか家族を任せちゃいけない
公開する羽目になるよ
683 名前：卵の名無しさん mailto:sage [2020/09/21(月) 05:58:51.04 ID:7LHGgQBc.net]: >>635
シリツ医でも手先の器用なのはいるよ。
頭が器用なら底辺シリツ医大なんかにゃいかないな。
684 名前：卵の名無しさん mailto:sage [2020/09/21(月) 06:54:41.96 ID:7LHGgQBc.net]: https://addons.mozilla.org/ja/firefox/addon/video-downloadhelper/versions/
685 名前：卵の名無しさん mailto:sage [2020/09/21(月) 10:58:40.63 ID:+xq+le3W.net]: 安倍前総理の業績

https://i.imgur.com/fVXwC8L.jpg

その解説

https://youtu.be/nqauyjdmGjo
686 名前：卵の名無しさん mailto:sage [2020/09/21(月) 13:20:37.50 ID:tIEmypBG.net]: "某女子大には決して嘘をつかない女子大生と必ず嘘をつく女子大生がいることがわかっている。
この女子大の学生（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかフェラをしてあげる、間違っていれば何もしてあげない」と言われた。
女子大生にフェラをしてもらうには何と言えばいいか？
"
rm(list=ls())
TE=cbind(rep(0:1,c(4,4)),rep(0:3,2))
colnames(TE)=c('JD','service')
TE # JD 0:嘘つき 1:正直,　service 0:何もしない　1:手コキ 2:フェラ 3:手コキ＋フェラ
cond1 <- function(P,Q) !(P&!Q) # ｐならばQ
cond2 <- function(P,Q) cond1(P,Q) & cond1(!P,!Q) # （ｐならばQ）かつ（ｐでないならQでない）
f <- function(x){
x[1]==1 & cond2(cond2(x[1]==1,x[2]!=1),x[2]>0) | x[1]==0 & !cond2(cond2(x[1]==1,x[2]!=1),x[2]>0)
}
TE[(apply(TE,1,f)),]

cond3 <- function(P,Q) P==Q
f <- function(x){
x[1]==1 & cond3(cond3(x[1]==1,x[2]!=1),x[2]>0) | x[1]==0 & !cond3(cond3(x[1]==1,x[2]!=1),x[2]>0)
}
TE[(apply(TE,1,f)),]
687 名前：卵の名無しさん mailto:sage [2020/09/21(月) 13:22:08.23 ID:tIEmypBG.net]: 医者ならば、シリツ卒なら馬鹿である　　から
シリツ卒ならば、医者ならば馬鹿である　が、導けるか？

という論理命題の問題を臨床適用ｗするとこうなる。

甲状腺癌ならば、未分化癌なら予後不良である　　から
未分化癌ならば、甲状腺癌なら予後不良である　が、導けるか？

Rに真理表を使って解答させるスクリプトは以下の通り。

# P->(Q->R) |- Q->(P->R)
library('gtools')
pm3=permutations(2,3,v=c(T,F),re=TRUE)
colnames(pm3)=c('P','Q','R'); pm3
imply <- function(x,y) !(x&&!y)

f <- function(P,Q,R) imply(imply(P,imply(Q,R)),imply(Q,imply(P,R)))
f1 <- function(pm) f(pm[1],pm[2],pm[3])
result=logical(8)
for(i in 1:8) result[i]=f1(pm3[i,])
cbind(pm3,result)
> cbind(pm3,result)
P Q R result
[1,] FALSE FALSE FALSE TRUE
[2,] FALSE FALSE TRUE TRUE
[3,] FALSE TRUE FALSE TRUE
[4,] FALSE TRUE TRUE TRUE
[5,] TRUE FALSE FALSE TRUE
[6,] TRUE FALSE TRUE TRUE
[7,] TRUE TRUE FALSE TRUE
[8,] TRUE TRUE TRUE TRUE
688 名前：卵の名無しさん mailto:sage [2020/09/21(月) 14:30:33.85 ID:tIEmypBG.net]: 医者ならば、シリツ卒なら馬鹿である　　から
シリツ卒ならば、医者ならば馬鹿である　が、導けるか？

という論理命題の問題を臨床適用ｗするとこうなる。

甲状腺癌ならば、未分化癌なら予後不良である　　から
未分化癌ならば、甲状腺癌なら予後不良である　が、導けるか？

'%=>%' = function(P,Q) !(P & !Q)
M=c(T,F)
R=c(T,F)
C=c(T,F)
gr=expand.grid(M,R,C)
colnames(gr)=c('M','R','C')
gr
f4 <- function(M,R,C) (M %=>% (R %=>% C)) %=>% (R %=>% (M %=>% C))
mapply(f4,gr[,1],gr[,2],gr[,3])
689 名前：卵の名無しさん [2020/09/22(火) 05:31:15.70 ID:hC7iAlOHZ]: 一番の勝ち組は私立医大卒の医者だよ。
だって貧乏な家に生まれてたら医者になれなかった連中なんだから。
690 名前：卵の名無しさん mailto:sage [2020/09/22(火) 04:22:09.57 ID:i6/Qqjjo.net]: Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Personalization\Desktop Slideshow]
"LastTickLow"=dword:00000000
"LastTickHigh"=dword:00000000
"Interval"=dword:000249f0
"Shuffle"=dword:00000001
691 名前：卵の名無しさん mailto:sage [2020/09/22(火) 08:51:45.82 ID:i6/Qqjjo.net]: 以下の中から論理的に同値な組み合わせをすべて列挙せよ。

a : 馬鹿ならば(シリツ医ならば裏口である）
b : (馬鹿ならばシリツ医)ならば裏口である）
c : 馬鹿ならば(裏口ならばシリツ医である
d : (馬鹿ならば裏口)ならばシリツ医である
e : シリツ医ならば(馬鹿ならば裏口である)
f : (シリツ医ならば馬鹿)ならば裏口である
g : シリツ医ならば(裏口ならば馬鹿である)
h : (シリツ医ならば裏口)ならば馬鹿である)
i : 裏口ならば(馬鹿ならばシリツ医である)
j : (裏口ならば馬鹿)ならばシリツ医である
k : 裏口ならば(馬鹿ならばシリツ医である)
l : (裏口ならば馬鹿)ならばシリツ医である)
692 名前：卵の名無しさん mailto:sage [2020/09/22(火) 09:00:28.56 ID:i6/Qqjjo.net]: 以下の中から論理的に同値な組み合わせをすべて列挙せよ。

a : 馬鹿ならば(シリツ医ならば裏口である）
b : (馬鹿ならばシリツ医)ならば裏口である）
c : 馬鹿ならば(裏口ならばシリツ医である
d : (馬鹿ならば裏口)ならばシリツ医である
e : シリツ医ならば(馬鹿ならば裏口である)
f : (シリツ医ならば馬鹿)ならば裏口である
g : シリツ医ならば(裏口ならば馬鹿である)
h : (シリツ医ならば裏口)ならば馬鹿である)
i : 裏口ならば(馬鹿ならばシリツ医である)
j : (裏口ならば馬鹿)ならばシリツ医である
k : 裏口ならば(シリツ医ならば馬鹿である)
l : (裏口ならばシリツ医)ならば馬鹿である)
693 名前：卵の名無しさん mailto:sage [2020/09/22(火) 09:03:46.94 ID:i6/Qqjjo.net]: 過去スレから同業者や患者の本音抜粋

同業者の発言：
【ウハも】　開業医達の集い　8診　【粒も】 [無断転載禁止]

670 名前：卵の名無しさん[] 投稿日：2017/05/20(土) 11:15:40.12 ID:46exOAAP
学会で川崎の医者が発表してたら、「馬鹿が何偉そうにしゃべってる。」と思う自分が嫌になるが、
これだけは学生時代から続く反射なので止められない。

患者の発言：
【医療】医者は患者にコレを言われると、内心ものすごくムッとする★4 [無断転載禁止]

810 名前：名無しさん＠１周年[] 投稿日：2017/05/21(日) 00:11:22.04 ID:+h+2h2fq0
旧帝医卒の医者が（患者としては嫌だが）
多少偉そうにしているのはわからんでもないが

底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろw
694 名前：卵の名無しさん mailto:sage [2020/09/22(火) 10:14:13.61 ID:sklJCuPT.net]: '%=>%' = function(P,Q) !(P & !Q)
B=c(T,F)
S=c(T,F)
U=c(T,F)
gr=expand.grid(B,S,U)
colnames(gr)=c('B','S','U')
gr
f <- function(B,S,U) (B %=>% (S %=>% U)) %=>% (S %=>% (B %=>% U))
mapply(f,gr[,1],gr[,2],gr[,3])
f <- function(B,S,U) (S %=>% (B %=>% U)) %=>% (B %=>% (S %=>% U))
mapply(f,gr[,1],gr[,2],gr[,3])

f <- function(B,S,U) (B %=>% (S %=>% U)) %=>% ((B %=>% S) %=>% U)
cbind(gr,mapply(f,gr[,1],gr[,2],gr[,3]))
f <- function(B,S,U) (B %=>% (S %=>% U)) %=>% ((B %=>% S) %=>% U)
mapply(f,gr[,1],gr[,2],gr[,3])
cbind(gr,mapply(f,gr[,1],gr[,2],gr[,3]))
695 名前：卵の名無しさん mailto:sage [2020/09/22(火) 12:02:20.63 ID:EfXnvoQe.net]: シリツ医ならば (馬鹿ならば裏口である)　という命題が真であるときに結論できるのは以下のいずれか？

1 : シリツ医ならば (裏口ならば馬鹿である)
2 : 馬鹿ならば (シリツ医ならば裏口である)
3 : 馬鹿ならば (裏口ならばシリツ医である)
4 : 裏口ならば (シリツ医ならば馬鹿である)
5 : 裏口ならば (馬鹿ならばシリツ医である)
696 名前：卵の名無しさん [2020/09/22(火) 14:24:55.71 ID:i8SA8uCz.net]: 安い指輪しててもブスで金だけの医学科の彼女持ちの私立底辺医大生君は元気かな？
スマホ・出会い系アプリの垢複数持ちしてまで浮気お疲れ様。
デートも食事も可愛い子には拒否られて裏でストーカー行為しながら、相手されずモテないからって自称ヤリチンアピすることしかできない可哀想な私立底辺非モテ医大男の貴方はある意味偉大です。
697 名前：卵の名無しさん mailto:sage [2020/09/22(火) 16:03:55.93 ID:sklJCuPT.net]: https://i.imgur.com/OIcZafx.jpg

Last but not least, three la
698 名前：ws 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 []: [ここ壊れてます]
699 名前：卵の名無しさん [2020/09/22(火) 18:34:03.01 ID:K+if9xkPg]: 今やそんな私立医大の中でも下位に位置するような私立医大に
補欠繰り上がりでやっとこさ入学できたような連中でさえ
地方駅弁の非医理系（理学部や工学部）に進学した連中と同じ程度の
おつむ加減にはなったけどなｗ

時代は変わったね

奨学金制度も充実してきたし、中堅どころの私立医大にも有名私立進学校の連中が
普通にいるご時世

30年前なら考えられない

ひとえに非医学部理系の卒後がひどすぎるがゆえの変化

東工大や地方旧帝の非医理系、早慶理工の看板学科や慶応薬や理科大薬に進学するくらいなら
私立卒でも医者になっておいた方がマシと考える受験生とその親が増えた
700 名前：卵の名無しさん [2020/09/22(火) 20:25:54.98 ID:i8SA8uCz.net]: 私立底辺医大生ぶっさくて草
イケメンって言ってあげましょう(笑)
701 名前：卵の名無しさん [2020/09/22(火) 22:29:14.63 ID:kI6zSfJ2m]: 真の勝ち組は底辺私立医大卒の医者たちだろ。

だって親がお金持ちじゃなかったら
本来は医者じゃ無かったかもしれない連中なんだぜ。
702 名前：卵の名無しさん [2020/09/23(水) 13:30:30.61 ID:VpBhPSguC]: 東大生に親に金持ちが圧倒的に多いことを考えれば
親が金持ちで有名私立進学校に中学から入学するために塾通いができなければ
そうした進学校経由で東大や医学部には行けなかっただろうしねｗ

そうした有名私立進学校に通いながらも放課後に科目別に違う塾に行くやつも少なくないわけで
親が金のないやつの多くははじめから負け戦

そういった意味では親が金持ちじゃなければ医者じゃなかったかもしれないに関しては
国立医だろうが私立医だろうが関係なし

サピや日能研早アカがなければ筑駒や開成、麻布には受からなかっただろうし、
鉄緑の力がなければ理3に現役で受からないやつは多いだろうしねｗｗｗ
703 名前：卵の名無しさん mailto:sage [2020/09/23(水) 12:19:46.09 ID:DYSF68Y7.net]: うすむらさき
@xxxxxx
ヤリチンはたいていブサイク。
ヤリチン公言してるやつらはまずブサメン。
すかぽんさんがツイートしました
@xxxxxxxx
ブサイクのヤリチン、一杯いるじゃん…

お釈迦様さんがツイートしました
@xxxxxxxx
ブサイクなヤリチンが世界で1番たちが悪い。ブサイクはブスしか寄ってこねーから(笑)一生ブスどもとつるんでろよ。
704 名前：卵の名無しさん mailto:sage [2020/09/23(水) 23:45:14.47 ID:Sa86U9pw.net]: sim <- function(){
x=sample(52)
flg=FALSE
i=1
while(flg==FALSE & i<52){
flg <- abs(x[i]-x[i+1])==26
i=i+1
}
return(flg)
}
sim()
705 名前：卵の名無しさん mailto:sage [2020/09/24(木) 06:55:54.84 ID:eL3RsNp+.net]: 【コロナ】20代の感染、「第2波」で10倍…無症状者の2割が入院後に重症化　和歌山県 [ばーど★]
https://asahi.5ch.net/test/read.cgi/newsplus/1600896274/

source('tools.R')
prop.test(c(7,68),c(63,167))
poisson.test(c(7,68),c(63,167))
jags4prop(7,68,63,167)

# 重症化率
binom::binom.exact(11,52)
# 有症化率
binom::binom.exact(11+21,52)
706 名前：卵の名無しさん mailto:sage [2020/09/24(木) 07:04:06.98 ID:eL3RsNp+.net]: Three laws of lowest-ranked medicalschool

1: It is not the lowest-ranked medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.

2: The graduates of lowest-ranked medical school are so ashamed that none of them dare to mention their own alma mater which they have gone through.

3: The lowest-ranked medical school graduates are so ashamed of having bought their way into such schools that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
707 名前：卵の名無しさん mailto:sage [2020/09/24(木) 07:13:59.39 ID:eL3RsNp+.net]: >>658
話題のフォントにしてみた。

https://i.imgur.com/kh7qteF.png
708 名前：卵の名無しさん mailto:sage [2020/09/24(木) 14:11:06.85 ID:eL3RsNp+.net]: with コロナで三密を避けて生産
without コロナで三密で生産

後者の方が生産性が高いのは自明。
中国は後者の戦略で経済回復しつつあるというね。
709 名前：卵の名無しさん mailto:sage [2020/09/24(木) 22:37:38.71 ID:1DujI56R.net]: ド底辺医大の三法則

1: It is not the lowest-ranked medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。

2: The graduates of lowest-ranked medical school are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

3: The lowest-ranked medical school graduates are so ashamed of having bought their way into such schools that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
710 名前：卵の名無しさん mailto:sage [2020/09/25(金) 07:41:52.14 ID:WXWIALQV.net]: - ショートカットを表示しない

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]

"link"=hex:00,00,00,00
711 名前：卵の名無しさん mailto:sage [2020/09/25(金) 08:45:29.54 ID:g+wOrPPh.net]: 「保守」「ナショナリスト」がナショナリズムを解体するグローバリストの安倍を礼賛する一方、パヨクは「戦後レジーム」を確定させた安倍を「戦前回帰の復古主義者」と誤認する。
712 名前：卵の名無しさん mailto:sage [2020/09/25(金) 10:35:54.74 ID:WXWIALQV.net]: >>660
東京・江戸川区にある食品加工会社の工場で、新たに従業員73人が新型コロナウイルスに感染したことが確認され、これでこの工場での感染確認は78人になりました。
会社では、24日から工場の稼働を停止し、改めて消毒作業をすることにしています。

https://www3.nhk.or.jp/news/html/20200924/k10012632831000.html

こういうのが続いて日本の生産性が低下、国が衰退していくんだろうなぁ。

with コロナで三密を避けて生産
without コロナで三密で生産

後者の方が生産性が高いのは自明。
中国は後者の戦略で経済回復しつつあるという。
713 名前：卵の名無しさん mailto:sage [2020/09/25(金) 11:08:53.44 ID:WXWIALQV.net]: 主語が何かすら理解していない底辺シリツ医の症例報告

https://i.imgur.com/3aV1wjA.png

これは永久保存に価する！

小学校で習うはずに主語が何かすら習得していないのに、底辺シリツ医大に入学できるとは、裏口入学以外に説明ができるだろうか？

（補足）
主語と述語って何年生で習うのか調べたらこんな動画がヒットした。

授業「主語と述語をみつけよう」｜国語｜小１・小２｜群馬県
https://youtu.be/yREmv_TyAIU

シリツ医は小学校１－２年で習うことすら習得できていない。
こんな学力でどうして大学に入学できるのだろうか？裏口入学以外に説明できる人がいたら御教授を賜りたい。
714 名前：卵の名無しさん mailto:sage [2020/09/25(金) 12:43:09.13 ID:g+wOrPPh.net]: 二〇一四年の世界経済フォーラム年�
715 名前：� 会議（ダボス会議）の冒頭演説で安倍は、徹底的に日本の権益を破壊すると宣言。電力市場の完全自由化、医療の産業化、コメの減反の廃止、法人税率の引き下げ、雇用市場の改革、外国人労働者の受け入れ、会社法の改正などを並べ立て、「そのとき社会はあたかもリセット・ボタンを押したようになって、日本の景色は一変するでしょう」と言い放った。 適菜収. 国賊論 (Kindle の位置No.248-252). ＫＫベストセラーズ. Kindle 版. []: [ここ壊れてます]
716 名前：卵の名無しさん mailto:sage [2020/09/25(金) 22:37:25.35 ID:g+wOrPPh.net]: 「保守」「ナショナリスト」がナショナリズムを解体するグローバリストの安倍を礼賛する一方、頭の悪い一部の左翼は「戦後レジーム」を確定させた安倍を「戦前回帰の復古主義者」と誤認する。自分の世界観に合わせて、都合よく現実を解釈するわけだ。
717 名前：卵の名無しさん mailto:sage [2020/09/25(金) 22:38:11.02 ID:g+wOrPPh.net]: 移民は「外国人材」、家族制度の破壊は「女性の活用」、戦争に巻き込まれることは「積極的平和主義」、秩序破壊のための実験は「国家戦略特区」、不平等条約のＴＰＰは「国家百年の計」、南スーダンの戦闘は「衝突」、米軍機の墜落は「不時着」……。
718 名前：卵の名無しさん mailto:sage [2020/09/26(土) 10:50:18.21 ID:HU8VkIp7.net]: >　巷には、少子高齢化を迎える日本においては、デフレは避けられないという議論もありますが、これは誤りです。実際に多くの国は、人口が減少していても、デフレには陥っていません。

(中略)

>　一方で、デフレから脱却するためには、金融政策と同時に財政政策も必要と考えています。国民の命や子どもたちの安全を守るための投資、地域が生産性を高め、競争力を得るための未来への投資は行うべきだと考えます。

>ただ、残念ながら、税率を上げることイコール税収が増えていくことにはなりません。　一九九七年に消費税を三パーセントから五パーセントに上げたときは、五十四兆円だった税収は、翌年度は四十九兆円に減少し、それ以降、五十四兆円に到達したことは一度もない。

安倍晋三. 新しい国へ　　美しい国へ　完全版
719 名前：卵の名無しさん mailto:sage [2020/09/26(土) 15:03:53.61 ID:HU8VkIp7.net]: 権力の分散を唱えるのが保守であり、権力の集中を唱えるのが左翼である。理由は簡単で、保守は人間理性を信用しないが、左翼は合理的かつ理性的であるからだ。
720 名前：卵の名無しさん mailto:sage [2020/09/27(日) 07:46:40.32 ID:xQ2UgrRE.net]: 裏口でなくて、学力考査で大学入れたなら、これくらいは答えられるだろ？

問題：
シリツ医ならば (馬鹿ならば裏口である)　という命題が真であるときに結論できるのは以下のいずれか？

1 : シリツ医ならば (裏口ならば馬鹿である)
2 : 馬鹿ならば (シリツ医ならば裏口である)
3 : 馬鹿ならば (裏口ならばシリツ医である)
4 : 裏口ならば (シリツ医ならば馬鹿である)
5 : 裏口ならば (馬鹿ならばシリツ医である)
721 名前：卵の名無しさん mailto:sage [2020/09/27(日) 09:35:51.49 ID:NC2DTSRg.net]: 裏医問嘘「とフ子嘘「とチ
口師題をあ言ェ供をあ言ョ
馬免はつなわラ向つなわコ
鹿許こかたれをきかたれを
でもれなのたしはなのたも
なっいい｡てこいい｡ら
いて若うもっおうう
証いいこらち菓こに
明な女とう子とは
にい医がに屋が何
サ小か正はか正と
ク学らし何らし �
722 名前：ｾ ッ生けとけえ とでれ言れば 答もばえばい え正手ばチい た解コいョか らすキいコ？ ？るかかか ぞフ？飴 ｡ェを ラあ をげ しる て」 あ げ る 」 []: [ここ壊れてます]
723 名前：卵の名無しさん mailto:sage [2020/09/27(日) 11:04:59.01 ID:NC2DTSRg.net]: １底
：辺
ド医
底大
辺の
シ三
リ法
ツ則
医
大
が
悪
い
の
で
は
な
い
､
本
人
の
頭
が
悪
い
ん
だ
｡
724 名前：卵の名無しさん mailto:sage [2020/09/27(日) 11:07:10.87 ID:NC2DTSRg.net]: 裏ド底
口底辺
馬辺医
鹿シ大
をリの
暴ツ第
く医三
人大法
間卒則
をは
偽裏
医口
者入
扱学
いの
し負
たい
が目
るか
｡ら
725 名前：卵の名無しさん mailto:sage [2020/09/27(日) 11:09:13.63 ID:NC2DTSRg.net]: ｒｍ（ｌｉｓｔ＝ｌｓ（））

ｘ＝”
　東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
しりつ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもしりつ医大卒＝裏口ばかと汚名は拭えない。しりつ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
”

ｆ　＜－　ｆｕｎｃｔｉｏｎ（ｘ，ｓ＝２）｛
　　ｎ＝ｎｃｈａｒ（ｘ）
　　ｙ＝ＮＵＬＬ
　　ｆｏｒ（ｉ　ｉｎ　１：ｎ）｛
　　　　ｙ　＜－　ｐａｓｔｅ０（ｙ，ｓｕｂｓｔｒ（ｘ，ｉ，ｉ），ｐａｓｔｅ０（ｒｅｐ（’　’，ｓａｍｐｌｅ（０：ｓ，１）），ｃｏｌｌａｐｓｅ＝’’））
　　｝
　　ｃａｔ（ｙ）
　　ｉｎｖｉｓｉｂｌｅ（ｙ）
｝
ｆ（ｘ）
726 名前：卵の名無しさん mailto:sage [2020/09/27(日) 11:10:55.64 ID:NC2DTSRg.net]: 　さてはシリツだな。
そういうのいいからサクっと正解してみ！
これに即答がつけば即、終わったのに。

問題はこれ

嘘をつかない若い女医から
「あなたのいうことが正しければ手コキかフェラをしてあげる」と言われた。
フェラをしてもらうには何と言えばいいか？
727 名前：卵の名無しさん mailto:sage [2020/09/27(日) 13:27:27.49 ID:NC2DTSRg.net]: 　　大本　　　　シ学鹿扱　　　　　　　　
ド　　　　卒校ん　　　　　　　　　　　　
　　が人　　　　リのをい　　　　　　　　
底　　　　は名。　　　　　　　　　　　　
　　悪の　　　　ツ負暴し　　　　　　　　
辺　　　ド恥を　　　　　　　　　　　　　
　ドい頭　　　　医いくた　　　　　　　　
医　　　底ず皆　　　　　　　　　　　　　
　底のが　　　　大目人が　　　　　　　　
大　　　辺かさ　　　　　　　　　　　　　
　辺で悪　　　　卒か間る　　　　　　　　
の　　　シしま　　　　　　　　　　　　　
　シはい　　　　はらを。　　　　　　　　
三　　　リく言　　　　　　　　　　　　　
　リなん　　　ド裏裏偽　　　　　　　　　
法　　　ツてい　　　　　　　　　　　　　
　ツいだ　　　底口口医　　　　　　　　　
則　　　医、ま　　　　　　　　　　　　　
　医、。　　　辺入馬者　　　　　　　　　
　　　　大学せ　　　　　　　　　　　　　
728 名前：卵の名無しさん mailto:sage [2020/09/27(日) 13:27:41.77 ID:NC2DTSRg.net]: 　　　　　　　　扱鹿学シ　　　　本大　　
　　　　　　　　　　　　ん校卒　　　　ド
　　　　　　　　いをのリ　　　　人が　　
　　　　　　　　　　　　。名は　　　　底
　　　　　　　　し暴負ツ　　　　の悪　　
　　　　　　　　　　　　　を恥ド　　　辺
　　　　　　　　たくい医　　　　頭いド　
　　　　　　　　　　　　　皆ず底　　　医
　　　　　　　　が人目大　　　　がの底　
　　　　　　　　　　　　　さか辺　　　大
　　　　　　　　る間か卒　　　　悪で辺　
　　　　　　　　　　　　　ましシ　　　の
　　　　　　　　。をらは　　　　いはシ　
　　　　　　　　　　　　　言くリ　　　三
　　　　　　　　　偽裏裏ド　　　んなリ　
　　　　　　　　　　　　　いてツ　　　法
　　　　　　　　　医口口底　　　だいツ　
　　　　　　　　　　　　　ま、医　　　則
　　　　　　　　　者馬入辺　　　。、医　
　　　　　　　　　　　　　せ学大　　　　
729 名前：卵の名無しさん mailto:sage [2020/09/27(日) 13:43:45.94 ID:NC2DTSRg.net]: 　時差とは識払バかは向年底しではわ　
不代別い誰的っカっ一か代辺て軽面な　
朽に感うもにてだて人っの医る蔑とい　
の大がイ受考、の好もて人卒んし向け　
名学凄メ験えし裏きいは間をだ、かど　
投受くーしてか口好ま言は今、嘲っね　
稿験、ジよ、もだんせわ、でこ笑て。　
をし特でう数同のでんなおものしは　　
引た殊開と千業とドでいそ「裏て絶　　
用け民業す万者散底しけら何口い対　　
再どの医らとか々辺たれく偉バるに　　
掲、たのしいら罵医。どはそカよそ　　
　昔めバなうもらに本、８うが。ん　　
私はのカか法患れ行人俺－な」当な　　
は今特息っ外者るくにく９ことのこ　　
昭よ殊子たなかの同はら割と心本と　　
和り学以。金らを級面いは抜の人は　　
のも校外常をもわ生とのドか底に言　　
730 名前：卵の名無しさん mailto:sage [2020/09/27(日) 13:43:50.96 ID:NC2DTSRg.net]: 　わはでし底年向はかバ払識はと差時　
　な面軽て辺代か一っカっ的誰い別代不
　いと蔑る医のっ人てだてにもう感に朽
　け向しん卒人ても好の、考受イが大の
　どか、だを間はいき裏しえ験メ凄学名
　ねっ嘲、今は言ま好口かてしーく受投
　。て笑こで、わせんだも、よジ、験稿
　　はしのもおなんでの同数うで特しを
　　絶て裏「そいでドと業千と開殊た引
　　対い口何らけし底散者万す業民け用
　　にるバ偉くれた辺々かとら医のど再
　　そよカそはど。医罵らいしのた、掲
　　ん。がう８、本にらもうなバめ昔　
　　な当」な－俺人行れ患法かカのは私
　　このとこ９くにくる者外っ息特今は
　　と本心と割らは同のかなた子殊よ昭
　　は人の抜はい面級をら金。以学り和
　　言に底かドのと生わもを常外校もの
731 名前：卵の名無しさん mailto:sage [2020/09/27(日) 14:42:14.68 ID:Q7/GNSm0.net]: ＃　ｓｔｒ　－＞　ｍａｔｒｉｘ（ｔａｔｅ）
ｔａｔｅ　＜－　ｆｕｎｃｔｉｏｎ（ｓｔｒ，ｍｏｊｉ＝ＮＵＬＬ）｛　＃　ｓｔｒ：文字列，　ｍｏｊｉ：１列の文字数
ｘ＝ｇｓｕｂ（’￥ｎ’，’’，ｓｔｒ）
ｎ＝ｎｃｈａｒ（ｘ）
ｍ＝ｉｆｅｌｓｅ（ｉｓ．ｎｕｌｌ（ｍｏｊｉ），ｃｅｉｌｉｎｇ（ｓｑｒｔ（ｎ）），ｍｏｊｉ）
ａｄｄ＝ｍ＾２－ｎ
ｙ＝ｐａｓｔｅ０（ｘ，ｐａｓｔｅ０（ｒｅｐ（’　’，ａｄｄ），ｃｏｌｌａｐｓｅ＝’’））
Ｙ＝ＮＵＬＬ
ｆｏｒ（ｉ　ｉｎ　１：ｍ＾２）　　Ｙ［ｉ］＝ｓｕｂｓｔｒ（ｙ，ｉ，ｉ）
Ｌ＝Ｒ＝ｍａｔｒｉｘ（Ｙ，ｍ，ｍ）
ｆｏｒ（ｉ　ｉｎ　１：ｍ）　ｃａｔ（Ｌ［ｉ，］，’￥ｎ’）＃　左から開始
ｆｏｒ（ｉ　ｉｎ　１：ｍ）　Ｒ［，ｍ＋１－ｉ］＝Ｌ［，ｉ］　＃　
ｃａｔ（’￥ｎ￥ｎ’）
ｆｏｒ（ｉ　ｉｎ　１：ｍ）　ｃａｔ（Ｒ［ｉ，］，’￥ｎ’）＃　右から開始

｝
ｓｔｒ＝”
はなのいろは　　　　
　　　うつりにけりな　
　　　　　　いたずらに　
わがみよにふる　　　　
ながめせしまに　　　　”
ｎｃｈａｒ（ｓｔｒ）
ｘ＝ｇｓｕｂ（’￥ｎ’，’’，ｓｔｒ）
ｎｃｈａｒ（ｘ）
ｔａｔｅ（ｓｔｒ，１１）
732 名前：卵の名無しさん mailto:sage [2020/09/27(日) 14:42:53.61 ID:Q7/GNSm0.net]: > str="
+ はなのいろは　　　　
+ 　　　うつりにけりな　
+ 　　　　　いたずらに
+ わがみよにふる　　　　
+ ながめせしまに　　　　"
> tate(str,11)
は　　わな　　　　　　
な　　がが　　　　　　
のう　みめ　　　　　　
いつ　よせ　　　　　　
ろり　にし　　　　　　
はにいふま　　　　　　
　けたるに　　　　　　
　りず　　　　　　　　
　なら　　　　　　　　
　　に　　　　　　　　
　　　　　　　　　

　　　　　　なわ　　は
　　　　　　がが　　な
　　　　　　めみ　うの
　　　　　　せよ　つい
　　　　　　しに　りろ
　　　　　　まふいには
　　　　　　にるたけ　
　　　　　　　　ずり　
　　　　　　　　らな　
　　　　　　　　に　　
　　　　　　　　　
733 名前：卵の名無しさん mailto:sage [2020/09/27(日) 15:05:13.39 ID:z6INan+X.net]: https://addons.mozilla.org/ja/firefox/user/13863253/

Read Aloud: A Text to Speech Voice Reader
734 名前：卵の名無しさん mailto:sage [2020/09/27(日) 15:41:27.05 ID:NC2DTSRg.net]: (sqrt(1+x)-sqrt(1+x^2))/(sqrt(1-x^2)-sqrt(1-x))
735 名前：卵の名無しさん mailto:sage [2020/09/27(日) 15:41:46.99 ID:NC2DTSRg.net]: (sqrt(1+x)-sqrt(1+x^2))/(sqrt(1-x^2)-sqrt(1-x))
736 名前：卵の名無しさん mailto:sage [2020/09/27(日) 19:20:23.23 ID:NC2DTSRg.net]: Block Site
https://addons.mozilla.org/en-US/firefox/addon/block-website/
737 名前：卵の名無しさん mailto:sage [2020/09/27(日) 19:43:46.04 ID:B77KYq6e.net]: 100日で崩壊する政権コロナ禍日本、安倍政権の軌跡 (日本語)
思わず注文してしまった。
738 名前：卵の名無しさん mailto:sage [2020/09/27(日) 19:44:42.64 ID:B77KYq6e.net]: 100日で崩壊する政権コロナ禍日本、安倍政権の軌跡 (日本語)

を注文してした。

Kindle版もあったけど、家族にも読ませたいので紙の方にした。
739 名前：卵の名無しさん [2020/09/27(日) 21:57:22.28 ID:CM312CnK.net]: 東京女子医大、学費1200万円値上げ　コロナで経営難　　9/27(日) 21:00配信

私立大学の医学部で学費を値上げする動きが出ている。
東京女子医科大は2021年度の入学生について6年間で計1200万円上げる。
コロナ禍による大学病院の経営悪化の影響などが指摘されている。

　東京女子医大がホームページで公開している入学案内によると、
6年間の学費は4621万4千円。
広報担当者によると年間200万円の施設設備費の項目が新たに加わったという。
値上げの詳しい理由はホームページでは示しておらず、取材にも回答していない。

河合塾が私立大医学部の20年度の募集要項などをまとめたところ、
主な選抜方式で総額が最も高いのは川崎医科大（岡山県）の4736万5千円。
今回の値上げで東京女子医大は21年度から、
金沢医科大（石川県）を上回り2番目に高いところになりそうだ。
740 名前：卵の名無しさん mailto:sage [2020/09/27(日) 23:17:16.35 ID:OJ6sMSx0.net]: >>689
そんなオマエは反日ド底辺の風邪風邪クルクルパー
医学的に入れないオマエの低脳さがそんなに悔しいのかいＷ
741 名前：卵の名無しさん [2020/09/28(月) 06:28:48.85 ID:O53+eN9bN]: ニュー速の書き込みより

133 ：不要不急の名無しさん：2020/09/28(月) 03:10:55.16

ね、年間200万の値上げ、、、
自分、医学部ではないが、6年間で、大学には総額400万くらいしか
払ってないんはずなんだが、、、
恐ろしい世界があるもんだ
742 名前：卵の名無しさん mailto:sage [2020/09/28(月) 13:18:25.77 ID:aUMwZUGo.net]: オペラ　youtube downloader
https://addons.opera.com/ja/extensions/details/youtube-video-and-audio-download
743 名前：er/ []: [ここ壊れてます]
744 名前：卵の名無しさん mailto:sage [2020/09/30(水) 21:42:43.31 ID:m81TU/YP.net]: １　２
表表　見たのが表1
表裏　見たのが表1
裏表　見たのが裏1
裏裏　見たのが裏1
表表　見たのが表2
表裏　見たのが裏2
裏表　見たのが表2
裏裏　見たのが裏2
745 名前：卵の名無しさん mailto:sage [2020/10/01(木) 09:34:59.05 ID:aTCQsuu6.net]: # y=tan(A)(x-a1)+a2
# y=tan(B)(x-b1)+b2

koten <- function(a1,a2,a,b1,b2,b){
A=a*pi/180
B=b*pi/180
x = (a1* tan(A) - a2 - b1 *tan(B) + b2)/(tan(A) - tan(B))
y = (a1* tan(A)* tan(B) - b1 *tan(A)* tan(B) + b2 *tan(A) - a2* tan(B))/(tan(A) - tan(B))
c(x,y)
}

koten(0,0,60,1,0,120)
746 名前：卵の名無しさん mailto:sage [2020/10/01(木) 10:48:54.87 ID:aTCQsuu6.net]: # y=tan(A)(x-a1)+a2 ,y=tan(B)(x-b1)+b2
koten <- function(a1,a2,a,b1,b2,b){
A=a*pi/180
B=b*pi/180
x = (a1* tan(A) - a2 - b1 *tan(B) + b2)/(tan(A) - tan(B))
y = (a1* tan(A)* tan(B) - b1 *tan(A)* tan(B) + b2 *tan(A) - a2* tan(B))/(tan(A) - tan(B))
c(x,y)
}

# coordinates -> angle BAC
BAC <- function(B,A,C){
if(is.complex(B)|is.complex(A)|is.complex(C)){
a=c(Re(A),Im(A)); b=c(Re(B),Im(B)); c=c(Re(C),Im(C))
}else{a=A;b=B;c=C}
ab=b-a
ac=c-a
dot=sum(ab*ac)
bac=acos(dot/sqrt(sum(ab^2))/sqrt(sum(ac^2)))
return(c(rad=bac,deg=bac*180/pi))
}

c=koten(0,0,9, 1,0,180-75)
d=koten(0,0,3, 1,0,180-51)

B=1+0i
C=c[1]+1i*c[2]
D=d[1]+1i*d[2]
BAC(D,C,B)
747 名前：卵の名無しさん mailto:sage [2020/10/01(木) 11:48:30.61 ID:aTCQsuu6.net]: 内視鏡の待機時間の暇つぶし

https://pbs.twimg.com/media/EhYCb9IXcAUeqdH.jpg

# y=tan(A)(x-a1)+a2 ,y=tan(B)(x-b1)+b2
koten <- function(a1,a2,a,b1,b2,b){
A=a*pi/180
B=b*pi/180
x = (a1* tan(A) - a2 - b1 *tan(B) + b2)/(tan(A) - tan(B))
y = (a1* tan(A)* tan(B) - b1 *tan(A)* tan(B) + b2 *tan(A) - a2* tan(B))/(tan(A) - tan(B))
c(x,y)
}

# coordinates -> angle BAC
BAC <- function(B,A,C){
if(is.complex(B)|is.complex(A)|is.complex(C)){
a=c(Re(A),Im(A)); b=c(Re(B),Im(B)); c=c(Re(C),Im(C))
}else{a=A;b=B;c=C}
ab=b-a
ac=c-a
dot=sum(ab*ac)
bac=acos(dot/sqrt(sum(ab^2))/sqrt(sum(ac^2)))
return(c(rad=bac,deg=bac*180/pi))
}

c=koten(0,0,9, 1,0,180-75)
d=koten(0,0,3, 1,0,180-51)

B=1+0i
C=c[1]+1i*c[2]
D=d[1]+1i*d[2]
BAC(D,C,B)
748 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:00:19.10 ID:rygTEqyI.net]: ド底辺シリツ医の三法則
一、ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
二、ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
三、ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

> naname()
　底リ三、ツで頭、はを、入く
ドシの一リのの二卒名三口暴　
辺医　シい人　大校　裏を。
ツ則辺悪本。医学。は鹿る
法底が、だツ、ん卒馬が
ド大いんリてせ大口た
医ないシくま医裏し
は悪辺しいツらい
が底か言リか扱
ドずまシ目者
恥さ辺い医
皆底負偽
ドのを
学間
749 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:00:29.42 ID:rygTEqyI.net]: 　ド辺ツ法ド医はがド恥皆ド学人
底シ医則底大な悪底ずさ底の間
リの　辺がいい辺かま辺負を
三一シ悪、んシし言シい偽
、リい本だリくいリ目医
ツの人。ツてまツか者
での　医、せ医ら扱
頭二大学ん大裏い
、卒校。卒口し
は名　は馬た
を三裏鹿が
、口をる
入暴。
く　
750 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:02:27.74 ID:rygTEqyI.net]: 斜め読みは読みづらいな
751 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:07:23.40 ID:rygTEqyI.net]: 　
ド
底
辺
シ
リ
ツ
医
の
三
法
則
752 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:07:41.00 ID:rygTEqyI.net]: 一
、
ド
底
辺
シ
リ
ツ
医
大
が
悪
い
の
で
は
な
い
、
本
人
の
頭
が
悪
い
ん
だ
。
753 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:08:05.63 ID:rygTEqyI.net]: 二
、
ド
底
辺
シ
リ
ツ
医
大
卒
は
恥
ず
か
し
く
て
、
学
校
名
を
皆
さ
ま
言
い
ま
せ
ん
。
754 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:09:08.57 ID:rygTEqyI.net]: 三
、
ド
底
辺
シ
リ
ツ
医
大
卒
は
裏
口
入
学
の
負
い
目
か
ら
　
755 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:09:17.01 ID:rygTEqyI.net]: 裏
口
馬
鹿
を
暴
く
人
間
を
偽
医
者
扱
い
し
た
が
る
。
756 名前：卵の名無しさん mailto:sage [2020/10/02(金) 12:47:44.57 ID:rygTEqyI.net]: つづら折り、斜め読み

　一辺シのでんだずか、ドを暴。
、底リいはい。恥し三底鹿く　
ドツ悪な悪　はく　辺馬人
医がいが二卒て。シ口
757 名前：間 大、頭、大、んリ裏を 本のド医学せツら偽 人底ツ校ま医か医 辺リ名い大目者 シを言卒い扱 皆まは負い さ裏のし 口学た 入が る 。 []: [ここ壊れてます]
758 名前：卵の名無しさん mailto:sage [2020/10/02(金) 12:47:52.32 ID:rygTEqyI.net]: 一辺シのでんだずか、ドを暴。
、底リいはい。恥し三底鹿く　
ドツ悪な悪　はく　辺馬人
医がいが二卒て。シ口間
大、頭、大、んリ裏を
本のド医学せツら偽
人底ツ校ま医か医
辺リ名い大目者
シを言卒い扱
皆まは負い
さ裏のし
口学た
入が
る　
。
759 名前：卵の名無しさん mailto:sage [2020/10/02(金) 13:40:41.41 ID:rygTEqyI.net]: > str="安倍は二回も仮病で逃亡した国賊"
> naname2(str)
安はも逃賊
倍回で国
二病た
仮し
亡

安倍二仮亡
は回病し
もでた
逃国
賊

安倍も仮賊
は回病国
二でた
逃し
亡

安は二逃亡
倍回でし
も病た
仮国
賊
760 名前：卵の名無しさん mailto:sage [2020/10/02(金) 13:42:56.80 ID:rygTEqyI.net]: ＃　１行斜め読み
ｎａｎａｍｅ　＜－　ｆｕｎｃｔｉｏｎ（
　　ｘ＝”さては裏口容疑者のしりつ医だな”，ｒｅｖｅｒｓｅ＝ＴＲＵＥ
）｛
　　ｓｔｒ＝ｐａｓｔｅ０（’　’，ｘ，ｃｏｌｌａｐｓｅ＝’’）
　　ｎ＝ｎｃｈａｒ（ｓｔｒ）
　　ｉｆ（ｒｅｖｅｒｓｅ）
　　　　ｆｏｒ（ｉ　ｉｎ　１：ｎ）　ｃａｔ（ｒｅｐ（’　’，ｎ－ｉ＋１，），　ｓｕｂｓｔｒ（ｓｔｒ，ｉ，ｉ），’￥ｎ’）
　　ｅｌｓｅ
　　　　ｆｏｒ（ｉ　ｉｎ　１：ｎ）　ｃａｔ（ｒｅｐ（’　’，ｉ－１），ｓｕｂｓｔｒ（ｓｔｒ，ｉ，ｉ），　’￥ｎ’）
｝
ｎａｎａｍｅ（）

＞　ｎａｎａｍｅ（）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　さ　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　て　
　　　　　　　　　　　　　　　　　　　　　　　　　　は　
　　　　　　　　　　　　　　　　　　　　　　　　裏　
　　　　　　　　　　　　　　　　　　　　　　口　
　　　　　　　　　　　　　　　　　　　　容　
　　　　　　　　　　　　　　　　　　疑　
　　　　　　　　　　　　　　　　者　
　　　　　　　　　　　　　　の　
　　　　　　　　　　　　し　
　　　　　　　　　　り　
　　　　　　　　つ　
　　　　　　医　
　　　　だ　
　　な　
761 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:21:43.78 ID:JS9K84/R.net]: ｎａｎａｍｅ３　＜－　ｆｕｎｃｔｉｏｎ（
ｓｔｒ＝”ど底辺しりつ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる”，
ｎ＝１５）｛
ｘ＝ｃｈａｒａｃｔｅｒ（）
ｆｏｒ（ｉ　ｉｎ　１：ｎｃｈａｒ（ｓｔｒ））　ｘ［ｉ］＝ｓｕｂｓｔｒ（ｓｔｒ，ｉ，ｉ）
ｓ＝ｍａｔｒｉｘ（ｒｅｐ（’　’，ｎ＾２），ｎ）
ｆｏｒ（ｉ　ｉｎ　１：ｎ）　ｓ［ｉ，ｎ－ｉ＋１］　＜－　ｘ［ｉ］
　ｆｏｒ（ｉ　ｉｎ　１：（ｎ－１））　ｓ［ｉ＋１，ｎ－ｉ＋１］＝’　’
ｆｏｒ（ｉ　ｉｎ　（ｎ＋１）：（ｎ＋ｎ－２））　　　　　　　ｓ［ｉ－　　ｎ＋２　，　２＊ｎ－ｉ＋１］　＜－　ｘ［ｉ］
　ｆｏｒ（ｉ　ｉｎ　１：（ｎ－３））　ｓ［ｉ＋３，ｎ－ｉ＋１］＝’　’
ｆｏｒ（ｉ　ｉｎ　（２＊ｎ－１）：（２＊ｎ－１＋ｎ－５））　ｓ［ｉ－２＊ｎ＋６　，　３＊ｎ－ｉ－１］　＜－　ｘ［ｉ］
　ｆｏｒ（ｉ　ｉｎ　１：（ｎ－５））　ｓ［ｉ＋５，ｎ－ｉ＋１］＝’　’
ｆｏｒ（ｉ　ｉｎ　（３＊ｎ－５）：（３＊ｎ－５＋ｎ－７））　ｓ［ｉ－３＊ｎ＋１２，　４＊ｎ－ｉ－５］　＜－　ｘ［ｉ］

ｆｏｒ（ｉ　ｉｎ　１：ｎ）　ｃａｔ（ｎａ．ｏｍｉｔ（ｓ［ｉ，］），’￥ｎ’）
｝
ｎａｎａｍｅ３（）
762 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:22:09.99 ID:JS9K84/R.net]: ド
底
辺負
シい
リ目間
ツかを
医ら偽
大裏医
卒口者
は馬扱
裏鹿い
口をし
入暴た
学くが
の人る
763 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:23:26.12 ID:JS9K84/R.net]: 　
ド
底の
辺負
シい人
リ目間
ツかをる
医ら偽
大裏医
卒口者
は馬扱
裏鹿い
口をし
入暴た
学くが
764 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:24:17.42 ID:JS9K84/R.net]: 　
ド
底馬
辺鹿
シを
リ暴
ツく
医人
大間
卒を
は偽
裏医
口者
入扱
学い
のし
負た
いが
目る
か
ら
裏
765 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:49:02.03 ID:JS9K84/R.net]: 　
東
京た
医事
大件頭
のだに
事よ立か
件ねつぎ
は。こり
裏　と、
口シだ信
入リよ頼
学ツ。の
が医　回
現の裏復
在使口は
進命入な
行は学い
形裏のね
で口学。
あ入生
る学を
こ撲除
と滅籍
如国処
実民分
に運に
し動し
めのな
し先い
766 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:49:33.73 ID:JS9K84/R.net]: つ
まな
りい
、。べ
いシき
つリ。立
まツ　て
で出裏ば
経身口よ
っ者入い
てこ学ぞ
もそ医。
シ、師　
リ裏の僕
ツ口免も
医入許裏
大学剥口
卒に奪入
＝厳を学
裏し！と
口いのか
バ処国、
カ分民言
とせ運っ
汚よ動て
名をのた
は訴先ら
拭え頭信
えるに頼
767 名前：卵の名無しさん mailto:sage [2020/10/02(金) 21:00:21.55 ID:JS9K84/R.net]: 　
つ
ま。
り　
、シ　
いリ裏
つツ口。
ま出入　
で身学僕
経者医も
っこ師裏
てその口
も、免
768 名前：入 シ裏許学 リ口剥と ツ入奪か 医学を、 大に！言 卒厳のっ ＝し国て 裏い民た 口処運ら バ分動信 カせの頼 とよ先の 汚を頭回 名訴に復 はえ立は 拭るてな えべばい なきよ。 い。い []: [ここ壊れてます]
769 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:11:28.29 ID:X8GPnLB6.net]: 　ド　シ　三　底　い　が　リ　名　シ　馬
　底　リ　法　辺　の　悪　ツ　を　リ　鹿
辺　ツ　則　シ　で　い　医　皆　ツ　を
　医　　　リ　は　ん　大　さ　医　暴
の　一　ツ　な　だ　卒　ま　大　く
　、　医　い　。　は　言　卒　人
ド　大　、　　　恥　い　は　間
　が　本　二　ず　ま　裏　を
悪　人　、　か　せ　口　偽
　の　ド　し　ん　入　医
頭　底　く　。　学　者
　辺　て　　　の　扱
シ　、　三　負　い
　学　、　い　し
校　ド　目　た
　底　か　が
辺　ら　る
　裏　。
口　　
　　
770 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:13:17.87 ID:X8GPnLB6.net]: 　　ド　シ　三　底　い　が　リ　名　シ　馬
　底　リ　法　辺　の　悪　ツ　を　リ　鹿
辺　ツ　則　シ　で　い　医　皆　ツ　を
　医　　　リ　は　ん　大　さ　医　暴
の　一　ツ　な　だ　卒　ま　大　く
　、　医　い　。　は　言　卒　人
ド　大　、　　　恥　い　は　間
　が　本　二　ず　ま　裏　を
悪　人　、　か　せ　口　偽
　の　ド　し　ん　入　医
頭　底　く　。　学　者
　辺　て　　　の　扱
シ　、　三　負　い
　学　、　い　し
校　ド　目　た
　底　か　が
辺　ら　る
　裏　。
口　　
771 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:42:05.25 ID:X8GPnLB6.net]: 左　上　白　な　プ　て　は　に
　の　が　っ　ロ　み　い　く
空　無　て　グ　た　え　い
　駄　い　ラ　。　角　。
に　た　ム　　　に　
　の　を　省　文　
で　改　ス　字　
　良　ペ　が　
し　ー　並　
　ス　ぶ　
と　と　
　読　
み　
　

左　空　に　で　し　と　み　
　の　駄　の　良　ス　読　
上　無　た　改　ー　と　
　が　い　を　ペ　ぶ　
白　て　ム　ス　並　
　っ　ラ　省　が　
な　グ　　　字　
　ロ　。　文　
プ　た　に　
　み　角　
て　え　
　い　。
は　い
　く
に
772 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:58:01.50 ID:X8GPnLB6.net]: 　　　　　　左　駄　プ　た　に
　　　　　上　に　ロ　。　文
　　　　の　な　グ　　　字
　　　空　っ　ラ　省　が
　　白　て　ム　ス　並
　が　い　を　ペ　ぶ
無　た　改　ー　と
　の　良　ス　読
で　し　と　み
　て　は　に
み　い　く
　え　い
角　。
773 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:58:40.76 ID:X8GPnLB6.net]: 　　　　　　　　医　底　で　だ　恥　せ　学　い
　　　　　ド　の　辺　は　。　ず　ん　の　し
　　　　底　三　シ　な　　　か　。　負　た
　　　辺　法　リ　い　二　し　　　い　が
　　シ　則　ツ　、　、　く　三　目　る
　リ　　　医　本　ド　て　、　か　。
ツ　一　大　人　底　、　ド　ら　　
　、　が　の　辺　学　底　裏　　
ド　悪　頭　シ　校　辺　口　
　い　が　リ　名　シ　馬　
の　悪　ツ　を　リ　鹿　
　い　医　皆　ツ　を　
ん　大　さ　医　暴　
　卒　ま　大　く　
は　言　卒　人　
　い　は　間　
ま　裏　を　
　口　偽　
入　医　
　者　
扱　
　
774 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:58:46.41 ID:X8GPnLB6.net]: 　　　　　　ツ　ド　の　ん　は　ま　入　扱　
　　　　　リ　、　い　い　卒　い　口　者　
　　　　シ　一　悪　悪　大　言　裏　医　
　　　辺　　　が　が　医　ま　は　偽　
　　底　則　大　頭　ツ　さ　卒　を　
　ド　法　医　の　リ　皆　大　間　
　　三　ツ　人　シ　を　医　人　
　の　リ　本　辺　名　ツ　く　
医　シ　、　底　校　リ　暴　
　辺　い　ド　学　シ　を　
底　な　、　、　辺　鹿　
　は　二　て　底　馬　
で　　　く　ド　口　
　。　し　、　裏　
だ　か　三　ら　
　ず　　　か　　
恥　。　目　　
　ん　い　。
せ　負　る
　の　が
学　た
　し
い
775 名前：卵の名無しさん mailto:sage [2020/10/03(土) 13:16:21.57 ID:X8GPnLB6.net]: 東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だ。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はない。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。
776 名前：卵の名無しさん mailto:sage [2020/10/03(土) 13:17:04.11 ID:X8GPnLB6.net]: 　　　　　　東　進　行　の　使　除　籍　＝　裏　医　師　　
　　　　　京　在　形　医　命　を　処　卒　口　学　の　。
　　　　医　現　で　ツ　は　生　分　大　バ　入　免　い
　　　大　が　あ　リ　裏　学　に　医　カ　口　許　な
　　の　学　る　シ　口　
777 名前：の　し　ツ　と　裏　剥　は 事　入　こ　　　入　学　な　リ　汚　　　奪　復 件　口　と　。　学　入　い　シ　名　。　を　回 裏　如　だ　撲　口　か　も　は　き　！　の は　実　件　滅　裏　ぎ　て　拭　べ　の　頼 に　事　国　　　り　っ　え　る　国　信 し　た　民　。　、　経　な　え　民　ら し　運　と　信　で　い　訴　運　た め　動　こ　頼　ま　。　を　動　て の　つ　の　つ　　　よ　の　っ 先　立　回　い　シ　せ　先　言 に　復　、　リ　分　頭　、 頭　は　り　ツ　処　に　か な　ま　出　い　立　と い　つ　身　し　て　学 者　厳　ば　入 。　こ　に　よ　口 そ　学　い 、　入　。 口 裏　僕 も 裏　 []: [ここ壊れてます]
778 名前：卵の名無しさん mailto:sage [2020/10/03(土) 19:55:18.52 ID:DtGYj66K.net]: あーあ
779 名前：卵の名無しさん mailto:sage [2020/10/04(日) 19:43:12.12 ID:txbCWDtC.net]: 濃厚接触の動画

https://www.washingtonpost.com/elections/2020/10/03/trump-covid-live-updates/

より

https://i.imgur.com/qlq74pb.jpg
780 名前：卵の名無しさん mailto:sage [2020/10/04(日) 21:58:15.66 ID:txbCWDtC.net]: 生活圏を超える人の移動は、確実に接触率を上げ、これが実効再生産数を挙げて、感染者数上昇を引き起こす。
現在、GOTOで東京のウィルスを全国に拡散中。
しばらくは、旅行を楽しむような若者や元気な人が隠れ陽性となり、感染者数は急には増えないが、やがてこれらが顕在化して爆発する。
781 名前：卵の名無しさん mailto:sage [2020/10/04(日) 22:00:13.58 ID:txbCWDtC.net]: 世の中には、接客業を繁盛させることが「経済を回す」ことだと勘違いしてる馬鹿が多いので、
製造業がかなり疲弊していることが軽視されている。
782 名前：卵の名無しさん mailto:sage [2020/10/04(日) 22:08:06.13 ID:txbCWDtC.net]: 景気が良くても派遣業者とかいう奴隷商人に賃金ピンはねされ
景気が悪くなれば真っ先にくびになる
そんな制度を作ったのが自民党
考え無しに投票した国民による意思だから喜んで解雇されれば良い
783 名前：卵の名無しさん [2020/10/05(月) 11:31:31.98 ID:6RAt/bTF+]: しかし東京医大はひどかった。
まさかねえ～（笑）
784 名前：暗号　！！ [2020/10/05(月) 18:32:05.31 ID:fNqz3KhH/]: 暗号　sinngata korona wo baramaita hannninn　ha

[biru・geitu] akumasuuhaisya
ro-domaitore-ya terorisuto [mokusirokunokemono]
yudaya　jinn [sekai touitu syuukyou]
abe sinnzou [ayasiikoudou kannsennwo hirogeyoutosuru]
masukomi　ga hannninnno nakama
tedorosu [kannsennwo wazato hirogeru]
terebi ni deteiru kagakusya mo hanninn

jinnkoussakugennkeikaku wo susumeru karuto
syuudan
785 名前： ni kiwotukero !![ hannninn ha karutosyuudann!!] []: [ここ壊れてます]
786 名前：卵の名無しさん mailto:sage [2020/10/07(水) 23:00:26.11 ID:/kSbnZff.net]: SAW VI

Did you know that in the Far East,
people pay their doctors
when they're healthy?

When they're sick,
they don't have to pay them.

So, basically,
they end up paying for what they want,

not what they don't want.

We got it all ass-backwards here.
787 名前：卵の名無しさん [2020/10/08(木) 14:13:29.57 ID:aaWv9mW1U]: ＞底辺私立医大を卒業した医者って頭悪いよね　．．．×

底辺私立医大を卒業した医者って怖いよね(ヤブが多いので)．．．○

ヤブにより、年間３万人死んでるとの試算もあるｗｗ
788 名前：卵の名無しさん mailto:sage [2020/10/08(木) 19:24:32.69 ID:206+ydgS.net]: 記者　「10年間くらい(消費税)引き上げなくてもいいという、その根拠ついては何だと考えられているのか」
菅　　「まさに、アベノミクスを推進をし、経済を成長させる。まさに、経済成長…え…経済を再生させると、させなければ、財政健全化ないという、その政策のである」

https://twitter.com/shin19infinity/status/1304367586738487297

アベちゃん以上にひどいじゃないか。完全に耄碌ジジイ。

安倍のほうがマシだったという時代が来そうだな。
(deleted an unsolicited ad)
789 名前：卵の名無しさん mailto:sage [2020/10/08(木) 19:34:02.60 ID:206+ydgS.net]: 　　　　　　 D 　ア　は　知　い　も　医　は　現
　　　　　 S 　ス　削　識　い　な　師　こ　が
　　　　 M 　ペ　除　を　ぞ　い　に　れ　、
　　　 - 　ル　さ　ア　。　真　最　！　さ
　　 I 　ガ　れ　ッ　　　理　も　　　て
　 V 　ー　た　プ　ア　も　イ　　　は
で　症　こ　デ　ッ　あ　ン　裏　シ
　候　と　ー　プ　る　パ　口　リ
群　く　ト　デ　。　ク　シ　ツ
　ら　し　ー　　　ト　リ　だ
い　た　ト　（　が　ツ　な
　方　す　例　あ　医　　
が　る　）　る　　　で
　必　　　レ　こ　あ
要　日　ッ　の　る
　本　テ　マ　。
の　ル　イ　
　貼　ル　
り　ド　
　な　
表　
　
790 名前：卵の名無しさん mailto:sage [2020/10/09(金) 06:35:42.82 ID:MO9EjN/O.net]: そ返 W タてだ　
うる O ーいな　
いの R をる　　
うは D スっ　　
レ N フルて　　
ス G ィーこ　　
がルしと　
791 名前：卵の名無しさん mailto:sage [2020/10/09(金) 06:36:37.59 ID:MO9EjN/O.net]: そ返 W タてだ　
うる O ーいな　
いの R をる　　
うは D スっ　　
レ N フルて　　
ス G ィーこ　　
がルしと　

まグの種　
あラ練の　
、ミ習道　
プンで楽　
ログ一
792 名前：卵の名無しさん mailto:sage [2020/10/09(金) 18:22:00.81 ID:MO9EjN/O.net]: 二〇一一年三月の東日本大震災と東京電力福島第一原発事故以降にでも、
政府による圧倒的な産業支援や、または税制優遇を通じて蓄電池やそれにまつわる半導体、太陽光パネルとそれに関連する薄膜技術、あるいはＥＶを想定したモーターと電磁石などの技術開発に投資が向かっていれば、この分野で日本が世界的に覇権を握ることが可能であっただ
793 名前：ろう。 []: [ここ壊れてます]
794 名前：卵の名無しさん mailto:sage [2020/10/09(金) 18:22:54.14 ID:MO9EjN/O.net]: 「戦わずして負ける国」という文脈でこの事象を見れば、原発依存の継続は、米国が仕組んだ日本の「経済的武装解除」だったのではないかと私は推察する。　
二一世紀のエネルギー覇権を日本が握ることは、米国にとって許されない。だから「原発」という過去の負の遺産を背負わせ続ける。
そうして世界経済の中で戦える武器を奪い取り、経済的属国化を維持、継続しようとしたのではないか。

田崎基. 令和日本の敗戦　──虚構の経済と蹂躙の政治を暴く (ちくま新書) (Kindle の位置No.2160-2164). 筑摩書房. Kindle 版.
795 名前：卵の名無しさん mailto:sage [2020/10/11(日) 06:00:20.59 ID:vXgR5p/0.net]: A(t)=
at when 0<t<2400/a
2400 - a(t-2400/a)=4800-at when 2400/a<t<4800/a

B(t)=
2400 - bt when 0<t<2400/b
bt-2400 when 2400/b<t<4800/b
796 名前：卵の名無しさん mailto:sage [2020/10/11(日) 06:32:39.03 ID:vXgR5p/0.net]: Aを原点して太郎君の速度をa,次郎君の速度をbとして
時刻tにおける太郎君の位置A(t)は
A(t)=
at when 0<t<2400/a
2400 - a(t-2400/a)=4800-at when 2400/a<t<4800/a

時刻tにおける太郎君の位置B(t)は
B(t)=
2400 - bt when 0<t<2400/b
bt-2400 when 2400/b<t<4800/b

一回目に出会う時刻をt1、その座標をx1として
x1=at1=2400-bt1
二回目に出会う時刻をt2、その座標をx2として
x2=4800-at2=bt2-2400

x1-x2=320なので
at1-(4800-at2)=320
at1-(bt2-2400)=320
2400-bt1-(4800-at2)=320

整理すると
at1+at2=5120
at1-bt2=-2080
at2-bt1=320-2400-4800
797 名前：卵の名無しさん mailto:sage [2020/10/11(日) 07:34:46.49 ID:3gd5bAO1.net]: 同時に出発してAとBの間を往復します。
ＡからＢへ向かって太郎君が，ＢからＡへ向かって次郎君が進みます。
ＡとＢ地点の間の距離は２４００メートルです。２回目に出会った地点は１回目に出会った地点よりも３２０メートルＡ側にずれた地点でした。このとき太郎と次郎の速さの比を答えなさい。
798 名前：卵の名無しさん mailto:sage [2020/10/11(日) 12:25:24.12 ID:OQwYWkDR.net]: 太郎君の速度をa,次郎君の速度をbとして

横軸に時間、縦軸にAからの距離をグラフにすると
黒が太郎、赤が次郎。交点の縦座標の差が320になる。

https://i.imgur.com/kzerGJn.png

1st encounter
y=ax
y=2400-bx
を解いて
時間2400/(a+b)に2400a/(a+b))で1回の出会い

y=4800-ax
y=bx-2400
を解いて
時間7200/(a+b)に4800-7200a/(a+b))で2回目の出会い

Aからの距離の差が320ｍなので
2400a/(a+b) - ( 4800-7200a/(a+b) ) = 320

これを展開すると
7a=8b
a/b=8/7
太郎：次郎＝8：7
799 名前：卵の名無しさん mailto:sage [2020/10/11(日) 13:07:27.40 ID:OQwYWkDR.net]: >>742
グラフに説明をいれてみた

https://i.imgur.com/Utn6XM3.png
800 名前：卵の名無しさん mailto:sage [2020/10/11(日) 14:43:19.31 ID:OQwYWkDR.net]: taro <- function(t,v=80,d=2400){
to=d/v # time for oneway trip
if((t%/%to)%%2==0) return(v*t%%to)
else return(d - v*t%%to)
}

taro=Vectorize(taro)
t=seq(0,300,0.1)
plot(t,taro(t,v=80),type='l',bty='l',xlab='時間',ylab='Aからの距離',axes=F)
axis(2)
axis(1,labels = F)

jiro <- function(t,.v=70,.d=2400){
.d - taro(t,v=.v,d=.d)
}

jiro=Vectorize(jiro)
lines(t,jiro(t),col=2)
legend('bottom',bty='n',legend=c('太郎','次郎'),col=1:2,lwd=1)
801 名前：卵の名無しさん mailto:sage [2020/10/11(日) 15:16:31.23 ID: ]: [ここ壊れてます]
802 名前：OQwYWkDR.net mailto: 発展問題を考えてみた。

太郎君と次郎君が同時に出発してAとBの間を往復を繰り返します。
ＡからＢへ向かって太郎君が，ＢからＡへ向かって次郎君が進みます。
ＡとＢ地点の間の距離は２４００メートルです。２回目に出会った地点は１回目に出会った地点よりも３２０メートルＡ側にずれた地点でした。
７回目に会う場所はA地点からどれだけ離れた点か答えなさい。 []: [ここ壊れてます]
803 名前：卵の名無しさん mailto:sage [2020/10/11(日) 20:47:55.10 ID:OQwYWkDR.net]: ## distance between taro & jiro
dtj <- function(t,vT=80,vJ=70,d=2400){
jiro(t,vJ,d) - taro(t,vT,d)
}
t=seq(0,500,0.25)
plot(t,dtj(t),type='l',axes=F) ; abline(h=0,lty=3)
axis(2) ; axis(1,labels=F)
uniroot(dtj,c(50,100)) # 3rd encounter
taro(80) # its location
uniroot(dtj,c(200,210)) # 7th encounter
taro(208) # its location
taro(240) ; jiro(240) # 8th at point A

round(dtj(16+32*0:19),10)
data.frame(distance=taro(16+32*0:19))
804 名前：卵の名無しさん mailto:sage [2020/10/11(日) 21:45:18.85 ID:OQwYWkDR.net]: # where is n_th encouter?
nthe <- function(n) taro(16+32*0:14)[ifelse(n%%15,n%%15,15)]
nthe=Vectorize(nthe)
nthe(777)
n=1:100
plot(n,nthe(n),type='l',xlab='n-th encounter',ylab='distance from A')
805 名前：卵の名無しさん mailto:sage [2020/10/11(日) 21:45:42.67 ID:OQwYWkDR.net]: 横軸を出会いが何回めか、縦軸に出会った点のAからの距離としてグラフにしてみた。

https://i.imgur.com/BQOtahj.png
806 名前：卵の名無しさん mailto:sage [2020/10/12(月) 07:44:18.91 ID:Zj/JMD3u.net]: Vt:太郎の速度、Vj:次郎の速度
A1:１回目の出会いの点、A2=2回目の出会いの点
Vt/Vj=A1/(2400-A1)=((2400-A1)+(2400-A2))/(A1+A2)

A1=x、A2=x-320から
Vt/Vj=x/(2400-x)=((2400-x)+(2400-(x-320))) / (x+x-320)
これを解くとx=1280なので
Vt/Vj=1280/(2400-1280)=8/7

D=2400,d=320
y=x/(D-x)=((D-x)+(D-(x-d))) / (x+x-d)
x = (d + 2 D) /4
Vt/Vj = (2 D + d)/(2 D - d)

((D-x)+(D-(x-d))) - (x+x-d) where x = (d + 2 D) /4
== d
807 名前：卵の名無しさん mailto:sage [2020/10/12(月) 13:12:22.39 ID:SUwbGDSe.net]: ## 元利均等返済の支払総額　- 元金均等返済の支払総額
# D:借入額　r:月利(年利/12) N:返済月数
Dd <- function(D=10^8,r=0.01/12,N=120) D*N*r*(1+r)^N/((1+r)^N-1) - D*( 1 + r*(N+1)/2)
Dd()
808 名前：卵の名無しさん mailto:sage [2020/10/12(月) 13:14:49.46 ID:SUwbGDSe.net]: １億円を年利１％で１０年返済で借りたとする。
　元利均等返済の支払総額
　元金均等返済の支払総額
の差はいくらか？
809 名前：卵の名無しさん mailto:sage [2020/10/12(月) 18:23:49.86 ID:1zSGJut3.net]: 日本の官僚のような表現だなぁ。

COVID-19 can sometimes be spread by airborne transmission

https://www.cdc.gov/coronavirus/2019-ncov/prevent-getting-sick/how-covid-spreads.html
810 名前：卵の名無しさん mailto:sage [2020/10/13(火) 08:38:52.98 ID:Y7G3krN3.net]: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\UsbStor

この中の「Start」の値を「4」にすればUSBメモリが使えなくなり、「3」にすればUSBメモリが使えるようになるという
811 名前：卵の名無しさん mailto:sage [2020/10/13(火) 12:18:01.05 ID:tuQgtMnl.net]: Windows 10で自動サインインするには、次の手順にしたがって「netplwiz」というコマンドで設定を変更すればよい。
812 名前：卵の名無しさん mailto:sage [2020/10/13(火) 12:18:44.62 ID:Y7G3krN3.net]: 自動サインインは便利な反面、パスワードの入力を省くことにより、第三者に勝手にパソコンを利用されるリスクがあるなどの懸念がある。
しかし、個人利用のみで、自宅でしか使っていないパソコンなら、その種の心配は少ないだろう。

パスワードの入力の煩雑さにイライラしていた人
813 名前：は、ぜひ自動サインインで自宅の自分パソコンの起動を快適にして利用してみてはいかがだろうか。 https://news.livedoor.com/article/detail/17065047/ []: [ここ壊れてます]
814 名前：卵の名無しさん mailto:sage [2020/10/13(火) 13:24:32.54 ID:fNIliGFO.net]: 左翼は正論で反駁するからダメなんだよね愚民というものの性質が分かってない。だから選挙で敗ける。
815 名前：卵の名無しさん mailto:sage [2020/10/14(水) 16:31:36.14 ID:DE6sqMps.net]: クリプトン電球(LDS100V54W)

LED電球(LDA6LHE17BHS)
816 名前：卵の名無しさん mailto:sage [2020/10/15(木) 07:07:49.54 ID:S3zpGp7K.net]: >>755
スリープ解除時のパスワード入力を省略する

[スタートボタン] をクリックして [設定] をクリックします。
startsetting

[アカウント] をクリックします。
account

[サインインオプション] をクリックします。

「しばらく操作しなかった場合に・・・」から [常にオフ] を選択します。
817 名前：卵の名無しさん mailto:sage [2020/10/15(木) 10:30:33.43 ID:BdYTZNok.net]: pm=permutations(1:20,5)
f <- function(x,n) sum(any(1:5==x))==n
s=numeric(5)
for(i in 1:5){
s[i]=sum(apply(pm,1, function(x) f(x,i)))
}
s
818 名前：卵の名無しさん mailto:sage [2020/10/15(木) 17:00:30.96 ID:0HNu1VEE.net]: rm(list=ls())
options(digits=22)

library(gtools)

pm=permutations(20,5,1:20) # 1-20から5個の順列
f <- function(x,n) sum(1:5==x)==n　# 配列xのｎ番目にｎが配置された数を返す
s=numeric(5)
for(i in 1:5){
s[i]=sum(apply(pm,1, function(x) f(x,i))) #i番目がiの数(=正解数)を返す
}
# s 375045 41270 2410 75 1

N=choose(20,5)*factorial(5) # 1860480 20順列5
MASS::fractions(sum((1:5)*s)/N) # 期待値の分数表示

N-sum(s) # 1441679　０点の場合の数
P0=(N-sum(s))/N
MASS::fractions(P0) # ０点の確率
P=c(P0,s/N) #０点～５点の確率

score=permutations(6,8,0:5,repeats=TRUE) # ８問のすべての点数(0-5)の順列
total_score=apply(score,1,sum) # 総得点の数列
(si=score[total_score>=24,]) # 総得点24点以上の数列

g <- function(x) prod(P[x+1]) # 点数配列→その確率
sum(apply(si,1,g) #その点数(24点以上）になる確率の総和
819 名前：卵の名無しさん mailto:sage [2020/10/16(金) 10:29:31.81 ID:D9Sfv+HZ.net]: 社労士試験２　<- function(
n20=20, # 選択肢数
n5=5, # 空欄数
n8=8, # 問題数
n24=24 # 合格最低点
){
library(gtools)
library(gmp)
pm=permutations(n20,n5,1:n20)
f <- function(x,n) sum(1:n5==x)==n　
s=numeric(n5)
for(i in 1:n5){
s[i]=sum(apply(pm,1, function(x) f(x,i)))
}
N=chooseZ(n20,n5)*factorial(n5)
s0=N-sum(s)
S=c(s0,s)
score=permutations(n5+1,n8,0:n5,repeats=TRUE)
s24=score[apply(score,1,sum)>=n24,]
n=as.bigz(0) # numerator
for(i in 1:nrow(s24)){
n=add.bigz(n,prod.bigz(S[s24[i,]+1]))
}
P=n/(N^n8) # 分数表示
nP=asNumeric(P) # 少数表示
list(P,nP)
}
社労士試験２(20,5,8,24)
社労士試験２(15,5,8,30)
820 名前：卵の名無しさん mailto:sage [2020/10/16(金) 17:24:43.94 ID:u4+tsgdi.net]: f <- function(Box,Sum){ # Box:箱の数,Sum：入った数字の合計の値
# 重複を許してｎ個からｒ個を選ぶ組み合わせを列挙する
H <- function(n, r, v=1:n) {
if (r == 0)
NULL
else if (r == 1)
matrix(v, n, 1)
else if (n == 1)
matrix(v, 1, r)
else rbind(cbind(v[1], H(n, r - 1, v)), H(n - 1, r, v[-1]))
}
h=H(Box,Sum-Box) # Box
821 名前：個の中から重複を許してSum-Box個を選ぶ nh=nrow(h) # その組み合わせ数 re=matrix(rep(NA,Box*nh),nrow=nh,ncol=Box) # メモリ確保 a=numeric(Box) for(i in 1:nh){　# 各々の選び方iに対して for(j in 1:Box) a[j]=sum(j==h[i,]) # どの箱が何個選択されたかを re[i,] =a # reのi行に入れる } return(re+1) # 1から始まる分を補正 } 箱３個合計９の場合 > f(Box=3,Sum=9) []: [ここ壊れてます]
822 名前：卵の名無しさん mailto:sage [2020/10/17(土) 08:36:54.78 ID:fyhn97rm.net]: '%=>%' = function(P,Q) !(P & !Q)
(gr=expand.grid(c(T,F),c(T,F)))
f <- function(P,Q) (P %=>% (Q & !Q)) %=>% !P
mapply(f,gr[,1],gr[,2])
823 名前：卵の名無しさん mailto:sage [2020/10/17(土) 14:38:05.30 ID:sRhm83DJ.net]: # ロシアのワクチンは旧ソ連の人工衛星にちなみ「スプートニクＶ」と名付けられた。
# ランセットに掲載された論文によると、
# ７６人を対象に第１相および第２相の治験を行ったところ、
# 全員が新型コロナウイルスに対する抗体を獲得したという。
# 米Ｊ＆Ｊ、コロナワクチン治験中断　参加者が原因不明の病気
# 同社は９月、新型コロナワクチンの治験の最終段階に当たる第３相試験に着手したと発表。
# 最大６万人を対象に安全性や有効性を確認するとしていた。

# 治験が再開されて6万例でこの奇病1例だけと仮定して発生割合を1/60000とする。
# ロシアのワクチンではこの奇病の報告はないから発生割合は0/76

# 奇病発生率1/60000と0/76では、どちらが奇病発生が少ないといえるか？

rm(list=ls())
source('tools.R')

# Jeffereys prior
a=b=0.5
par(mfrow=c(2,1))
curve(dbeta(x,a+0,b+76),bty='l')
curve(dbeta(x,a+1,b+59999),col=2,bty='l')
k=1e6

SP=rbeta(k,a+0,b+76)
JJ=rbeta(k,a+1,b+59999)
mean(SP/JJ>1)
mean(SP-JJ>0)

jags4prop(0,1,76,60000,0.5,0.5)
824 名前：卵の名無しさん mailto:sage [2020/10/17(土) 14:38:24.29 ID:sRhm83DJ.net]: # Uniform prior
a=b=1
par(mfrow=c(2,1))

curve(dbeta(x,a+0,b+76),bty='l')
curve(dbeta(x,a+1,b+59999),col=2,bty='l')
k=1e6

SP=rbeta(k,a+0,b+76)
JJ=rbeta(k,a+1,b+59999)
mean(SP/JJ>1)
mean(SP-JJ>0)

jags4prop(0,1,76,60000,1,1)
825 名前：卵の名無しさん mailto:sage [2020/10/17(土) 14:40:22.82 ID:sRhm83DJ.net]: jags4prop <- function(r1,r2,n1,n2,alpha=1,beta=1,
ROPEdiff=c(-0.025,0.025),ROPErate=c(0.80,1.25),
NNT=FALSE){
library(rjags)
y=c(rep(1,r1),rep(0,n1-r1),rep(1,r2),rep(0,n2-r2))
s=as.numeric(factor(c(rep('D',n1),rep('U',n2))))
a=alpha ; b=beta # JAGS prior : beta(alpha,beta)
myData=data.frame(y=y,s=s)
Ntotal = length(y)
Nsubj = length(unique(s))
dataList = list(
y = y ,
s = s ,
Ntotal = Ntotal ,
Nsubj = Nsubj
)
826 名前：卵の名無しさん mailto:sage [2020/10/17(土) 14:40:27.01 ID:sRhm83DJ.net]: # JAGS model
modelString = paste0("
model {
for ( i in 1:Ntotal ) {
y[i] ~ dbern( theta[s[i]] )
}
for ( sIdx in 1:Nsubj ) {
theta[sIdx] ~ dbeta(", a,',' , b," )
}
}
")
writeLines( modelString , con="TEMPmodel.txt" )
jagsModel = jags.model( file="TEMPmodel.txt" , data=dataList, quiet=TRUE)
update(jagsModel)
codaSamples = coda.samples( jagsModel , variable="theta", n.iter=10000 )
mcmcMat=as.matrix(codaSamples)
rate1=mcmcMat[,1]
rate2=mcmcMat[,2]
x11()
par(mfrow=c(2,2))
827 名前：BEST::plotPost(rate1,col='gray') if(NNT){ BEST::plotPost(abs(1/(rate1-rate2)), xlab ='NNT(NNH)',col='pink')} else{ BEST::plotPost(rate1-rate2,compVal=0,ROPE=ROPEdiff,cex=1,col='pink') } BEST::plotPost(rate2,col='gray') BEST::plotPost(rate1/rate2,compVal=1,ROPE=ROPErate,col='skyblue') invisible(codaSamples) } []: [ここ壊れてます]
828 名前：卵の名無しさん mailto:sage [2020/10/17(土) 15:32:20.54 ID:sRhm83DJ.net]: source('tools.R')
# Jeffereys prior
a=b=0.5
par(mfrow=c(2,1))
curve(dbeta(x,a+0,b+76),bty='l')
curve(dbeta(x,a+1,b+59999),col=2,bty='l')

k=1e6
SP=rbeta(k,a+0,b+76)
JJ=rbeta(k,a+1,b+59999)
mean(SP/JJ>1)
mean(SP-JJ>0)
BEST::plotPost(SP/JJ,compVal = 1)
BEST::plotPost(SP-JJ,compVal = 0)
jags4prop(0,1,76,60000,0.5,0.5)

# Uniform prior
a=b=1
par(mfrow=c(2,1))
curve(dbeta(x,a+0,b+76),bty='l')
curve(dbeta(x,a+1,b+59999),col=2,bty='l')

k=1e6
SP=rbeta(k,a+0,b+76)
JJ=rbeta(k,a+1,b+59999)
mean(SP/JJ>1)
mean(SP-JJ>0)
BEST::plotPost(SP/JJ,compVal = 1)
BEST::plotPost(SP-JJ,compVal = 0)
jags4prop(0,1,76,60000,1,1)
829 名前：卵の名無しさん mailto:sage [2020/10/17(土) 17:08:54.41 ID:sRhm83DJ.net]: 安倍・自由移民党のおかげや

日本女性の梅毒患者数はこの5年間で25倍に増加
://biz-journal.jp/2017/03/post_18252.html
830 名前：卵の名無しさん mailto:sage [2020/10/17(土) 23:32:11.70 ID:dEPfTJ75.net]: >>764
> # 全員が新型コロナウイルスに対する抗体を獲得したという。
ワロタ
831 名前：卵の名無しさん mailto:sage [2020/10/18(日) 04:42:31.02 ID:PYky+T0u.net]: options(digits=22)
par(bty='l')
par(mfrow=c(2,1))

f <- function(x) x^x
curve(f(x),-0.1,1)
D(expression(x^x),'x')
f1 <- function(x) x^(x - 1) * x + x^x * log(x)
curve(f1(x),-0.1,1) ; abline(h=0,lty=3)
uniroot(f1,c(0.01,1)) ; 1/exp(1)
f(1/exp(1)) ; exp(-1/exp(1))
832 名前：卵の名無しさん mailto:sage [2020/10/18(日) 04:44:21.95 ID:PYky+T0u.net]: >>770
値に０や１があるとカイ二乗検定が使えないから、ベイズ統計で処理することになるね。
833 名前：卵の名無しさん mailto:sage [2020/10/18(日) 15:12:57.46 ID:SLEF4C2c.net]: sim <- function(n){
a=numeric()
a[1]=0
if(n==1) return(a)
a[2]=sample(0:2,1)
if(n==2) return(a)
for(i in 3:n){
x=sample(0:2,1)
a[i]=x
if(x==0){
i_max=max(which(a[1:(i-1)]==0))
b=a[(i_max+1):(i-1)]
if(all(b!=2)){
b[b==1]=0
a[(i_max+1):(i-1)]=b
}
}
}
return(a)
}
834 名前：卵の名無しさん mailto:sage [2020/10/18(日) 15:49:59.13 ID:PYky+T0u.net]: "
時刻t=0に、黒板に数字0が書かれている。
各時刻t=1,2,3,...において、数字0,1,2を下図のように1つずつ横一列に書いていく。
どの数字が書かれるかは同様に確からしい。

（t=0のとき）0
（t=5のときの一例）011212

各時刻tにおいて、数字を1つ書き終えた後、以下の操作を一回行う。

【操作】
この時刻に書かれた数字が0であった場合、そこから最も近い位置の0を探す。
この2つの0で挟まれた数字列の中に1がある場合、それら全てを0に書き換える。
ただしこの数字列の中に2が1つでも含まれる場合は、数字列に対する何らの操作も行わない。
"
835 名前：卵の名無しさん mailto:sage [2020/10/18(日) 15:50:06.26 ID:PYky+T0u.net]: rm(list=ls())

f<- function(t){ # 時刻tでの数列aを返す
a=numeric()
a[1]=0 　　 # a[1]=0, t=0での数列
if(t==0) return(a)
for(i in 2:(t+1)){
x=sample(0:2,1) # 追加する数字0,1,2
a[i]=x
if(x==0){ # 0であれば
i_max=max(which(a[1:(i-1)]==0)) # i_max:追加前の最後の0のindex
b=a[(i_max+1):(i-1)] # b:追加前の最後の0からの追加した0を除く数列
if(all(b!=2)){ # bに2が含まれなければ
b[b==1]=0 # bの１を0に置き換えて
a[(i_max+1):(i-1)]=b # aの配列に置換する
}
}
}
return(a)
}
f(10)
sim <- function(n) sum(f(n)==0)
mean(replicate(1e4,sim(10)))
836 名前：卵の名無しさん mailto:sage [2020/10/18(日) 16:28:25.78 ID:PYky+T0u.net]: # 書かれた数列から変換後の結果を返す
f<- function(y=c(1,1,0,1,2,0,1)){
t=length(y)
a=numeric(t+1)
a[1]=0 　　 # a[1]=0, t=0での数列
if(t==0) return(a)
for(i in 2:(t+1)){
x=y[i-1]
a[i]=x
if(x==0){ # 0であれば
i_max=max(which(a[1:(i-1)]==0)) # i_max:追加前の最後の0のindex
b=a[(i_max+1):(i-1)] # b:追加前の最後の0からの追加した0を除く数列
if(all(b!=2)){ # bに2が含まれなければ
b[b==1]=0 # bの１を0に置き換えて
a[(i_max+1):(i-1)]=b # aの配列に置換する
}
}
}
return(a)
}
f(c(1,1,0))
f(c(1,1,0,1,2,0,1))
837 名前：卵の名無しさん mailto:sage [2020/10/18(日) 16:28:45.18 ID:PYky+T0u.net]: > f(c(1,1,0))
[1] 0 0 0 0
> f(c(1,1,0,1,2,0,1))
[1] 0 0 0 0 1 2 0 1
838 名前：卵の名無しさん mailto:sage [2020/10/19(月) 06:14:37.34 ID:0wKKOwQC.net]: 問題：
シリツ医ならば (馬鹿ならば裏口である)　という命題が真であるときに結論できるのは以下のいずれか？

1 : シリツ医ならば (裏口ならば馬鹿である)
2 : 馬鹿ならば (シリツ医ならば裏口である)
3 : 馬鹿ならば (裏口ならばシリツ医である)
4 : 裏口ならば (シリツ医ならば馬鹿である)
5 : 裏口ならば (馬鹿ならばシリツ医である)

# ならばの定義：(P かつ (Qでない))ではない
'%=>%' = function(P,Q) !(P & !Q)

A = function(S,B,U) S %=>% (B %=>% U)
B1 = function(S,B,U) S %=>% (U %=>% B)
B2 = function(S,B,U) B %=>% (S %=>% U)
B3 = function(S,B,U) B %=>% (U %=>% S)
B4 = function(S,B,U) U %=>% (S %=>% B)
B5 = function(S,B,U) U %=>% (B %=>% S)

C1 = function(S,B,U) A(S,B,U) %=>% B1(S,B,U)
C2 = function(S,B,U) A(S,B,U) %=>% B2(S,B,U)
C3 = function(S,B,U) A(S,B,U) %=>% B3(S,B,U)
C4 = function(S,B,U) A(S,B,U) %=>% B4 (S,B,U)
C5 = function(S,B,U) A(S,B,U) %=>% B5 (S,B,U)

gr=expand.grid(c(T,F),c(T,F),c(T,F))

all(mapply(C1,gr[,1],gr[,2],gr[,3]))
all(mapply(C2,gr[,1],gr[,2],gr[,3]))
all(mapply(C3,gr[,1],gr[,2],gr[,3]))
all(mapply(C4,gr[,1],gr[,2],gr[,3]))
all(mapply(C5,gr[,1],gr[,2],gr[,3]))
839 名前：卵の名無しさん mailto:sage [2020/10/19(月) 06:20:48.23 ID:0wKKOwQC.net]: D2 = function(S,B,U) B2(S,B,U) %=>% A(S,B,U)
all(mapply(D2,gr[,1],gr[,2],gr[,3]))
840 名前：卵の名無しさん mailto:sage [2020/10/19(月) 08:19:51.56 ID:/Dz9Hd0l.net]: "
問題　：　「シリツ医ならば (馬鹿ならば裏口である)」という命題と同値な命題はどれか？

1 : シリツ医ならば (裏口ならば馬鹿である)
2 : 馬鹿ならば (シリツ医ならば裏口である)
3 : 馬鹿ならば (裏口ならばシリツ医である)
4 : 裏口ならば (シリツ医ならば馬鹿である)
5 : 裏口ならば (馬鹿ならばシリツ医である)
"

# PならばQ ≡　(P かつ (Qでない))ではない
'%=>%' = function(P,Q) !(P & !Q)
# premise
A = function(S,B,U) S %=>% (B %=>% U)

# choice
B1 = function(S,B,U) S %=>% (U %=>% B)
B2 = function(S,B,U) B %=>% (S %=>% U)
B3 = function(S,B,U) B %=>% (U %=>% S)
B4 = function(S,B,U) U %=>% (S %=>% B)
B5 = function(S,B,U) U %=>% (B %=>% S)

# premise => choice
C1 = function(S,B,U) A(S,B,U) %=>% B1(S,B,U)
C2 = function(S,B,U) A(S,B,U) %=>% B2(S,B,U)
C3 = function(S,B,U) A(S,B,U) %=>% B3(S,B,U)
C4 = function(S,B,U) A(S,B,U) %=>% B4(S,B,U)
C5 = function(S,B,U) A(S,B,U) %=>% B5(S,B,U)

# combination grid of TRUE & FALSE
gr=expand.grid(c(T,F),c(T,F),c(T,F))
841 名前：卵の名無しさん mailto:sage [2020/10/19(月) 08:20:03.95 ID:/Dz9Hd0l.net]: # test for premise => choice
all(mapply(C1,gr[,1],gr[,2],gr[,3]))
all(mapply(C2,gr[,1],gr[,2],gr[,3])) # TRUE
all(mapply(C3,gr[,1],gr[,2],gr[,3]))
all(mapply(C4,gr[,1],gr[,2],gr[,3]))
all(mapply(C5,gr[,1],gr[,2],gr[,3]))

# choice -> premise
D1 = function(S,B,U) B1(S,B,U) %=>% A(S,B,U)
D2 = function(S,B,U) B2(S,B,U) %=>% A(S,B,U)
D3 = function(S,B,U) B3(S,B,U) %=>% A(S,B,U)
D4 = function(S,B,U) B4(S,B,U) %=>% A(S,B,U)
D5 = function(S,B,U) B5(S,B,U) %=>% A(S,B,U)

# test for choice -> premise
all(mapply(D1,gr[,1],gr[,2],gr[,3]))
all(mapply(D2,gr[,1],gr[,2],gr[,3])) # TRUE
all(mapply(D3,gr[,1],gr[,2],gr[,3]))
all(mapply(D4,gr[,1],gr[,2],gr[,3]))
all(mapply(D5,gr[,1],gr[,2],gr[,3]))
842 名前：卵の名無しさん mailto:sage [2020/10/21(水) 10:28:20.87 ID:evABqEzF.net]: 忘年会は自粛。罹ると面倒くさいし。
14日間隔離、家族や職場、飲みの近くにいる連中も検査して隔離され迷惑もかける。
さらに他人になんか言われそうだしな。
こんな面倒な病気に罹るのはマイナス面しかない
843 名前：卵の名無しさん mailto:sage [2020/10/22(木) 23:03:27.35 ID:bnz5ObG8.net]: is.wholenumber <- function(x, tol = .Machine$double.eps^0.5) abs(x - round(x)) < tol
844 名前：卵の名無しさん mailto:sage [2020/10/22(木) 23:15:24.81 ID:bnz5ObG8.net]: # combination grid of TRUE & FALSE

gr=expand.grid(c(T,F),c(T,F),c(T,F))
colnames(gr)=c('S','B','U')

# PならばQ ≡　(P かつ (Qでない))ではない
'%=>%' = function(P,Q) !(P & !Q)
# premise
A = function(S,B,U) S %=>% (B %=>% U)
# choice
B1 = function(S,B,U) S %=>% (U %=>% B)
B2 = function(S,B,U) B %=>% (S %=>% U)
B3 = function(S,B,U) B %=>% (U %=>% S)
B4 = function(S,B,U) U %=>% (S %=>% B)
B5 = function(S,B,U) U %=>% (B %=>% S)

gr
A =mapply(A , gr[,1],gr[,2],gr[,3])
B1=mapply(B1, gr[,1],gr[,2],gr[,3])
B2=mapply(B2, gr[,1],gr[,2],gr[,3])
B3=mapply(B3, gr[,1],gr[,2],gr[,3])
B4=mapply(B4, gr[,1],gr[,2],gr[,3])
B5=mapply(B5, gr[,1],gr[,2],gr[,3])

cbind(gr,A,B1,B2,B3,B4,B5)
845 名前：卵の名無しさん mailto:sage [2020/10/23(金) 00:04:18.09 ID:h/e+1+Nn.net]: オリンピック中止を国民に伝える前に、コロナのせいにするためGOTOキャンペーン推進中というのはうがった見方？？
846 名前：卵の名無しさん mailto:sage [2020/10/23(金) 16:21:26.33 ID:qwP7c+cz.net]: モウロクジジイ菅ｗ
意味不明なことばかり言ってるお前が国民に理解されるべきだろうがｗ

菅って、陰湿・陰険な老害、説明能力ゼロの無理筋悪代官丸出し

総合的俯瞰的w
いくら頭が悪いにしても無理がありすぎ

この一ヶ月で分かった菅の特徴

・陰湿・陰険

・聞かれたことに答えない不誠実さ、トンチンカン、ピント外れ

・説明能力ゼロだから、答えずに逃げる
・論点ずらし

・同じ言葉の繰り返し
・やったこと自慢の昔話

・インタビューでも用意された原稿丸読み棒読みｗ

・自著で、早速、公文書管理の項目を改竄w

やってることも後付け言い訳もヤバすぎるだろ。ピント外れの陰湿モウロク爺さんを通り越してるぞｗ
847 名前：卵の名無しさん mailto:sage [2020/10/26(月) 06:16:14.37 ID:pV7suPPf.net]: 米国が移民
848 名前：政策成功してるのって弱者が病気になろうと 気にせずゴミのように放置できるから社会コストが跳ね上がらないから。 日本だとこういうのもみんな無料医療で国保にタカらせ集中治療室まで使わせるからパンクする []: [ここ壊れてます]
849 名前：卵の名無しさん mailto:sage [2020/10/27(火) 12:51:04.91 ID:fMyc4UrA.net]: 共有フォルダの作り方（Windows10）

https://www.youtube.com/watch?v=kkK7YzxJLHE
850 名前：卵の名無しさん mailto:sage [2020/10/27(火) 17:17:00.15 ID:fMyc4UrA.net]: >>788
フォルダのプロパティで
共有の設定も必要。
851 名前：卵の名無しさん mailto:sage [2020/10/28(水) 11:14:40.49 ID:rzdMOcb/.net]: f = function(n,M=100) {
x=c(rep(0,n-1),M)
m=mean(x)
sd=sd(x)*sqrt((n-1)/n)
50+10*(M-m)/sd
}
f=Vectorize(f,vect='n')
f(10:15)
f(10:15,runif(1,1,1000))

裏口容疑者のシリツ医だとこういう計算は無理だろうな。

ある模試でクラスの中でひとりだけ満点、残りは全員０点であったとする。満点の学生の偏差値が80を超えるにはクラスに最低何人いる必要があるか？
852 名前：卵の名無しさん mailto:sage [2020/10/28(水) 14:08:16.07 ID:/M0AdKyc.net]: "
【たばこ】喫煙率男女合わせて16.7％(男性27.1％女性7.6％)　調査開始以降最低に [ばーど★]
厚生労働省は去年11月、全国の20歳以上の男女およそ5700人を対象に、生活習慣などを調査しました。
16.7*(m+f)=27.1*m + 7.6*f
x=m/f
16.7(x+1)=27.1*x + 7.6
solve 16.7(x+1)=27.1*x + 7.6 for x
x=8/7
"
5700*(8/15)
5700*(7/15)

# https://www.stat.go.jp/data/jinsui/pdf/201802.pdf
Male=sum(c(321,320,359,396,473,482,413,380,380,470,372,301,218,120,43,7,1))*1e4
Fem=sum(c(303,305,346,385,460,471,408,381,391,502,421,373,315,226,118,35,6))*1e4
prop.test(c(5700*8/15,Male),c(5700,(Male+Fem)))
poisson.test(c(5700*8/15,Male),c(5700,(Male+Fem)))
853 名前：卵の名無しさん mailto:sage [2020/10/28(水) 20:12:17.49 ID:/M0AdKyc.net]: # https://www.stat.go.jp/data/jinsui/pdf/201802.pdf
Male=sum(c(321,320,359,396,473,482,413,380,380,470,372,301,218,120,43,7,1))*1e4
Fem=sum(c(303,305,346,385,460,471,408,381,391,502,421,373,315,226,118,35,6))*1e4
prop.test(c(5700*7/15,Male),c(5700,(Male+Fem)))
poisson.test(c(5700*7/15,Male),c(5700,(Male+Fem)))

p=Male/(Male+Fem)
binom.test(5700*7/15,5700,p)
854 名前：卵の名無しさん mailto:sage [2020/10/28(水) 20:16:21.11 ID:/M0AdKyc.net]: >>791
"
16.7*(m+f)=27.1*m + 7.6*f
x=m/f
16.7(x+1)=27.1*x + 7.6
solve 16.7(x+1)=27.1*x + 7.6 for x
x=7/8
"
x=(16.7-7.6)/(27.1-16.7)
5700*(7/15)
5700*(8/15)
# https://www.stat.go.jp/data/jinsui/pdf/201802.pdf
Male=sum(c(321,320,359,396,473,482,413,380,380,470,372,301,218,120,43,7,1))*1e4
Fem=sum(c(303,305,346,385,460,471,408,381,391,502,421,373,315,226,118,35,6))*1e4
prop.test(c(5700*7/15,Male),c(5700,(Male+Fem)))
poisson.test(c(5700*7/15,Male),c(5700,(Male+Fem)))

p=Male/(Male+Fem)
binom.test(5700*7/15,5700,p)
855 名前：卵の名無しさん mailto:sage [2020/10/28(水) 20:33:19.00 ID:/M0AdKyc.net]: rm(lisit=ls())
"
（1）Σ[k=1,n] k! の一の位の数字について、その偶奇を調べよ。
（2）Σ[k=1,n] k! が3の倍数となるためのnの条件を求めよ。
"
library(gmp)
f <- function(n){
re=as.bigz(0)
for(i in 1:n){
re = re + factorialZ(i)
}
asNumeric(re %% 10)
}
y=sapply(1:1000,f)
y[1:100]
y[900:1000]
856 名前：卵の名無しさん mailto:sage [2020/10/28(水) 20:40:14.96 ID:/M0AdKyc.net]: 【たばこ】喫煙率男女合わせて16.7％(男性27.1％女性7.6％)　調査開始以降最低に [ばーど★]

厚生労働省は去年11月、全国の20歳以上の男女およそ5700人を対象に、生活習慣などを調査しました。

https://asahi.5ch.net/test/read.cgi/newsplus/1603849457/

人口推計－平成 30 年２月報－
https://www.stat.go.jp/data/jinsui/pdf/201802.pdf

の平成30年２月１日現在 (概算値)から成人の数の概算をだすと
男性：5056万人　女性5446万人になる。

喫煙率調査につかった5700人の男性割合は比較して
日本全体で5056万/(5056万+5446万)の母集団からランダムサンプリングされたと考えてよいか？
857 名前：卵の名無しさん mailto:sage [2020/10/29(木) 13:27:04.38 ID:dPzny2cB.net]
858 名前：library(gtools) a=combinations(6,2) f <- function(x){ b=combinations(4,2,(1:6)[-x]) re=NULL for(i in 1:6){ tmp=c(x,b[i,],(1:6)[-c(x,b[i,])]) re=rbind(re,tmp) } re } f(a[1,]) res=NULL for(i in 1:15) res=rbind(res,f(a[i,])) rownames(res)=NULL res v=LETTERS[res] ans=matrix(v,ncol=ncol(res)) colnames(ans) = c('x','x','y','y','z','z') print(ans,quote=F) []: [ここ壊れてます]
859 名前：卵の名無しさん mailto:sage [2020/10/29(木) 14:51:39.61 ID:dPzny2cB.net]: 長方形ABCDの内部の点をPとして
PA=3,PB=4,PC=5のとき長方形の面積の最大値を求めよ。
860 名前：卵の名無しさん mailto:sage [2020/10/29(木) 14:52:01.61 ID:dPzny2cB.net]: x<m, y<l
x^2 + (y-l)^2=a^2 (1)
x^2 + y^2 =b^2 (2)
(x-m)^2 + y^2=c^2 (3)

(1)-(2)
l^2 -2yl = a^2-b^2
l=y+sqrt(y^2+a^2-b^2)

(3)-(2)
m^2 -2xm =c^2-b^2
m=x+sqrt(x^2+c^2-b^2)

lm=(y+sqrt(y^2+a^2-b^2))*(x+sqrt(x^2+c^2-b^2))

(2) x=b*cosθ, y=b*sinθ
"
rm(list=ls())
f <- function(a=3,b=4,c=5){
lm <- function(θ) (b*sin(θ)+sqrt((b*sin(θ))^2+a^2-b^2))*(b*cos(θ)+sqrt((b*cos(θ))^2+c^2-b^2))
curve(lm(x),asin(sqrt(b^2-a^2)/b),pi/2)
opt=optimise(lm,c(asin(sqrt(b^2-a^2)/b),pi/2),maximum = TRUE)
θ=opt$maximum
x=b*cos(θ); y=b*sin(θ)
l=y+sqrt(y^2+a^2-b^2)
m=x+sqrt(x^2+c^2-b^2)
data.frame(l=l,m=m,Area=opt$objective)
}
861 名前：卵の名無しさん mailto:sage [2020/10/30(金) 11:15:15.46 ID:7PaA31uL.net]: 安倍政権が在留ベトナム人を増やした

第2次安倍政権 2012年12月26日～2020年9月16日

在留ベトナム人
2012年 5万2367
↓
2019年 41万1968人

外国人摘発1・1万人超　ベトナム、中国で過半数
https://www.nikkei.com/article/DGXMZO57608760T00C20A4CE0000/

在留外国人、２９３万人で最多　不法残留は６年連続増―入管庁
https://www.jiji.com/jc/article?k=2020032701013&g=soc
＞ベトナムは不法残留も３９．８％急増し、１万５５６１人で最多。以下、韓国（１万２５６３人）、中国（１万９０２人）の順となった。
862 名前：卵の名無しさん mailto:sage [2020/10/30(金) 17:24:00.41 ID:7PaA31uL.net]: スカ総理って論理的に説明できる能力が皆無なんじゃないのか？

記者　「10年間くらい(消費税)引き上げなくてもいいという、その根拠ついては何だと考えられているのか」
菅　　「まさに、アベノミクスを推進をし、経済を成長させる。まさに、経済成長…え…経済を再生させると、させなければ、財政健全化ないという、その政策のである」

https://twitter.com/shin19infinity/status/1304367586738487297

アベちゃん以上にひどいじゃないか。完全に耄碌ジジイ。

安倍のほうがマシだったという時代が来そうだな。
(deleted an unsolicited ad)
863 名前：卵の名無しさん mailto:sage [2020/10/31(土) 07:00:49.62 ID:zawBtKJY.net]: 本当に経営者ってのはセコいやつばかりだなw
無利息融資とかも、大半が数字いじって申請してんだろコレw
普段は自分達のことを｢経営者｣とかいって偉ぶってるくせにやってることは、労基法ムシシタリ嘘の求人で人を集めたりセクハラパワハラ、そしてコロナ禍での火事場泥棒w
品性下劣なバカには�
864 名前：с激с� []: [ここ壊れてます]
865 名前：卵の名無しさん mailto:sage [2020/10/31(土) 22:16:01.70 ID:C1e9/jO7.net]: derive (sqrt(a^2-x^2)+sqrt(b^2-x^2))*(x+sqrt(x^2+c^2-b^2))
866 名前：卵の名無しさん mailto:sage [2020/10/31(土) 22:31:01.43 ID:C1e9/jO7.net]: f(x) = (sqrt(a^2-x^2)+sqrt(b^2-x^2))*(x+sqrt(x^2+c^2-b^2))
f'(x) =(sqrt(a^2 - x^2) + sqrt(b^2 - x^2)) (x/sqrt(-b^2 + c^2 + x^2) + 1) + (-x/sqrt(a^2 - x^2) - x/sqrt(b^2 - x^2)) (sqrt(-b^2 + c^2 + x^2) + x) =0
f'(x)=0
x=a*b/sqrt(a^2+c^2)
867 名前：卵の名無しさん mailto:sage [2020/10/31(土) 23:51:55.03 ID:C1e9/jO7.net]: 長方形ABCDの内部または辺上の点をPとして
PA=3,PB=4,PC=5のとき長方形の面積の最大値と最小値を求めよ。
868 名前：卵の名無しさん mailto:sage [2020/10/31(土) 23:58:38.90 ID:C1e9/jO7.net]: >>804
一般解が出せたので寝る。

最大値
a=3　b=4　c=5
# l
(a*sqrt(a^2 - b^2 + c^2) + b*c)/sqrt(a^2 + c^2)
# m
(c*sqrt(a^2 - b^2 + c^2) + a*b)/sqrt(a^2 + c^2)
# Area
b*sqrt(a^2 - b^2 + c^2) + a*c

検算
> (a*sqrt(a^2 - b^2 + c^2) + b*c)/sqrt(a^2 + c^2)
[1] 5.612792
> # m
> (c*sqrt(a^2 - b^2 + c^2) + a*b)/sqrt(a^2 + c^2)
[1] 5.696017
> # Area
> b*sqrt(a^2 - b^2 + c^2) + a*c # Area
[1] 31.97056

>448の値と一致
869 名前：卵の名無しさん mailto:sage [2020/11/01(日) 00:02:13.93 ID:MhtecZmU.net]: コピペだが激しく同意。

検査希望者が自主的に検査を受けて検査数を増やすやり方では、
いくら検査数が増えても効果が少ないのは、
アメリカや欧州を見てあきらか

おそらく高リスク群なのに検査受けない人が多いんでしょう

中国方式で検査数を増やすのがいちばん確実で効果がある

この地域で〇〇業種で働いてるやつ全員検査うけろ、
とか、この地域の住民全員検査受けろ、
とか、この工場で働いてるやつ全員検査、この学校のやつ全員検査、
みたいに、行政が検査対象を指定して1人も逃さず検査することが重要
870 名前：卵の名無しさん mailto:sage [2020/11/01(日) 16:05:33.12 ID:MhtecZmU.net]: 正方形ABCDの内部の点をPとしてPA=3,PB=4,PC=5のとき正方形の面積を求めよ。

17 + 4*√(14)
871 名前：卵の名無しさん mailto:sage [2020/11/01(日) 16:37:05.05 ID:MhtecZmU.net]: 正方形ABCDの内部の点をPとしてPA=１,PB=２,PC=３のとき正方形の面積を求めよ。

5 + 2 * sqrt(2)
872 名前：卵の名無しさん mailto:sage [2020/11/01(日) 18:31:29.15 ID:MhtecZmU.net]: 正方形ABCDの内部の点をPとしてPA=a,PB=b,PC=cのとき正方形の面積を求めよ。

(1/2)*(a^2 + c^2 + sqrt(-a^4 + 2*a^2*(2*b^2+c^2)-(c^2-2*b^2)^2 ))
873 名前：卵の名無しさん mailto:sage [2020/11/02(月) 07:22:58.14 ID:GFxMDkK2.net]: √ <- function(x) sqrt(x)
√(3)
874 名前：卵の名無しさん mailto:sage [2020/11/03(火) 06:18:53.61 ID:+NpbCv0C.net]: 俺の知る範囲だけど国内医療機関に補助金で救えと言っているのは自民党医系議員、共産党、れいわ新撰組だな。
875 名前：卵の名無しさん mailto:sage [2020/11/03(火) 15:14:41.01 ID:h4JK49QP.net]: 俺の知る範囲だけど医療機関を補助金で救えと言っているのは自民党医系議員、共産党、れいわ新撰組だな。
876 名前：卵の名無しさん mailto:sage [2020/11/03(火) 21:02:15.55 ID:Bul4mfkA.net]: 大阪市廃止住民投票の反対割合の99.99%信頼区間。

> binom.confint(692996,692996+675829,conf.level = 0.9999)
method x n mean lower upper
1 agresti-coull 692996 1368825 0.5062707 0.5046081 0.5079332
2 asymptotic 692996 1368825 0.5062707 0.5046081 0.5079333
3 bayes 692996 1368825 0.5062707 0.5046081 0.5079332
4 cloglog 692996 1368825 0.5062707 0.5046069 0.5079320
5 exact 692996 1368825 0.5062707 0.5046077 0.5079336
6 logit 692996 1368825 0.5062707 0.5046081 0.5079332
7 probit 692996 1368825 0.5062707 0.5046081 0.5079332
8 profile 692996 1368825 0.5062707 0.5046081 0.5079332
9 lrt 692996 1368825 0.5062707 0.5046081 0.5079332
10 prop.test 692996 1368825 0.5062707 0.5054328 0.5071086
11 wilson 692996 1368825 0.5062707 0.5046081 0.5079332
>
877 名前：卵の名無しさん mailto:sage [2020/11/05(木) 11:31:05.49 ID:SqRLGU1L.net]: a=t(combn(5,2))
b=expand.grid(1:10,1:10,1:10)
f <- function(x){
c(a[x[1],],a[x[2],],a[x[3],])
}
y=t(apply(b,1,f))
g <- function(x) !(3 %in% table(x))
i=apply(y,1,g)
sum(i)
z=y[i,]
print(matrix(LETTERS[z],ncol=6),quote=F)
878 名前：卵の名無しさん mailto:sage [2020/11/05(木) 12:37:37.91 ID:zLYQt7IX.net]: 『皆さんには貧しくなる自由があるということだ。何もしたくないなら、何もしなくて大いに結構。その代わりに�
879 名前：nしくなるので、貧しさをエンジョイしたらいい。 ただひとつだけ、その時に頑張って成功した人の足を引っ張るな』。竹中平蔵氏が若者に向けた言葉である。 []: [ここ壊れてます]
880 名前：卵の名無しさん mailto:sage [2020/11/05(木) 12:43:06.93 ID:zLYQt7IX.net]: >>814
A～Eの5人
月曜日、火曜日、水曜日の3日間について、1日2人ずつの宿直を決める。
1回も宿直に当たらない人はいてもよいが、1人で3日すべて宿直に当たるのはナシとするとき、
3日間の宿直の割り振り方は何通りありますか？
881 名前：卵の名無しさん mailto:sage [2020/11/06(金) 10:52:21.55 ID:Iw+GcpWK.net]: A,B,C,D,Eの５人で1日１人の宿直を以下の条件で
日曜日から土曜日まで１週間の日の宿直を割り当てる。

# １週間のうち1回も宿直に当たらない人がいてはいけない
# 誰も2日続けて宿直してはならない
# 前週の土曜日の宿直者を日曜日に宿直させてはならない
# 誰においても7日の宿直日数の上限は２日である

という条件にすると
１週間の宿直割当は何通りあるか？
882 名前：卵の名無しさん mailto:sage [2020/11/06(金) 13:53:10.15 ID:Iw+GcpWK.net]: perm <- function(num, N=5, digit = 7){
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)
}
pm=NULL
for(i in 0:(5^7-1)){
pm=rbind(pm,perm(i))
}

h <- function(x){
all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) & x[1]!=1
}
i=apply(pm,1,h)
sum(i)
y=pm[i,]
ans=matrix(LETTERS[y],ncol=7)
colnames(ans)=c('日','月','火','水','木','金','土')
print(head(ans,10),quote=F)
print(tail(ans,10),quote=F)
883 名前：卵の名無しさん mailto:sage [2020/11/06(金) 19:29:40.58 ID:Iw+GcpWK.net]: "更にBは月曜日は都合が悪い、Cは火曜日と木曜日は都合が悪い"
j <- function(x){
all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) &
x[1]!=1 & x[2]!=2 & x[3]!=3 & x[5]!=3
}
i=apply(pm,1,j)
sum(i)
y=pm[i,]
ans=matrix(LETTERS[y],ncol=7)
colnames(ans)=c('日','月','火','水','木','金','土')
print(head(ans,10),quote=F)
print(tail(ans,10),quote=F)
884 名前：卵の名無しさん mailto:sage [2020/11/07(土) 07:13:25.16 ID:gkV8qQW4.net]: 世界的パンデミック・コロナに自助を要求し、公助が後手後手の菅自民では、今年の年末年始は、リストラ・雇止めで、職を失い、家を失い、蓄えも底をつき、餓死・凍死する人が出る可能性がある。
885 名前：卵の名無しさん mailto:sage [2020/11/07(土) 07:26:01.50 ID:gkV8qQW4.net]: "
ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
(1) 1回も当直に当たらない人がいてはいけない
(2)　誰も続けて当直してはならない(但し、前週の土曜日の当直は考慮しない）
(3) 待機は何日連続してもよい
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
"
886 名前：卵の名無しさん mailto:sage [2020/11/07(土) 07:49:24.64 ID:gkV8qQW4.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
(1) 1回も当直に当たらない人がいてはいけない
(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
(3)　誰においても１週間の当直総数の上限は２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
887 名前：卵の名無しさん mailto:sage [2020/11/07(土) 07:58:57.82 ID:gkV8qQW4.net]: 女性が少ない、若手が少ない、会員に偏りがあるとかよく言う。
自分の選んだ閣僚達こそまさにそうじゃないか。スガは支離滅裂。
888 名前：卵の名無しさん mailto:sage [2020/11/07(土) 09:49:40.56 ID:gkV8qQW4.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
　(1) 1回も当直に当たらない人がいてはいけない
　(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
　(3)　誰においても１週間の当直総数の上限は２日である
　(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。

例
日月火水木金土
当直 A B A C D E D
待機 D E D E A B C
889 名前：卵の名無しさん mailto:sage [2020/11/07(土) 10:35:26.54 ID:gkV8qQW4.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
(1) 1回も当直に当たらない人がいてはいけない(待機はしなくてもいい)
(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
(3)　誰においても１週間の当直総数の上限は２日である（待機の上限はなし）
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。

例１
　　日月火水木金土
当直 A B A B C D E
待機 E D E D E A B

例２
　　日月火水木金土
当直 A B A C D E D
待機 D E D E A B C
890 名前：卵の名無しさん mailto:sage [2020/11/07(土) 14:30:27.19 ID:gkV8qQW4.net]: "
ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
(1) 1回も当直に当たらない人がいてはいけない(待機はしなくてもいい)
(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
(3)　誰においても１週間の当直総数の上限は２日である（待機の上限はなし）
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
"
rm(list=ls())
library(gtools)
pm=permutations(5,7,rep=T)
f <- function(x){ # (1) & 連続当直不可 &
891 名前：(3) all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) } i=apply(pm,1,f) sum(i) y=pm[i,] ans=matrix(LETTERS[y],ncol=7) colnames(ans)=c('日','月','火','水','木','金','土') print(ans[1000,],quote=F) ; (x=y[1000,]) f1 <- function(x){ all(diff(x)!=0) # 連続待機不可 } y1=pm[apply(pm,1,f1),] []: [ここ壊れてます]
892 名前：卵の名無しさん mailto:sage [2020/11/07(土) 14:30:52.25 ID:gkV8qQW4.net]: g <- function(x){ # x:当直候補配列
idx=NULL
for(i in 1:nrow(y1)){ # y1=待機候補配列
if(all(x %in% 1:3 == !(y1[i,] %in% 1:3))){ #4
idx=append(idx,i)
}
}
re=NULL
for(i in idx){
cow=FALSE # 連続勤務continual work?
for(j in 1:5){
a=which(j==x) # 当直曜日
b=which(j==y1[i,])# 待機曜日
if(any(diff(sort(c(a,b)))<=1)){ # 連続勤務ならbreak
cow=TRUE
break
}
}
if(!cow) re=append(re,i) # 連続勤務でなければ採用
}
re
}
893 名前：卵の名無しさん mailto:sage [2020/11/07(土) 14:31:22.24 ID:gkV8qQW4.net]: apply(y[1:15,],1,g)
rei=rbind(LETTERS[x<-y[1,]],LETTERS[y1[g(x)[1],]])
colnames(rei)=c('日','月','火','水','木','金','土') ; rownames(rei)=c('当直','待機')
print(rei,quote=F)
rei=rbind(LETTERS[y[6600,]],LETTERS[y1[g(y[6600,])[16],]])
colnames(rei)=c('日','月','火','水','木','金','土') ; rownames(rei)=c('当直','待機')
print(rei,quote=F)

z=apply(y,1,g)
length(unlist(z)) # 12192通り
nrow(y) ; length(z)

rbind(LETTERS[y[1,]],LETTERS[y1[g(y[1,])[1],]])
print(rbind(LETTERS[y[6600,]],LETTERS[y1[g(y[6600,])[16],]]),quote=F)
894 名前：卵の名無しさん mailto:sage [2020/11/08(日) 04:31:16.53 ID:zy0wWkWh.net]: library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
idx=apply(pm,1,function(x) sum(x * 6^(4:0))%%6==0)
sum(idx)
pm[idx,][1000,]
895 名前：卵の名無しさん mailto:sage [2020/11/08(日) 04:44:38.18 ID:zy0wWkWh.net]: 1から6までの数字を使って5ケタの数字を作る。
同じ数字を何回使ってもいいとすると、
(1) 6の倍数は何通りあるか述べよ。
(2) その6の倍数を小さい順に並べたときに1000番目にくる数字を述べよ。

library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
f <- function(x) sum(x * 10^(4:0))%%6==0
idx=apply(pm,1,f)
sum(idx)
pm[idx,][1000,]
896 名前：卵の名無しさん mailto:sage [2020/11/08(日) 10:01:27.43 ID:3UafLdM8.net]: library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
f <- function(x) sum(x * 10^(4:0))%%6==0
y=pm[apply(pm,1,f),]
head(y,10) ; tail(y,10)
cat(paste(y[1000,],collapse=''))

for(i in 1:length(index)){
cat(i,': ')
cat(paste(y[i,],collapse=''),'\n')
}
897 名前：卵の名無しさん mailto:sage [2020/11/08(日) 11:14:32.98 ID:3UafLdM8.net]: "
1から6までの数字を使って5ケタの数字を作ります。
同じ数字を何回使ってもいいとすると、6の倍数は1296通りある。
小さい順に並べたときに1000番目にくる数字を述べよ。
"

library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
f <- function(x) sum(x * 10^(4:0))%%6==0
y=pm[apply(pm,1,f),]
head(y,10) ; tail(y,10)
cat(paste(y[1000,],collapse=''))

for(i in 1:length(index)){
cat(i,': ')
cat(paste(y[i,],collapse=''),'\n')
}

f1 <- function(x) sum(x * 10^(4:0))%%6
mod6=apply(pm,1,f1)
pm1=cbind(pm,mod6)
head(pm1,30)
matrix(mod6,ncol=6,b=T)
898 名前：卵の名無しさん mailto:sage [2020/11/08(日) 11:50:37.46 ID:3UafLdM8.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
　(1) 1回も当直に当たらない人がいてはいけない(待機はしなくてもいい)
　(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
　(3)　誰においても１週間の当直総数および待機総数の上限は２日である
　(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
　(5) 当直は２日以上間隔を空ける

例　
> print(rei,quote=F)
日月火水木金土
当直 A B D A C E D
待機 D E C E D A B

> print(rei,quote=F)
日月火水木金土
当直 B D E C B A E
待機 E A B D E D B
899 名前：卵の名無しさん mailto:sage [2020/11/08(日) 12:14:19.63 ID:3UafLdM8.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？

(1) 誰も少なくとも1回は当直および待機に割り当てられる
(2)　誰も続けて勤務（当直または待機）してはならない(前週の土曜日の勤務も考慮する）
(3)　誰においても１週間の当直総数および待機総数の上限は２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
(5) 当直は２日以上間隔を空ける（前週の勤務も考慮する）
900 名前：卵の名無しさん mailto:sage [2020/11/08(日) 12:47:03.19 ID:oC4O4pgk.net]: >>834
固定だと不均衡も固定だから良くないな。
901 名前：卵の名無しさん mailto:sage [2020/11/08(日) 13:06:06.92 ID:oC4O4pgk.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たすように割りあてる。
(1) 誰も少なくとも1回は日～土の間で当直および待機に割り当てられる
(2)　誰も続けて勤務（当直または待機）してはならない。
(3)　誰においても１週間の当直総数および待機総数の上限はどちらも２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
(5) 当直は２日以上の間隔を空ける

今週の勤務割当は次の通りとする。
日月火水木金土
当直 A B D E C B D
待機 D E C B D E A

週を跨いで(1)～(5)の条件を満たす来週の割りあて方は何通りあるか？
902 名前：卵の名無しさん mailto:sage [2020/11/08(日) 13:47:42.36 ID:3UafLdM8.net]: 割り当ては132通り

例
> print(rei,quote=F)
日月火水木金土
当直 E B A C B D E
待機 C D E D E A B

> print(rei,quote=F)
日月火水木金土
当直 C B E D A B E
待機 E D A B E D C
903 名前：卵の名無しさん mailto:sage [2020/11/08(日) 17:32:58.85 ID:3UafLdM8.net]: "
1から6までの数字を使って5ケタの数字を作ります。
同じ数字を何回使ってもいいとすると、6の倍数は1296通りある。
小さい順に並べたときに1000番目にくる数字を述べよ。
"
rm(list=ls())
source('toolmini.R')

library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
f <- function(x) sum(x * 10^(4:0))%%6==0
y=pm[apply(pm,1,f),]
head(y,10) ; tail(y,10)
cat(paste(y[777,],collapse=''))

# 小さい順に並べたときにn番目にくる数字
order2num <- function(n){
# cat(paste(y[n,],collapse=''),'\n')
a=10*as.numeric(paste(dec2nw(n,6),collapse=''))+11100
a+(1:6)[(a+1:6)%%6==0]
}
n=1:(6^4-1)
plot(n,sapply(n,order2num))
order2num(333)
order2num(777)
904 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:10:46.07 ID:3UafLdM8.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たすように割りあてる。
(1) 誰も少なくとも1回は日～土の間で当直および待機に割り当てられる
(2)　誰も続けて勤務（当直または待機）してはならない。
(3)　誰においても１週間の当直総数および待機総数の上限はどちらも２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
(5) 当直は２日以上の間隔を空ける
今週の勤務割当は次の通りとする。
日月火水木金土
当直 A B D E C B D
待機 D E C B D E A
週を跨いで(1)～(5)の条件を満たす来週の割りあて方は何通りあるか？

library(gtools)
pm=permutations(5,7,rep=T)
# 当直可能配列
f <- function(x){ # (1) & 連続当直不可 & (3) & (5)（週跨ぎ）
int=NULL
for(i in 1:5){
a=which(i==x) # a : i の当直日
int[i]=ifelse(length(a)==1,
905 名前：TRUE,diff(a)>2) # 当直間隔が２を越えるか？ } all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) & all(int) & all(x[1]!=c(1,2,4)) & # 日曜日A,B,D当直不可 x[2]!=4 # 月曜日D当直不可 } i=apply(pm,1,f) sum(i) y=pm[i,]　# 当直可能配列 []: [ここ壊れてます]
906 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:11:10.62 ID:3UafLdM8.net]: # 待機可能配列
f1 <- function(x){
all(1:5 %in% x)　& all(diff(x)!=0) & all(table(x)<=2) & # 最低1回　& 連続待機不可 & 待機日総数<=2
all(x[1]!=c(1,4)) # 日曜日A,D待機不可

}
y1=pm[apply(pm,1,f1),]

g <- function(x){ # x:当直候補配列
idx=NULL
for(i in 1:nrow(y1)){ # y1=待機候補配列
if(all(x %in% 1:3 == !(y1[i,] %in% 1:3))){ #4 当直医属性!=待機医属性
idx=append(idx,i)
}
}
re=NULL　# 条件を満たす待機配列のy1での行index
for(i in idx){
cow=FALSE # 連続勤務continual work?
for(j in 1:5){
a=which(j==x) # 当直曜日
b=which(j==y1[i,])# 待機曜日
if(any(diff(sort(c(a,b)))<=1)){ # 連続勤務ならbreak
cow=TRUE
break
}
}
if(!cow) re=append(re,i) # 連続勤務でなければ採用
}
re
}
907 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:11:49.71 ID:3UafLdM8.net]: gg <- function(x,print=TRUE){
re=g(x)
if(!is.null(re)){
n=length(re)
ans=vector(mode='list',length=n)
for(i in 1:n){
rei=rbind(LETTERS[x],LETTERS[y1[re[i],]])
colnames(rei)=c('日','月','火','水','木','金','土')
rownames(rei)=c('当直','待機')
ans[[i]]=rei
if(print){print(rei,quote=F)
cat('\n')}
}
invisible(ans)
}
}
zz=apply(y,1,gg)
nzz=length(zz)
zzz=NULL
for(i in 1:nzz){
if(!is.null(zz[[i]])) zzz=c(zzz,zz[[i]])
}

print(head(zzz),quote=F)
print(zzz,quote=F)
908 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:12:12.93 ID:3UafLdM8.net]: > print(head(zzz),quote=F)
[[1]]
日月火水木金土
当直 C A E B A D E
待機 E D C D E B A

[[2]]
日月火水木金土
当直 C A E B C D E
待機 E D C D E A B

[[3]]
日月火水木金土
当直 C A E B C D E
待機 E D C D E B A

[[4]]
日月火水木金土
当直 C A E C B D E
待機 E D B D E A C

[[5]]
日月火水木金土
当直 C A E C B D E
待機 E D B D E C A

[[6]]
日月火水木金土
当直 C A E D A B E
待機 E D B C E D A
909 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:12:38.07 ID:3UafLdM8.net]: [[101]]
日月火水木金土
当直 E C B D C A E
待機 B D E A E D C

[[102]]
日月火水木金土
当直 E C B D E A B
待機 B D E A C D E

[[103]]
日月火水木金土
当直 E C B D E A C
待機 B D E A C D E

[[104]]
日月火水木金土
当直 E C B D E B A
待機 B D E A C D E

[[105]]
日月火水木金土
当直 E C B D E B A
待機 B D E C A D E

[[106]]
日月火水木金土
当直 E C B D E C A
待機 B D E C A D E
910 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:41:39.89 ID:oC4O4pgk.net]: >>837
これは間違い、106通りだと思う。
バグがなければだけど
911 名前：卵の名無しさん mailto:sage [2020/11/09(月) 05:32:00.75 ID:NqCZIoxd.net]: >>839
更に
(6) ２週続けて週２回の当直はしてはならない。
を付け加えてみよう。
912 名前：卵の名無しさん mailto:sage [2020/11/09(月) 05:40:31.38 ID:NqCZIoxd.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たすように割りあてる。
(1)　誰も少なくとも1回は日～土の間で当直および待機に割り当てられる
(2)　誰も続けて勤務（当直または待機）してはならない。
(3)　誰においても１週間の当直総数および待機総数の上限はどちらも２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
(5)　当直は２日以上の間隔を空ける
(6)　２週続けて週２回の当直はしてはならない。

今週の勤務割当は次の通りとする。
日月火水木金土
当直 A B D E C B D
待機 D E C B D E A

週を跨いで(1)～(6)の条件を満たす来週の割りあて方は何通りあるか？

library(gtools)
pm=permutations(5,7,rep=T)
# 当直可能配列
f <- function(x){ # (1) & 連続当直不可 & (3) & (5)（週跨ぎ）
int=NULL
for(i in 1:5){
a=which(i==x) # a : i の当直日
int[i]=ifelse(length(a)==1,TRUE,diff(a)>2) # 当直間隔が２を越えるか？
}
all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) & all(int) &
all(x[1]!=c(1,2,4)) & # 日曜日A,B,D当直不可
x[2]!=4 &# 月曜日D当直不可
sum(x==2)<2 & sum(x==4) # B,D の当直は2回未満
}
i=apply(pm,1,f)
sum(i)
y=pm[i,]　# 当直可能配列
913 名前：卵の名無しさん mailto:sage [2020/11/09(月) 08:25:50.50 ID:Wee9Qn0s.net]: lwa=rbind(c(1,2,4,5,3,2,4),c(4,5,3,2,4,5,1)) # last week allocation
rei=rbind(LETTERS[c(1,2,4,5,3,2,4)],LETTERS[c(4,5,3,2,4,5,1)])
colnames(rei)=c('日','月','火','水','木','金','土')
rownames(rei)=c('当直','待機')
print(rei,quote=F)
914 名前：卵の名無しさん mailto:sage [2020/11/09(月) 14:17:47.89 ID:Z0+EXym3.net]: 米国が移民政策成功してるのって弱者が病気になろうと
気にせずゴミのように放置できるから社会コストが跳ね上がらないからだろう。

日本は多民族共生できるほど民度が高くないんだよなぁ。
日本だと気の毒だからと国保にタカらせ集中治療室まで使わせるからパンクする
915 名前：卵の名無しさん mailto:sage [2020/11/10(火) 05:18:34.17 ID:WoaXhYeo.net]: https://i.imgur.com/v51hvTf.jpg
916 名前：卵の名無しさん mailto:sage [2020/11/10(火) 14:32:59.72 ID:WoaXhYeo.net]: 旅行にいく余裕もない人の税金を横取りして旅にでる強盗キャンペーン。
それでコロナが広がるならまさに死神政策。
917 名前：卵の名無しさん mailto:sage [2020/11/11(水) 19:37:44.50 ID:G3dq4Z8e.net]: 緊急提言ではさらに、これらの対策を取った上でも、感染状況ごとに分類した四つのステージのうち、感染者が急増している「ステージ3」相当以上と判断された場合には
「社会経済活動に一定の制約を求めるような強い対策を行う必要があることから、国民が一丸となって対策を進めていく必要がある」とした。

https://mainichi.jp/articles/20201109/k00/00m/040/249000c

>国民が一丸となって

一丸となったらクラスターが発生ｗ
918 名前：卵の名無しさん mailto:sage [2020/11/13(金) 09:56:44.03 ID:wZuIWy8w.net]: 理論を認めてもその通りに行動できない暗愚が学術会議の任命権者ておかしくない？

https://i.imgur.com/1vY3hqw.jpg

https://youtu.be/fVosZS6
919 名前：-UJw?t=498 8分18秒 []: [ここ壊れてます]
920 名前：卵の名無しさん mailto:sage [2020/11/13(金) 21:20:33.70 ID:Sh6hhYou.net]: Keltonの新著を読み始めた。

The Deficit Myth: Modern Monetary Theory and the Birth of the People's Economy (English Edition) Kindle版

この記述は意外だったな。

But even
Senator Bernie Sanders has echoed Reagan, saying, “I am concerned
about the debt. It’s not something we should be leaving to our kids and
our grandchildren.”
921 名前：卵の名無しさん mailto:sage [2020/11/13(金) 21:22:53.38 ID:Sh6hhYou.net]: The fifth myth is that deficits make the United States dependent on
foreigners. This myth would have us believe that countries like China and
Japan have enormous leverage over us because they hold large
quantities of US debt.

米国債を売ろうという誘惑に言及した総理は不審死したよあなぁ。
922 名前：卵の名無しさん mailto:sage [2020/11/14(土) 17:11:40.19 ID:Fnd8Onk+.net]: zを-1でない複素数として
ω= （z+2i) / (z+1) とおく。

|z|=1のとき、偏角が3π/4となるωを求めよ。

options(digits=5)

f <- function(x){
z=cos(x)+1i*sin(x)
omega=(z+2i)/(z+1)
Arg(omega)
}
curve(f,0,2*pi) ; abline(h=3/4*pi,lty=3)
low=optimise(f,c(4,5),maximum = T)$maximum
(x=uniroot(function(x)f(x)-3/4*pi,c(low,5))$root)
(z=cos(x)+1i*sin(x))
(omega=(z+2i)/(z+1))
923 名前：卵の名無しさん mailto:sage [2020/11/14(土) 22:56:05.54 ID:Fnd8Onk+.net]: z=a+bi
ω=(z+2i)/(z+1)
=(a+bi+2i)/(a+bi+1)
分母子にa+1-biをかけると
分子=(a+bi+2i)(a+1-ib)
分母=(a+1)^2+b^2
ωの偏角が3/4πということは
ωの虚部/ωの実部=tan(3/4π)=-1
分母は実数なので約分されて
分子の虚部/分子の実部=-1
これを変形して
分子の虚部＋分子の実部=0
複素数α+iβをα+βに変形するにはi=1と置換すればいいので
分子の式(a+bi+2i)(a+1-ib)でi=1と置換して
(a+b+2)(a+1-b)=0
∴ a+b+2=0 またはa+1-b=0
|z|=1ゆえa^2+b^2=1
a+b+2=0 かつ　a^2+b^2=1に実数解なし
a+1-b=0　かつ　a^2+b^2=1 を解くと(a,b)=(-1,0),(0,1)
z≠-1なのでa=0,b=1が残る
924 名前：卵の名無しさん mailto:sage [2020/11/15(日) 01:51:01.75 ID:L0SCzfIz.net]: z=a+bi (a,bは実数)
ω=(z+2i)/(z+1)
分母子に(a-bi+1)をかけると
分子=(z+2i)(a-bi+1)=(a+bi+2i)(a-bi+1)= (a^2+a+b^2+2b) +i(2a+b+2)
分母=(z+1)(a-bi+1)=(a+bi+1)(a-bi+1)=(a+1)^2+b^2 (実数)
ωの虚部/ωの実部=分子の虚部/分子の実部=tan(4π/3)=-1
これを変形すれば、
分子の実部+分子の虚部=0

複素数α+iβをα+βに変形するにはこの形でi=1と置換すればいいので
分子のiを1に置換して
a^2+a+b^2+2b +(2a+b+2) = a^2+b^2+3a+3b+2=0
|z|=1ゆえa^2+b^2=1なので

連立方程式
a^2+b^2+3a+3b+2=0
a^2+b^2=1
を解くと

a=-1,b=0
または
a=0,b=-1
z≠-1ゆえa=-1,b=0は不適。
候補はa=0,b=-1
z=a+bi=-i
このとき
ω=(z+2i)/(z+1)=i/(1-i) = -0.5+0.5i

偏角=atan(0.5/(-0.5))=(3/4)π
925 名前：卵の名無しさん mailto:sage [2020/11/15(日) 09:54:17.96 ID:L0SCzfIz.net]: △ABC (∠A＝50°, ∠B＝70°) をAを原点、Bをx軸上に配置する。
△ABCの内部の点をPとしてPA=2 PB=3, PC=4 のとき、
(1)B,C,Pの座標を求めよ。
(2)△PAB,△PBC,△PCAの面積を求めよ

> re$B
[1] 4.9368+0i
> re$C
[1] 3.4432+4.1035i
> re$P
[1] 1.9619+0.3
926 名前：879i > with(re,ABC2S(P,A,B)) #△PAB [1] 0.95738 > with(re,ABC2S(P,B,C)) #△PBC [1] 5.8139 > with(re,ABC2S(P,C,A)) #△PCA [1] 3.3576 []: [ここ壊れてます]
927 名前：卵の名無しさん mailto:sage [2020/11/15(日) 09:56:10.43 ID:L0SCzfIz.net]: > re$B
[1] 4.9368+0i
> re$C
[1] 3.4432+4.1035i
> re$P
[1] 1.9619+0.3879i
> with(re,ABC2S(P,A,B)) #△PAB
[1] 0.95738
> with(re,ABC2S(P,B,C)) #△PBC
[1] 5.8139
> with(re,ABC2S(P,C,A)) #△PCA
[1] 3.3576
> re$S　# △ABC
[1] 10.129

https://i.imgur.com/PFt8IBP.png
928 名前：卵の名無しさん mailto:sage [2020/11/15(日) 14:55:20.09 ID:L0SCzfIz.net]: [1] 4.652337六角形AB,CD,EFの辺の長さをn,BC,DE,FAの長さをm、
∠A=degA° ∠C=degC°　∠E=degE°、とする。
m=1,n=2, degA=60,degC=90,degE=120のとき
この六角形の面積を求めなさい。

作図するプログラムを書くのが面白かっただけ。

https://i.imgur.com/m045k8H.png

> Hexagon(1,2,60,90,120)
[1] 4.652337
929 名前：卵の名無しさん mailto:sage [2020/11/15(日) 18:05:37.35 ID:L0SCzfIz.net]: よくも悪くも、中国共産党の対日外交には虚々実々の駆け引きというか、ある程度の枠がはまっているのに対して、かりに将来、中国の民主化が進んで「反日デモ」的な大衆感情に熱狂的に支持されて議会の多数派を占めるような政権が誕生した場合、日本に対する姿勢が今までと比較にならないくらい強硬になるのではないかという不安は、多くの日本人が感じたことがあるのではないか

中国化する日本　より
930 名前：卵の名無しさん mailto:sage [2020/11/15(日) 20:41:06.93 ID:L0SCzfIz.net]: >>859
> re=DV2A(50,70,2,3,4)
> attach(re)
> A=0i
> B
[1] 4.936762+0i
> C
[1] 3.443221+4.103471i
> P
[1] 1.961936+0.387857i
> ABC2S(P,A,B) #△PAB
[1] 0.9573792
> ABC2S(P,B,C) #△PBC
[1] 5.813914
> ABC2S(P,C,A) #△PCA
[1] 3.357635
> S　# △ABC
[1] 10.12893
> D=intsect(A,P,B,C) ; pt(D,'D')
> seg(P,D,col=2,lty=3)
> E=intsect(A,C,P,B) ; pt(E,'E')
> seg(P,E,col=2,lty=3)
> F=intsect(A,B,C,P) ; pt(F,'F')
> seg(P,F,col=2,lty=3)
> D
[1] 4.605388+0.910444i
> E
[1] 0.4868298+0.5801812i
> F
[1] 1.807311+0i
> detach(re)
931 名前：卵の名無しさん mailto:sage [2020/11/16(月) 15:10:00.97 ID:FmGCMvZ1.net]: こういう毛針に騙されたんだなぁ

https://livedoor.blogimg.jp/rock1963roll/imgs/f/b/fb36dca5-s.jpg
932 名前：卵の名無しさん mailto:sage [2020/11/17(火) 11:39:26.43 ID:zTNDOLQn.net]: # 小数点付きの数numをN進法で表示する(62進法まで対応 0-9,a-z,A-Z)
rm(list=ls())
num=1/3;N=3;kmin=5
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:検証用
}
933 名前：卵の名無しさん mailto:sage [2020/11/17(火) 11:39:34.53 ID:zTNDOLQn.net]: del=sapply(1:16, function(x) decN(0.1,x,16))
decN(pi,16)
decN(0.1,13,10)

# １３進法 0 1 2 3 4 5 6 7 8 9 A J Q
options(digits=22)
decK <- function(PI=pi,K=10){
x=decN(PI,13,kmin=K)
K <- function(x){
if(x==0) return('0')
else{
c(as.character(1:9),'A','J','Q')[x]
}
}
K=Vectorize(K)
re=paste(c(K(x$integer),'.',K(x$decimal)),collapse = '')
print(re,quote=F)
invisible(re)
}
decK(pi)
decK(exp(1))
decK(sqrt(2))
934 名前：卵の名無しさん mailto:sage [2020/11/17(火) 18:07:44.62 ID:annbVQoU.net]: １４進法で使う数字を小さい方から0 1 2 3 4 5 6 7 8 9 A J Q Kとするときπ、ネイピア数、√２を１４進法で小数１０桁まで表示せよ。
935 名前：卵の名無しさん mailto:sage [2020/11/17(火) 18:08:49.66 ID:annbVQoU.net]: 62進法で使う数字を小さい方から0 1 2 3 4 5 6 7 8 9 a b c ... x y z A B C ... X Y Z
とするときπ、ネイピア数、√２を１４進法で小数１０桁まで表示せよ。
936 名前：卵の名無しさん mailto:sage [2020/11/17(火) 21:03:35.41 ID:annbVQoU.net]: > decN(pi,62)
3.8MhuCIRym8egOl
> decN(exp(1),62)
2.Ix4FDGbb8J4wtH
> decN(sqrt(2),62)
1.pGeGLWSyyECdM
937 名前：卵の名無しさん mailto:sage [2020/11/17(火) 23:26:12.97 ID:annbVQoU.net]: 0と1の2個の数を使いマイナス二進法で1から10を数えよ　（マイクロソフトの入社試験）
答と解説は
https://i.imgur.com/F5AdX1Q.jpg
https://www.youtube.com/watch?v=CTzw-zi7Zro

20まで計算させてみた
ans
1 1
2 110
3 111
4 100
5 101
6 11010
7 11011
8 11000
9 11001
10 11110
11 11111
12 11100
13 11101
14 10010
15 10011
16 10000
17 10001
18 10110
19 10111
20 10100

それを面倒にした問題
(1) 2021をマイナス二進法で表示せよ。
(2) 3, 33, 333, 3333を各々マイナス三進法で表示せよ。
938 名前：卵の名無しさん mailto:sage [2020/11/17(火) 23:26:38.75 ID:annbVQoU.net]: MS <- function( # Minus N-ary System
num,
N=-2,
d=16,
print=TRUE
){
base=N^((d-1):0)
pm=expand.grid(replicate(d,0:(-N-1),simplify = FALSE))
colnames(pm)=1:d
f <- function(x) sum(x*base) == num
re=pm[apply(pm,1,f),]
i=1
flg <- re[1]==0
while(flg){
i=i+1
flg <- re[i]==0
}
ans=paste(as.character(re[i:d]),collapse='')
if(print) print(ans,quote=F)
invisible(ans)
}
data.frame(ans=sapply(1:20,function(n)MS(n,p=F)))
MS(2021,-2)
MS(3,-3,d=3)
MS(33,-3,d=5)
MS(333,-3,d=7)
MS(3333,-3,d=9)
939 名前：卵の名無しさん mailto:sage [2020/11/18(水) 00:40:03.43 ID:vfLJTrWt.net]: 3を0,1,2の3つの数字をつかったマイナス三進法で表すと3 = 1*(-3)^2 + 2*(-3) + 0*(-3)^0なので　120と表せる。

1から10までをマイナス三進法で表示すると
1 1
2 2
3 120
4 121
5 122
6 110
7 111
8 112
9 100
10 101

問題　：　円周率をマイナス三進法で小数１０桁まで表示せよ。
940 名前：卵の名無しさん mailto:sage [2020/11/18(水) 01:43:54.17 ID:vfLJTrWt.net]: MS <- function( # Minus N-ary System
num,
N=-2,
d=16,
print=TRUE
){
base=N^((d-1):0)
pm=expand.grid(replicate(d,0:(-N-1),simplify = FALSE))
colnames(pm)=1:d
f <- function(x) sum(x*base) == num
re=pm[apply(pm,1,f),]
i=1
flg <- re[1]==0
while(flg){
i=i+1
flg <- re[i]==0
}
ans=paste(as.character(re[i:d]),collapse='')
if(print) print(ans,quote=F)
invisible(ans)
}

piN <- function(N=-2){ # pi for minus N-ary system
Pi=unlist(strsplit(as.character(pi),'.',fixed=T))
seisu=MS(as.numeric(Pi[1]),N,d=3,print=F) # 3(mod10) = 120(mod-3)
pm=expand.grid(replicate(10,0:(abs(N)-1),simplify = F))
base=(1/N)^(1:10)
f <- function(x) (pi-floor(pi)- sum(x*base))^2
dif=apply(pm,1,f)
shosu=paste(as.character(pm[which.min(dif),]),collapse='')
print(paste0(seisu,'.',shosu),quote=F)
}
941 名前：卵の名無しさん mailto:sage [2020/11/18(水) 01:44:08.48 ID:vfLJTrWt.net]: > piN(-2)
[1] 111.0110010001
> piN(-3)
[1] 120.0220210200
> piN(-5)
[1] 3
942 名前：.0434333021 []: [ここ壊れてます]
943 名前：卵の名無しさん mailto:sage [2020/11/18(水) 12:25:29.26 ID:EQ55+bnh.net]: # e+0*e^0+1*e^(-1)+0*e^(-2)+1*e^(-3)
# [1] 3.135948

n=10
e=exp(1)
1*e^1+0*e^0 < pi
pi < 1*e^1 + 1*e^1
a=numeric()
b=numeric()

b[1]=e+0*e^0+e^(-1)
a[1]=as.numeric(b[1]<pi)

for(i in 1:n){
a[i+1]=as.numeric((b[i]+e^(-i-1))<pi)
b[i+1]=b[i]+a[i+1]*e^(-i-1)
}
paste(as.character(a),collpse="")
944 名前：卵の名無しさん mailto:sage [2020/11/18(水) 21:59:58.98 ID:+VMfzcIp.net]: 武漢からの飛行機は乗客降ろさず機内で検査。
海外からの入国は全て隔離検査。
電車バスはマスク無しは乗車拒否かつ検温を改札で実施。
店はマスク無しは入店拒否。
マスクはコンビニで無料配布かつスマホで一人一人の枚数管理するアプリを政府が開発。
学校は閉鎖しオンライン授業に切り替え。

ざっと台湾の対策はこんなもの。
945 名前：卵の名無しさん mailto:sage [2020/11/19(木) 08:20:55.90 ID:LJQTN5dj.net]: # (x-r*cos(θ))^2 + (y-r*sin(θ))^2=r^2
# y = r*sin(θ) + sqrt(r^2*(sin(θ))^2 + 2*r*x -x^2)
area <- function(r,θ){
integrate(function(x) r*sin(θ) + sqrt(r^2*(sin(θ))^2 + 2*r*x -x^2),0,1)$value
}
946 名前：卵の名無しさん mailto:sage [2020/11/19(木) 08:27:00.14 ID:LJQTN5dj.net]: # (x-r*cos(θ))^2 + (y-r*sin(θ))^2=r^2
# y = r*sin(θ) + sqrt(r^2*(sin(θ))^2 + 2*r*x -x^2)
area <- function(r,θ){
f = function(x) r*sin(θ) + sqrt(r^2*(sin(θ))^2 + 2*r*x -x^2)
O=c(0,0)
P=c(r*cos(θ),r*sin(θ))
Q=c(1,f(1))
integrate(f,0,1)$value
}
947 名前：卵の名無しさん mailto:sage [2020/11/19(木) 13:16:21.52 ID:AV9OAvON.net]: rm(list=ls())
source('toolmini.R')

plot(NULL,xlim=c(0,1.5),ylim=c(0,1.5),asp=F,ann=F,axes=F)
abline(h=0,v=0,col=8)
r=1.015
ci <- function(x,R=r) sqrt(R^2-x^2)
cir(0,0,r,lty=4)
x=seq(ci(1),r,0.01)
lines(x,ci(x),type='h',col=4)
Q=ci(1)+1i
seg(Q,ci(1)+0i)
seg(Q,Q+1) ; seg(Q+1,Q+1-1i) ; seg(Q-1i,Q-1i+1)
seg(0i,Q,col=8)
pt(0.05+0.05i,'θ'); pt(Q/2,'r',cex=1.5)
948 名前：卵の名無しさん mailto:sage [2020/11/19(木) 13:17:26.24 ID:AV9OAvON.net]: 会食が原因になっていることが多いと言っておいて、Gotoイートで会食を促進するという謎の政策を進める政府。
デフレ下に増税するという世襲低学歴の暗愚が最長政権の土人の国になったなぁ。

一方、文明国では
武漢からの飛行機は乗客降ろさず機内で検査。
海外からの入国は全て隔離検査。
電車バスはマスク無しは乗車拒否かつ検温を改札で実施。
店はマスク無しは入店拒否。
マスクはコンビニで無料配布かつスマホで一人一人の枚数管理するアプリを政府が開発。
学校は閉鎖しオンライン授業に切り替え。
949 名前：卵の名無しさん mailto:sage [2020/11/19(木) 15:46:43.48 ID:AV9OAvON.net]: source('toolmini.R')

plot(NULL,xlim=c(0,2),ylim=c(-1,1),asp=1,ann=F,axes=T)
O=0i;A=1+0i;B=1i;C=1+1i
pt(O,'O'); pt(A,'A') ; pt(B,'B') ; pt(C,'C')
seg(O,A);seg(0,B);seg(C,A);seg(C,B) ; seg(O,C,lty=3)
r=1.070437
th=-0.3647908 ; pt(0.15-0.025i,'θ') # Pの偏角
P=r*cos(th)+r*1i*sin(th) ; pt(P,'P(rcosθ,rsinθ)') ; seg(O,P,col=8)
Cir(P,r,col=8)
ci <- function(x) r*sin(th) + sqrt(r^2 - (x-r*cos(th))^2)
Q=1+1i*ci(1) ; pt(Q,'Q') ; seg(P,Q,col=8)
x=seq(0,1,0.01)
lines(x,ci(x),type='h',col=4)
pt(P/2,'r',cex=1.25)

#
area <- function(r,th){ # 円盤片の面積を算出
ci <- function(x) r*sin(th) + sqrt(r^2 - (x-r*cos(th))^2)
integrate(ci,0,1)$value
}
area=Vectorize(area)
# demo
area(1.146384,-pi/8)
950 名前：卵の名無しさん mailto:sage [2020/11/19(木) 15:46:48.74 ID:AV9OAvON.net]: th2r <- function(theta){ # θから円弧長を決定
r=uniroot(function(x) area(x,th=theta) - 1/2, c(1,2),tol=1e-24)$root #面積が1/2になるr
ci <- function(x) r*sin(theta) + sqrt(r^2 - (x-r*cos(theta))^2)
Q=1+1i*ci(1)
P=r*cos(theta)+1i*r*sin(theta)
r*bac(Q,P,0i)
}
th2r=Vectorize(th2r)
# demo
th2r(-pi/6)
x=seq(-pi/7,-pi/9, 0.0005)
plot(x,th2r(x),type='l',lwd=2,xlab=bquote(theta),ylab='円弧 OQ',cex.lab=1.25)
(opt=optimize(th2r,c(-pi/7,-pi/9
951 名前：),tol=1e-24)) uniroot(function(x) area(x,th=opt$minimum) - 1/2, c(1,2),tol=1e-24)$root # r []: [ここ壊れてます]
952 名前：卵の名無しさん mailto:sage [2020/11/19(木) 15:48:01.54 ID:AV9OAvON.net]: # 正方形の紙を頂点から切り始め、円周の一部（円弧）で面積を二等分するとき、
# 切り取り線の長さを出来るだけ短くするにはどうしたらよいか？
953 名前：卵の名無しさん mailto:sage [2020/11/19(木) 17:41:10.39 ID:AV9OAvON.net]: "
ガチャの確率問題
とあるソーシャルゲームのガチャにはN種類のキャラがいて、全て等確率で出てくる。
ｎ連ガチャを回したとき、どのキャラでもいいので同じキャラがｍ回以上出てくる確率を求めよ。"
"

mean(replicate(1e7,any(table(sample(N,n,rep=T))>=m)))
954 名前：卵の名無しさん mailto:sage [2020/11/19(木) 18:51:57.01 ID:AV9OAvON.net]: rm(list=ls())
options(digits=10)
source('toolmini.R')

plot(NULL,xlim=c(0,2),ylim=c(-1,1),asp=1,ann=F,axes=T)
O=0i;A=1+0i;B=1i;C=1+1i
pt(O,'O'); pt(A,'A') ; pt(B,'B') ; pt(C,'C')
seg(O,A);seg(0,B);seg(C,A);seg(C,B) ; seg(O,C,lty=3)
r=1.070437
th=-0.3647908 ; pt(0.15-0.025i,'θ') # Pの偏角
P=r*cos(th)+r*1i*sin(th) ; pt(P,'P(rcosθ,rsinθ)') ; seg(O,P,col=8)
Cir(P,r,col=8)
ci <- function(x) r*sin(th) + sqrt(r^2 - (x-r*cos(th))^2)
Q=1+1i*ci(1) ; pt(Q,'Q') ; seg(P,Q,col=8)
x=seq(0,1,0.005)
lines(x,ci(x),type='h',col=4)
pt(P/2,'r',cex=1.25) ; seg(O,C,lty=3)

"
integral r*sin(θ) + sqrt(r^2 - (x-r*cos(θ))^2) dx =
"
f <- function(x,r=1.070436,θ=-0.3647908) r*sin(θ) + sqrt(r^2 - (x-r*cos(θ))^2)
curve(f(x),0,1,add=T)
integrate(f,0,1)$value
955 名前：卵の名無しさん mailto:sage [2020/11/19(木) 18:52:02.15 ID:AV9OAvON.net]: Fn <- function(x,r=1.070436,θ=-0.3647908){
(1/2)*(x-r*cos(θ))*sqrt(r^2 - (x-r*cos(θ))^2) - (1/2)*r^2*atan((r*cos(θ)-x)/sqrt(r^2-(x-r*cos(θ)^2))) + r*x*sin(θ)
}
Fn(1)-Fn(0)

Area <- function(r,θ){
(1/2)*(1-r*cos(θ))*sqrt(r^2-(1-r*cos(θ))^2) - (1/2)*atan((r*cos(θ)-1)/sqrt(r^2+r*cos(θ)^2-1)) + r*sin(θ) +
(1/2)*r*cos(θ)*sqrt(r^2-r^2*cos(θ)^2) + (1/2)*r^2*atan(r*cos(θ)/sqrt(r^2+r*cos(θ)^2))
}
Area(r=1.070436,θ=-0.3647908)
956 名前：卵の名無しさん mailto:sage [2020/11/21(土) 09:04:39.17 ID:YdGgHDOx.net]: 田村議員の質疑には、民主主義と法治国家を死守するという熱意に溢れている。
これに対する閣僚、官僚の答弁は法治国家を破壊しかねない、デタラメなものばかり。

https://www.youtube.com/watch?v=E9kPDgbczXk

https://www.youtube.com/watch?v=bQOwuAiKseU
957 名前：卵の名無しさん mailto:sage [2020/11/21(土) 14:05:50.26 ID:vNIkaki5.net]: 「感染拡大は、Go to が原因とする科学的エビデンスはない」と自民党の連中が言うけどさ
ゴールデンウィーク前は「外出するな、旅行するな、帰省もするな」の大合唱だったんだよ。「人が移動したらウィルスも移動する」からね

それがいつの間にか、マスクして感染対策すりゃOK！ってなってるの何で？
958 名前：卵の名無しさん mailto:sage [2020/11/21(土) 18:12:40.62 ID:yHIGlwPH.net]: LET'S 振込め詐欺見張隊新117 L-FSM-N117

www.lets-co.jp/lets/security/furikomenew117.html
959 名前：卵の名無しさん mailto:sage [2020/11/22(日) 11:00:36.59 ID:m/vS68nE.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

x=2596 # new infection
r=1981 # culmutive death toll
n=130951 # culmutive infection
r/n # morality rate
x*r/n # estimated deaths in new infecton
ci=binom.test(r,n)$conf
data.frame(lower=ci[1]*x,upper=ci[2]*x)
d=365.2425
x*r/n*d # annual estimated
as.vector(x*ci*d)

x*r/n*d/3215 # ratio to traffic accident casul
as.numeric(x*ci*d/3215)
960 名前：卵の名無しさん mailto:sage [2020/11/22(日) 11:09:15.63 ID:m/vS68nE.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

x=2596 # new infection
r=1981 # culmutive death toll
n=130951 # culmutive infection
r/n # morality rate
x*r/n # estimated deaths in new infection
ci=binom.test(r,n)$conf # 95% confidence interval(C.I.)
data.frame(lower=ci[1]*x,upper=ci[2]*x)
d=365.2425 # days in one-year
x*r/n*d # annual estimated
as.vector(x*ci*d) # 95%C.I.

x*r/n*d/3215 # ratio to traffic accident death casualities
as.numeric(x*ci*d/3215) # 95%C.I.
961 名前：卵の名無しさん mailto:sage [2020/11/22(日) 13:07:16.02 ID:m/vS68nE.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

x=2596 # new infection
r=1981 # culmutive death toll
n=130951 # culmutive infection
r/n # morality rate
x*r/n # estimated deaths in new infection
ci=binom.test(r,n)$conf # 95% confidence interval(C.I.)
data.frame(lower=ci[1]*x,upper=ci[2]*x)
d=365.2425 # days in one-year
x*r/n*d # annual estimated
as.vector(x*ci*d) # 95%C.I.
ta=3215 # annual traffic accident fatality
x*r/n*d/ta # ratio to traffic accident fatality
as.vector(x*ci*d/ta) # 95%C.I.
962 名前：卵の名無しさん mailto:sage [2020/11/22(日) 17:43:25.52 ID:m/vS68nE.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

x=2596 # new infection
r=1981 # culmulative death toll
n=130951 # culmulative infection
r/n # morality rate
x*r/n # estimated deaths in new infection
ci=binom.test(r,n)$conf # 95% confidence interval(C.I.)
data.frame(lower=ci[1]*x,upper=ci[2]*x)
d=365.2425 # days in one-year
x*r/n*d # annual estimated
as.vector(x*ci*d) # 95%C.I.
ta=3215 # annual traffic accident fatality
x*r/n*d/ta # ratio to traffic accident fatality
as.vector(x*ci*d/ta) # 95%C.I.
963 名前：卵の名無しさん mailto:sage [2020/11/23(月) 12:41:47.57 ID:jv+E87O2.net]: 小選挙区制で（与党）議員どおしのcheck & balanceが消滅し、
内閣人事局で政治家と官僚のcheck & balanceが消滅。

制度化したのが民主党、制度を悪用したのが自民党。

その結果が

　デフレ下に増税、
　疫病下に旅行推進

という歴史に残る愚策。
964 名前：卵の名無しさん mailto:sage [2020/11/23(月) 23:23:57.53 ID:jv+E87O2.net]: 小選挙区制で（与党）議員どおしのcheck & balanceが消滅し、
内閣人事局で政治家と官僚のcheck & balanceが消滅。

制度化に動いたのが民主党を作った政治家達、制度化して悪用したのが自民党。

その結果が

　デフレ下に増税、
　疫病下に旅行推進

という歴史に残る愚策。
965 名前：卵の名無しさん mailto:sage [2020/11/25(水) 16:52:40.72 ID:1mPkdWnl.net]: 財政破綻論を唱える連中には、この一言で全ての片が付く。
「日銀のFTF買い入れの財源教えて」
966 名前：卵の名無しさん mailto:sage [2020/11/26(木) 08:32:39.74 ID:/Ibshp5i.net]: 財政破綻論を唱える連中には、この一言で全ての片が付く。
「日銀のETF買い入れの財源教えて」
967 名前：卵の名無しさん [2020/11/26(木) 19:00:26.74 ID:Ok784nx+.net]: 医師版になぜ統計？
俺、統計できるんだぜ
お前らと違って
あたまいいだろ
ホルホル、つうこと？
968 名前：卵の名無しさん mailto:sage [2020/11/26(木) 22:10:36.52 ID:LFiRhrQe.net]: IMO <- function(x='IMO'){
y=unlist(strsplit(x,''))
n=length(y)
z=numeric(n)
for(i in 1:n) z[i]=which(y[i]==LETTERS)
w=z-1
sum(w*26^((n-1):0))+1
}
IMO('KINTAMA')
IMO('KKK')
969 名前：卵の名無しさん mailto:sage [2020/11/26(木) 22:36:55.28 ID:LFiRhrQe.net]: pm=expand.grid(replicate(3,LETTERS,simplify=F))
pm=t(apply(pm,1,rev))
f <- function(x){
x[1]=='I' & x[2]=='M' & x[3]=='O'
}

which(apply(pm,1,f))
pm[5735,]
revLET <- function(x='IMO'){
y=unlist(strsplit(x,''))
n=length(y)
z=numeric(n)
for(i in 1:n) z[i]=which(y[i]==LETTERS)
z
}
revLET('IMO')
(9-1)*26^2+(13-1)*26+15

IMO <- function(x='IMO'){
y=unlist(strsplit(x,''))
n=length(y)
z=numeric(n)
for(i in 1:n) z[i]=which(y[i]==LETTERS)
w=z-1
sum(w*26^((n-1):0))+1
}
970 名前：卵の名無しさん mailto:sage [2020/11/26(木) 22:37:08.75 ID:LFiRhrQe.net]: IMO('KINTAMA')
IMO('SEX')
IMO('YMO')
source('toolmini.R')
pm[12296,]
revLET("SEX")
dec2nw(12296,26,0)

n2IMO <- function(x){
y=dec2nw(x,26,0)+1
n=length(y)
y[n]=y[n]-1
print(paste(LETTERS[y],collapse = ''),quote=F)
}
n2IMO(2020)
971 名前：卵の名無しさん mailto:sage [2020/11/27(金) 00:04:49.17 ID:MEMGUU7d.net]: １レスいくらだか知らねーけど、そんなバイトしなきゃならんほど困窮させた張本人擁護とかよくやるわ
972 名前：卵の名無しさん mailto:sage [2020/11/27(金) 07:56:33.46 ID:MEMGUU7d.net]: IMO <- function(x){
y=unlist(strsplit(x,''))
n=length(y)
z=numeric(n)
for(i in 1:n) z[i]=which(y[i]==LETTERS)
w=z-1
sum(w*26^((n-1):0))+1
}

> IMO('CZR')
[1] 2020

n2IMO <- function(x){
r=x%%26
q=x%/%26
while(q > 0){
r=append(q%%26,r)
q=q%/%26
}
y=r+1
n=length(y)
y[n]=y[n]-1
print(paste(LETTERS[y],collapse = ''),quote=F)
}

> n2IMO(2020)
[1] CZR
973 名前：卵の名無しさん mailto:sage [2020/11/27(金) 10:40:53.44 ID:0gxQ/Sbs.net]: 中国の数字は信用できないと言われるが公文書改竄に賄賂五輪誘致GDPやらコロナやら数字誤魔化してる日本は言える立場に無い
974 名前：卵の名無しさん [2020/11/27(金) 11:10:02.25 ID:DvhL2xEx.net]: ナースステーションの端で泣いている男性研修医(38)を見かけた時の適切な対応を１つ選べ。

a. 蹴り飛ばす

b. 抗うつ薬を処方する

c. 退職を勧める

d. 「サボっている研修医が居る」と院長へ報告する

これ本当に国試に出された問題なんだって。
ふざけるのもいい加減にしろと言いたいわ。
出題者のレベルが下がってるのは、やはり
学生の質が低下してるのと関係があるんだろうな。

しかし精神的に幼稚な出題者だよなｗ

出題者が一番、医師としての適性が欠けてるじゃんｗ
975 名前：卵の名無しさん mailto:sage [2020/11/27(金) 12:54:33.84 ID:0gxQ/Sbs.net]: >>897
976 名前：英語と統計は現代の読み書きソロバン []: [ここ壊れてます]
977 名前：卵の名無しさん [2020/11/27(金) 13:27:18.61 ID:LgYm5vL7.net]: そりゃ全員裏口かブーストかどっちかだもんな
978 名前：卵の名無しさん mailto:sage [2020/11/27(金) 15:36:24.87 ID:MEMGUU7d.net]: >>897
こういうのができないと金を毟り取られちゃう。

COVID19の潜伏期間の論文

https://www.nejm.org/doi/full/10.1056/NEJMoa2001316

結論は
#--- incubation period ---
# from Li et al NEJM 2020
# lognormal mean = 5.2
ln.par1 = 1.434065
ln.par2 = 0.6612

あるシリツ医が新型コロナ肺炎に罹患したとする。
行動調査によって発症前にキャバクラに行っており接客したキャバ嬢がシリツ医発症の２日後に発症していたことがわかった。
キャバ嬢はシリツ医から移されたと主張して１億円の賠償を求めている。
潜伏期間には幅がありキャバ嬢から移された可能性もあると主張してその確率を計算して賠償金を値切りたい。
いくら値切れるか計算せよ。
979 名前：卵の名無しさん mailto:sage [2020/11/27(金) 16:10:54.68 ID:MEMGUU7d.net]: >>897

学部教員の声某

会議にて某教授曰く「統計できない人は進級させなくていいですから」

別の某教授からの怒りの電話：「基本的なことがわかっていない学生・大学院生が多い．教養部のうちにちゃんと教育してもらわないと！」

www.tmd.ac.jp/artsci/math/lec/tokunaga/statistics08_01.pdf
980 名前：卵の名無しさん mailto:sage [2020/11/27(金) 16:11:58.85 ID:MEMGUU7d.net]: 最終的には多くの学生が「わかってしまえば簡単だった」という感想を漏らします．
皆さんの先輩M君（現M４）の名言：「自転車と同じで，いったん乗れるようになればあとは楽々ですよ」
981 名前：卵の名無しさん mailto:sage [2020/11/27(金) 19:45:15.34 ID:xmdXpYdQ.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

fn <- function(
x=2523, # new infection
r=2086, # culmulative death toll
n=142811 # culmulative infection
){
cat('mortality rate = ',r/n,'\n') # morality rate
cat('estimated deaths in newly infected = ',x*r/n,'\n') # estimated deaths in new infection
ci=binom.test(r,n)$conf # 95% confidence interval(C.I.)
print(data.frame(lower=ci[1]*x,upper=ci[2]*x))
d=365.2425 # days in one-year
cat('annual deaths estimated = ',x*r/n*d, '\n') # annual estimated
CI=as.vector(x*ci*d) # 95%C.I.
print(data.frame(lower=CI[1],upper=CI[2]))
ta=3215 # annual traffic accident fatality
cat('ratio to traffic accident fatality = ',x*r/n*d/ta,'\n') # ratio to traffic accident fatality
CI=as.vector(x*ci*d/ta) # 95%C.I.
print(data.frame(lower=CI[1],upper=CI[2]))
}
fn()
982 名前：卵の名無しさん mailto:sage [2020/11/27(金) 19:56:10.93 ID:xmdXpYdQ.net]: テレビのドキュメンタリーでやってたが
看護師が、これだけ働いて感染の危険も冒してるのにボーナス無しはあり得ないと病院側に訴え。
でも病院側は、利益が出なければボーナスなどとても出せない、経営が行き詰まってると。
実際私立病院ならそうだろう。
こういう医療現場こそコロナ補助で国が救済するべき。
なんで飲み屋や観光業など娯楽業種を助けるために
体張ってる医療機関を犠牲にするんだか。
983 名前：卵の名無しさん mailto:sage [2020/11/27(金) 21:46:30.17 ID:xmdXpYdQ.net]: あるドキュメンタリーでやってたが
看護師が、これだけ働いて感染の危険も冒してるのにボーナス無しはあり得ないと病院側に訴え。
でも病院側は、利益が出なければボーナスなどとても出せない、経営が行き詰まってると。
実際、私立病院ならそうだろう。
こういう医療現場こそコロナ補助で国が救済するべきと思う。
医療機関で適正な賃金を払えない現実こそ、医療崩壊だと思う。
984 名前：卵の名無しさん mailto:sage [2020/11/28(土) 07:45:58.02 ID:Vq0tXK6x.net]: 生活圏を超える人の移動は、確実に接触率を上げ、これが実効再生産数を挙げて、感染者数上昇を引き起こす。
現在、GOTOでウィルスを全国に拡散中。
しばらくは、旅行を楽しむような若者や元気な人が隠れ陽性となり、これらが顕在化して爆増だな。
985 名前：卵の名無しさん mailto:sage [2020/11/28(土) 08:38:33.70 ID:Vq0tXK6x.net]: DR. FAUCI: You know, every single day we meet with the task force, and we take a look at what's going on.
And you don't want to make a pronouncement that no one should ever go into a restaurant.
I mean, I think that might be overkill right now, but everything is on the table.
It may come to the situation where we strongly recommend.
Right now, myself personally, I wouldn't go to a restaurant.
I just wouldn't because I don't want to be in a crowded place.
I have an important job to do.
I don't want to be in a situation where I'm going to be all of a sudden self-isolating for 14 days.

https://www.cbsnews.com/news/transcript-dr-anthony-fauci-discusses-coronavirus-on-face-the-nation-march-15-2020/
986 名前：卵の名無しさん mailto:sage [2020/11/28(土) 09:18:40.36 ID:Vq0tXK6x.net]: 安倍ぴょんまでも総合的・俯瞰的に粛清が始まってワクワクするのだが、朝敵安倍を撃ての詔が総理に下ったのかな？
桜を見る会でなく、前夜祭に焦点をあてているのは菅が無傷で安倍を撃ち落とすためだろうな。
桜を見る会そのものを取り上げると、スガもプリズン　になってしまう。
987 名前：卵の名無しさん mailto:sage [2020/11/29(日) 12:10:27.26 ID:WqPJnRzs.net]: バカはトリアージにより老人が追い出されると思って喜んでいたみたいだけど
現実には老人が優先されたというオチ

まあ若者はコロナで死なないけど老人はすぐ死んでしまうから
老人優先は当然なんだよなあ
988 名前：卵の名無しさん mailto:sage [2020/11/29(日) 18:45:11.35 ID:WqPJnRzs.net]: 感染者が入院希望しても入院できないのが医療崩壊だと思うのだが、現状は医療崩壊ではないのか？
989 名前：卵の名無しさん mailto:sage [2020/11/29(日) 18:47:35.39 ID:WqPJnRzs.net]: 感染者が入院希望しても入院できないのが医療崩壊だと思うのだが、現状は医療崩壊ではないのか？
990 名前：卵の名無しさん mailto:sage [2020/11/29(日) 20:16:35.60 ID:WqPJnRzs.net]: あるシリツ医大で裏口入学率を推定したい。
何の情報もないのでその確率を0から1までの>>488
一様分布とする。
調査により何人の裏口が続いたら裏口入学率の95%信頼区間の下限値が90%を超えるか？
そのときの裏口入学率の期待値はいくらか？

library(HDInterval)
f <- function(x) hdi(qbeta,0.95,shape1=1+x,shape2=1)
f=Vectorize(f)
n=0:100
y=f(n)
plot(n,(1+n)/(2+n),bty='l',ylab='Prob ',ylim=c(0,1),pch=19)
segments(n,y['lower',],n,y['upper',])
# points(n,y['lower',])
# points(n,y['upper',])
abline(h=0.90,col=8)
n0=uniroot(function(x,u0=0.90) f(x)[1] - u0, c(0,100))$root ; n0
(n0+1)/(n0+2)
(ceiling(n0)+1) / (ceiling(n0)+2)
991 名前：卵の名無しさん mailto:sage [2020/11/29(日) 21:30:08.11 ID:WqPJnRzs.net]: k=1e3
oz=0.6/0.4
game <- function(x){
OZ=P=numeric()
OZ[x]=oz^(x-1)
P[x]=OZ[x]/(1+OZ[x])
rbinom(k,1,P[x])
}

sim <- function(a,b){
mean(game(a) > game(b))
}
sim(7,3)
992 名前：卵の名無しさん mailto:sage [2020/11/30(月) 06:52:25.73 ID:QN29Tqgt.net]: 海外からのコロナ流入を止めるのが遅すぎた　中国だけでなく欧州からの流入が続いたのが痛かった
検査の強化と
993 名前：隔離施設の手当が必要なのに、中国でそれが有効だったのを見ていたのに学ぶことなく折角クラスター対策で稼いだ時間を無駄にした GoToキャンペーンはコロナが終息してから開始する約束だったのに反故にして前倒し実施して傷口を広げた 科学的根拠を重視せず思い付きで無意味な施策を繰り出した（一斉休校、アベノマスク、GoToキャンペーン）それもお友達利権つきで　それらの施策は国会で審議もしていないから野党はどうすることもできないし、野党は桜を見る会だけ取り上げていたわけではない 少なくとも野党は「自民と同罪」ではない 君は結局自民のサポーターで、政府への批判が避けられないから野党も一緒だとレッテル貼りをしているのだろう []: [ここ壊れてます]
994 名前：卵の名無しさん mailto:sage [2020/11/30(月) 06:52:41.10 ID:QN29Tqgt.net]: 同じ島国なのに、支那ウィルスの抑え込みに成功した台湾とニュージーランド。
失敗した日本とイギリス。
この同じ島国であるながら、違いがなぜ生じたかを考えればわかる。

アベがFラン過ぎた。
ジョンソンも支那ウィルスを当初、極東の風土病くらいにしか思わず、対策を油断した。

一方台湾もNZも観光も主要産業だったが、1月に危機感を感じトップダウンで鎖国した。
島国の利点を生かし、外国からの人の流れを遮断し鎖国することで乗り切った。
1月、2月は経済が縮小したが、その成果が表れて現在は支那ウィルスを抑え込んだ。
今は国内の経済活動も解禁した。

それに比べて日本はどうだい？
アベは1月に全く危機感も持たず、「春節の支那人観光客のインバウンドを歓迎します。」と呑気なビデオメッセージを垂れ流してた。
アベは「非常事態宣言で鎖国する法的根拠がないー」とほざいて言い逃れする。

しかしアベにやる気があれば、総理大臣の伝家の宝刀「超法規的措置」が取れた。
日本赤軍がよど号をハイジャックし、刑務所の極左メンバーの釈放と、北チョン国への亡命を要求した。
当時の総理は、刑法、入管法も停止して、法秩序を捻じ曲げて、国交のない北チョン国に赤軍メンバーを亡命させた。
「超法規的措置」とはこのように強力な権力である。

しかしFラン大卒のアベは、1月に日本の鎖国…外人の入国禁止措置を取らなかった。
馬鹿のアベに危機感と責任感と決断力がなかった。
ま、1月の国会を「桜を見る会がー！」で無駄に貴重な時間を潰した糞ボケ野党どもも、痔民党と同罪だけどな。

日本にはろくな政党がない。
日本には”真の”保守政党が必要だ。
　
995 名前：卵の名無しさん mailto:sage [2020/11/30(月) 22:24:00.68 ID:HI2s9ZOn.net]: f <- function(
wAB=80, # Aの対B勝数
lAB=20, # Aの対B負数
wAC=30, # Aの対C勝数
lAC=20, # Aの対C負数
k=1e6){ # 乱数発生数
b=rbinom(k,wAB+lAB,lAB/(wAB+lAB)) # Bの勝数乱数
ba=b/(wAB+lAB-b) ; hist(ba,br='sc',fr=F) # Bのオッズ乱数
c=rbinom(k,wAC+lAC,lAC/(wAC+lAC)) # Cの勝数乱数
ca=c/(wAC+lAC-c) ; hist(ca,br='sc',fr=F) # Cのオッズ乱数
bc=ba/ca # Bの対Cオッズ乱数
summary(bc)
hist(bc,br='sc',fr=F)
P
996 名前：bc=bc/(1+bc) hist(Pbc) summary(Pbc) pbc=Pbc[!is.na(Pbc)] print(summary(pbc)) plotPost(pbc,compVal = 0.5,showMode=T,showCurve = T,xlab='Prob[B beats C]') hdi(pbc) } []: [ここ壊れてます]
997 名前：卵の名無しさん mailto:sage [2020/11/30(月) 22:27:58.54 ID:HI2s9ZOn.net]: library(gmp)
f <- function(N){
a=factorialZ(N)
b=as.character(a)
c=as.numeric(unlist(strsplit(b,'')))
d=rev(c)
if(d[1]!=0) return(NA)
else return(rle(d)$values[2])
}

N=1:1000
y=sapply(N,f)
plot(N,y,bty='n')
z=data.frame(N,digit=y)
head(z,10)
tail(z,10)
998 名前：卵の名無しさん mailto:sage [2020/12/01(火) 08:54:10.45 ID:iy4usOEg.net]: library(gmp)
f <- function(N){
a=factorialZ(N)
b=as.character(a)
c=as.numeric(unlist(strsplit(b,'')))
d=rev(c)
if(d[1]!=0) return(NA)
else return(rle(d)$values[2])
}

N=1:10004
y=sapply(N,f)
plot(N,y,bty='n')
z=data.frame(N,digit=y)
head(z,10)
tail(z,10)
a=z[-1:-4,] # non-zero digit
b=vector('list',length=9)
for(i in c(2,4,6,8)){
b[[i]]=a[a$digit==i,]$N
}
b
c=sapply(c(2,4,6,8), function(i) length(b[[i]]))
data.frame(digit=c(2,4,6,8),個数=c)
999 名前：卵の名無しさん mailto:sage [2020/12/01(火) 10:28:29.05 ID:VGK+tvyz.net]: # 差X-Yのpdfの公式
# ∫[-∞,∞] pdf1(x+y)*pdf2(y) dy

# x ~ pdf1,y ~ pdf2から x-y のpdfを返す
pdf_minus <- function(pdf1,pdf2){
f <- function(x,y) pdf1(x+y)*pdf2(y)
f=Vectorize(f,vectorize.args = 'y')
pdf <- function(x)
integrate(function(y) f(x,y),-Inf,Inf,rel.tol=1e-14)$value
pdf=Vectorize(pdf)
invisible(pdf)
}
# ex. COVID19 incubation time
mu = 1.434065 ; sg = 0.6612
x=rlnorm(1e6,mu,sg) ; y=rlnorm(1e6,mu,sg)
hist(x-y,xlim=c(-30,30),freq=F,breaks=250,lty=1,col='skyblue',main='')
pdf_minus(function(x)dlnorm(x,mu,sg),
function(x)dlnorm(x,mu,sg)) -> pdf
curve(pdf(x),add=T)
var=integrate(function(x) x^2*pdf(x),-Inf,Inf)$value
sqrt(var)
integrate(pdf,2,Inf,rel.tol=1e-12)
mean(x-y>2)
library(polspline)
fit=logspline(x-y)
curve(dlogspline(x,fit),add=T,col=4)
1-plogspline(2,fit)
1000 名前：卵の名無しさん mailto:sage [2020/12/01(火) 12:55:50.90 ID:iy4usOEg.net]: 日本の誇り

★亀井静香

「簡単に言いますと・・・
小泉・竹中改革と称する路線の逆をやれば日本の未来が開かれる、
このように私は思います。」

https://www.youtube.com/watch?v=DmiCQKBM2So&t=350s
1001 名前：卵の名無しさん mailto:sage [2020/12/01(火) 13:59:32.58 ID:VGK+tvyz.net]: たちが悪いのは同じような派遣会社がゴキブリ並に増えたことだね。起業したやつの8割以上が派遣会社って狂ってる。派遣会社が増えると単価も質も下がるからいいことなんてない。少なくとも正社員派遣なんて社員1000人未満の企業がやることじゃない。
1002 名前：卵の名無しさん mailto:sage [2020/12/01(火) 14:36:51.79 ID:VGK+tvyz.net]: 一国の総理がイの1番に逃げ出すんやから、それから比べりゃ残ってる医療従事者は神だな
1003 名前：卵の名無しさん mailto:sage [2020/12/02(水) 15:08:41.39 ID:q+b52hkR.net]: こういうのができないと金を毟り取られちゃうから、統計は臨床医には必須。

COVID19の潜伏期間の論文

https://www.nejm.org/doi/full/10.1056/NEJMoa2001316

結論は
#--- incubation period ---
# from Li et al NEJM 2020
# lognormal mean = 5.2
ln.par1 = 1.434065
ln.par2 = 0.6612

ある開業医が新型コロナ肺炎に罹患したとする。
行動調査によって発症前にキャバクラに行っており接客したキャバ嬢が開業医発症の２日後に発症していたことがわかった。
キャバ嬢は開業医から移されたと主張して１億円の賠償を求めている。
潜伏期間には幅がありキャバ嬢から移された可能性もあると主張してその確率を計算して賠償金を値切りたい。
いくら値切れるか計算せよ。
1004 名前：卵の名無しさん mailto:sage [2020/12/02(水) 15:09:27.20 ID:P31LjdKx.net]: うりゅうひろゆきの本スレにようこそ！
このウンコスレは基本的にさらしアゲて使用します！
ココは医師真似事務員ジイさんが、医師ねたみの挙句、テメェで勝手に自称で医科歯科大を卒業した医師って設定で
妄想願望日記を発表するスレです
お医者さんのマトモなレスなど全く不要！
ゴミ箱まがいの公衆便所掃き溜め痰
1005 名前：壷下品スレとして使用しましょうね そんなわけで、いまだ懲りない恥さらし（自称）医科歯科事務員ジジイ登場～～ │　　　　　　彡川川川三三三ミ～　プウゥ～ン ｜　　　　　　川｜川／　　＼｜～　ポワ～ン　　　＿＿＿＿＿＿＿＿ ｜　　　　　∥｜∥　◎---◎｜～　　　　　　　／ ｜　　　　　川川∥　　　　3　　ヽ～　　　　　　＜僕はうりゅうひろゆき ｜　　　　　川川　　　∴）д（∴）～　　　　　　＼＿＿＿＿＿＿＿＿ ｜　　　　　川川　　　　　　～　/～　カタカタカタ ｜　　　　　川川∥　　　　～　/∥　＿＿＿＿＿ ｜　　　　川川川川＿＿＿／∥　 |　　|￣￣＼　＼ ｜　　　　　　／　　　　　　　＼＿＿|　　|　　　　|￣￣| ｜　　　　　/　　＼医科歯科　　　 |　　|　　　　|＿＿| ｜　　　　　|　＼　　　　　　|つ　　　|＿_|＿＿／　／ ｜　　　　 /　医師うらやましいぜ・・　|￣￣￣￣|　　〔￣￣〕 よし、医科歯科の医者と称して 私立のお医者様を攻撃だ！なんたって、医科歯科の看板借りてんだからな え？証明？？？自称だから医科歯科の学生証、卒業証書あるわけねえよ 同期の医師あげてみろ、ったて、そもそも医師じゃねえし居ねえよバカ でも病院でもらった、医科歯科の封筒はもってま～す！これを証拠にしてやるぜ 専門医？欲しいけど・・いいや！そんなの必要ねえ！俺は事務員だし []: [ここ壊れてます]
1006 名前：卵の名無しさん mailto:sage [2020/12/03(木) 11:47:39.61 ID:TjAn8Ste.net]: 本日のニュー速＋より

452 ニューノーマルの名無しさん 2020/12/03(木) 11:45:56.01 ID:ChAQFKI00
近大病院とか大丈夫かよ
バカ大卒の医者の集団だろ
1007 名前：卵の名無しさん mailto:sage [2020/12/03(木) 13:19:58.21 ID:N/boKzBU.net]: 国家試験も通らないウリュウの馬鹿がなんか言ってるw
国家試験合格してないのに国家試験は簡単だと嘯く万年浪人生、社会の底辺の分際で。
1008 名前：卵の名無しさん mailto:sage [2020/12/03(木) 15:33:26.57 ID:wgEAQ1y4.net]: ただの風邪で逮捕されるのかよ？

病院抜け出したコロナ患者偽計業務妨害などの疑いで逮捕埼玉
2020年12月2日 16時23分

https://www3.nhk.or.jp/news/html/20201202/k10012741791000.html?utm_int=detail_contents_news-related_002
1009 名前：卵の名無しさん mailto:sage [2020/12/03(木) 15:51:04.24 ID:wgEAQ1y4.net]: ibrary(fmsb)
"
GOTOトラベルだと
40,000,000 / 172 = 232,558人に一人感染
日本の人口12600万/感染者15万=840人に一人感染
GOTOトラベル参加は新コロナ感染リスクを何分の１に減らすことができるか？
95%信頼区間付きで計算せよ。
"
riskratio(172,15e4,4000e4,12600e4)
rateratio(172,15e4,4000e4,12600e4)

1/riskratio(172,15e4,4000e4,12600e4)$conf
1/riskratio(172,15e4,4000e4,12600e4)$est
1010 名前：卵の名無しさん mailto:sage [2020/12/03(木) 17:59:43.64 ID:wgEAQ1y4.net]: 桜の会は安倍自身も完全アウトだね

たとえば初めて発覚した事件で
｢秘書が勝手にやってましたー｣的なトカゲのしっぽ切りはよくあるけど、

今回の件は、すでに国会で国民の前で追及議論されていた問題であって
その国会を通して、安倍総理は国民に対して、自身が責任を持って確認した上で

「明細はない」｢補填は一切ない｣｢全て参加者個人で支払ってる｣と安倍自身が明言してたんだからな…

結果、｢確認した上で｣国会で嘘をつきまくって、その時の議論追求を逃れていたんだから、これは秘書ガー案件では通らない

安倍自身も完全にアウト・・
1011 名前：卵の名無しさん mailto:sage [2020/12/03(木) 21:08:56.01 ID:N/boKzBU.net]: ウリュウによるウリュウのためのクソスレ
1012 名前：ウリュウとは？ 長年この板に執着する、私立医学部を僻みまくる自称医科歯科卒の万年浪人生。5chに毎日恨み言を書くしか人生の楽しみがない可哀想な人。 []: [ここ壊れてます]
1013 名前：卵の名無しさん mailto:sage [2020/12/04(金) 02:49:12.67 ID:qtis7WfA.net]: シリツ医は>935の計算もできないのはなぜか？
裏口だから。
1014 名前：卵の名無しさん mailto:sage [2020/12/04(金) 07:37:48.86 ID:qtis7WfA.net]: 飲食店の店内飲食はコロナ拡大を助長・・アメリカの複数の大学の研究結果　
https://forbesjapan.com/articles/detail/38240
レストランの営業再開と新型ウイルスの感染拡大との明らかな相関関係を総括的に示した最初の研究結果は6月、ジョンズ・ホプキンス大学により発表された。
同大は米国内3000万人のクレジットカード利用データを分析し、各州での流行状況との関係を調査。
結果、レストランの利用が増えるほど感染も増加していたことが明白に示された。

飲食業が直面している問題は、衛生管理などの対策にまつわるものではなく、私たちには対処のしようがない「スーパースプレッダー」の存在だ。
同じレストラン内にスーパースプレッダーが1人存在すれば、感染の可能性は非常に高まる。
それは、QRコードのメニューを導入し、消毒ジェルを常備し、スタッフにマスクの常時着用を義務付けるなどの感染対策を万全にしても同じだ。
つまり、店側は感染を防ぐことができないのだ。

スタンフォード大の研究結果は、レストラン経営者にとって最悪のニュースだ。
飲食業は経済で大きな役割を担っているが、現時点では感染拡大を抑制するためにテイクアウトのみの営業に制限するほかないことを、私たちは受け入れなければいけない。
テイクアウトのみの営業でも、徹底した衛生管理は必要になる。

これまでに蓄積されてきた証拠やデータ、科学的研究結果は疑いの余地がない。
残念ながら、ワクチンが普及するまでは、レストランやバーを閉店するのが唯一の責任ある対処法になる。
1015 名前：卵の名無しさん mailto:sage [2020/12/04(金) 07:41:48.99 ID:qtis7WfA.net]: 医師ならば大事な仕事があるから小金につられて外食しないよ。

ファウチ博士
「私はレストランには行かない」
「大切な仕事があるから」

DR. FAUCI: You know, every single day we meet with the task force, and we take a look at what's going on.
And you don't want to make a pronouncement that no one should ever go into a restaurant.
I mean, I think that might be overkill right now, but everything is on the table.
It may come to the situation where we strongly recommend.
Right now, myself personally, I wouldn't go to a restaurant.
I just wouldn't because I don't want to be in a crowded place.
I have an important job to do.
I don't want to be in a situation where I'm going to be all of a sudden self-isolating for 14 days.
1016 名前：卵の名無しさん mailto:sage [2020/12/04(金) 07:46:06.01 ID:qtis7WfA.net]: >>940
https://news.yahoo.com/myself-personally-wouldnt-restaurant-fauci-174014267.html
1017 名前：卵の名無しさん mailto:sage [2020/12/04(金) 07:50:47.88 ID:qtis7WfA.net]: 医師ならば大事な仕事があるから小金につられて外食しないよ。

ファウチ博士
「私はレストランには行かない」
「大切な仕事があるから」

DR. FAUCI: You know, every single day we meet with the task force, and we take a look at what's going on.
And you don't want to make a pronouncement that no one should ever go into a restaurant.
I mean, I think that might be overkill right now, but everything is on the table.
It may come to the situation where we strongly recommend.
Right now, myself personally, I wouldn't go to a restaurant.
I just wouldn't because I don't want to be in a crowded place.
I have an important job to do.
I don't want to be in a situation where I'm going to be all of a sudden self-isolating for 14 days.

https://news.yahoo.com/myself-personally-wouldnt-restaurant-fauci-174014267.html
1018 名前：卵の名無しさん mailto:sage [2020/12/04(金) 08:07:27.57 ID:qtis7WfA.net]: >>939
スタンフォードの方
https://www.nature.com/articles/s41586-020-2923-3
https://www.nature.com/articles/s41586-020-2923-3.pdf
1019 名前：卵の名無しさん mailto:sage [2020/12/04(金) 08:12:25.53 ID:qtis7WfA.net]: https://www.bloombergquint.com/business/covid-superspreader-risk-is-linked-to-restaurants-gyms-hotels
1020 名前：卵の名無しさん mailto:sage [2020/12/04(金) 08:51:31.45 ID:qtis7WfA.net]: Trump says everyone knew the coronavirus was airborne in February: It's 'no big thing'

https://www.cnbc.com/2020/09/10/trump-says-everyone-knew-the-coronavirus-was-airborne-in-february-its-no-big-thing.html
1021 名前：卵の名無しさん mailto:sage [2020/12/04(金) 09:39:28.66 ID:qtis7WfA.net]: "
ある国では人々は生まれてくる子には男の子だけを欲しがりました。
そのため、どの家族も男の子を産むまで子供を作り続けました。
この国では男の子と女の子の人口比率はどう�
1022 名前：ﾈりますか？ 人間の出生性比は地域、時代にかかわらず男女がおおむね105:100前後である。 https://ja.wikipedia.org/wiki/%E6%80%A7%E6%AF%94 " sim <- function(){ mf=numeric() baby=sample(1:0,1,prob=c(p,1-p)) mf=baby while(baby!=1){ baby=sample(1:0,1,prob=c(p,1-p)) mf=c(mf,baby) } mf } k=1e6 mf=unlist(replicate(k,sim())) mean(mf) ; p m=sum(mf) f=length(mf)-sum(mf) m/f []: [ここ壊れてます]
1023 名前：卵の名無しさん mailto:sage [2020/12/04(金) 09:39:52.78 ID:qtis7WfA.net]: p=105/205
q=1-p
p/q
n=1e5

m <- function(n){ # p*(1+q+q^2+q3+q^4+...)
re=0
for(i in 1:n) re = re + q^(i-1)*p
re}
f <- function(n){
re=0
for(i in 1:n) re = re + i*q^i*p
re}
m(n)/f(n)
1024 名前：卵の名無しさん mailto:sage [2020/12/04(金) 10:38:31.18 ID:qtis7WfA.net]: 検査希望者が自主的に検査を受けて検査数を増やすやり方では、
いくら検査数が増えても効果が少ないのは、
アメリカや欧州を見てあきらか

おそらく高リスク群なのに検査受けない人が多いんでしょう

中国方式で検査数を増やすのがいちばん確実で効果がある

この地域で〇〇業種で働いてるやつ全員検査うけろ、
とか、この地域の住民全員検査受けろ、
とか、この工場で働いてるやつ全員検査、この学校のやつ全員検査、
みたいに、行政が検査対象を指定して1人も逃さず検査することが重要
1025 名前：卵の名無しさん mailto:sage [2020/12/04(金) 13:35:05.74 ID:e/Y+DSKR.net]: 米国が移民政策成功してるのって弱者が病気になろうと
気にせずゴミのように放置できるから社会コストが跳ね上がらないからだろう。

日本は多民族共生できるほど民度が高くないんだよなぁ。
日本だと気の毒だからと国保にタカらせ集中治療室まで使わせるからパンクする
1026 名前：卵の名無しさん mailto:sage [2020/12/04(金) 13:35:11.79 ID:e/Y+DSKR.net]: 米国が移民政策成功してるのって弱者が病気になろうと
気にせずゴミのように放置できるから社会コストが跳ね上がらないからだろう。

日本は多民族共生できるほど民度が高くないんだよなぁ。
日本だと気の毒だからと国保にタカらせ集中治療室まで使わせるからパンクする
1027 名前：卵の名無しさん mailto:sage [2020/12/04(金) 13:36:14.09 ID:e/Y+DSKR.net]: ★亀井静香

「簡単に言いますと・・・
小泉・竹中改革と称する路線の逆をやれば日本の未来が開かれる、
このように私は思います。」

https://www.youtube.com/watch?v=DmiCQKBM2So&t=350s
1028 名前：卵の名無しさん mailto:sage [2020/12/04(金) 13:42:00.62 ID:e/Y+DSKR.net]: １０００年に一度の大地震と日本初の原発メルトダウンに同時に対処した民主党政権
今年３度目の感染拡大期を迎えてもまともに感染防止策をうてない自民党政権

こう書くと菅直人って実はずげぇ優秀だったんじゃねーかと思えてくる
1029 名前：卵の名無しさん [2020/12/04(金) 14:27:39.06 ID:BHaZSKEI.net]: うりゅうひろゆきの本スレにようこそ！
このウンコスレは基本的にさらしアゲて使用します！
ココは医師真似事務員ジイさんが、医師ねたみの挙句、テメェで勝手に自称で医科歯科大を卒業した医師って設定で
妄想願望日記を発表するスレです
お医者さんのマトモなレスなど全く不要！
ゴミ箱まがいの公衆便所掃き溜め痰壷下品スレとして使用しましょうね
そんなわけで、いまだ懲りない恥さらし（自称）医科歯科事務員ジジイ登場～～

│　　　　　　彡川川川三三三ミ～　プウゥ～ン
｜　　　　　　川｜川／　　＼｜～　ポワ～ン　　　＿＿＿＿＿＿＿＿
｜　　　　　∥｜∥　◎---◎｜～　　　　　　　／
｜　　　　　川川∥　　　　3　　ヽ～　　　　　　＜僕はうりゅうひろゆき
｜　　　　　川川　　　∴）д（∴）～　　　　　　＼＿＿＿＿＿＿＿＿
｜　　　　　川川　　　　　　～　/～　カタカタカタ
｜　　　　　川川∥　　　　～　/∥　＿＿＿＿＿
｜　　　　川川川川＿＿＿／∥　 |　　|￣￣＼　＼
｜　　　　　　／　　　　　　　＼＿＿|　　|　　　　|￣￣|
｜　　　　　/　　＼医科歯科　　　 |　　|　　　　|＿＿|
｜　　　　　|　＼　　　　　　|つ　　　|＿_|＿＿／　／
｜　　　　 /　医師うらやましいぜ・・　|￣￣￣￣|　　〔￣￣〕
　　　　　　　よし、医科歯科の医者と称して
　　　　　　　私立のお医者様を攻撃だ！なんたって、医科歯科の看板借りてんだからな
　　　　　　　え？証明？？？自称だから医科歯科の学生証、卒業証書あるわけねえよ
　　　　　　　同期の医師あげてみろ、ったて、そもそも医師じゃねえし居ねえよバカ
　　　　　　　でも病院でもらった、医科歯科の封筒はもってま～す！これを証拠にしてやるぜ
　　　　　　　専門医？欲しいけど・・いいや！そんなの必要ねえ！俺は事務員だし
1030 名前：卵の名無しさん mailto:sage [2020/12/04(金) 17:33:57.62 ID:qtis7WfA.net]: 在日米軍が先手先手をうってきた。

半径150キロは会食禁止
東京神奈川千葉の密集地帯は立ち入り禁止。

https://i.imgur.com/rndvhrY.png
1031 名前：卵の名無しさん mailto:sage [2020/12/04(金) 18:35:42.49 ID:e/Y+DSKR.net]: 誰も突っ込まないけど、自民が増長したここ１０年で
国会答弁の新機軸ルール確立しちゃったの気付いてる？

「仮定の話にはお答えできません」　（事実上の答弁拒否ｗ同じ質問を再度されても繰り返しで逃げ切りＯＫｗ）
「各種事情を勘案して総合的に判断しました」（その総合的判断の具体的な説明を再度求められてもこの繰り返し）
「個別の案件にお答えする事は差し控えさせて頂きます」　（逆に個別の案件でない案件って何？w）

「そもそも」コレがまかり通るなら世の中に存在する事案の９９％、これで答弁回避できちゃうんだよな�
1032 名前：� でも誰もソレに突っ込まずにこれが「責任もって誠実に真摯に回答した」でまかり通ってる異常さw 都合の悪い事案になったらこのやり取りの無限ループを聞かされるだけｗ事実もうそうなってるw 一応答弁したよｗってな既成事実作りの為に「あくまで一般論としてお答えさせて頂きますと～」だのテンプレ喚いて強制終了ｗ 安倍からの流れで菅も異常に多いんだよねこのテンプレ回答、もう固定文法表現みたいになってるのな 「～により回答はは差し控えさせて頂きます～いずれにしましても一般的には～」 この様式の繰り返し 更にテンプレフレーズに「人事の事なので回答は差し控えます」が堂々追加ッ！！ウエーイw マジ終わってるよこの国w []: [ここ壊れてます]
1033 名前：卵の名無しさん mailto:sage [2020/12/04(金) 20:52:07.31 ID:e/Y+DSKR.net]: 米国立アレルギー感染症研究所（NIAID）のアンソニー・ファウチ所長は
新型コロナウイルスの感染拡大を食い止めるには学校ではなくバーやレストランの閉鎖が必要と主張している。

ABCニュースの取材に応じた中で発言した。

ファウチ所長はABCニュースの取材に応じた中で「学校ではなくバーを閉鎖すべき」と発言した。

ファウチ所長によれば、学校に通う子供たちの安全を確保するには、教育機関の閉鎖ではなく市中感染レベルを低く維持する必要があるという。
この意味において大きな脅威となるのが、マスクを着用せずに飲食するレストランやバーの存在としている。
https://jp.sputniknews.com/covid-19/202011307977386/

【コロナ感染リスク高い場所】断トツ「レストラン」会食リスク 9800万人のデータで判明…尾身会長「飲食店での感染きわめて多い」★３
https://asahi.5ch.net/test/read.cgi/newsplus/1606956739
1034 名前：卵の名無しさん mailto:sage [2020/12/04(金) 22:21:06.27 ID:ueyXN44c.net]: 懲りないね。ウリュウのジジイ。
1035 名前：卵の名無しさん mailto:sage [2020/12/05(土) 09:14:32.14 ID:bwOrGWWK.net]: ウリュウって誰だよ？
1036 名前：卵の名無しさん mailto:sage [2020/12/05(土) 09:52:18.95 ID:nJH15ife.net]: >>958
あんただよ！笑
1037 名前：卵の名無しさん mailto:sage [2020/12/05(土) 11:12:16.21 ID:nJH15ife.net]: 自称医科歯科卒の医師コンプまみれの哀れな社会の底辺くん。
1038 名前：卵の名無しさん mailto:sage [2020/12/05(土) 20:38:53.07 ID:KvaCocrJ.net]: GOTOトラベル　GOTOイートも
完全に　現場で苦労している医療従事者を愚弄する行為

現場の医療のプロには、感染してはいけないと言って
旅行や外食や帰郷は控えさせ、病院の寄宿舎に泊まらせ
かつボーナスは減らし　感染の恐怖と過重労働で煮え湯を飲ませ
院内感染はプロのくせに感染するなどけしからんと報道し

かたや一般人には税金注いで　遊びまわって外食や旅行を奨励し
しかも患者を増やし、医療従事者の負担を増やす

医療従事者に暴動が起きないほうがおかしいくらい
1039 名前：卵の名無しさん mailto:sage [2020/12/05(土) 23:34:09.74 ID:bwOrGWWK.net]: >>959
違うけど。
1040 名前：卵の名無しさん mailto:sage [2020/12/05(土) 23:35:15.35 ID:bwOrGWWK.net]: シリツ医は>935の計算もできないのはなぜか？
裏口だから。
1041 名前：卵の名無しさん mailto:sage [2020/12/06(日) 00:51:06.31 ID:UutdJsAz.net]: まー白々しい。毎回毎回同じ言葉しか言わないのに。匿名だからバレないとでも？
さすが非医だね。
1042 名前：卵の名無しさん mailto:sage [2020/12/06(日) 07:49:24.58 ID:zIMFwcve.net]: うちは、かかりつけの老人は時間外でも診ているけど
一見さんの若者はお断りだな。

まあ若者はコロナで死なないけど老人はすぐ死んでしまうから
老人優先は当然。

将来ある世代こそ自粛要請すべき。
1043 名前：卵の名無しさん mailto:sage [2020/12/06(日) 07:51:14.55 ID:zIMFwcve.net]: 比率の検定すらできないのがシリツ医
�
1044 名前：ｾって、裏口ですもの。 " GOTOトラベルだと 40,000,000 / 172 = 232,558人に一人感染 日本の人口12600万/感染者15万=840人に一人感染 GOTOトラベル参加は新コロナ感染リスクを何分の１に減らすことができるか？ 95%信頼区間付きで計算せよ。 " []: [ここ壊れてます]
1045 名前：卵の名無しさん mailto:sage [2020/12/06(日) 12:37:43.22 ID:UutdJsAz.net]: 医者コンプもここまでこじらせると哀れだな
1046 名前：卵の名無しさん mailto:sage [2020/12/06(日) 13:15:20.91 ID:OpozBrzF.net]: >>967
やはり、計算できない裏口シリツだな。

他スレでも正論が

>>888　だって、私立医ダモン　ばかだもん
1047 名前：卵の名無しさん mailto:sage [2020/12/06(日) 13:17:59.43 ID:UutdJsAz.net]: この板に非医って可哀想。
だってずっと医者コンプでこんなところでしか発散できないんだから。
1048 名前：卵の名無しさん mailto:sage [2020/12/06(日) 13:23:32.53 ID:UutdJsAz.net]: ここの板では医師免許持ってるかどうかが全てなので。
あ、誰とは言わないけど自称医科歯科は非医なので悪しからず。笑
1049 名前：卵の名無しさん mailto:sage [2020/12/06(日) 13:47:50.89 ID:zMVHGfr2.net]: これ！

不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<

東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
1050 名前：卵の名無しさん mailto:sage [2020/12/06(日) 14:18:29.85 ID:UutdJsAz.net]: コピペと統計しか脳のないウリュウじいさん。
医者なんか到底勤まりませんね。
1051 名前：卵の名無しさん mailto:sage [2020/12/06(日) 14:20:20.48 ID:UutdJsAz.net]: 残念ながら東京医科大学出身のお医者様>>(超えられない壁)>>非医が世間一般の考え。これが現実。
1052 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:03:24.98 ID:OpozBrzF.net]: >>973
俺、国立卒だから>966の計算できるよ。
裏口シリツ医には無理。
1053 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:06:53.73 ID:OpozBrzF.net]: ド底辺シリツ医の三法則

一、ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。

二、ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

三、ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
1054 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:07:18.73 ID:OpozBrzF.net]: >>973
んで、あんたどこ卒
1055 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:27:41.87 ID:UutdJsAz.net]: >>976
俺国立医学部医学科卒
あんたは？どうせ医科歯科なんでしょ？非医の
1056 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:40:50.04 ID:5oOEX2Ca.net]: >>977
国立卒で>966の計算ができないのはおかしいから
裏口シリツ医だろうな。
1057 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:16:56.40 ID:OpozBrzF.net]: rm(list=ls())
source('toolmini.R')
r=1
x=seq(-1,259/880,0.005)
y=sqrt(r^2-x^2)
plot(x,y,xlim=c(-1,5),ylim=c(-2,2),asp=1,type='n',col=3,axes=F,ann=F)
# points(x,-y,col=3,type='h')
Cir(0i,1)

R=1.25
A=1.1
Cir(A+0i,R
1058 名前：) seg(259/880-1i*(3*sqrt(78591))/880,259/880+1i*(3*sqrt(78591))/880) " x^2+y^2=1 (x-1.1)^2+y^2=1.25^2 x = 259/880 ∧ y = +(3 sqrt(78591))/880 x = 259/880 ∧ y = -(3 sqrt(78591))/880 " pt(-0.5+0i,'A') pt(0.1+0i,'B') pt(0.5+0i,'C') pt(1.25+0i,'D') []: [ここ壊れてます]
1059 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:17:52.32 ID:OpozBrzF.net]: >>977
俺は二期校時代の入学だから、医学部看護学科なんてなかったぞ。
1060 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:20:11.32 ID:OpozBrzF.net]: >>979
二次元で面積1のシャボン玉と面積2のシャボン玉が合体した時に
表面張力で最終的にどんな形に落ち着くか
1061 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:31:11.12 ID:UutdJsAz.net]: 医師免許持ってないくせに偉そうだなw
二期とかいつの時代のジジイだよ。
1062 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:32:14.07 ID:UutdJsAz.net]: 問題誰も解いてくれないからって僻むなよw
1063 名前：卵の名無しさん mailto:sage [2020/12/06(日) 21:00:40.28 ID:OpozBrzF.net]: rm(list=ls())
source('toolmini.R')
r=1
x=seq(-1,259/880,0.005)
y=sqrt(r^2-x^2)
plot(x,y,xlim=c(-1,5),ylim=c(-2,2),asp=1,type='h',col=3,axes=F,ann=F)
points(x,-y,col=3,type='h')
lines(x,y,lwd=3) ; lines(x,-y,lwd=3)

R=1.25
A=1.1
x=seq(259/880,2.35,0.005)
y=sqrt(R^2-(x-A)^2)
points(x,y,col=2,type='h')
points(x,-y,col=2,type='h')
lines(x,y,lwd=3) ; lines(x,-y,lwd=3)
seg(259/880-1i*(3*sqrt(78591))/880,259/880+1i*(3*sqrt(78591))/880,col=4,lwd=5)
"
x^2+y^2=1
(x-1.1)^2+y^2=1.25^2
x = 259/880 ∧ y = +(3 sqrt(78591))/880
x = 259/880 ∧ y = -(3 sqrt(78591))/880
"
1064 名前：卵の名無しさん mailto:sage [2020/12/06(日) 21:01:32.55 ID:OpozBrzF.net]: https://i.imgur.com/hWivCQE.png
1065 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:04:26.95 ID:QJKvCg42.net]: 日本には裏口シリツ医というのがいる。

僕も裏口入学と公言したシリツ医は比例計算すら怪しい。
https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4
1066 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:07:00.42 ID:QJKvCg42.net]: >>983
裏口シリツ医には解ける基礎学力がないだろ。

僕も裏口入学と公言したシリツ医は比例計算すら怪しい。
https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4
1067 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:19:38.63 ID:UutdJsAz.net]: 大学受験で時間が止まってる万年受験生の非医は今の医療現場なんか知るわけないもんな。医者になった人たちにとって統計だの数学だの何年前の話？っていうことだ
1068 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:22:15.92 ID:UutdJsAz.net]: もうずっとここの板に粘着して誰一人相手にしてくれなかったんだろ？きっと数え切れないほどの医者に誰にも相手にされなかったということは少なくともお前のことなんか道端のゴミみたいな存在だったということ。
それを教えてやってるだけ感謝しろ。
1069 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:34:47.48 ID:UutdJsAz.net]: この前医学部新設されたばかりだよな？学費も数千万。
どれだけ僻んでも医学部は国立だけにはならない。
こんなところで騒ぐしか能のない非医と違って未来の医者が日本に必要とされてるんだよ。残念だったな。
1070 名前：卵の名無しさん mailto:sage [2020/12/07(月) 01:54:00.68 ID:Zl4aO9cy.net]: うりゅうひろゆきの本スレにようこそ！
このウンコスレは基本的にさらしアゲて使用します！
ココは医師真似事務員ジイさんが、医師ねたみの挙句、テメェで勝手に自称で医科歯科大を卒業した医師って設定で
妄想願望日記を発表するスレです
お医者さんのマトモなレスなど全く不要！
ゴミ箱まがいの公衆便所掃き溜め痰壷下品スレとして使用しましょうね
そんなわけで、いまだ懲りない恥さらし（自称）医科歯科事務員ジジイ登場～～

│　　　　　　彡川川川三三三ミ～　プウゥ～ン
｜　　　　　　川｜川／　　＼｜～　ポワ～ン　　　＿＿＿＿＿＿＿＿
｜　　　　　∥｜∥　◎---◎｜～　　　　　　　／
｜　　　　　川川∥　　　　3　　ヽ～　　　　　　＜僕はうりゅうひろゆき
｜　　　　　川川　　　∴）д（∴）～　　　　　　＼＿＿＿＿＿＿＿＿
｜　　　　　川川　　　　　　～　/～　カタカタカタ
｜　　　　　川川∥　　　　～　/∥　＿＿＿＿＿
｜　　　　川川川川＿＿＿／∥　 |　　|￣￣＼　＼
｜　　　　　　／　　　　　　　＼＿＿|　　|　　　　|￣￣|
｜　　　　　/　　＼医科歯科　　　 |　　|　　　　|＿＿|
｜　　　　　|　＼　　　　　　|つ　　　|＿_|＿＿／　／
｜　　　　 /　医師うらやましいぜ・・　|￣￣￣￣|　　〔￣￣〕
　　　　　　　よし、医科歯科の医者と称して
　　　　　　　私立のお医者様を攻撃だ！なんたって、医科歯科の看板借りてんだからな
　　　　　　　え？証明？？？自称だから医科歯科の学生証、卒業証書あるわけねえよ
　　　　　　　同期の医師あげてみろ、ったて、そもそも医師じゃねえし居ねえよバカ
　　　　　　　でも病院でもらった、医科歯科の封筒はもってま～す！これを証拠にしてやるぜ
　　　　　　　専門医？欲しいけど・・いいや！そんなの必要ねえ！俺は事務員だし
1071 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:02:13.87 ID:oePJEWJv.net]: 川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

僕も裏口入学と公言したシリツ医は比例計算すら間違える。
https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4
1072 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:03:01.50 ID:oePJEWJv.net]: D=E=numeric()
D[1]=190
E[1]=D[1]
# D[2]=E[1]%/%5
# E[2]=D[2]+E[1]%%5
i=1
while(E[i]>5){
D[i+1]=E[i]%/%5
E[i+1]=D[i+1]+E[i]%%5
i=i+1
}
sum(E)
1073 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:07:32.89 ID:oePJEWJv.net]: r=1
x=seq(-1,259/880,0.005)
y=sqrt(r^2-x^2)
plot(x,y,xlim=c(-1,3),ylim=c(-2,2),asp=1,type='n',col=3,axes=F,ann=F)
points(x, y,col=3,type='h')
points(x,-y,col=3,type='h')
lines(x,y,lwd=1) ; lines(x,-y,lwd=1)

R=1.25
A=1.1
x=seq(259/880,R+A,0.005)
y=sqrt(R^2-(x-A)^2)
points(x,y,col=2,type='h')
points(x,-y,col=2,type='h')
lines(x,y,lwd=1) ; lines(x,-y,lwd=1)
pt(0i,'O')

abline(h=0,lty=3)
o=0i
a=A+0i
pt(a,'A')
b=259/880+(3i*sqrt(78591))/880
pt(b,'B')
seg(o,b)
pt(0.1+0.1i,quote(theta),cex=1.5)
seg(a,b)
pt(o/2+b/2,'r',cex=1.5)
pt(a/2+b/2,'R',cex=1.25)

Cir(o,r,lty=3)
Cir(a,R,lty=3)
1074 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:08:59.74 ID:oePJEWJv.net]: >>990

ド底辺シリツ医大を擁護するなんてド底辺シリツ医大卒だろうな。

シリツ医のこれが現実

１次方程式
1075 名前：もできないド底辺特殊シリツ医大卒の記録 http://imagizer.imageshack.com/img923/2715/RosCsf.jpg 何度読んでも馬鹿すぎる。 男女別の割合と全体での割合から男女比が計算できるとも思わないとは。 なんでこんなのが大学に入れるわけよ？ 裏口入学以外に説明がつく？ 中学生でも解ける一次方程式の問題だろ。 それすらできない馬鹿が自信を持って発言。 >患者の男女比が必要なのもわからないのか？ だとさ。 http://imagizer.imageshack.com/img923/9687/zNivZW.jpg 0.2575549 と答を書いてやったら >単位も書かずに答えだとか… ド底辺シリツ医大では確率に単位があるらしいぞw 何でこんな馬鹿が大学に入れるわけ？ 裏口入学以外に説明がつく？ http://imagizer.imageshack.com/img923/5683/vMw9nv.jpg []: [ここ壊れてます]
1076 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:25:45.25 ID:oePJEWJv.net]: f <- function(n190=190,n5=5){
D=E=numeric()
D[1]=n190
E[1]=D[1]

i=1
while(E[i]>=n5){
D[i+1]=E[i]%/%n5
E[i+1]=D[i+1]+E[i]%%n5
i=i+1
}
sum(D)
}
f=Vectorize(f)
f(1e6)
1077 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:46:10.59 ID:oePJEWJv.net]: "
問題）１００万本のジュースがあります。このジュースの空き瓶5本と同じジュース一本が交換できます。この交換をくり返しながら
ジュースが全部なくなるまで飲みました。全部で何本飲めたでしょうか？
"
rm(list=ls())
options(digits=22)
f <- function(n190=190,n5=5){
D=E=numeric()
D[1]=n190
E[1]=D[1]
i=1
while(E[i]>=n5){
D[i+1]=E[i]%/%n5
E[i+1]=D[i+1]+E[i]%%n5
i=i+1
}
sum(D)
}
f=Vectorize(f)
f(1e6)
n=1:1000
y=f(n)
plot(n,y,type='l')
lm(y~n)
1078 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:56:05.82 ID:oePJEWJv.net]: ド底辺シリツ医にはこれは解けないと思う。
問題の意味は小学生でもわかる。

問題）
1本100円のジュースがあります。
このジュースの空き瓶5本と同じジュース一本が交換できます。
手元に100万円あります。

(1)何本買う時が一本あたりの単価がもっとも安くなりますか？
(2)そのとき何本飲めるでしょうか？
1079 名前：卵の名無しさん mailto:sage [2020/12/07(月) 10:28:37.75 ID:vtqovEKc.net]: こんな朝っぱらから7連続書き込みで発狂か。
そうやって一生お医者様僻んでここで発狂して終わるのか。惨めな人生だな。
1080 名前：卵の名無しさん mailto:sage [2020/12/07(月) 11:54:14.60 ID:YSMHdjTj.net]: rm(list=ls())
options(digits=22)
f <- function(n190=190,n5=5){
D=E=numeric()
D[1]=n190
E[1]=D[1]
i=1
while(E[i]>=n5){
D[i+1]=E[i]%/%n5
E[i+1]=D[i+1]+E[i]%%n5
i=i+1
}
sum(D)
}
f=Vectorize(f)
uniroot(function(x,u0=1000) f(x)-u0, c(500,1000))
1081 名前：卵の名無しさん mailto:sage [2020/12/07(月) 12:04:20.93 ID:YSMHdjTj.net]: >>999
内視鏡バイト後の暇つぶしだよ。
1082 名前：卵の名無しさん mailto:sage [2020/12/07(月) 12:21:33.06 ID:vtqovEKc.net]: 毎日内視鏡バイトしてるんですか。笑
1083 名前：卵の名無しさん mailto:sage [2020/12/07(月) 12:25:13.47 ID:vtqovEKc.net]: 内視鏡バイトの非医の一つ覚え、誰が信じるんだ？
1084 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:22:34.66 ID:I8zufu0m.net]: 呼吸苦の旅行客で救急収容の依頼。
1万円のインセンティブが当直代に加算されるけど、小金につられてリスクを背負うのはＧＯＴＯ乞食と同じになるので対応不能とお断りした。
そのかわりというわけでもないが、地元住民の軽症救急搬送を経過観察入院させてインセンティブＧＥＴ！
1085 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:25:02.63 ID:I8zufu0m.net]: >>1002
週３日午前中だけ。
昔とった杵柄で麻酔やCSの内視鏡バイトに行ってたけど
今は診断EGDバイトのみにした。
金に釣られてリスクを負いたくなくなったので。
1086 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:28:25.37 ID:I8zufu0m.net]: エパデール内服でも抗血小板薬内服なので観察のみで生検不可がバイト先でのルール。
前日にサバ缶食っても生検不可になんのかよ？と思いながらもルールにはしたがっている。

君子危うきに近寄らず。

裏口シリツ医ってある意味すごいよなぁ

常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医というスティグマを買うわけだから。
1087 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:28:50.35 ID:I8zufu0m.net]: Last but not least, three laws of Do-T
1088 名前：eihen 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. ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 前々スレからのド底辺シリツ医への宿題 若い女性研修医（嘘つきかどうかは不明）から 「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。 フェラをしてもらうには何と言えばいいか？ 答だせないってアホなの？ フェラよりセンズリが好きなの？ []: [ここ壊れてます]
1089 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:29:13.93 ID:I8zufu0m.net]: Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。　　

1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。

2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater　which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
1090 名前：1001 [Over 1000 Thread.net]: このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 174日 18時間 19分 27秒
1091 名前：過去ログ ★ [[過去ログ]]: ■ このスレッドは過去ログ倉庫に格納されています

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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