◎正当な理由による書き込みの削除について:      生島英之とみられる方へ:

底辺私立医大を卒業した医者って頭悪いよね? Part17 YouTube動画>19本 ->画像>80枚


動画、画像抽出 || この掲示板へ 類似スレ 掲示板一覧 人気スレ 動画人気順

このスレへの固定リンク: http://5chb.net/r/hosp/1592215787/
ヒント:5chスレのurlに http://xxxx.5chb.net/xxxx のようにbを入れるだけでここでスレ保存、閲覧できます。

1卵の名無しさん2020/06/15(月) 19:09:47.36ID:jnY7bdq5
タイトルまんまです

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

※前スレ
底辺私立医大を卒業した頭悪いよね?
http://egg.2ch.net/test/read.cgi/hosp/1472273747/
底辺私立医大を卒業した医者って頭悪いよね? Part2
http://egg.2ch.net/test/read.cgi/hosp/1520807375/
底辺私立医大を卒業した医者って頭悪いよね? Part3
http://egg.2ch.net/test/read.cgi/hosp/1522967067/
底辺私立医大を卒業した医者って頭悪いよね? Part4
http://egg.2ch.net/test/read.cgi/hosp/1526677794/
底辺私立医大を卒業した医者って頭悪いよね? Part5
http://egg.2ch.net/test/read.cgi/hosp/1529666055/
底辺私立医大を卒業した医者って頭悪いよね? Part6
http://2chb.net/r/hosp/1531305684/
底辺私立医大を卒業した医者って頭悪いよね? Part7
http://egg.2ch.net/test/read.cgi/hosp/1532472024/
底辺私立医大を卒業した医者って頭悪いよね? Part8
http://egg.2ch.net/test/read.cgi/hosp/1533510399/
底辺私立医大を卒業した医者って頭悪いよね? Part9
http://egg.2ch.net/test/read.cgi/hosp/1535547275/
底辺私立医大を卒業した医者って頭悪いよね? Part10
https://egg.2ch.net/test/read.cgi/hosp/1537867846/
底辺私立医大を卒業した医者って頭悪いよね? Part11
http://2chb.net/r/hosp/1544320163/
底辺私立医大を卒業した医者って頭悪いよね? Part12
http://2chb.net/r/hosp/1550969602/
底辺私立医大を卒業した医者って頭悪いよね? Part13
http://2chb.net/r/hosp/1575242106/
底辺私立医大を卒業した医者って頭悪いよね? Part14
http://2chb.net/r/hosp/1578616997/
底辺私立医大を卒業した医者って頭悪いよね? Part15
http://2chb.net/r/hosp/1584050953/
底辺私立医大を卒業した医者って頭悪いよね? Part16
http://2chb.net/r/hosp/1587907116/

2卵の名無しさん2020/06/15(月) 19:10:01.06ID:jnY7bdq5
人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。

これな!

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

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

3卵の名無しさん2020/06/15(月) 19:10:34.45ID:jnY7bdq5
シリツ医のこれが現実

1次方程式もできないド底辺特殊シリツ医大卒の記録
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚


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

それすらできない馬鹿が自信を持って発言。
>患者の男女比が必要なのもわからないのか?
だとさ。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚


0.2575549
と答を書いてやったら
>単位も書かずに答えだとか…
ド底辺シリツ医大では確率に単位があるらしいぞw
何でこんな馬鹿が大学に入れるわけ?
裏口入学以外に説明がつく?
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

4卵の名無しさん2020/06/15(月) 19:10:59.73ID:jnY7bdq5
ド底辺シリツ医大卒ってこれだよな

底辺私立医大卒が国立大学医学部卒を妬むスレ [転載禁止](c)2ch.net
http://2chb.net/r/hosp/1424846816/695

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

1
評価

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

が、

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

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

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

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

2016年09月02日 00時21分09秒

5卵の名無しさん2020/06/15(月) 22:31:57.64ID:OTTmEUPR
【豊橋】狂犬病発症の男性死亡、フィリピンで感染 [ひよこ★]
http://2chb.net/r/editorialplus/1592202354/

6卵の名無しさん2020/06/16(火) 05:21:34.30ID:M9JisPSz
安倍の台本
あまり知られてないようだが、水を飲む場所も台本に書いてある
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

7卵の名無しさん2020/06/16(火) 09:47:08.07ID:M9JisPSz
これが医師国家試験問題とは! 単なる比例計算。中学入試より易しい。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚


ド底辺シリツ医のこれが現実
1次方程式もできないド底辺シリツ医大卒の記録
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚


実際、算数の掛け算すら怪しいシリツ医がこういう事故を起こしている。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

8卵の名無しさん2020/06/16(火) 12:06:08.29ID:zKrdDm32
ではなぜそんな簡単な試験に合格できなかったのかね?

9卵の名無しさん2020/06/16(火) 13:49:35.15ID:M9JisPSz
>>8
ウロと精神科が指定選択の年に新卒で合格したよ。

10卵の名無しさん2020/06/16(火) 13:49:40.75ID:M9JisPSz
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卵の名無しさん2020/06/20(土) 18:15:58.68ID:HBwhidDl
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卵の名無しさん2020/06/20(土) 19:23:38.78ID:HBwhidDl
> 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卵の名無しさん2020/06/22(月) 07:17:41.11ID:+Cx74dSj

14卵の名無しさん2020/06/22(月) 07:20:19.75ID:+Cx74dSj
非痙攣性てんかん重積の病態と治療

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

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

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

>やはり,まず症候から早期よりNCSEを疑うことが治療への近道になる.

15卵の名無しさん2020/06/22(月) 07:37:41.88ID:+Cx74dSj
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.

そういえば、ワイパックスの注射液がロラピタとして発売されていな。
意識混濁ある患者にベンゾジアゼピン注射は当直帯ではやりたくない。
仕方ないのでやったけど。

16卵の名無しさん2020/06/22(月) 07:39:09.87ID:+Cx74dSj
retrospectiveにみると、苦し紛れにtransient ischaemic attacksと診断した中にNCSEが混ざっていたのだろうなぁ。

17卵の名無しさん2020/06/22(月) 07:58:11.71ID:+Cx74dSj
>>15
> as none of the abovementioned other conditions improves with lorazepam.

Hyperventilationには効果があるように思えるが

18卵の名無しさん2020/06/22(月) 19:33:14.10ID:Dbr2SscI
Record of a DoTeihen graduate incompetent to solve linear equation
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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.
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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?
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

19卵の名無しさん2020/06/22(月) 22:23:41.69ID:Dbr2SscI
7インチタブレット
https://stop-the-engine.com/tablet/457

20卵の名無しさん2020/06/22(月) 23:09:03.21ID:Dbr2SscI
>>15
神経内科医と話をしてみたけど
緊急で脳波のとれない当直帯でpostictal stateとnonconvulsive status epilepticusの鑑別はほぼ不可能との意見だったな。

21卵の名無しさん2020/06/22(月) 23:09:53.82ID:Dbr2SscI
https://clinicalsup.jp/contentlist/747.html

NCSEを疑いながらも、脳波へのアクセスや脳神経内科医の迅速な介入が困難な場合においては、診断的治療目的にベンゾジアゼピン系薬剤(ジアゼパム、ロラゼパム)の投与が許容される(推奨度3)。

22卵の名無しさん2020/06/23(火) 00:49:04.65ID:Xhm/pAYT
ネットの投稿って保存されているなぁ。

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

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

http://gb.nakadashi.pw/pic.php?http://i.imgur.com/fsEWmbQ.jpg

23卵の名無しさん2020/06/23(火) 00:52:42.91ID:Xhm/pAYT
こんなの書いた馬鹿もいたな。

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

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

24卵の名無しさん2020/06/23(火) 01:08:34.23ID:Xhm/pAYT
自宅で安眠できる幸せと
毎日じゃないけど二度寝ができる幸せの方が
金髪碧眼ねーちゃんと外泊していた頃
http://gb.nakadashi.pw/pic.php?http://i.imgur.com/fsEWmbQ.jpg
より幸せだということにようやく気づいた。

25卵の名無しさん2020/06/23(火) 16:22:57.22ID:Xhm/pAYT
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

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

26卵の名無しさん2020/06/23(火) 17:19:37.56ID:Xhm/pAYT

27卵の名無しさん2020/06/23(火) 17:29:46.22ID:Xhm/pAYT
>>26
Visualizing Speech-Generated Oral Fluid Droplets with Laser Light Scattering

https://www.nejm.org/doi/10.1056/NEJMc2007800

28卵の名無しさん2020/06/24(水) 06:48:14.69ID:8Q04USn0
箸のマナー
http://www.osaka-kyoiku.ac.jp/~ioku/foodsite/hashi/manar.html

29卵の名無しさん2020/06/24(水) 07:23:28.59ID:8Q04USn0
これが普通だろな。

http://2chb.net/r/hosp/1592662437/73

73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH
宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ
私大入学というインチキを経由したイシャモドキが、あんま調子のんなや

30卵の名無しさん2020/06/24(水) 09:16:45.96ID:NnLe6+55
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
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚


飛沫の可視化
ダウンロード&関連動画>>

@YouTube


31卵の名無しさん2020/06/24(水) 13:35:18.92ID:8Q04USn0
安楽死はよしてくれや

安楽死は、よしてくれや
安楽死、はよしてくれや

32卵の名無しさん2020/06/24(水) 20:41:21.33ID:8Q04USn0
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

33卵の名無しさん2020/06/24(水) 20:45:21.93ID:8Q04USn0
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

34卵の名無しさん2020/06/24(水) 20:46:34.74ID:8Q04USn0
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

35卵の名無しさん2020/06/24(水) 23:09:29.80ID:8Q04USn0
確率が出せず困っています。
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()))

36卵の名無しさん2020/06/24(水) 23:47:59.22ID:8Q04USn0
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

37卵の名無しさん2020/06/25(木) 07:13:22.62ID:qa/NsT4U
ここに2つの門があります。1つは天国へ続く門で、 もう1つは地獄へ続く門です。門の前には1人ずつ門番が立っています。
門番の1人は天使で、もう1人は悪魔です。天使は本当の事しか言わず、悪魔は嘘しか言いません。この2人は外見では見分けられません。
門番の一人に以下の質問をしました。

あなたは「あなたは「あなたは「この門は天国へ続く門ですか?」と聞かれたときに2o と答えますか?」と聞かれたときにYesと答えますか?」と聞かれたときに2o と答えますか? 上記質問に対し「Yes」という回答が得られた場合、上記質問の「この門」は天国へ続く門でしょうか?

38卵の名無しさん2020/06/25(木) 12:03:09.33ID:qa/NsT4U
月額所得税
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

39卵の名無しさん2020/06/25(木) 13:38:54.40ID:qa/NsT4U
# 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以上なら1をそうでないなら0を加える
}
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

40卵の名無しさん2020/06/25(木) 16:41:23.31ID:aEo8/MMq
↑朝鮮人

41卵の名無しさん2020/06/25(木) 18:55:41.25ID:7nkYYYXw
私立医学部は授業料は国立に比べて破格に高額だけど、
授業がキッチリしてると噂があるのでうらやましいけどな。

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

都会の国公立だったら話は別だけど、親がお金持ちだったら
地方の国立医大より都内の私立医大の方が絶対に良いよ!

42卵の名無しさん2020/06/25(木) 18:59:00.17ID:7nkYYYXw
そもそもあまり国試合格率も良い方じゃ無い大学のくせに
国家試験対策は皆無で、教授の趣味みたいな分野の勉強
ばかりやらされてて、みんなが俺ら国試大丈夫か?と言って
たのを思い出すわ。ほとんどの人がなんとか合格したけど。

43卵の名無しさん2020/06/25(木) 23:23:17.47ID:qa/NsT4U
>>41
東京の国立医学部に行けばいいだけ。
幸い東京には国立大学医学部は2校ある

44卵の名無しさん2020/06/25(木) 23:29:23.80ID:qa/NsT4U
>>42
放っておいても勝手に勉強する学生を入試で選別しているから
教員も自分の研究に力を注ぐけど学生の教育は適当、
国試対策らしきものはなかったぞ。
一般に難関大学の方が進級判定が甘い。

45卵の名無しさん2020/06/26(金) 11:59:41.20ID:vSOmQn7C
最近の数学板は問題の意味すら理解できない問題が多くてついていけなかったけど、
これは面白かったなぁ。

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

分からない問題はここに書いてね460
http://2chb.net/r/math/1589811916/621

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

https://dotup.org/uploda/dotup.org2182228.pdf

46卵の名無しさん2020/06/26(金) 12:10:41.07ID:vSOmQn7C
"
(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 に近づく。
"

47卵の名無しさん2020/06/26(金) 12:10:45.93ID:vSOmQn7C
M=replicate(1e5,sim()) # 10万回繰り返して
N=sum(!is.na(M))    # 返り値がNAでない(=メモが取られた)回数をNとする
k=sum(M,na.rm=TRUE)  # 返り値が犬1である個数を返す
k/N

48卵の名無しさん2020/06/26(金) 16:04:11.76ID:vSOmQn7C
拳銃を一発撃ったときに、狙った相手を撃ち殺す確率は、
Aは 1/3、Bは 1/2(50%)、Cは 1/1(100%)とします。
なお、この確率は、全員が知っているものとします。
拳銃を撃つ順番は、A、B、Cの順番で、以降は最後の一人が生き残るまでこの順番を繰り返すものとします。
A、B、Cは拳銃を撃つときに誰を狙っても良いこととします。ただし、一発で二人を狙うことはできません。
A、B、Cの生き残る確率を求めなさい。

49卵の名無しさん2020/06/26(金) 16:07:15.07ID:vSOmQn7C
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))
}

50卵の名無しさん2020/06/26(金) 16:07:45.68ID:vSOmQn7C
# 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)

51卵の名無しさん2020/06/26(金) 19:47:21.27ID:vSOmQn7C
# 乱射狙撃手
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
}

52卵の名無しさん2020/06/26(金) 19:47:32.43ID:vSOmQn7C
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)
}

53卵の名無しさん2020/06/26(金) 19:47:37.77ID:vSOmQn7C
f21()
# k=1e5
re21=replicate(k,f21())
return(apply(re21,1,mean))
}
RandomDuel(1/3,1/2,1)
RandomDuel(1,1,1)

54卵の名無しさん2020/06/27(土) 00:10:12.62ID:aWO+D22+
本人は寄付金は払わずに合格したつもりだけど
親御さんは合格を喜んでる息子に本当のことを
言えないと言うのが私立医大合格者の実情らしい。

55卵の名無しさん2020/06/27(土) 06:11:18.06ID:Zi3cCzHj
ド底辺シリツ医入学というだけで、ド底辺シリツ医大の莫大な学費が払える経済環境にありながら教育投資しても
ド底辺シリツ医大にしか入れなかったアホとわかる。

56卵の名無しさん2020/06/27(土) 09:28:03.11ID:Zi3cCzHj
中国語になった和製漢語の例として、「意識」、「右翼」、「運動」、「階級」、「共産主義」、「共和」、「左翼」、「失恋」、「進化」、「接吻」、「唯物論」など種々の語がある。

57卵の名無しさん2020/06/27(土) 14:03:40.96ID:Zi3cCzHj
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)
}

58卵の名無しさん2020/06/27(土) 14:04:18.01ID:Zi3cCzHj
# 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)

59卵の名無しさん2020/06/27(土) 14:19:16.47ID:Zi3cCzHj
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)

60卵の名無しさん2020/06/27(土) 14:19:21.68ID:Zi3cCzHj
# 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)

61卵の名無しさん2020/06/27(土) 16:31:06.34ID:Zi3cCzHj
> apply(replicate(1e5,f21()),1,mean)
[1] 0.36255 0.41738 0.22007

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

数学板の助けを借りでデバッグできた。

62卵の名無しさん2020/06/27(土) 20:31:29.15ID:Zi3cCzHj
数学板には珍しく暗算で答が出せる問題

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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

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

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

症例報告

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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


発症順と感染順が逆転する確率密度を乱数発生させて作ったのがヒストグラム、
これに解析解(といっても数値積分での値)の曲線を重ねてみた。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
よく一致しているので

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

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

発症が2日間隔だと0.2955891なのでキャバクラ感染ネタでは2956万円値切ることができる。

65卵の名無しさん2020/06/28(日) 10:42:28.55ID:4raxPB4V
やはり、医師を蔑む常套句だね!

http://2chb.net/r/hosp/1590129801/745

745 卵の名無しさん sage 2020/06/26(金) 23:11:45.37 ID:Mwn80KUd
>>743
不勉強な底辺私大卒なんて相手にすんなや

66卵の名無しさん2020/06/28(日) 12:27:01.05ID:uqLusHpk
コロナが始まって日本人はマスクを買い増したが
アメリカ人が買い増したのはライフル銃の弾。

67卵の名無しさん2020/06/28(日) 13:55:39.38ID:uqLusHpk
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)
}

68卵の名無しさん2020/06/28(日) 13:55:44.70ID:uqLusHpk
price=c(200,200,300,300,400,400)
vec2mat<- function(x){ # binary vector -> matrix 5人 × 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)
}

69卵の名無しさん2020/06/28(日) 13:59:58.42ID:uqLusHpk
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

一般職試験(高卒者試験)
https://www.jinji.go.jp/saiyo/siken/mondairei/16_00.pdf

70卵の名無しさん2020/06/28(日) 14:06:09.02ID:uqLusHpk
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, # 注文した金額が最も多かったのはAで,1,600円
all(y[,4]==1), # 5人とも,「まぐろ」を注文した。
all(y[1:3,3]==1), # A,B,Cは,「いくら」を注文した。
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)
}

71卵の名無しさん2020/06/29(月) 02:20:04.82ID:kaJIrJ2A
整数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)

72卵の名無しさん2020/06/29(月) 06:29:09.89ID:0ZEcuQv3
でも底辺私立医大卒の医者が一番の勝ち組だよな。
だって親がお金持ちじゃなかったら本来は医者じゃ
なかったかもしれない連中なんだぜ。
まあ親御さんには一生頭が上がらないとは思うけど、
一番の勝ち組で あることは間違いないよ

73卵の名無しさん2020/06/29(月) 07:18:36.70ID:rBYPE8FD
こういうのの相手をする野党は忍耐強いね。

>>
山添「つまり趣旨は伝わってるんですよ、総理、いかがですか」
安倍
「ですが、しゅし、趣旨については伝わったという話をいたしましたが、こっ…こっ…チッ…
このですね、この、イワバッ、サァンギンの……………が、書いた、いるですね、この ォー
ギョウセイキカンノホユウスルジョウホウノコウカイニカンスルホウリツニモトヂュイテ、名簿全体を、公開されることもありますと
いうこと、では、キきていない、ということは申し上げた、わけで、あります
で、そもそもですね!えー、この…この、最初の、ないか、えー、れんらく、うー
事務連絡で、かいたあることもですね、えー、カイ請求の対象!とされることも、あります!
とこうかいて、ウェ、ある、わけぇ、で、アリマシテ、対象とされることもありますということとですね、
エ、カイジ、エ、アノム、名簿ジェンタイを公開される、ということとは、これ、エー、…f…fセ、請求の対象トセ!
対象ですから!対象とされたってこと、でありますから、そこが、マァ違うということだとオモマスガ
いずれぇいたしましてもですね、イズレェいたしましても、いわば、ア、そうい、う、方、をですね、
エー、選んでくださいと、いうことについては、ソレァ、当然、エキテイルということは
先ほども申し上げた趣旨、にチュイテハ、申し上げている通りであります」
山添「ちょっとはっきり趣旨が分かりませんけども」

<<
ダウンロード&関連動画>>

@YouTube


2分20秒辺りから

74卵の名無しさん2020/06/29(月) 07:19:15.16ID:rBYPE8FD
人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。

これな!

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

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

75卵の名無しさん2020/06/29(月) 11:16:41.04ID:wl9ALaOg
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)

76卵の名無しさん2020/06/29(月) 12:10:12.42ID:uLj4gkXU
頭悪い人は国試合格できないと思うけど…

77卵の名無しさん2020/06/29(月) 12:15:05.88ID:wl9ALaOg
>>76
いや、中学数学できないアホでも通るよ。

78卵の名無しさん2020/06/29(月) 12:33:37.71ID:wl9ALaOg
半径1の円Cに内接する正三角形△PQRと、C上を動く点Xを考える。
このとき自然数nの定め方によっては、a[n]=|XP|^n+|XQ|^n+|XR|^n
がnのみに依存する値をとることがある(すなわち、C上のどの位置にXがあってもa[n]の値は不変である)。
そのようなnを全て決定せよ。

79卵の名無しさん2020/06/29(月) 12:35:44.36ID:wl9ALaOg
昼御飯前に頭の体操

>>784
プログラム解

> 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

80卵の名無しさん2020/06/29(月) 13:55:21.71ID:FTmo9j4R
いたがき

81卵の名無しさん2020/06/29(月) 19:27:52.86ID:Gd6JANC8
日本は最近、韓国やイタリアにも一人当たりのGDPが抜かれた。
一人当たりのGDPが高いとその国の国民は豊かになり、低いと貧しくなる。
つまり、日本の国民は韓国やイタリアの国民より貧しくなってしまった。

82卵の名無しさん2020/06/30(火) 06:43:28.62ID:ORfjVN68
中国はすごいな。
新型コロナ感染追及の矛先を黒人ヘイトにすり替えてしまった。
頭の悪い黒人白人見事に騙された。
ついでに言えば香港の民主化デモも新型コロナで潰しやがった
お見事!

83卵の名無しさん2020/06/30(火) 07:53:57.02ID:ORfjVN68
バイクの正しい乗り方として
 大怪我する前にやめること
というのが正しかったと納得。
ダウンロード&関連動画>>

@YouTube


84卵の名無しさん2020/06/30(火) 08:29:53.84ID:ORfjVN68
切り取り印象操作だったんだな。


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

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

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

https://news.yahoo.co.jp/byline/itoshin/20190909-00141136/

85卵の名無しさん2020/06/30(火) 09:00:37.83ID:ORfjVN68
3^(3^(3^(3^3))) の最上位の1桁を求めよ(計算機を用いてもよい)。

86卵の名無しさん2020/06/30(火) 09:15:12.54ID:ORfjVN68
安定のシリツだなぁ。


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

https://www.sankei.com/west/news/200115/wst2001150014-n1.html

87卵の名無しさん2020/06/30(火) 11:43:29.30ID:ORfjVN68
これが医師国家試験問題とは! 単なる比例計算。
中学入試より易しい。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

同じ比例計算でも公務員(一般職)の試験の方が複雑。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚


思考力を問う問題は高卒者対象の試験の方が難しい
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
追加の問題を考えてみた。
6つの○に書かれた条件をみたすような
5人の注文の仕方は何通りあるかを求めよ。

88卵の名無しさん2020/06/30(火) 14:19:22.00ID:ORfjVN68
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%/%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
}

89卵の名無しさん2020/06/30(火) 14:19:39.69ID:ORfjVN68
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,# 注文した金額が最も多かったのはAで,1,600円であった。
all(y[,4]==1), # 5人とも,「まぐろ」を注文した。
all(y[1:3,3]==1), # A,B,Cは,「いくら」を注文した。
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皿以上注文した者はいなかった。
)
}

90卵の名無しさん2020/06/30(火) 14:19:53.06ID:ORfjVN68
# 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()
# Aは「たこ」を注文した。
for(j in 1:16) TF[j]=re[[j]]['A','たこ(赤)']
all(TF==1)
# Bは赤皿を2皿注文した。
for(j in 1:16) TF[j]=sum(re[[j]]['B',c('いか(赤)', 'たこ(赤)')])
all(TF==2)
# Cが注文した金額は800円であった。
for(j in 1:16) TF[j]=sum(re[[j]]['C',]*price)
all(TF==800)
# Dは「うに」を注文した。
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)

91卵の名無しさん2020/07/01(水) 13:33:18.54ID:4kSzXCeL
歴史は取り消しのきかない過去から未知の未来へと進む

92卵の名無しさん2020/07/02(木) 09:37:24.50ID:YjrX9sKV
資本・財・労働の国際移動を規制するためには、国境を管理できる主権国家が存在しなければならない。

安倍は真逆を志向している。

93卵の名無しさん2020/07/03(金) 03:57:04.04ID:Ginm/oIe
日本復活に必要なのは反グローバリズムなんだが
中韓と左翼をディスって悦にいっている国民が
日本の衰退を招いていることに気づかんのかね?

94卵の名無しさん2020/07/03(金) 10:49:01.61ID:Ginm/oIe
共産党が自民党の提案を推奨している

ダウンロード&関連動画>>

@YouTube

&feature=youtu.be&t=610
10分10秒辺りから

95卵の名無しさん2020/07/03(金) 16:13:56.09ID:Ginm/oIe
安倍晋三はやってる政策、言動と、どこからどう見てもバリバリのグローバリストで保守とは真逆だからな。

安倍晋三「もはや国境や国籍にこだわる時代は過ぎ去りました。
国を開くことは私の中に流れる一貫した哲学。」 平成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://mamorenihon.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
安倍首相は「我が国がTPPを承認すれば、保護主義の蔓延(まんえん)を食い止める力になる」と述べ
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

96卵の名無しさん2020/07/03(金) 21:19:14.84ID:Ginm/oIe
数学板から

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

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

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

(今回は容器なので、裏返しにすると、載せることは出来ても、詰めることは出来ないので注意。店長は飽くまで、パンパンに詰めて販売したいのである。店長なりのサービス精神である。)。
ちなみに、同じ種類のサンドウィッチ同士は区別がつかないものとする。」
"

97卵の名無しさん2020/07/03(金) 21:19:49.49ID:Ginm/oIe
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

98卵の名無しさん2020/07/03(金) 21:52:01.32ID:Ginm/oIe
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)

99卵の名無しさん2020/07/04(土) 08:00:41.75ID:Sxvv6yAr
まあおそらくは出来レースというかお芝居なんだろうけどね。
党でこういう事があったとなれば、
香港情勢に対して国民や他の民主主義国に対しても面目が立つし。
どうせ経団連がらみで来日を許す事になるだろうが、
それでも議論の末に決めた事だと言い訳が立つ。

まあ中国も不快感を示すだろうが、その辺はかけ引きだね。
ま、中国の広報は己らの出世のためにもでかい口を叩きたがるだろうがw

100卵の名無しさん2020/07/04(土) 17:02:52.67ID:Sxvv6yAr

101卵の名無しさん2020/07/04(土) 22:46:53.71ID:Sxvv6yAr
「新型コロナウイルス」(33) 児玉龍彦・東京大学先端科学技術研究センターがん・代謝プロジェクト プロジェクト リーダー(東京大学名誉教授)/ 村上世彰・一般財団法人村上財団創設者


@YouTube


102卵の名無しさん2020/07/05(日) 10:35:38.74ID:fzoDXMpz
西浦先生の予測
何も対策しない場合(5月)

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

こういう数量モデルは必要なんじゃないの
経済優先でするにしても、そのときの感染者がどうなるか
ある程度の判断材料になるわけだしね

103卵の名無しさん2020/07/05(日) 14:37:12.59ID:T+5emEsp
抗体陽性率が0.1%の今で約1000人死亡だから
40%が抗体持つくらい広まれば40万人死んでも不思議じゃないね。

104卵の名無しさん2020/07/05(日) 15:11:36.84ID:T+5emEsp
>>
京都市は先月市内の飲食店で開かれた小規模のパーティーで新型コロナウイルスの集団感染=クラスターが発生したと発表しました。これまでに男女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 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
}
s=replicate(1e5,sim()) # simulation & calculation
hist(spreader,freq=F,ylab='',axes=F,breaks='scott') ; axis(1)
HDInterval::hdi(spreader)
BEST::plotPost(spreader)

105卵の名無しさん2020/07/05(日) 15:35:39.29ID:T+5emEsp
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)

106卵の名無しさん2020/07/05(日) 15:57:34.63ID:T+5emEsp
実効再生産数は一定ではなくて、時期や個々の例で変わる。

実効再生産数は負の二項分布に従うらしくそのパラメータを検討した論文がこれ。
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人のスーパースプレッダーから広まった確率も併せて求めよ。

107卵の名無しさん2020/07/05(日) 16:35:51.63ID:T+5emEsp
1年前の記事
「新型インフルエンザから10年 いまパンデミックが起きたら」
http://www.nhk.or.jp/kaisetsu-blog/700/319587.html

被害想定(日本)17万〜64万人
これ新型コロナじゃなく新型インフルエンザな
42万は別に突飛な数字を言ったわけじゃない

108卵の名無しさん2020/07/05(日) 16:38:56.24ID:T+5emEsp
A「カギかけないと泥棒きちゃうから外出時はカギかけなきゃ」
B「カギかけなくても泥棒こないのに」
→カギかけて外出
→泥棒はこなかった

B「ほら! 泥棒に入られなかった!」
A「それはカギをかけてたから…」
B「カギなんかかける必要なかったね! おまえはウソつきだ!」
A「」
B「Aはウソつき! 煽りすぎ!」

109卵の名無しさん2020/07/05(日) 17:42:29.66ID:T+5emEsp
K値
・X=累計感染者数
・Y=1週間前の累計感染者数
とおき、“画期的な”指標である「K値」を
・K=(X-Y)/X=1-Y/X

110卵の名無しさん2020/07/05(日) 18:36:47.53ID:T+5emEsp
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

111卵の名無しさん2020/07/05(日) 19:42:39.74ID:zhxaSd/7
>>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

112卵の名無しさん2020/07/05(日) 20:18:33.24ID:T+5emEsp
これは、いいたとえだな。

西浦は別に間違ったことは言ってない。
「ナイフで人を刺したら死ぬかも」と言ったようなもので、まあ本当にいう必要あったか?とは思うが。

113卵の名無しさん2020/07/05(日) 22:17:23.48ID:T+5emEsp
# 有病率pでn人のクラスター発生時の再生産数の期待値
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)

114卵の名無しさん2020/07/06(月) 00:00:56.66ID:nKQCQwoY
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)

115卵の名無しさん2020/07/06(月) 00:01:13.71ID:nKQCQwoY
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)

116卵の名無しさん2020/07/06(月) 00:27:48.88ID:nKQCQwoY
有病率の低い伝染病の患者が多発していれば他人に移しやすいのは直観でわかる。
12人のクラスタが発生したときに有病率がいくらであれば再生産数が1になるか?

117卵の名無しさん2020/07/06(月) 00:57:13.83ID:nKQCQwoY
>>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

118卵の名無しさん2020/07/06(月) 06:46:11.90ID:nKQCQwoY
分からない問題はここに書いてね460
http://2chb.net/r/math/1589811916/879

879 名前:132人目の素数さん[sage] 投稿日:2020/07/05(日) 23:34:34.60 ID:6pnuWzuz
A君が坂の途中のP地点に立っている。
A君がP地点から東に歩いたときの勾配は3/4であり、南に歩いた時の勾配は2/3であった。
この坂の勾配が最もきついのはP地点から見てどの方角か。

119卵の名無しさん2020/07/06(月) 06:46:29.85ID:nKQCQwoY
>>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

120卵の名無しさん2020/07/06(月) 07:58:35.79ID:nKQCQwoY
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

121卵の名無しさん2020/07/06(月) 07:58:45.62ID:nKQCQwoY
> 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

122卵の名無しさん2020/07/06(月) 16:07:12.53ID:RBXc/6V3
シリツの裏口が話題になってますなぁ!

【朝日新聞デジタル】文科省汚職、元局長が無罪を主張「息子に加点、知らず」 [爆笑ゴリラ★]
http://2chb.net/r/newsplus/1593999549/

123卵の名無しさん2020/07/06(月) 16:09:27.66ID:RBXc/6V3
周りも裏口だらけとか?

http://2chb.net/r/newsplus/1593999549/41

124卵の名無しさん2020/07/06(月) 18:28:45.70ID:RBXc/6V3
10人のなかにスーパースプレッダーがいて合計12人に感染させた可能性
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

125卵の名無しさん2020/07/06(月) 18:29:03.10ID:RBXc/6V3
> 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

126卵の名無しさん2020/07/07(火) 11:35:26.75ID:8nEdlkS9

127卵の名無しさん2020/07/08(水) 06:48:28.02ID:DzricCbv
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')

128卵の名無しさん2020/07/08(水) 07:37:02.96ID:DzricCbv
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)

129卵の名無しさん2020/07/08(水) 09:25:17.42ID:looQjzP9
↑あほ

130卵の名無しさん2020/07/08(水) 18:36:23.80ID:ZTu6jETl
東京医科大】過去に不正合格させた、受験生や親の名前が書かれた
「裏口入学リスト」を作成 特捜部、大学側からリスト入手
2018年07月13日08:55

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


裏口佐野の公判が始まったようだなw

131卵の名無しさん2020/07/08(水) 19:09:04.69ID:DzricCbv
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)

132卵の名無しさん2020/07/09(木) 23:20:47.73ID:N2v3KqqG
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,7206,6079,4370,9421,1341,9147,0386,9856,7437)

bartels.rank.test(data)
cox.stuart.test(data)
difference.sign.test(data)
rank.test(data)

133卵の名無しさん2020/07/09(木) 23:40:01.05ID:WLGoT3ZZ
2ヶ月前の予測が恐ろしいほどハマってる。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

134卵の名無しさん2020/07/10(金) 05:05:17.10ID:uIx5PDyl
脳症の報告もあがってきている。
https://academic.oup.com/brain/article/doi/10.1093/brain/awaa240/5868408

135卵の名無しさん2020/07/10(金) 10:08:23.60ID:uIx5PDyl
いや底辺ほど感染リスク高いから緊急事態宣言を望んでいるのだが
レジ打ちやウエイトレスや掃除やゴミ収集などは
いつ感染してもおかしくないからね

経済回せと叫んでいるのはリモートワークなどで余裕のホワイトカラー

136卵の名無しさん2020/07/10(金) 10:20:46.70ID:uIx5PDyl
COVID-19のアウトなところ

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

国内から根絶するまでロックダウンしないとダメな感染症
西村と安倍、事の重大性を認識できてない

137卵の名無しさん2020/07/10(金) 12:20:36.01ID:vzOjmNtZ
あのーお仕事はされてないんでしょうか?

138卵の名無しさん2020/07/10(金) 14:39:47.68ID:HSKMYqwj
おまえのことだろクソニート朝鮮人

139卵の名無しさん2020/07/10(金) 14:50:50.41ID:uIx5PDyl

140卵の名無しさん2020/07/10(金) 16:59:45.99ID:uIx5PDyl
>>138
人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。

これな!

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

141卵の名無しさん2020/07/11(土) 07:09:08.74ID:aDDXoU7O
傘をさしててもしぶきで濡れるし
大雨だったら役に立たないこともあるし

だから普段から傘をさすことは無意味であるということになる?

142卵の名無しさん2020/07/11(土) 07:12:28.80ID:aDDXoU7O
民主党政権が取り上げて使用不能にした総連ビルをトリモロして北朝鮮に再び引き渡したのは誰でしょう?


ホニャララ内角の北兆戦への最大の貢ぎ物はホニャララビルの特別配慮
http://www.news-postseven.com/archives/20141123_288467.html?DETAIL

143卵の名無しさん2020/07/11(土) 07:58:16.62ID:aDDXoU7O
そもそも中国人ウェルカムやってコロナ爆発させて
金づるの中国人が来なくなったから
日本人に金使わせようとする魂胆しかも感染対策は何もなしで罹るのは自己責任。

144卵の名無しさん2020/07/11(土) 12:43:21.42ID:GlB5Fub6
# 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))

145卵の名無しさん2020/07/11(土) 12:43:54.00ID:GlB5Fub6
dividers <- function(n){
m=seq_len(n)
m[n%%m==0]
}
dividers(factorial(10))

146卵の名無しさん2020/07/11(土) 13:36:09.28ID:GlB5Fub6
"
異なる6(=n)個の自然数の配列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

147卵の名無しさん2020/07/11(土) 15:17:20.34ID:aRaMDGCL
表が出る確率が1/2のコインを1000回投げたときに表がちょうど10回連続してでる確率を求めよ。

148卵の名無しさん2020/07/11(土) 16:37:49.32ID:GlB5Fub6
# 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

149卵の名無しさん2020/07/11(土) 17:07:24.99ID:GlB5Fub6
"
あるタクシー会社のタクシーには1から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は100台以下とわかっている。
この会社のタクシーを5台みかけた。最大の番号が60であった。
この会社の保有するタクシー台数の期待値を求めよ。
"
# 可読性無視のone-liner
sum((60:100)*(choose(60-1,5-1)/choose(60:100,5))/(sum(choose(60-1,5-1)/choose(60:100,5))))

150卵の名無しさん2020/07/11(土) 19:05:02.69ID:GlB5Fub6
>>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台のうちの最大番号(初期値0))
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万回繰り返して平均値(期待値)を算出

151卵の名無しさん2020/07/12(日) 08:34:44.20ID:UrFsdd6z
"
マラソン大会で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]

152卵の名無しさん2020/07/12(日) 21:40:52.66ID:UrFsdd6z
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)

153卵の名無しさん2020/07/13(月) 07:39:11.49ID:0kEbxjUg
"
試射させたところ
ゴルゴ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下限(上限は1)
for(hit in c(1,10,100)) print(qbeta(0.95,a+hit,b))

154卵の名無しさん2020/07/13(月) 23:10:37.76ID:CDSirGZ5
今の内閣が史上最低学歴の内閣
やっぱ学歴って大事なんだなと痛感したわ

155卵の名無しさん2020/07/14(火) 00:27:33.91ID:7+6JkGeO
[シシ]\s*[りりリ]\s*[ツツ]

156卵の名無しさん2020/07/14(火) 10:25:50.78ID:bf2JlY+k
>>154
羽田も成城大学だったなぁ。
最短と最長が底辺シリツ卒

157卵の名無しさん2020/07/14(火) 16:12:58.11ID:5CzX8ch/
ほーか
でんでんノータリンにホーセー禿げ
学歴詐称不正選挙エジプトユダ公工作員股ユル子
アホばっかしじゃのお

158卵の名無しさん2020/07/14(火) 16:52:33.92ID:bf2JlY+k
あるタクシー会社のタクシーには1から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は100台以下とわかっている。
何台観察したかは不明だが最大の番号が60であった。
この会社の保有するタクシー台数の期待値を求めよ。

尚、計算には数値の分布が不明な場合は一様分布を仮定する。
保有タクシーの台数は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

159卵の名無しさん2020/07/14(火) 16:54:04.59ID:bf2JlY+k
# 分数表示
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)

160卵の名無しさん2020/07/14(火) 16:54:27.47ID:bf2JlY+k
# 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]

161''2020/07/14(火) 17:14:45.92ID:V6RZOqwd
2020**2020

162卵の名無しさん2020/07/14(火) 18:27:26.36ID:bf2JlY+k
>>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))

163卵の名無しさん2020/07/14(火) 20:06:57.13ID:bf2JlY+k
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))

164卵の名無しさん2020/07/14(火) 20:57:44.76ID:bf2JlY+k
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))

165卵の名無しさん2020/07/14(火) 20:58:01.78ID:bf2JlY+k
点Oを中心とする半径1の円Kの周上を3点A,B,Cが動く。

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

(2)円の周上または内部の点Pが固定されており、OP=p(0≦p≦1)である。(↑PB・↑PC)+(↑PC・↑PA)+(↑PA・↑PB)の最初うちを求めよ。

166卵の名無しさん2020/07/14(火) 20:58:37.90ID:bf2JlY+k
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)

167卵の名無しさん2020/07/14(火) 22:00:34.32ID:g3eNSQhk
コピペ荒らしじゃないなら時間の無駄だアホしね

168卵の名無しさん2020/07/15(水) 05:42:29.48ID:HEINqbZ7
新宿を放置した安倍と小池の失政

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

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

国民は、今回の判断力と指導力には完全に失望した

169卵の名無しさん2020/07/15(水) 06:46:52.14ID:HEINqbZ7
# 観察された台数が不明なときのシミュレーション
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

170''2020/07/15(水) 10:12:26.43ID:uSeyg7dZ
>>167
Rは理系ならばできて当然。

171卵の名無しさん2020/07/15(水) 12:26:33.94ID:5TbXEwcN
なにをぬかす
超理系だ
若い頃、世界は物理数学で全て記述出来ると考えてた
間違いだった
貴重な時間を無駄にした

172卵の名無しさん2020/07/15(水) 13:09:21.87ID:uSeyg7dZ
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')

173卵の名無しさん2020/07/15(水) 13:17:38.43ID:uSeyg7dZ
>>171
この答もだせないなら裏口シリツ医と同じレベルになるわけだが。

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

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

174卵の名無しさん2020/07/15(水) 14:12:01.48ID:uSeyg7dZ
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

2百マンコめ
6458731092

三百マンコめ
9241687530

175卵の名無しさん2020/07/15(水) 18:42:28.48ID:HEINqbZ7
# demo
(s1=paste0(rep("0:9",3),collapse=','))
(s2=paste0("1:9,",s1))
(s3=paste0("expand.grid(",s2,')'))
(lang=str2lang(s3))
eval(lang)

176卵の名無しさん2020/07/15(水) 18:43:37.82ID:HEINqbZ7
>>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]

177卵の名無しさん2020/07/15(水) 18:44:27.14ID:HEINqbZ7
# 数列を連結して数字に
v2d <- function(x){ # c(1,2,3) -> 123
as.numeric(paste0(as.character(x),collapse=''))
}

178卵の名無しさん2020/07/16(木) 04:53:24.80ID:VPoZ/5q3
感染拡大防止、医療体制
6000億円

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

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

179卵の名無しさん2020/07/16(木) 06:37:51.07ID:VPoZ/5q3
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)

180卵の名無しさん2020/07/16(木) 06:38:16.13ID:VPoZ/5q3
問題文↓
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

181卵の名無しさん2020/07/16(木) 07:46:55.32ID:VPoZ/5q3
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

182卵の名無しさん2020/07/16(木) 07:54:31.46ID:VPoZ/5q3
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

183卵の名無しさん2020/07/16(木) 15:53:49.99ID:VPoZ/5q3
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であるので復号できる(∵数論のオイラーの定理)

184卵の名無しさん2020/07/16(木) 17:00:44.68ID:VPoZ/5q3
>>183
面白そうなので、ちょっと実験してみた。
暗号文mは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

185卵の名無しさん2020/07/16(木) 17:00:50.39ID:VPoZ/5q3
> # 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

復号されていて面白い。

186卵の名無しさん2020/07/16(木) 18:28:04.10ID:VPoZ/5q3
angle <- function(x,y){
dot.prod <- x%*%y
norm.x <- norm(x,type="2")
norm.y <- norm(y,type="2")
theta <- acos(dot.prod / (norm.x * norm.y))
as.numeric(theta)
}


theta <- acos( sum(a*b) / ( sqrt(sum(a * a)) * sqrt(sum(b * b)) ) )

187卵の名無しさん2020/07/16(木) 18:28:54.82ID:VPoZ/5q3
こういうのどうやるのが速い? と思ったら

stackoverflowで検索が速いや。

https://stackoverflow.com/questions/1897704/angle-between-two-vectors-in-r

188卵の名無しさん2020/07/16(木) 20:36:58.43ID:VPoZ/5q3
#####
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
}

189卵の名無しさん2020/07/16(木) 20:37:18.12ID:VPoZ/5q3
# 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))

190卵の名無しさん2020/07/17(金) 03:46:42.94ID:k5RESdc+
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

191卵の名無しさん2020/07/17(金) 04:18:09.39ID:k5RESdc+

192卵の名無しさん2020/07/17(金) 06:21:26.04ID:aHrIu0jV
%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

193卵の名無しさん2020/07/17(金) 07:53:38.08ID:k5RESdc+
# number to chacter
n2c <− function(n){ # 11 −> VAV, 12 −> VBV,..., 37 −> VZV
  if(10<n & n<38){
    LETTERS[n−10]
    }else return(V?V) # 55 −> ?

# digits to string
d2s <− function(d){
  s=as.character(d)
  nc=nchar(s)
  if(nc%%2==0){
    ch=character()
    for(i in 1:(nc%/%2)){
      ch[i]=n2c(as.integer(substr(s,2*i−1,2*i)))
    }
  }else return(0)
  re=paste0(ch,collapse=VV)
  cat(re,V\nV)
  invisible(re)

194卵の名無しさん2020/07/17(金) 07:53:49.02ID:k5RESdc+
c2n <− function(c){ # VAV −> 11,VBV−>12,...,VZV−>36
  x=(LETTERS[1:26]==c)
  if(any(x)) 10+which(x)
  else 0

s2d <− function(s){ # WOHW −> 2518
  nc=nchar(s)
  dc=character()
  for(i in 1:nc){
    x=c2n(substring(s,i,i))
    dc[i]=ifelse(x!=0,as.character(x),W00W)
  }
  re=paste0(dc,collapse=VV)
  cat(re,V\nV)
  invisible(re)

s2d(WSHINEW)
d2s(2918192415)

s2d(WURAGUCHIW)

195卵の名無しさん2020/07/17(金) 07:54:37.95ID:k5RESdc+
> s2d("URAGUCHI")
3128111731131819
> s2d('DOTEIHENSHIRITSU')
14253015191815242918192819302931

196卵の名無しさん2020/07/17(金) 08:05:08.49ID:k5RESdc+
online OCR

https://ocr.space/

197卵の名無しさん2020/07/17(金) 11:21:38.31ID:ugAPa8+J
香川と奈良は今でも裏口やってんじゃないの?
ま、推薦という名の裏口がまかり通ってるけどね。
昔は無かった。
正真正銘の実力試験のみ。
シリツは別、発想からして裏口開業医養成学校。

198卵の名無しさん2020/07/17(金) 21:58:41.17ID:k5RESdc+
国会ダイジェスト字幕付き】児玉龍彦教授、渾身の訴え「このままでは来月は目を覆うような惨状になる・・・」コロナ対策とGoToについて言及【参議院新型コロナ閉会中審査】


1:15~ 現在の日本の現状
6:54~ 検査数増加に伴う陽性率増加について
14:56~ GoToキャンペーンについて


@YouTube


199''2020/07/18(土) 08:58:50.60ID:EXxQ7xor
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)
}

200''2020/07/18(土) 09:38:33.02ID:O/N4isUA
> 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
>

201''2020/07/18(土) 09:44:56.69ID:O/N4isUA
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 )
}

202''2020/07/18(土) 09:46:34.48ID:O/N4isUA
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 )
}

203卵の名無しさん2020/07/18(土) 10:52:24.86ID:e0H2uXza
>>197
北の方が酷いと思う
そもそも医者が残らないし
旭川と弘前は黒だわ

204卵の名無しさん2020/07/18(土) 12:01:28.82ID:wCmNWJI0
最底辺グループですな

205卵の名無しさん2020/07/18(土) 13:37:01.16ID:4YqdABa6
### 暗号解読 ###
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)の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

206卵の名無しさん2020/07/18(土) 13:37:39.37ID:4YqdABa6
> # 素因数分解して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)の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

207卵の名無しさん2020/07/18(土) 14:55:41.14ID:4YqdABa6
rm(list=ls())

## 暗号化 by RSA  WAHOW −> cipher, public_key, secret_key
Encode <− function(x=WAHOW,k=1e4){ # 設定素数の上限
## −− 文字列を数値化  −−
  # charactor to number
  c2n <− function(c){ # VAV −> 11,VBV−>12,...,VZV−>37,V0V−>70, V1V−> 71
    symbo=c(V V,V_V,V!V,V+V,V−V,V*V,V/V)
    LET=c(LETTERS,letters,symbo,0:9)
    x=(LET[1:69]==c)
    if(any(x)) 10+which(x)
    else 0
  }
  # string to digits
  s2d <− function(s){ # WOHW −> 2518
    nc=nchar(s)
    dc=character()
    for(i in 1:nc){
      x=c2n(substr(s,i,i))
      dc[i]=ifelse(x!=0,as.character(x),W00W)
    }
    re=paste0(dc,collapse=VV)
    cat(s,V−>V,re,V\nV)
    invisible(as.numeric(re))
  }

208卵の名無しさん2020/07/18(土) 14:56:15.39ID:4YqdABa6
## −− RSA アルゴリズム  
  library(numbers)
  library(gmp)
  options(digits=22)
  # 1.素数a,bを決める(上限=k)
  (ab=sample(Primes(k),2))
  a=ab[1] ; b=ab[2]
  # 2.c=abとおく
  (c=a*b)
  # 3.d=(a−1)(b−1)とおく
  (d=(a−1)*(b−1))
  # 4.dと互いに素な自然数eを一つ決める
  flg=FALSE
  while(!flg){
    e=sample(k,1)
    flg <− GCD(d,e)==1
  }
  # 5.feをdで割った余りが1となる自然数fを求める
  flg=FALSE
  f=0
  while(!flg){ # could be lengthy process ....
    f=f+1
    flg <− (f*e)%%d==1
  }

209卵の名無しさん2020/07/18(土) 14:56:41.28ID:4YqdABa6
  # 6.ペア(c,e)を公開鍵、ペア(c,f)を秘密鍵とする
  (public_key=c(c,e))
  (secret_key=c(c,f))
  # 7.平文(を自然数に変換)をmとすると暗号文はm^eをcで割った余りnである
  m=as.bigz(s2d(x))
  if(m<c){ # m < c の時のみ暗号化 
    n=m^e%%c
  }else{
    n=NULL
  }
  list(cipher=n,public_key=public_key,secret_key=secret_key)


Encode(WAHOW)

210卵の名無しさん2020/07/18(土) 14:57:11.91ID:4YqdABa6
### Decode  復号化 ###
Decode <− function(cipher,secret_key1,secret_key2){
  # number to chacter
  n2c <− function(n){ # 11 −> VAV, 12 −> VBV,..., 73 −> V3V
    symbo=c(V V,V_V,V!V,V+V,V−V,V*V,V/V)
    LET=c(LETTERS,letters,symbo,0:9)
    if(10<n & n<79){
      LET[n−10]
    }else return(V?V) # 99 −> ?
  }
  
  # digits to string
  d2s <− function(d){ # 123456 −> BXt
    s=as.character(d)
    nc=nchar(s)
    if(nc%%2==0){
      ch=character()
      for(i in 1:(nc%/%2)){
        ch[i]=n2c(as.integer(substr(s,2*i−1,2*i)))
      }
    }else return(0)
    re=paste0(ch,collapse=VV)
    cat(re,V\nV)
    invisible(re)
  }
  library(gmp)
  m=mod.bigz(pow.bigz(cipher,secret_key2),secret_key1)
  d2s(asNumeric(m))

Encode(WBAKAW)
Decode(9905384,90876911,77957407)

211卵の名無しさん2020/07/18(土) 17:25:36.17ID:Dqjsvzt7
どあほ

212卵の名無しさん2020/07/18(土) 18:04:18.44ID:4YqdABa6
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)))))))))

213卵の名無しさん2020/07/18(土) 18:05:00.73ID:4YqdABa6
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

214卵の名無しさん2020/07/18(土) 18:05:05.25ID:4YqdABa6
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

215卵の名無しさん2020/07/18(土) 18:39:15.05ID:4YqdABa6
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)
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')
+ }

216卵の名無しさん2020/07/18(土) 18:40:32.08ID:4YqdABa6
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

7リットルから開始で9回の移動、3リットルから開始で10回の移動で5リットルが測れる

217卵の名無しさん2020/07/18(土) 18:55:31.30ID:pMfDhNh8
ボケ

218卵の名無しさん2020/07/18(土) 20:25:32.47ID:4YqdABa6
>>190
9から始めた方がステップがすくないな
> 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

219卵の名無しさん2020/07/18(土) 21:51:09.00ID:ZK4CJMhK
カス

220卵の名無しさん2020/07/18(土) 22:33:34.04ID:4YqdABa6
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)

221卵の名無しさん2020/07/18(土) 22:34:04.03ID:4YqdABa6
"
容量8Lの袋と容量5Lの袋を使って池の水を丁度4L集めたい。
袋に目盛りはついていません。
袋から袋への移し替えは全量で行います。
池からとる水の量や池に捨てる水の量には制限はありません。
最初に片方に満たした作業を1回目として
丁度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)
}

222卵の名無しさん2020/07/18(土) 22:34:20.69ID:4YqdABa6
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

223卵の名無しさん2020/07/18(土) 22:34:29.67ID:4YqdABa6
# 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

224卵の名無しさん2020/07/18(土) 22:35:49.09ID:4YqdABa6
> 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

225卵の名無しさん2020/07/18(土) 22:36:11.58ID:4YqdABa6
> 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

226卵の名無しさん2020/07/19(日) 07:47:44.51ID:ZhvraOW0
SEIRモデルにK値という指標を重ねてこんなグラフを作って遊んでみた。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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

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

納得した。

227卵の名無しさん2020/07/19(日) 11:40:45.82ID:ZhvraOW0
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)

228卵の名無しさん2020/07/19(日) 15:22:15.54ID:xIzaGZqM
↑あほシリツ

229卵の名無しさん2020/07/19(日) 21:04:42.06ID:ZhvraOW0
# 放物線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)

230卵の名無しさん2020/07/19(日) 21:08:45.08ID:ZhvraOW0
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

231卵の名無しさん2020/07/19(日) 21:46:36.18ID:ZhvraOW0
放物線y=x^2 (0<= x <=1)をy軸を中心に回転させてできる面からなる容器に水を満たして45°傾けたときに残る水の体積はいくらか?

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

232''2020/07/19(日) 23:16:48.49ID:ZhvraOW0
>>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)

233''2020/07/19(日) 23:35:23.16ID:ZhvraOW0
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

234''2020/07/19(日) 23:35:42.09ID:ZhvraOW0
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

235''2020/07/19(日) 23:46:20.75ID:ZhvraOW0
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

236卵の名無しさん2020/07/20(月) 06:50:14.52ID:mdlQ7W67
# 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*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='傾斜角度')

237卵の名無しさん2020/07/20(月) 06:58:13.09ID:mdlQ7W67
>>231
これ類題が東大入試の過去問にあるんだよなぁ。
俺が受験した頃でも、とても試験時間内に解けるとは思えん。

238卵の名無しさん2020/07/20(月) 08:26:25.26ID:mdlQ7W67
(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)

239''2020/07/20(月) 12:36:11.83ID:2KPrymDE
(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)

240'\n'2020/07/20(月) 12:36:57.99ID:2KPrymDE
(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)

241卵の名無しさん2020/07/20(月) 17:46:44.02ID:6Z+kbl12
http://cse.naro.affrc.go.jp/takezawa/r-tips/r/38.html

関数 polyroot() で多項式の解(根)を求めることが出来る.例えば,p(x) = 5 + 4x + x2 の根を求める場合は c(5, 4, 1) を与える.

242卵の名無しさん2020/07/20(月) 19:44:08.15ID:6Z+kbl12
"
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) # 1枚でもレアカードを含むか?
}

mean(replicate(1e6,sim(1))) # レアカード1枚
mean(replicate(1e6,sim(2))) # レアカード2枚

243卵の名無しさん2020/07/21(火) 00:02:50.07ID:1tv7qVWN
半球状のお椀をθ傾けたときの残量

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

244卵の名無しさん2020/07/21(火) 01:39:25.34ID:1tv7qVWN
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

245卵の名無しさん2020/07/21(火) 02:36:32.06ID:rpT3NeyM
数値積分して値を出したが
数学板ではあっという間に厳密解を出されてしまった。
数値解と一致していて安心した。

>>
半球面お碗を角度 θ 傾けて 液体を半分にするには...
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 が成り立つらしい。

246卵の名無しさん2020/07/21(火) 08:12:10.71ID:1tv7qVWN
3次方程式: x^3 - αx + β = 0 の解について

3倍角公式: 4cos&#179;θ -3cosθ - cos(3θ) = 0
を 4c&#179; -3c - C = 0 と書く
0 = a&#179;/4*(4c&#179; -3c - C) = (ac)&#179; - (3a&#178;/4)(ac) - a&#179;C/4
α=3a&#178;/4, β=-a&#179;C/4 となるように a, θを選ぶ
つまり
 a = √(4α/3),
 θ = ±arccos(-4β/a&#179;)/3 + 2Nπ/3 {Nは任意整数}
このとき
0 = (ac)^3 -α(ac) +β より x=a*cosθ が解となる。

247卵の名無しさん2020/07/21(火) 08:15:23.44ID:1tv7qVWN
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θ が解となる。

248卵の名無しさん2020/07/21(火) 08:55:59.51ID:1tv7qVWN
θ°傾けて残り水がπ/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

249卵の名無しさん2020/07/21(火) 10:48:13.08ID:1tv7qVWN
"
ある日本人100人からなる職場では1年間に平均20人に一人が退職する。
退職したら移民で補充するが移民は1年間に平均で10人に一人が退職する。
職場の過半数が移民になるのは何年後か?
"

250卵の名無しさん2020/07/21(火) 11:45:22.83ID:xxK05TYc
"
原住民100人からなるある職場では平均して1年間に20人に一人が退職する。
一人の1年間の退職確率は1/20で退職は独立事象とする。
民族を問わず誰かが退職したら同じ人数を移民で補充する。
移民の1年間退職確率は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')

251卵の名無しさん2020/07/21(火) 13:17:03.55ID:xxK05TYc
表が出る確率が1/2のコインを1000回投げたときに表が10回以上連続することが少なくとも1回ある確率を求めよ」

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

> P10[1000]
[1] 0.38544975241248169

252卵の名無しさん2020/07/21(火) 13:41:42.01ID:xxK05TYc
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 = "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")
}

253卵の名無しさん2020/07/21(火) 14:44:33.36ID:xxK05TYc
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]]

254卵の名無しさん2020/07/21(火) 14:44:50.06ID:xxK05TYc
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]])

255卵の名無しさん2020/07/21(火) 14:45:17.67ID:xxK05TYc
> asNumeric(P10[[1000]])
[1] 0.38544975241248158

256卵の名無しさん2020/07/21(火) 14:45:45.71ID:xxK05TYc
> P10[[1000]]
Big Rational ('bigq') :
[1] 4130127273477897798494681823208953122987954337675657485013615586768080707967696405909423852137579237591446526939613263507523948827986893531646240157193872907615641166955214783072447145493481590610836072499227213105120994997891548869020651578128373092635280064104398841562373328900104830268510093352961/10715086071862673209484250490600018105614048117055336074437503883703510511249361224931983788156958581275946729175531468251871452856923140435984577574698574803934567774824230985421074605062371141877954182153046474983581941267398767559165543946077062914571196477686542167660429831652624386837205668069376

257卵の名無しさん2020/07/21(火) 14:52:58.67ID:xxK05TYc
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

258卵の名無しさん2020/07/21(火) 15:31:19.07ID:xxK05TYc
rm(list=ls())
# 表が出る確率が1/2のコインを1000回投げたときに表が10回以上連続することが少なくとも1回ある確率を求めよ

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回が1回だけある
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

259卵の名無しさん2020/07/21(火) 15:31:47.83ID:xxK05TYc
> # 表が連続する最大値が10回の確率
> PP10[[1000]] - PP11[[1000]]
Big Rational ('bigq') :
[1] 1821758352608942392045081404980435252751028506386180152981553957955804306451779919369627290763341161624148375682827473771447204863438275322517352119276475196303665700811594413542122049315965374987419727999162516864425201176898714701858037099287917141519581989266644207027301080510161753883001018598769/10715086071862673209484250490600018105614048117055336074437503883703510511249361224931983788156958581275946729175531468251871452856923140435984577574698574803934567774824230985421074605062371141877954182153046474983581941267398767559165543946077062914571196477686542167660429831652624386837205668069376

260卵の名無しさん2020/07/21(火) 15:33:29.01ID:xxK05TYc
>>259
> Rmpfr::mpfr(asNumeric(PP10[[1000]] - PP11[[1000]]),1e4)
1 'mpfr' number of precision 10000 bits
[1] 1.700180792194284362661704790298244915902614593505859375e-1

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

検算希望!(裏口シリツには無理だけどwww)

261卵の名無しさん2020/07/21(火) 18:00:49.91ID:xxK05TYc
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)
}

262卵の名無しさん2020/07/22(水) 07:40:29.06ID:mrtD6Gnl
x3
x?

263'\n'2020/07/22(水) 11:13:25.97ID:0hwy4Afp
>>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]]

264卵の名無しさん2020/07/22(水) 15:20:44.01ID:mrtD6Gnl
# 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)
}

265卵の名無しさん2020/07/22(水) 16:22:40.67ID:mrtD6Gnl
1000回のコイントスで連続表の最大値とその確率
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

266卵の名無しさん2020/07/22(水) 17:06:27.08ID:fDOX4lOD
# 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)

267'\n'2020/07/22(水) 17:26:37.73ID:57hr+I+5
10 秒速30mで走る長さ360mの急行列車が、秒速20mで走る長さ440mの貨物列車に追いついてから追い
抜くまでに何秒かかるか?
(解き方)
〔 〕秒
11 36Km 離れた2地点を船で往復した。上りにかかった時間が4時間、下りにかかった時間が3時間だった。
このとき川の流れの速さを求めよ。
(解き方)
〔 〕km/h
12 PとQの二人が、1週12Km のサイクリングコースを自転車で走る。Pは時速21Km、Qは時速12Km で
走行する。Q が走り始めてから15分後に、Pが同じ方向に走り始めた。PがQに追いつくのは、Pが走り始め
てから何分後か?
(解き方)
〔 〕分後

268卵の名無しさん2020/07/22(水) 20:11:35.83ID:57hr+I+5
> 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

269卵の名無しさん2020/07/23(木) 13:45:13.51ID:pmHw67ja
> 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

270卵の名無しさん2020/07/23(木) 13:46:22.90ID:pmHw67ja
> 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

271卵の名無しさん2020/07/23(木) 18:58:52.19ID:pmHw67ja
コロナ前は、内需型サービス業なのに日本人をぞんざいに扱って、
シナ人ウェルカムの守銭奴ビジネスに熱狂していた業界。

272卵の名無しさん2020/07/24(金) 02:25:41.79ID:J3kAbTyn
abura(40,39,20) 76 ステップ必要

273卵の名無しさん2020/07/24(金) 13:31:16.84ID:So3Kh77K
# 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)

274卵の名無しさん2020/07/24(金) 15:25:52.61ID:So3Kh77K
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)

275卵の名無しさん2020/07/24(金) 15:26:38.27ID:So3Kh77K
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)

276卵の名無しさん2020/07/24(金) 20:40:58.54ID:So3Kh77K
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

277卵の名無しさん2020/07/24(金) 21:29:10.19ID:9xpmk6ID
手持ちの金0のギャンブラーがいるとする。
朝起きてコインを投げて表が出たら1万円貰える。
裏が出れば1万円を払う。手元に金がないときは借金として記録される。金利はつかない。
1年間これを行って黒字であった日数を記録して精算して持ち金を0にリセットする。閏日はギャンブルなしとして
これを毎年繰り返したときの黒字の日数の分布は年数を増やすと正規分布になるか?

278卵の名無しさん2020/07/25(土) 06:32:51.87ID:Wl4jphdd
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)

279卵の名無しさん2020/07/25(土) 06:42:53.28ID:Wl4jphdd
分数表示版がようやく完成。

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)

280卵の名無しさん2020/07/25(土) 06:44:20.01ID:Wl4jphdd
コインを1000回投げて表が連続する回数の最大が10回である確率

1821758352608942392045081404980435252751028506386180152981553957955804306451779919369627290763341161624148375682827473771447204863438275322517352119276475196303665700811594413542122049315965374987419727999162516864425201176898714701858037099287917141519581989266644207027301080510161753883001018598769/10715086071862673209484250490600018105614048117055336074437503883703510511249361224931983788156958581275946729175531468251871452856923140435984577574698574803934567774824230985421074605062371141877954182153046474983581941267398767559165543946077062914571196477686542167660429831652624386837205668069376

281卵の名無しさん2020/07/25(土) 06:48:32.76ID:Wl4jphdd
コインを1億回投げて表が連続する回数の最大数を当てる賭けをするにはいくつに賭けるのが最も勝利確率が高いか?
さすがに分数表示は無理だが、その確率は 0.2493603162 とわりと高い。

282卵の名無しさん2020/07/25(土) 06:54:00.02ID:Wl4jphdd
binom(n, p) 〜 N((n+1)p -1/2, (n+1)p(1-p))

283卵の名無しさん2020/07/25(土) 08:19:35.41ID:trkp01ai
>>277
標準化するとJefferey分布になった。

284卵の名無しさん2020/07/25(土) 10:37:32.40ID:Wl4jphdd
手持ちの金0のギャンブラーがいるとする。
朝起きて1回コインを投げて表が出たら1万円貰える。
裏が出れば1万円を払う。手元に金がないときは借金として記録される。金利は0
1年(365日とする)間これを行って黒字であった日数を記録して精算して持ち金を0にリセットする。
これを毎年繰り返す。1年に300日以上黒字である確率は?

1−300/365かなという、直感に反するな。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

285卵の名無しさん2020/07/26(日) 07:15:37.17ID:XfcrZ/1x
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])

286'\n'2020/07/26(日) 07:47:12.87ID:XfcrZ/1x
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

287'\n'2020/07/26(日) 08:17:07.20ID:XfcrZ/1x
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

288卵の名無しさん2020/07/26(日) 10:40:41.64ID:sQTZfadO
'%&%' <- function(x,y) paste0(x,y)

> '√2 =' %&% sqrt(2) %&% ', π = ' %&% pi
[1] "√2 =1.4142135623731, π = 3.14159265358979"

289卵の名無しさん2020/07/26(日) 10:45:51.35ID:sQTZfadO
random <- function(n,char=c(LETTERS,letters,0:9)){
re=paste0(sample(char,n),collapse='')
cat(re,'\n')
invisible(re)
}
random()

290卵の名無しさん2020/07/26(日) 10:53:58.03ID:sQTZfadO
> 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'

エラーが出たw

291卵の名無しさん2020/07/26(日) 10:55:22.34ID:sQTZfadO
デバッグ

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

完成!

292卵の名無しさん2020/07/26(日) 11:56:28.69ID:oHGtg777
1辺の長さ1の正7角形の高さ
(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))

293卵の名無しさん2020/07/26(日) 13:06:16.71ID:oHGtg777
# 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))

294卵の名無しさん2020/07/26(日) 13:07:23.64ID:oHGtg777
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) # その外接円の半径

295卵の名無しさん2020/07/26(日) 13:18:38.40ID:oHGtg777
>>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) # その外接円の半径

296卵の名無しさん2020/07/26(日) 14:32:49.44ID:RI23naYo
nを6以上の自然数とするとき
a+b+c=n , 0<a<b<c を満たす自然数a,b,cの組(a,b,c)の個数をnの式で表すことはできますか。

297卵の名無しさん2020/07/26(日) 14:33:08.49ID:RI23naYo
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)

298卵の名無しさん2020/07/26(日) 16:05:53.17ID:RI23naYo
(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

上出来の近似

299卵の名無しさん2020/07/26(日) 16:10:00.43ID:RI23naYo
回帰式の値を四捨五入してみると

> 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まで、すべて一致している。

300卵の名無しさん2020/07/26(日) 23:18:09.03ID:sQTZfadO
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)

301卵の名無しさん2020/07/26(日) 23:18:39.18ID:sQTZfadO
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)
#

302卵の名無しさん2020/07/27(月) 06:31:58.53ID:fPL65dIy
回転正弦曲面のグラフ化

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

303卵の名無しさん2020/07/28(火) 05:10:09.62ID:aOvLDJx1
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]
}

304卵の名無しさん2020/07/28(火) 05:11:02.41ID:aOvLDJx1
三角形ABCの内部に点DをとりADとBC、BDとAC、CDとABの交点を各々E,F,Gとする。
このとき点Dをうまく選べば三角形EFGを任意の三角形に相似にすることが可能であるという命題は真か偽か?

305卵の名無しさん2020/07/28(火) 06:01:04.85ID:DTNXsFlH
# ある点が三角形の内部にあるか?

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軸の値の正負のみが必要
# 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軸で全て正か全て負かで三角形の内部と確認
}

306卵の名無しさん2020/07/28(火) 14:36:46.43ID:QfV5+v9R
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)

307卵の名無しさん2020/07/28(火) 16:08:20.74ID:dmdMNkHK
なるほどね
>>
イギリス+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)

やっぱり低学歴には何をやらせてもダメだな
他より劣っていても平気でいられる感覚が染み付いてる

308卵の名無しさん2020/07/28(火) 21:16:12.88ID:aOvLDJx1
tan(θ)*(x-x0)+y0+cos(sqrt(x^2+z0^2))=0
がxについて解けない。

309卵の名無しさん2020/07/29(水) 05:48:14.10ID:KEtlhFhM
コロナ対策で様々な設備投資をしたら、それはそれで赤字。
コロナ患者を受け入れれば受け入れるほど赤字になる、と病院関係者が訴えてるが、安倍政権はGOTOキャンペーンに躍起。

310卵の名無しさん2020/07/29(水) 07:17:57.63ID:hLJ4GQ8O
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)
}

311卵の名無しさん2020/07/29(水) 07:18:41.15ID:hLJ4GQ8O
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,' + ',' - '),'{',re[[i]],'}')
}
output=paste(paste(re1,collapse=""),ifelse(n%%2,'+','-'), re[[n]])
cat(output,'\n')
if(write) write(output,'output.txt')
invisible(output)
}

312卵の名無しさん2020/07/30(木) 00:42:57.06ID:Pwc04S3w
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)

313卵の名無しさん2020/07/30(木) 09:43:48.43ID:cu0H18iC
θ傾けたワイングラスの支柱方向に積分
回転軸をy軸にしてy=tの断面での関数
x=(t-y0)/tan(θ) + x0
z=sqrt(acos(-t)+x^2)

314卵の名無しさん2020/07/30(木) 09:56:37.86ID:cu0H18iC
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

315卵の名無しさん2020/07/30(木) 10:00:48.69ID:cu0H18iC
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)

316卵の名無しさん2020/07/30(木) 11:15:24.84ID:cu0H18iC
>>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)

317卵の名無しさん2020/07/30(木) 18:00:19.02ID:cu0H18iC
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
}
}

318卵の名無しさん2020/07/30(木) 18:39:51.79ID:Pwc04S3w
# 底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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

319卵の名無しさん2020/07/30(木) 18:40:15.47ID:Pwc04S3w
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

320卵の名無しさん2020/07/30(木) 21:24:51.71ID:Pwc04S3w
tan(θ)*(x-pi+asin(tan(θ)))+cos(asin(tan(θ)))+cos(x)=0

θは定数でxについて解く必要がある。

321卵の名無しさん2020/07/30(木) 21:34:30.35ID:Pwc04S3w
>>320
α*x + β + cos(x) = 0

α=tanθ
β=-pi*tanθ+tanθasin(tanθ) + cos(asin(tanθ))

322卵の名無しさん2020/07/30(木) 21:35:55.63ID:Pwc04S3w
α*x + β + cos(x) = 0

α=tanθ
β=-pi*tanθ+tanθasin(tanθ) + cos(asin(tanθ))

323卵の名無しさん2020/07/31(金) 07:22:59.77ID:cgKVbVqB
新型コロナウイルス対策 in 医者板 Part.13
http://2chb.net/r/hosp/1594803201/712

712 名前:卵の名無しさん[sage] 投稿日:2020/07/30(木) 22:57:30.04 ID:ym0dFMP6
このまま行くと超過死亡また増えるね
@発熱→おことわり
Aコロナ→赤字になるからやらない
B逃げられない感染指定、都立、国立→おなかいっぱいになったら崩壊
C日本全国医療機関患者激減→経営困難
D具合悪くてもコロナの恐怖で病院控える→手遅れになり死亡
E介護施設クラスター→受け入れ先無し
Fコロナによる死亡

Dが一番の恐怖でコロナより死亡が増える
Cは国が救済しないと破綻する所が出てくる
Aは一波の時さんざんな目にあった→スタッフの体勢が準備出来てません、などなど。

歌舞伎町のクラスターの時点で全自動さっさと認可して二桁多い検査と隔離してたら
こんなに経済に負担が掛からなかったのに、重傷者まだ少ないし、政府は投げやり
コロナが増える=さまざまな経済や医療やナイナス要素しかない

コロナはやっぱクラスター出たら全力で掃討しないと結局みんな損する
でも得する一部の投資家や利権などなど。

自民から民主になろうが利権は継続する糸引いてる富豪が変わらない
まあ資本主義と格差社会の象徴だな。コロナはここを突いてくる厄介な敵

324卵の名無しさん2020/07/31(金) 10:00:29.43ID:1FDa12jC
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) + 定数

325卵の名無しさん2020/07/31(金) 10:48:32.90ID:1FDa12jC
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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

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

326卵の名無しさん2020/07/31(金) 13:52:37.33ID:WoCCDCi1
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))

327卵の名無しさん2020/07/31(金) 21:07:55.86ID:L9TPsuXi
# 正方形の対角線の座標から残りの対角線の座標を返す

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

328卵の名無しさん2020/07/31(金) 21:44:10.64ID:L9TPsuXi
正方形の対角線の座標から残りの対角線の座標を返す

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

329卵の名無しさん2020/07/31(金) 23:24:19.00ID:L9TPsuXi
交点の座標を返す

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

330卵の名無しさん2020/07/31(金) 23:39:04.83ID:L9TPsuXi
# 正方形の対角線の複素座標から残りの対角線の座標を返す

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)

331卵の名無しさん2020/07/31(金) 23:41:33.86ID:L9TPsuXi
# 正方形の対角線の複素座標から残りの対角線の座標を返す

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)

332卵の名無しさん2020/08/01(土) 10:46:51.92ID:l8LrHWTF
"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が最大である。
"

333卵の名無しさん2020/08/01(土) 10:47:32.74ID:l8LrHWTF
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)))
}
}

334卵の名無しさん2020/08/01(土) 10:47:44.59ID:l8LrHWTF
# ある点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)
}

335卵の名無しさん2020/08/01(土) 10:48:17.97ID:l8LrHWTF
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]]

336卵の名無しさん2020/08/01(土) 10:48:29.86ID:l8LrHWTF
# 正方形が重なっていれば0を返す
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)

337卵の名無しさん2020/08/01(土) 10:48:52.00ID:l8LrHWTF
出来上がり

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

338卵の名無しさん2020/08/01(土) 16:46:06.72ID:J6JoOboP
# 平行なときは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]}
}

339卵の名無しさん2020/08/01(土) 17:48:24.11ID:J6JoOboP
# 交点の座標を返す
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
}
}

340卵の名無しさん2020/08/02(日) 08:44:47.26ID:iQy0Mb0r
ウォーキングで10kmの坂道を減速し続けながら登る。
走行距離に比例して速度は減速する。

時速6km/hで登り始め、時速4km/hで頂上に到着したものとする。
このとき、坂道を登るのに要した時間はいくらか?

341卵の名無しさん2020/08/02(日) 10:52:40.97ID:iQy0Mb0r
>>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)

342卵の名無しさん2020/08/02(日) 10:52:44.79ID:iQy0Mb0r
# 距離を与えて所要時間を返す
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')

343卵の名無しさん2020/08/02(日) 11:05:34.25ID:iQy0Mb0r
>>342
これ、tの方は間違えているので撤回します。
どんどん減速するから、そんなに長距離を進める筈がないw

344卵の名無しさん2020/08/02(日) 11:19:09.40ID:iQy0Mb0r
ウォーキングで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='所要時間')

345卵の名無しさん2020/08/02(日) 11:19:14.30ID:iQy0Mb0r
# 時間を与えて走行距離を返す
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')

346卵の名無しさん2020/08/02(日) 11:20:12.78ID:iQy0Mb0r
# 距離を与えて所要時間を返す
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
> t(10)
[1] 2.027326
> t(20)
[1] 5.493061
> t(25)
[1] 8.958797

> # 時間を与えて走行距離を返す
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚 >>405

> s(1)
[1] 5.438077
> s(2.027326)
[1] 10
> s(24)
[1] 29.75311

347卵の名無しさん2020/08/02(日) 13:11:42.18ID:sviBU70/
スレ主ウリュウヒロユキいうのか
ふーん
フフフフフ

348卵の名無しさん2020/08/02(日) 14:48:10.56ID:iQy0Mb0r
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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)

349卵の名無しさん2020/08/02(日) 14:48:52.99ID:iQy0Mb0r
>>347
違うけど。
俺、医科歯科卒。
あんたは?

350卵の名無しさん2020/08/02(日) 15:18:04.58ID:iQy0Mb0r
# 交点の座標を返す
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
}
}

351卵の名無しさん2020/08/02(日) 15:18:27.10ID:iQy0Mb0r
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)

352卵の名無しさん2020/08/02(日) 17:12:21.45ID:iQy0Mb0r
"
△ABCの外部に3つの正三角形△PBC,△QCA,△RABをとる(いずれの三角形も△ABC内部の領域と共通部分を持たない)。
△ABCの形状が色々変化するとき、以下のrの取りうる値の範囲を求めよ。
r = {max(AP,BQ,CR)}/(AB+BC+CA)

353卵の名無しさん2020/08/02(日) 17:12:48.46ID:iQy0Mb0r
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)

354卵の名無しさん2020/08/02(日) 17:12:58.48ID:iQy0Mb0r
# △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.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)
}

355卵の名無しさん2020/08/02(日) 17:13:20.67ID:iQy0Mb0r
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

356卵の名無しさん2020/08/02(日) 17:34:50.34ID:PU5tnH+4
>>2
今は私立も偏差値が高いですがw

357卵の名無しさん2020/08/02(日) 17:47:29.54ID:iQy0Mb0r
>>352
動作確認してみた。

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

358卵の名無しさん2020/08/02(日) 17:48:36.72ID:iQy0Mb0r
>>356
これをいつまで経っても答がだせない、アホだらけだよ。

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

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

359卵の名無しさん2020/08/02(日) 20:51:29.82ID:C3BluAlB
>>349
フフ、私立だがバッチリ医学科
出てるぞ
歯科は医者ではなーい!
ハハハハ

360卵の名無しさん2020/08/03(月) 00:06:41.69ID:ytVe6HxS
>>359
>358に答えてみ!
できなきゃ裏口認定

361卵の名無しさん2020/08/03(月) 07:20:43.28ID:PpobZQKf
# 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)
}

362卵の名無しさん2020/08/03(月) 08:24:28.60ID:PpobZQKf
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)

363卵の名無しさん2020/08/03(月) 18:35:40.28ID:wO7yKm98
我々底辺私立卒医こそ大正義

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

でも底辺私立卒医と言っても
早慶非医学部より難関だけどなw

364卵の名無しさん2020/08/03(月) 18:45:51.03ID:15DQBE5r
ワイングラスの形状が円錐面とする。
グラス底での角度2θは120°する。(θ=60°)
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
これを傾けて満杯のワインを半分にするには何度傾ければよいか?
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

cos(θ+α)/cos(θ-α)= 4^(-1/3)

365卵の名無しさん2020/08/03(月) 19:24:39.12ID:Tabwz5bT
>>363
早稲田の理工と川崎医って川崎医の方が難しいの?

366卵の名無しさん2020/08/04(火) 04:25:09.66ID:B3l71IL2
>>364
α = acos(sqrt(sin^2(θ) - cos^2(θ) + 2^(1/3) + 1)/sqrt(2))

367卵の名無しさん2020/08/04(火) 04:30:54.14ID:B3l71IL2
>>365
早稲田の理工なら>364を解けるが川崎だと無理だろう。
あんたにも無理だろうから>358でも答えてみ!

368卵の名無しさん2020/08/04(火) 05:33:23.06ID:HLPeZtWd

369卵の名無しさん2020/08/04(火) 05:36:49.28ID:oQGWkiq6

370卵の名無しさん2020/08/04(火) 05:37:01.92ID:kPaGPC8z

371卵の名無しさん2020/08/04(火) 05:37:13.31ID:HLPeZtWd
solve cos(θ+x)=p^(2/3)*cos(θ-x) for x where θ=pi/3 and p=0.5 and 0<x<pi/2

372卵の名無しさん2020/08/04(火) 06:00:43.54ID:HLPeZtWd
円錐の展開図を描いて、その側面部に円を描きます。この展開図を組み立てて円錐としたとき、側面の円はどのような図形になるのでしょうか。

373卵の名無しさん2020/08/04(火) 18:07:21.09ID:lahyJk2n
>>367
降参です。理解できません。

374卵の名無しさん2020/08/04(火) 19:18:34.52ID:kPaGPC8z
>>372>>971
グラフ化してみました。割と大変だったな。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

375卵の名無しさん2020/08/04(火) 19:19:10.24ID:kPaGPC8z
プログラムができたから
蚊取り線香を円錐側面に載せてみました。

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

376卵の名無しさん2020/08/04(火) 20:00:42.04ID:SiNiiw+2
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
}

377卵の名無しさん2020/08/04(火) 20:02:15.74ID:SiNiiw+2
> tilt(pi/3)*180/pi
[1] 7.466948
約7.5°だな。

378卵の名無しさん2020/08/04(火) 22:00:54.11ID:lahyJk2n
>>358
普通は風俗に通うだろ。

379卵の名無しさん2020/08/05(水) 08:19:28.51ID:vZG88Q7w
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)')

380卵の名無しさん2020/08/05(水) 08:19:32.99ID:vZG88Q7w
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')
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()

381卵の名無しさん2020/08/05(水) 08:20:13.02ID:vZG88Q7w
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

382卵の名無しさん2020/08/05(水) 10:08:32.23ID:HCtqwRw4
r’=sqrt(p^2+q^2) β/pi
γ=θpi/β
x=r'sin(γ)
y=√()cos(β)
z= √()+r'-r'cos(θpi/β)

383卵の名無しさん2020/08/05(水) 10:11:18.41ID:HCtqwRw4
β=pi*sin(α)
α=asin(β/pi)
r=β/pi

384卵の名無しさん2020/08/05(水) 10:27:15.67ID:HCtqwRw4
>>382
A(p,q):展開図上の座標
tan(θ)=q/p , θ=atan(q/p)
r':Aの円錐上で点A’を通る円Cの半径
γ:x=0面と、A'と円Cの中心を結ぶ線とAの角度

385卵の名無しさん2020/08/05(水) 10:36:59.46ID:GjPpIH0y
>>384
θ=atan(p/q)だな

386卵の名無しさん2020/08/05(水) 10:49:02.60ID:GjPpIH0y
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)
}

387卵の名無しさん2020/08/05(水) 16:08:18.82ID:vZG88Q7w
oncone <- function(p,q,α=pi/6){ # (p,q) 展開図上の座標、頂点の角度=2α
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)

388卵の名無しさん2020/08/05(水) 16:09:58.24ID:vZG88Q7w

389卵の名無しさん2020/08/05(水) 16:20:01.51ID:ROroepFL
>>378
頭が悪いのを金で補うのが普通だってw
さては売らシリツ医だな。

390卵の名無しさん2020/08/06(木) 06:35:06.32ID:1+RzuAJZ
展開図のどこに円を置くかで変わってくるな。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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


391卵の名無しさん2020/08/06(木) 07:03:23.13ID:1+RzuAJZ
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

392卵の名無しさん2020/08/06(木) 08:41:39.49ID:Vf3ylEcs
母線の長さが1、円錐角(母線と軸のなす角)がθの円錐側面の展開図を頂点を原点にy軸に対称に置く。円錐底面の円は考えない。
展開図上の点Aの座標を(p,q)とすると展開図を円錐化したときのAの三次元座標をp,q,θで表わせ。

393卵の名無しさん2020/08/06(木) 08:42:17.72ID:Vf3ylEcs
>>378
発想が裏口シリツ医そのものだな

394卵の名無しさん2020/08/06(木) 10:53:43.82ID:YPzmx6MX
( x, y ) → √(x*x+y*y) * ( sinΘ*cos(atan2(y, x) /sinΘ), r*sinΘ*sin(atan2(y, x) /sinΘ), cosΘ )

395卵の名無しさん2020/08/06(木) 14:31:01.10ID:i90ZSgWD
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

396卵の名無しさん2020/08/06(木) 22:51:53.59ID:1+RzuAJZ
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))

397卵の名無しさん2020/08/06(木) 22:57:19.88ID:1+RzuAJZ
>>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(α)))

398卵の名無しさん2020/08/07(金) 07:20:47.47ID:Un6cahih
# 円錐角から展開図を表示
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)

399卵の名無しさん2020/08/08(土) 00:48:30.12ID:58p97i51
底辺リシツ医師は問題外だが

自治医大卒の尾身をなんとかみんなでどうにかしてくれ〜

400卵の名無しさん2020/08/08(土) 05:49:15.88ID:7Ekoauz2
PCR増えないね
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

401卵の名無しさん2020/08/08(土) 05:55:33.74ID:7Ekoauz2
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)

402卵の名無しさん2020/08/08(土) 07:09:43.40ID:7Ekoauz2
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)

403卵の名無しさん2020/08/08(土) 08:43:35.10ID:r0iXFBTE
アベがベトナム移民を連れてきた
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

404卵の名無しさん2020/08/08(土) 10:52:25.65ID:ermgG03e
>>386
x=rdashでいい

405卵の名無しさん2020/08/08(土) 10:54:21.20ID:ermgG03e
>>404
y=rdash/tan(α)

406卵の名無しさん2020/08/08(土) 10:56:20.12ID:ermgG03e
z=rdash(1-cos(γ))
γ= ガンマ

407卵の名無しさん2020/08/08(土) 11:17:40.08ID:ermgG03e
x=√(p^2+q^2)sin(α)
y=rdash/tan(α)=√(p^2+q^2)sin(α)tan(α)

408卵の名無しさん2020/08/08(土) 11:23:00.03ID:ermgG03e
gamma=atan(p/q)/sin(alpha)

√(p^2+q^2)sin(alpha)(1-cos(atan(p/q)/sin(alpha))

409卵の名無しさん2020/08/08(土) 11:23:51.15ID:ermgG03e
z=√(p^2+q^2)sin(α)(1-cos(atan(p/q)/sin(α))

410卵の名無しさん2020/08/08(土) 18:37:12.07ID:Fonqs1WQ
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')

411卵の名無しさん2020/08/08(土) 18:37:25.28ID:Fonqs1WQ
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=πr' 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(α) = (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)

412卵の名無しさん2020/08/08(土) 18:37:29.83ID:Fonqs1WQ
oncone <- function(p,q,α=40*pi/180){ # (p,q) 展開図上の座標、頂点の角度=2α
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)

413卵の名無しさん2020/08/08(土) 18:37:46.52ID:Fonqs1WQ
oncone <- function(p,q,α=40*pi/180){ # (p,q) 展開図上の座標、頂点の角度=2α
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)
}

414卵の名無しさん2020/08/08(土) 20:21:06.61ID:Fonqs1WQ
ド底辺シリツ医には解けないであろう問題。

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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

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)

415卵の名無しさん2020/08/08(土) 20:21:11.34ID:Fonqs1WQ
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)

416卵の名無しさん2020/08/08(土) 20:40:27.27ID:Fonqs1WQ
>>413
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

atanだと返り値が-pi/2,pi/2なのでうまくいかなかった。
偏角を返すArgにしてようやくデバッグできた。

417卵の名無しさん2020/08/09(日) 01:00:48.12ID:adohTave
x = (a^2 - b^2 + c^2)/(2 a),
y = sqrt(c^2 - (a^2 - b^2 + c^2)^2/(4 a^2))

418卵の名無しさん2020/08/09(日) 01:01:36.21ID:adohTave
x^2+y^2=c^2, (x-a)^2+y^2=b^2

419卵の名無しさん2020/08/09(日) 06:58:14.10ID:MrezVQaF
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

420卵の名無しさん2020/08/09(日) 08:18:10.60ID:adohTave
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

421卵の名無しさん2020/08/09(日) 08:43:27.63ID:MrezVQaF
、遅れて重症者に勢いついてきた・・・
ダウンロード&関連動画>>

@YouTube


【8/9(日) 0時現在】動くチャートでみる日本の感染拡大の軌跡

422卵の名無しさん2020/08/09(日) 09:32:27.71ID:MrezVQaF
売国してんのは他ならぬ自称保守層(笑)だからな
IR汚職で中国から献金貰って逮捕されたのは靖国にも参拝する自民議員と維新だろ
竹島の日削除したのも自民党
北方領土献上したのも自民党
尖閣諸島で何もしないのも自民党

423卵の名無しさん2020/08/09(日) 15:57:28.43ID:MrezVQaF
# 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)

424卵の名無しさん2020/08/09(日) 16:03:56.98ID:MrezVQaF
50ペンス硬貨の輪郭

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

425卵の名無しさん2020/08/09(日) 16:10:13.98ID:MrezVQaF
HK
2:18 / 2:34
Prince Rupert’s cube live demonstration
ダウンロード&関連動画>>

@YouTube


426卵の名無しさん2020/08/09(日) 16:11:59.40ID:MrezVQaF

427卵の名無しさん2020/08/09(日) 21:58:13.15ID:nZS47/5e
>>414
清書

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

428卵の名無しさん2020/08/10(月) 17:01:12.18ID:hbIPQYoI
これが医師国家試験問題とは! 単なる比例計算。中学入試より易しい。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

中学入試
Xの角度は?(立体ではなくて平面図)
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

ド底辺シリツ医のこれが現実
1次方程式もできないド底辺シリツ医大卒の記録
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚


実際、算数の掛け算すら怪しいシリツ医がこういう事故を起こしている。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

429卵の名無しさん2020/08/10(月) 19:52:18.35ID:v42Q8Nti
カージオイドの面積だけなら、極形式のままでモンテカルロで計算できる。

# 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

430卵の名無しさん2020/08/11(火) 11:46:40.92ID:HbOL/zrf
ゆるゆるになったハサミを一発で直す方法

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

こんど懇意な女医にもやってみよう。

431卵の名無しさん2020/08/11(火) 18:23:17.98ID:CemoEfFW
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
}

432卵の名無しさん2020/08/11(火) 21:25:38.81ID:S1UttbZ6
関西医科

433卵の名無しさん2020/08/12(水) 06:44:11.98ID:VN6SxAqD
ジュースディスペンサー
例 底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
に100%天然果汁が10L入っていて常に撹拌されている。
すなわち、濃度はいつも均一とする設定。

コックにトラブルがあって1分間に10mLずつ漏れている。
それを補うために1分間に10mLの天然水を補っているとする。
50%天然果汁のジュースになるのは何分後か?


(1-0.001*t)^n=0.5
lim[t→0] t*log(0.5)/log(1-0.001t)

434卵の名無しさん2020/08/12(水) 09:55:50.82ID:wqXElAn2
補充が5mLで1分毎に間欠的行われるとすると

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

435卵の名無しさん2020/08/12(水) 11:16:47.52ID:KAV/NFrL
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

436卵の名無しさん2020/08/12(水) 11:18:02.64ID:KAV/NFrL
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

437卵の名無しさん2020/08/12(水) 11:18:34.93ID:D0LlG3yP
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

438卵の名無しさん2020/08/12(水) 13:57:38.70ID:6PNOPM0M
これみてこんな問題を思いついた。

カージオイドr=1+cosθ
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
で囲まれた面をy軸の周りに回転させてできる立体の体積を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

439卵の名無しさん2020/08/12(水) 15:51:43.51ID:VN6SxAqD
1分毎に間欠的に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)

440卵の名無しさん2020/08/12(水) 15:55:28.69ID:6PNOPM0M
1分毎に間欠的に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))

441卵の名無しさん2020/08/12(水) 18:53:29.40ID:NAeP5dUm
ヤラセの質疑応答の原稿を晒してしまっている。

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

442卵の名無しさん2020/08/12(水) 18:59:33.44ID:5KbzYiPc
ジュースディスペンサー
例 底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
に100%天然果汁が10L入っていて常に撹拌されている。
すなわち、濃度はいつも均一。

コックにトラブルがあって1分間に10mLずつジュースが漏れている。
それを補うために1分毎に間欠的に5mLの天然水を補っているとする。
50%天然果汁のジュースになるのは何分後か?そのときのジュースの総量は?

443卵の名無しさん2020/08/12(水) 19:00:34.14ID:5KbzYiPc
ジュースディスペンサー
例 底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
に100%天然果汁が10L入っていて常に撹拌されている。
すなわち、濃度はいつも均一。

コックにトラブルがあって1分間に10mLずつジュースが漏れている。
それを補うために1分毎に間欠的に5mLの天然水を補っているとする。
50%天然果汁のジュースになるのは何分後か?そのときのジュースの総量は?

444卵の名無しさん2020/08/12(水) 20:51:24.70ID:QYu4Ga5v
とりあえず、作図(n=3)のとき。
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

445卵の名無しさん2020/08/12(水) 21:10:36.03ID:QYu4Ga5v
#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)

446卵の名無しさん2020/08/13(木) 07:39:16.07ID:g+JSHuvd
世界の平均年収(円)
1995年→2005年→2015年

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

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

この25年間以上、世界中で貧しくなったのは、【日本だけ】
小泉・竹中が築き上げた非正規雇用天国の日本は、貧困層激増し、これからも未婚率&少子化は大促進する

447卵の名無しさん2020/08/13(木) 07:44:57.49ID:g+JSHuvd
「高収入」が「1000万円以上」とされてたのはバブルの頃既に。
それから40年たっても未だに高収入が1000万円以上。
一方、諸外国では順調に給料をのばしたので、日本人の給料が
どんどん安い側に落ちてきている。
典型的なのが自動車で、昔は600万円程度だったクルマが今は
千何百万円とかになってるが日本人の給料はほとんど変わらないので
もの凄い高嶺の花になってしまった。昔は200万円程度だった日本車が
今は3百数十万くらいで「高くて買えない」になってる。

448卵の名無しさん2020/08/13(木) 17:56:09.00ID:OP0ThbHs
熊に襲われて死ぬのは年間1人か2人だから、熊の対策なんていらないな。
暴力団の抗争に巻き込まれて死ぬ人も数人出ればいいとこだし、特に問題ない。
地下鉄サリン事件での死者は14人くらいだから。

安心して経済活動を行ってくれればいい

449卵の名無しさん2020/08/14(金) 05:13:20.04ID:XrAeYcww
ミンス時代と違って幸せで穏やかで平和な日々が続いて心からウレシイ
じっさい、安倍政権になってから
めだって大きな災害は減り続けて最近は、疫病の流行もほぼゼロだよね
なんども来てた台風はなかなか来ないし水害も地震もミンス時代と違ってそんなに起きてない
あの東日本大震災は、自民党を裏切った国民に対して天が下した罰だったんだよ
ベタだけど「安倍総理のもとコロナに立ち向かう嬉しさよ、日本に生まれて良かった!」

450卵の名無しさん2020/08/14(金) 09:54:21.96ID:2IguuApe
sqrt(1+sqrt(2+sqrt(3+sqrt(4+...

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

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

sqrtseq <− function(n){ # 3 −> Wsqrt(1+sqrt(2+sqrt(3)))W
  V%&%V <− function(x,y) paste0(x,y)
  s = vector(VlistV)
  s[[1]] = Wsqrt(1)W
  if(n==1) return(s[[1]])
  for(i in 2:n){
    nc = nchar(s[[i−1]])
    end_s=paste0(rep(V)V,i),collapse=VV)
    s[[i]]=substr(s[[i−1]],1,nc−i+1) %&% W+sqrt(W %&% i %&% end_s
  }
  return(s[[n]])

sqrtseq(50)

> sqrtseq(50)
[1] Wsqrt(1+sqrt(2+sqrt(3+sqrt(4+sqrt(5+sqrt(6+sqrt(7+sqrt(8+sqrt(9+sqrt(10+sqrt(11+sqrt(12+sqrt(13+sqrt(14+sqrt(15+sqrt(16+sqrt(17+sqrt(18+sqrt(19+sqrt(20+sqrt(21+sqrt(22+sqrt(23+sqrt(24+sqrt(25+sqrt(26+sqrt(27+sqrt(28+sqrt(29+sqrt(30+sqrt(31+sqrt(32+sqrt(33+sqrt(34+sqrt(35+sqrt(36+sqrt(37+sqrt(38+sqrt(39+sqrt(40+sqrt(41+sqrt(42+sqrt(43+sqrt(44+sqrt(45+sqrt(46+sqrt(47+sqrt(48+sqrt(49+sqrt(50))))))))))))))))))))))))))))))))))))))))))))))))))W

451卵の名無しさん2020/08/14(金) 18:04:53.99ID:2IguuApe
"
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
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),
)

452卵の名無しさん2020/08/14(金) 18:06:31.46ID:2IguuApe
今月号の数学セミナー

*感染症数理モデル元年に機構と外挿の狭間に立つ……西浦 博 8
*感染症数理モデル入門/SIRコンパートメントモデルと
 基本再生産数……小林鉄郎・西浦 博 14
*集団免疫論を超えて……稲葉 寿 19
*国内の流行初期のデータによる予測とその評価……國谷紀良 26
*大規模流行の発生確率にまつわる数理……安齋麻美・西浦 博 30
*新型コロナウイルスの生体内感染動態の定量化とその応用/
 数理科学で挑む新型コロナウイルス感染症治療の確立
  ……岩波翔也・キム・クァンス・藤田泰久・江島啓介・岩見真吾 33
*感染症流行の収束にまつわる数理……ナタリー・リントン・西浦 博 40

453卵の名無しさん2020/08/16(日) 11:23:25.24ID:BPJ6HFJ4
そりゃ安倍売国奴が7年も居座るような国ですから
日本国民の多くは安倍の異常性に気付くの遅過ぎ
野党ガーパヨクガーで思考停止してきた罰だわ

454卵の名無しさん2020/08/16(日) 13:39:55.07ID:rHNnv/+o

455卵の名無しさん2020/08/16(日) 18:30:52.54ID:dWI2FauU
低学歴総理の日本モデル
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

456卵の名無しさん2020/08/17(月) 07:54:58.88ID:9K8MUr58

457卵の名無しさん2020/08/17(月) 12:34:02.20ID:v42vnrN1
デマサポ「円高放置ガー」

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

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

>件数が過去20年間で最少の1万2,124件 円滑化法などの金融支援で抑制続く

458卵の名無しさん2020/08/17(月) 16:58:10.50ID:xC7zRVs6
経済馬鹿用語

1.財政ファイナンス(そんな言葉ねぇよw)
2.ハイパーインフレ(年間で7京円以上の物やサービスが買われないとならないよw)
3.インフレ制御不能(30年以上制御したくも無いのに制御出来ている国がある)
4.預金封鎖(憲法違反ですw)
5.国の借金(単なる貨幣供給量。返している国など無い。日本は少なすぎて不況)

459卵の名無しさん2020/08/17(月) 19:19:08.89ID:GwXgz2RM
Na <- 6.0022*10^23 # アボガドロ数
TCs134 <- 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)
}

460卵の名無しさん2020/08/17(月) 20:39:29.73ID:GwXgz2RM
#原子数=放射能/崩壊定数=放射能/(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

461卵の名無しさん2020/08/17(月) 23:14:43.81ID:v42vnrN1
&#62775;GoTo初日(7月22日)
 東京・銀座のステーキ店「銀座ひらやま」
 自民党の二階俊博幹事長らと会食。

@首相動静(7月23日)
 午前中は来客なく、私邸で過ごす。
 午後も来客なく、私邸で過ごす。

A首相動静(7月24日)
 午前中は来客なく、私邸で過ごす。
 午後6時から同1分、報道インタビュー
「国民は予防を徹底しろ」

B首相動静(7月25日)
 午前中は来客なく、私邸で過ごす。
 午後も来客なく、私邸で過ごす。

C首相動静(7月26日)
 午前中は来客なく、私邸で過ごす。
 午後も来客なく、私邸で過ごす。

7/30 医師会オコ会見「コロナに夏休みは無い&#62626;&#63008;」
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

462卵の名無しさん2020/08/18(火) 08:09:19.59ID:3Xg2dDMj

463卵の名無しさん2020/08/18(火) 08:57:04.58ID:ONcJFdfp
米国債を売ろうした中川財務大臣はアメリカに抹殺された。
例の泥酔会見の直前、中川さんのワイングラスに薬を入れた実行犯も
正真正銘のCIAスパイ正力松太郎が作った読売新聞・日本テレビの記者「越前谷知子」「原聡子」と特定されてる。

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

ちなみに歴代首相で唯一、アメリカからの命令書(年次改革要望書)の受け取りを拒否した鳩山由紀夫元首相も
この直後からホワイトハウスからルーピー呼ばわりされ、電通CIA傘下のマスゴミもそれに追随、何の落ち度もないまま辞任に追い込まれた。

464卵の名無しさん2020/08/20(木) 06:22:23.22ID:fG30J4pR
都合が悪い時は
 
定義を変える
解釈を変える
受け手側が勝手に勘違いした事にする
知らなかった事にする
想定外だった事にする
報告書を受け取らない
改竄する
隠蔽する
破棄した事にする
まわりが勝手に忖度した事にする
担当者が間違えた事にする
 
美しい国

465卵の名無しさん2020/08/20(木) 06:24:38.98ID:fG30J4pR
感染者で「コロナはただの風邪」と言ってる奴がいない以上、感染してもない奴がただの風邪と泣き喚いたって何の説得力もない
だから自分が感染者になって証明するしかねーんだよ。
ただの風邪なら、かかったらところでリスクは低いんだからさぁ

466卵の名無しさん2020/08/20(木) 06:37:33.25ID:fG30J4pR
鳩山のアメリカと中国でバランス取る外交は
日本の国益や防衛という意味でも別に悪くは無いと思うんだ
もう中国潰すなんて無理だし付き合うしか無いからな

467卵の名無しさん2020/08/20(木) 07:14:27.36ID:fG30J4pR

468卵の名無しさん2020/08/20(木) 10:47:34.09ID:ZKXOlZfB
>>466
尖閣を盗もうとしてる侵略国家とまともに付き合うのは無理。

469卵の名無しさん2020/08/20(木) 12:58:33.18ID:fG30J4pR
Package ‘XXX’ was installed before R 4.0.0: please re-install it


.libPaths()
update.packages(ask=FALSE, checkBuilt=TRUE)

470卵の名無しさん2020/08/20(木) 13:23:46.04ID:fG30J4pR
>>468
満州を奪おうとした日本もそう思わrているだろうよ。

471卵の名無しさん2020/08/20(木) 13:24:38.80ID:fG30J4pR
まあ、元寇の損害賠償を!とか言い出せば面白いとは思うけど。

472卵の名無しさん2020/08/20(木) 20:19:59.40ID:YbZyLutx
関西医科
ヤブ、ボッタクリ、反日朝鮮人の三拍子

473卵の名無しさん2020/08/20(木) 23:57:16.71ID:fG30J4pR
>>827
貼れと言われた気がするんで貼っておきますね
これが安倍内閣の功績


底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

474卵の名無しさん2020/08/21(金) 00:11:28.71ID:NIR9ZE7+
経済回せって
コロナ感染者が余計に増えて経済どん底。
残念ながら感染対策が最も有効な経済政策だとわからないアホの国が日本。
それを理解した中国は大量検査で制圧しているみたいだな。

475卵の名無しさん2020/08/21(金) 02:24:55.10ID:VA1y5WE8
>>473
人のブログなんて糞にもならないソースで偉そうに笑

476卵の名無しさん2020/08/21(金) 06:08:31.20ID:NIR9ZE7+
>>475
政府なんぞ専門家という匿名ソースだぞ。

477卵の名無しさん2020/08/21(金) 15:37:30.07ID:NIR9ZE7+
防護服着ての検査はくたびれる。

478卵の名無しさん2020/08/22(土) 06:56:13.67ID:d8M92xSQ
# 問題「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)

479卵の名無しさん2020/08/22(土) 07:22:49.47ID:d8M92xSQ
πの近似分数として
 22/7= 3.142857
 355/113= 3.141593
が知られている。

355/113より大きく22/7より小さい分数で、分母がいちばん小さい分数は何か?

480卵の名無しさん2020/08/22(土) 07:25:42.58ID:d8M92xSQ
仮分数でも計算できるように修正

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

481卵の名無しさん2020/08/22(土) 07:30:48.96ID:d8M92xSQ
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)

482卵の名無しさん2020/08/23(日) 07:44:08.78ID:wPcVG3NC
現実は民主党政権は92年以降、倒産件数最小です。

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

>件数が過去20年間で最少の1万2,124件 円滑化法などの金融支援で抑制続く

483卵の名無しさん2020/08/23(日) 08:13:08.66ID:wPcVG3NC
コロナはただ風邪という人は唾をかけられても平気なのか?

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

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

484卵の名無しさん2020/08/23(日) 08:19:20.34ID:wPcVG3NC
経済回せって
コロナ感染者が余計に増えて経済どん底。
残念ながら感染対策が最も有効な経済政策だとわからないアホの安倍がリーダーの国が日本。
感染対策こそが経済政策と理解した中国は大量検査で制圧しているみたいだな。

485卵の名無しさん2020/08/23(日) 10:10:13.42ID:f4yg9Qq8
# サイコロ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

486卵の名無しさん2020/08/23(日) 11:36:45.32ID:orYNoZE9
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)

487卵の名無しさん2020/08/23(日) 11:39:40.50ID:orYNoZE9
>>486
サイコロ10回振って目の合計を当てる賭けをするときいくつにかけるのが最も有利か?
サイコロ100回振って目の合計が300未満の確率はおよそいくらか?正規分布表を使ってよい。

488卵の名無しさん2020/08/23(日) 12:57:54.21ID:GvqXjXvG
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)

489卵の名無しさん2020/08/23(日) 12:57:57.81ID:GvqXjXvG
#
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)

490卵の名無しさん2020/08/23(日) 13:07:52.53ID:GvqXjXvG
コロナはただ風邪という人は唾をかけられても平気なのか?

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

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


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

感染対策こそが経済政策と理解した中国は大量検査で制圧して経済復活しているようだな。

491卵の名無しさん2020/08/23(日) 13:24:31.24ID:r+MJ1zyN
サヨクの最終目標・・・移住・移民が自由にできる世界
安倍晋三・・・移民を受け入れる政策実施
サヨクの悲願を実現したということはサヨクのヒーローだから
ようは, 安倍=パヨク=ネトウヨ
ネットはパヨク内のネトウヨ派とパヨク派の内ゲバ.

492卵の名無しさん2020/08/23(日) 15:26:12.70ID:UqMNAXmY
仮病演技と憔悴アピールを用いるという情けない首相、
子供がズル休みしたい時、前もって体調悪いアピールをやり出しますよね。それと同じ気がしますよね

493卵の名無しさん2020/08/23(日) 16:04:31.34ID:UqMNAXmY
西村大臣、黒塗り速記録の理由説明 「公表望まない人がいる」
ダウンロード&関連動画>>

@YouTube



国の対コロナ政策をほぼ決めるような場で個人攻撃されるような話する方がおかしい。

494卵の名無しさん2020/08/23(日) 16:16:55.63ID:Fx6FhU/l
コピペだがなるほどと思った

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

正直、それで通ってしまう世の中
休んだ不利益だけおっかぶせて、組織は責任を取らないという風潮
<<

495卵の名無しさん2020/08/23(日) 16:49:18.45ID:Fx6FhU/l
不安な人は手軽に検査を受けられるようにして
陰性なら安心して旅行や帰省もできる、
陽性ならば不安なく仕事を休んで療養できる社会を作った国が勝者だろうね。
ケンサーズとか言っているような日本が負け組になるのは必至だな。

496卵の名無しさん2020/08/23(日) 20:08:48.02ID:orYNoZE9
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

497卵の名無しさん2020/08/23(日) 20:39:51.59ID:orYNoZE9
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()))

498卵の名無しさん2020/08/23(日) 20:40:53.60ID:orYNoZE9
>>497
10回程度では正規分布での近似はあてはまりがよくないな。
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)

499卵の名無しさん2020/08/23(日) 21:33:15.55ID:UqMNAXmY
>>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

500卵の名無しさん2020/08/23(日) 22:49:36.14ID:hJuNMaf+
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)

501卵の名無しさん2020/08/23(日) 22:59:24.56ID:Mvyrw/O5
# サイコロを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)

502卵の名無しさん2020/08/23(日) 23:25:28.73ID:orYNoZE9
>>501
グラフ化

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

503卵の名無しさん2020/08/23(日) 23:30:43.60ID:orYNoZE9
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

504卵の名無しさん2020/08/23(日) 23:30:49.44ID:orYNoZE9
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

505卵の名無しさん2020/08/24(月) 17:20:52.38ID:URaqF45j
>>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

506卵の名無しさん2020/08/25(火) 08:59:41.36ID:55jOBv3Y
Vectorにfreewareをアップロードしていると秀丸エディターを無料で使える特典がもらえたが当時はVzやWzを使っていたから、
アイコンのダサさがいやで使ってなかった。
Resource Hacker
http://www.angusj.com/resourcehacker/
を使ってアイコンデータを書き換えても使えた。
起動時にCRCやハッシュ値は照合していないようだ。

半角→全角の変換もできてまあ、便利だな。

507卵の名無しさん2020/08/25(火) 09:25:14.36ID:55jOBv3Y
「安倍首相 体調不良説」に見るデジャヴ

ダウンロード&関連動画>>

@YouTube


508卵の名無しさん2020/08/25(火) 10:33:05.38ID:55jOBv3Y
薄型のノートってHDD交換とか手順が面倒だな。
ダウンロード&関連動画>>

@YouTube


持ち出すことはまずなくて省スペース目的でのノートなら、厚手でバッテリー交換もねじ回しなしでやれる機種が楽だな。
買ってから気づいた。

509卵の名無しさん2020/08/25(火) 12:34:05.27ID:55jOBv3Y
powershell

Start-Process powershell.exe -Verb runas

reagentc /info

510卵の名無しさん2020/08/25(火) 20:49:14.60ID:55jOBv3Y
安倍政権は病気をたてにメディアを利用して騒がせて表に出ないようにして居るずるい政権

511卵の名無しさん2020/08/25(火) 20:51:54.35ID:55jOBv3Y
なんで最長政権になったか。

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

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

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

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

ただの自己承認欲求が強いだけのガキだよ。

512卵の名無しさん2020/08/25(火) 20:54:16.99ID:55jOBv3Y
仮病演技と憔悴アピールを用いるという情けない首相
その安倍政権の雰囲気作りにまんまと乗せられるメディア

513卵の名無しさん2020/08/25(火) 21:12:44.68ID:55jOBv3Y
騙す、ごまかす、逃げまくる

514卵の名無しさん2020/08/26(水) 05:20:39.52ID:aO7Vmvet
もうね、以前のようなインバウンドの幻影から目を覚ましたほうがいいよ 当分、旅館ホテルは無理だから 潰れるとこは潰れて淘汰されるよ で、潰れた処を中国資本が安く買って時を同じくして馬鹿政府が中国からの観光客の入国制限を緩和するシナリオだろ? 所詮、中国贔屓の2Fの利権 分かり易いなw

515卵の名無しさん2020/08/26(水) 16:46:59.85ID:o1bYIlyP
Exp <- function(x,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)

516卵の名無しさん2020/08/27(木) 00:34:38.57ID:Ytl6k6xz
私立医大!私立医大!って自分で言ってた同じ医学部のブス彼女持ちの浮気男がいたな。
自分でイケメンと謳っていたが残念だったわ。
ちなみに、私立底辺医大と自分で豪語していたが底辺という文字が抜けていた。
面白い人がいるもんだね。

517卵の名無しさん2020/08/27(木) 10:00:41.93ID:QadIsEqW
witoutコロナで三密で生産できるのが中国。
withコロナで三密を避けて生産する日本。
どちらが生産性がよいかは自明だと思う。

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

すべては安倍の採った政策。

518卵の名無しさん2020/08/27(木) 10:43:48.42ID:QadIsEqW
イギリスのジョンソン首相は感染して回復したけど
そこそこ症状重くて苦しかったから
それ以降コロナを舐めた発言はしてないんだよな

アホ層は自分が苦しい経験をしないと学習しない。

519卵の名無しさん2020/08/27(木) 12:33:51.40ID:Di2rth9n
withoutコロナで三密で生産できるのが中国。
withコロナで三密を避けて生産する日本。
どちらが生産性がよいかは自明だと思う。

春節ウェルカムで疫病輸入して再入国規制もせずに強毒株も追加輸入、そして今はGOTOで全国に拡散。すべては安倍の採った愚策。

520卵の名無しさん2020/08/27(木) 22:48:34.57ID:vvigFVXt
潰瘍性大腸炎患者の食事w

キムチ・マッコリ・ホルモン
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

タバスコ
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

521卵の名無しさん2020/08/28(金) 07:29:57.04ID:I97SIklY
安倍総理大臣になってから
・過去最低の少子化を達成
・史上最悪のGDP成長率
・日本の憲政史上、最も実質賃金を引き下げた
・日本の憲政史上、最も実質消費を引き下げた
・日本の憲政史上、最も少子化を進め、人口を減らした

522卵の名無しさん2020/08/28(金) 14:59:24.20ID:q/b6Mbgi
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

523卵の名無しさん2020/08/28(金) 15:11:01.11ID:I97SIklY
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

524卵の名無しさん2020/08/28(金) 21:18:58.05ID:I97SIklY
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())

525卵の名無しさん2020/08/29(土) 07:26:33.86ID:qY0Chl6J
安倍って詐病じゃないのか?
数々の虚言と不節制な食事をみると詐病の疑いが払拭できない。


自称潰瘍性大腸炎患者の食事
マッコリ・ホルモン
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
タバスコ
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

虚言のほんの一例
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

詐病じゃなければ
「安倍しかいない」と、ストレスで悪化する難病を抱える人に重責を押し付けてきた自民党は人権無視の政党ということになる。

526卵の名無しさん2020/08/29(土) 11:15:41.20ID:zyqCNNbV
安倍「持病が悪化したので総理大臣辞めます。(二回目」
英霊「国家国民の為ならば死にます。」

527卵の名無しさん2020/08/29(土) 14:10:03.48ID:qY0Chl6J
首相は自身の体調について、6月の検診で持病再発の兆候が見られ、7月に異変を感じるようになったと説明。

首相動静 会食 6月分
●6月19日 虎ノ門「ザ ダヴァン&ラウンジ」麻生、菅、甘利
●6月20日 永田町 レストラン「ORIGAMI」秘書官と食事
●6月22日 千代田区日本料理店「和田倉」細田元幹事長と
●6月24日 赤坂日本料理店「たい家」二階氏、林幹雄氏
●6月29日 永田町日本料理店「水簾」

首相動静 会食記録 7月分
●7月3日 日本料理店「もりかわ」JR東海葛西氏、北村氏
●7月21日 松濤仏料理店「シェ松尾」首相補佐官、外務審議官、秘書官
●7月22日 銀座ステーキ店「銀座ひらやま」二階幹事長、林幹雄氏、王貞治氏、杉良太郎氏他
●7月30日 丸の内日本料理店「和田倉」岸田氏と会食

528卵の名無しさん2020/08/29(土) 14:50:44.16ID:qY0Chl6J
そんなに悪いなら谷垣さんみたく議員も辞めてリハビリや療養に専念すべしよね

529卵の名無しさん2020/08/29(土) 21:33:46.17ID:hN5ZbZd9
まともに働いたことが無いボンボンなのに
 経済再生!
子供がいないのに
 少子化解消!
東京の高級マンションに住んで
 地方創生!

530卵の名無しさん2020/08/29(土) 22:04:11.73ID:byX8ALaZ
>>529
ヤジにしても人としてアウト

531卵の名無しさん2020/08/30(日) 04:39:54.24ID:Gs8o5TWc
安倍総理の唯一の業績は
 世襲の低学歴を総理にすると国が衰退する
ということを示したことだな。

532卵の名無しさん2020/08/30(日) 04:40:34.67ID:Gs8o5TWc
羽田孜も低学歴だったが最短命だったから実害がなかった。

533卵の名無しさん2020/08/30(日) 04:44:21.20ID:Gs8o5TWc
長期政権の秘訣

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

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

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


安倍なんか官僚の操り人形だよ

534卵の名無しさん2020/08/30(日) 05:01:30.64ID:Gs8o5TWc
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

535卵の名無しさん2020/08/30(日) 07:47:00.44ID:fpxoRP6o
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)

536卵の名無しさん2020/08/30(日) 07:48:08.82ID:fpxoRP6o
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)

537卵の名無しさん2020/08/30(日) 07:58:04.19ID:fpxoRP6o
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)

538卵の名無しさん2020/08/30(日) 11:39:35.73ID:eu9oOJ4j
円周角の一致でなくて半径と中心が一致することで同一円と判定するようにアルゴリズムを変更

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){ # 複素点3点を通る円の中心と半径を返す
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)

7×7個だと
> sum(combn(N^2,4,onCir),na.rm=TRUE)
[1] 5704

539卵の名無しさん2020/08/30(日) 11:41:32.41ID:eu9oOJ4j
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚
6個まで数えました
ただもっとありそうなので教えてください

540卵の名無しさん2020/08/31(月) 05:09:00.54ID:4PzQHapT
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)

541卵の名無しさん2020/08/31(月) 05:10:29.80ID:4PzQHapT
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)

542卵の名無しさん2020/08/31(月) 11:19:46.85ID:4PzQHapT
>>459
終値ベースで7000円台は
小泉政権では23日
麻生政権では43日
民主党政権は0日

これで民主党は株価ガー経済ガーとなる理由がわからん
しかもデマサポは鳩山と菅を叩くが8000円台のほとんどは
デマサポが唯一評価する野田政権の時だし

543卵の名無しさん2020/09/01(火) 12:20:58.71ID:/NmMbKp9
安倍政権の実績

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

544卵の名無しさん2020/09/01(火) 20:49:50.58ID:/NmMbKp9
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

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

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

騙されるなよ

546卵の名無しさん2020/09/03(木) 01:20:45.22ID:KclMV4sz
とにかく、私学補助金廃止
あれは一私企業

547卵の名無しさん2020/09/03(木) 07:23:38.56ID:pfUSSNDM
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

548卵の名無しさん2020/09/03(木) 07:24:52.05ID:pfUSSNDM
>>546
国家の教育への介入で憲法違反の虞があるよなぁ。

549卵の名無しさん2020/09/03(木) 07:25:31.89ID:pfUSSNDM
医師の地位向上には底辺シリツ医大の廃止から。

550卵の名無しさん2020/09/03(木) 08:17:59.66ID:KclMV4sz
現在の65歳くらいの底辺私立医大卒の医師って
ほぼ全入の時代だったんでしょ。
お金さえあればほぼ全入だったんだって。
そういう医者から専門医を取れ!とか言われてもな。

欲しくないものは欲しくないので断ったら執拗に
嫌がらせされて、あることないこと院長に告げ口
されまくってウザいので結局辞めちゃった。

しかし食べ終わった弁当の空き殻などのゴミをゴミ箱に
捨ててたら、それを拾って来て俺の机の上に置かれてた
時はマジでビックリしたよ。
60歳半ばを過ぎた人間のやることじゃ無いよな。

551卵の名無しさん2020/09/03(木) 09:51:59.89ID:JLsTpaRe
>550
まともな医学部を卒業した人間なら、私立でも国立でもそういう職場で
働く機会はないでしょう。
流れ流れて地の果てですね。
カラオケで演歌でも歌うとぴったりですね。

552卵の名無しさん2020/09/03(木) 11:40:19.70ID:KclMV4sz
日本語が変

553卵の名無しさん2020/09/03(木) 17:40:58.12ID:pfUSSNDM
>>551
いや東大出て官僚になったのに暗愚の安倍を養護する虚偽答弁をする羽目になった気の毒な人もいるよ。

554卵の名無しさん2020/09/03(木) 18:42:32.65ID:KclMV4sz
そもそも3000万円とか5000万円とかいう法外な授業料を払わないと
卒業できないような大学がまともなわけがない。

555卵の名無しさん2020/09/03(木) 21:36:45.32ID:+OdL1RHW
裏口医大w

556卵の名無しさん2020/09/03(木) 21:45:18.20ID:pfUSSNDM
>>554
そんな大金が払えるcategoryなら教育投資できたはず
金をかけても底辺シリツ医大へしか入れないのは
そういう頭脳ってこと。

557卵の名無しさん2020/09/03(木) 21:45:45.26ID:pfUSSNDM
>>554
そんな大金が払える家庭なら教育投資できたはず
金をかけても底辺シリツ医大へしか入れないのは
そういう頭脳ってこと。

558卵の名無しさん2020/09/04(金) 00:32:15.95ID:qqth/dEZ

559卵の名無しさん2020/09/04(金) 06:49:09.72ID:demBzrfz
Coefficient((sum[k=1,90]x^k)^10,x^100)

560卵の名無しさん2020/09/04(金) 06:54:00.66ID:NlKGsOB0
そもそも3000万円とか5000万円とかいう法外な授業料を払わないと
卒業できないような大学がまともなわけがないし、その上、女子学生と
多浪生は何の告知も無しに、勝手に合格が難しくなるように現役の
男子学生に加点(笑)。
それを指摘されると、大学側は現役の男子学生が優秀で、女子は
結婚するとすぐに子供が出来て家庭に入るから敬遠した、なんて
言い訳して開き直ってる(笑)。
大学の開学の祖も草葉の陰で泣いてるわ。

561卵の名無しさん2020/09/04(金) 07:02:08.47ID:NlKGsOB0
大学はそもそも勉強をしたいと言う意思を持ってる万人に対して開かれるべき。
3000〜5000万円とか言う法外な授業料を払わないと卒業できないなんて本来の
大学のあるべき姿ではない。
国立も授業料が高すぎる。昔のように授業料を下げるべき。
私立もすべて国公立に変えるべき。
国家予算が云々いう輩がいるかもしれないけど、お金をかけるところを間違えてる。
全国の不法出稼ぎ外国人の隠れ蓑になってるFランを片っ端から潰せばよいだけ。

562卵の名無しさん2020/09/04(金) 07:32:01.65ID:demBzrfz
# 重複を許してn個からr個を選ぶ組み合わせを列挙する
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

563卵の名無しさん2020/09/04(金) 07:33:05.64ID:demBzrfz
>>561
政治家とか官僚の天下り先にFラン私立大が使われているからなぁ。

564卵の名無しさん2020/09/04(金) 07:36:36.70ID:Si7GUsDW
中韓とパヨクをディスって悦にいっている自称「保守」が安倍の暗愚政治を許したようなものだな。

565卵の名無しさん2020/09/04(金) 08:35:23.82ID:Si7GUsDW
組み合わせの問題で教えて下さい。

@〜Iの名前のついた箱があります。
一つの箱には最低1以上〜91以下の数字が入ります。

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

1個ずつ玉の入った名前付きの箱を10個用意して、その箱にあと90個の玉を入れるのと同じことだから、
10個の箱から重複を許して90回選ぶ選び方と同じ
なので重複組合せ

566卵の名無しさん2020/09/04(金) 08:35:49.65ID:Si7GUsDW
f <- function(Box,Sum){ # Box:箱の数,Sum:入った数字の合計の値
# 重複を許してn個からr個を選ぶ組み合わせを列挙する
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)

567卵の名無しさん2020/09/04(金) 08:36:19.68ID:Si7GUsDW
> 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

568卵の名無しさん2020/09/04(金) 10:52:06.13ID:demBzrfz
エロ夫妻は同伴で最近パーティに出席し、そこには他の3組の夫婦が同伴で出席していた。いろいろな人々の間で接吻が行われた。
どの人も自分の同伴者とは接吻をせず、どの人も同じ人と2度以上は接吻をせず、また当然だが、誰も自分自身とは接吻をしなかった。
接吻をしたあと、エロ氏は彼の妻を含めた各人に、他人と何回接吻をしたかと尋ねた。驚いたことには、どの人も異なる回数を答えた。
さて、エロ夫人は何回接吻をしただろうか。

569卵の名無しさん2020/09/04(金) 12:44:15.01ID:demBzrfz
>>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:イナ夫人
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

570卵の名無しさん2020/09/04(金) 12:57:16.02ID:demBzrfz
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]

571卵の名無しさん2020/09/04(金) 14:42:47.59ID:demBzrfz
>>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

572卵の名無しさん2020/09/04(金) 18:26:13.35ID:Si7GUsDW
エロ夫妻は同伴で最近パーティに出席し、そこには他の3組の夫婦が同伴で出席していた。いろいろな人々の間で合体が行われた。
どの人も自分の同伴者とは合体をせず、どの人も同じ人と2度以上は合体をせず、また当然だが、誰も自分自身とは合体をしなかった。
合体をしたあと、エロ氏は彼の妻を含めた各人に、他人と何回合体をしたかと尋ねた。驚いたことには、どの人も異なる回数を答えた。
さて、エロ夫人は何回合体をしただろうか。

573卵の名無しさん2020/09/04(金) 18:26:50.41ID:Si7GUsDW
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)
}

574卵の名無しさん2020/09/04(金) 18:26:55.72ID:Si7GUsDW
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

575卵の名無しさん2020/09/05(土) 20:06:27.84ID:u/h3SJdP
中学入試の方が医師国家試験より圧倒的に難しいなぁ。

同じ大きさのコインが10枚あり,9枚は鎖状につながって並んでいます。図のように,
コインCを9枚のコインのまわりをすべることなく回転させます。ただし,その途中で9枚全部に接していきます。
一周してもとの位置にもどるまでに,コインCは何回転するでしょうか。
http://sansuu.ciao.jp/essei/img43/image75[1].jpg

576卵の名無しさん2020/09/06(日) 05:40:15.68ID:JXzncR7v
同じ大きさのコインが10枚あり,9枚は鎖状につながって並んでいます。
図のように,コインCを9枚のコインのまわりをすべることなく回転させます。
ただし,その途中で9枚全部に接していきます。
一周してもとの位置にもどるまでに,コインCは何回転するでしょうか。

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

577卵の名無しさん2020/09/06(日) 14:45:55.66ID:F509BYKQ
こうやってまとめると、安倍政権って菅直人以後の民主党政権の延長だな。

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

578卵の名無しさん2020/09/06(日) 17:18:11.79ID:F509BYKQ
図のように半径2cmの円が6個あります。となり合う円はすべてぴったりとくっついているとします。周りにひもをたるまないようにかけました。
このひもの長さを求めなさい。

http://sansuu.ciao.jp/essei/img43/image89[1].jpg

579卵の名無しさん2020/09/06(日) 18:24:05.90ID:F509BYKQ
有事に仮病で逃げた首相、、、

【あれぇ?おかしいぞ】

6月13日

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



6月19日

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

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

安倍首相との会食・6月19日
「最後の方にステーキが出たんですよね。(安倍首相は)ものすごい食欲があって出された肉はきれいに平らげられていました。
私はだいたい食べてるうちに『もういいかな』ってなるんですけれども。
総理と今まで何度も会食でご一緒しましたけれど、肉が出たら全部平らげますね」

580卵の名無しさん2020/09/06(日) 22:47:38.54ID:F509BYKQ
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

581卵の名無しさん2020/09/06(日) 23:57:22.73ID:F509BYKQ
#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()

582卵の名無しさん2020/09/06(日) 23:57:42.80ID:F509BYKQ
#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()

583卵の名無しさん2020/09/07(月) 00:33:12.35ID:dWMeeyoQ
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)

584卵の名無しさん2020/09/07(月) 00:41:01.92ID:dWMeeyoQ
# 自然数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)

585卵の名無しさん2020/09/07(月) 06:12:35.11ID:dWMeeyoQ
# 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)

586卵の名無しさん2020/09/08(火) 11:47:06.28ID:H7ii0TXv
日本の医療レベルが低いってことか?

862 卵の名無しさん 2020/09/07(月) 12:29:41.15 ID:hUXvwdzt
日本は昨日までコロナでの死者数が1357人で、韓国は334人、中国は4634人…
韓国と比べて人口は約2.4倍なのに死者数が4.1倍、中国の人口の9%なのに死者数が29.2%でダメだな

587卵の名無しさん2020/09/08(火) 13:53:50.47ID:H7ii0TXv
dアカウントは複アカ作り放題
dアカウントと口座との紐付けに本人確認がない
勝手に作られたdアカに口座紐付けされて引き出されてる。

588卵の名無しさん2020/09/08(火) 14:11:51.27ID:xp2Wn7TU
【NTTドコモ】中国銀行でも #ドコモ口座 を利用した不正利用が発生 [WATeR★]
http://2chb.net/r/newsplus/1599493554/333

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

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

ドコモの本人確認が甘いのと、地銀のセキュリティ対応が甘いところを突いてる。
生年月日や登録電話番号なりで多要素認証がある銀行には通用しないよ。

589卵の名無しさん2020/09/08(火) 20:36:53.57ID:H7ii0TXv
最近、通帳やキャッシュカードのコピーを添付して、氏名や生年月日をどこかに伝えませんでしたか?

590卵の名無しさん2020/09/09(水) 07:15:06.74ID:kxoN9z33
暗証番号抜かれてもキャッシュカードや通帳は盗まれてないから平気と思ってたらキャッシュカードもどきをドコモが提供していた。

最近、通帳・キャッシュカード・免許証のコピーを添付して、
氏名や生年月日をどこかに伝えませんでしたか?

591卵の名無しさん2020/09/09(水) 23:13:30.80ID:kxoN9z33

592卵の名無しさん2020/09/10(木) 01:28:44.31ID:1su+rdtU
銀行窓口でWeb口座振替受付サービスの停止手続き

593卵の名無しさん2020/09/10(木) 06:50:24.14ID:F+w+DraO
自分の口座から引き落とし契約されている対象のサービスリストが
なぜ金を払ってる本人に提示されないのかがわからん
どんな理由で非公開なんだ
こんなもん銀行サイトのマイページに普通に掲載してていいめっちゃ基本情報なのに
それ掲載したら一体どんな不都合があるんだ。

594卵の名無しさん2020/09/10(木) 14:01:37.79ID:F+w+DraO
Dux8sUjezkRK4t0E1qWdce8od8t674zQJ6LF7Hq1B5mb3M6UkJXKzHp3LhteyQRGUG2bqZmlVrEyjofViZoTO2m7fwJUokuNJ1OdvYUvQG2FTbif1jAnuhpebinmw71UJgoA1T5Q9dpqduMsZFRP3ZsXHSIa5n6jC7r92NDX5aYf2jabDbCiUoojR2ddnmn2TgjTvcTyHQq4yJacPtGs9SOQfPjCBn2QQCgZX0sKQZdTUKx6oY6MJWJrbitORoNbmvCtPDGTescHSWfPkT3buydBOA7ijY9c5deh0mcMTCo13urKc4bpDYA0JDnz4u6WbmtspwhAYpixuhiNlDFEE6MaF5vmueqwyavH1XwWicxBd6TuYU1s88WVLZ7ygQOqomafg6o65kfdsbRo2unuAWSXyuhd1iYbYmrsNGPQnwgUUrBIB5IiV4qkF6zW5t5dnhtYIENokZsgVre9R65nxqhClFfK0fvNlCI9XjcbhEmbmdn7fDFhx3PyyEJZB7oKGCWTFDJbhmcrRhAXX6XTl1QprrHBwwr8oKjKE2lQH5TUop4kILMJYd113BJvLUfVcW0Vrt26AgZ8BvWERmjoIBhld8yDSYRAdsZhoKy0YQZcnwEkeLE8ZurQTH8R9NwpeLfi7pRCWloS3T8qdUFPzKxduoohC8saGhUJ0WIC6iismxcWF9P46XtKpNfYTdRvmT0ZF1niYsOzIke0foq2WEW6zpJXNBCmyI9bTvO8dLeG8OgkYNKsdAnBJSAYXwAA7JT3qZCkJUdOuWEOeKkHWlZWWcypbMW8LqMNg0Gzly83FS5GU9Wd3Ldq1bJkzu5GmS88aCps19XjpHwd6a1GYiwSCFPvsmFj23taBv66eOIvqEVACmPDS0mmWuptvz4ALnvPBkBZlH7wbki7gybEczoYgC3bALf0gEcNotleTIx21SG3YSFNitZExyhPRcBT5anYO3ifruThSbylCj9i6vtlAwS3cHN8qp7bE47z

595卵の名無しさん2020/09/10(木) 14:19:22.29ID:F+w+DraO
1500桁のパスワード

zDcQsMwbarLQNVbaFCmwDiaKvH9q44IvGVsKUoCDO0Rs0DXjDOXLRY7PYUGqUerqyJ4OvPKZPIuWl6OIqs8ZSkZCwrc1IDHgDHVjqrsbj5XeKsAtMCp6133KRNUX8uoK7t6DKIQ0VoywgHVAsAKj3WZK5n8VZK44lFTELvbuC4aVVYkEEOmlXPGDoEfoJxDtIKloau20vo9QDuxu9s8UjezkRK2UtkERqWdmKhdrvWZfBQxmeIf0Th4GjzKdhAkudYynwhm2B8Knud81Ni3ZLCSl7a6eHYP6So2JWwK9UHwacjMjJISkjnu7E7Z3kBClXcg31WDwHYerWrY3FIbT6xz2sWxQBRdR4rpimaY7LZWjw9gTOTYKfAfFLCgC8bDeLD6CoMrFwCIQMsMUZgbEyCWxwGYesgY9D46mLR1fSRxBLbwDtOQiBnghxX3CwSrtd0SyERh1EuGgRfu6lRQRaGUppLorl2LlryuguVfCv2hwwDdoqNtUemzUc2cLSN9MEdwzGBzn0ZzmWeFZF6WCgnPJ3ZUbGcyI73vUjWKGuEqBB58FbRPXpzVbkcDHkZQmUaTF0x2NbO0Bo2cqUnOEm43a55FLCjhbxyyefqhP4KwR5krwduNDAzpEB57DmW5fvlS9XA2Sj90prdPn33by1P7ktUbPUCNB7aWahNcWeVJ8Vro9oeafzdXIaiR5uP5dbbyb24kYAsWqQgyhWaxL3X7obozw8PrPODYB3tXMCWU64b31hnMRoDowODano3UddCrg5d2yjT9qYwzyXaez87B8oVEVSCzw2mF1pDRNoimMUEFQkW3V3BS1zHWYdC4f1bpDlXbGMT75nis2k21b6o6NahWk2Yle6gbAwpbHDhnU30x9Ph6XLM7hFHsCGPqDxzTE3UmidnkX8E2qzcNH6ILmimXLlPMJClQwCnxHDBe7TSy22nClwYxQ2h2TAMWJha1xOHxTlCKWNtGpTMoSpYpvAUcBdcE6A5Awbqp4jbqukiDr4Tf69Kb5WEfRfn343L38svFO0Ylp7x6CwFdy8uUqFUz06yV3v5YDrIyuxBaLLAtxQ0DTbsHgxfQiePTpSEmmKxG4Saz9R3RfRdceY2GS7dc9GlAxP7tdz4y5qkEOfH2H4FRLw55z95PKosMJtlTC6zzXoSJBe9jcvqHqUyYDkg24HjtTj86uSpuvihX3xol4vJsIE2tfegsJW6EhqUeJL6CV17JPeFBaDqUqnAyysFJiHF7h43wyXMcXLQduwZBpqrGdzV6UlKhvice3qa6galoCYOGE2C2wpfOesqdRTW0w64mdktcp7JWirLGwY69FXr4Hc3mjXZn3k4Rdjr392WU38XXxUnBy1bPohAbUlVPU6AbaCurk3i00Gf2LRxs8zVXaBU8SZ270uqE10NKPvSpNj6be1ZaWZjlCupgQut3Dg6CDl0vO6hdpGMcrEGSPVtXxjYjtsG186xCEWZQNY4JdOF9Sev056BDkTWI2Q656

596卵の名無しさん2020/09/10(木) 14:19:51.82ID:F+w+DraO
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)

597卵の名無しさん2020/09/10(木) 14:33:52.22ID:F+w+DraO
> 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

598卵の名無しさん2020/09/11(金) 20:50:09.90ID:Bt/tjTEb
悲惨ですよ、私立医は。

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

コロナ不況の中、もう哀れで、哀れで・・・・

599卵の名無しさん2020/09/11(金) 21:24:30.03ID:zaxQhPkr
>>598
ふたりあわせて2億円

600卵の名無しさん2020/09/12(土) 01:41:42.41ID:tVi2H+Zr
そもそも3000万円とか5000万円とかいう法外な授業料を払わないと
卒業できないような大学がまともなわけがない。

601卵の名無しさん2020/09/12(土) 17:26:21.02ID:r8RD59kr
聖マリアンナとかいう医大のなかのキングオブ底辺 
こんなとこに多浪して入るとかどんだけ学力低いんだよw?
地頭悪いんだろうな
マジでクソだわ

602卵の名無しさん2020/09/12(土) 22:43:47.23ID:1xQUBr0S
生きてて恥ずかしくならねーのかな?あいつ

いじめられっ子が
マジで腸が煮えくりかえるな
サイコ野郎が 
 

603卵の名無しさん2020/09/13(日) 00:41:33.17ID:BvNX1+3j
>>601
誰の事? O?wwww

604卵の名無しさん2020/09/13(日) 03:06:51.98ID:NkAzI/gM
>>603
そうw
あの馬鹿w死ねよマジ

605卵の名無しさん2020/09/13(日) 08:10:15.40ID:zXha47WG
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

606卵の名無しさん2020/09/13(日) 09:21:42.54ID:zXha47WG
架空求人で履歴書かき集めれば個人情報売買できる
そういう企業が今たくさんある
5chで噂になってる企業あるよね
履歴書よりウェブ応募がいいね

ある外資系企業の下請は幽霊法人で国外のクラウドサービスに被保険者番号からマイナンバーまで保管
国外は個人情報保護法の対象外なんだと
間抜けな法律のお陰で個人情報は国外保管
きっと中国にもたくさんある
法人サポートが中国の場合、法人口座や拠点住所一覧も中国に握られている
契約のみデータセンターからすべてアウトソース依存国家の末路は怖い

607卵の名無しさん2020/09/13(日) 11:34:50.71ID:zXha47WG
ダウンロード&関連動画>>

@YouTube



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

608卵の名無しさん2020/09/13(日) 16:26:56.33ID:NkAzI/gM
>>604
歳いくつよ?wその無能?w

609卵の名無しさん2020/09/13(日) 16:53:51.02ID:2Wd5rc6k
>>608
確か37か38くらいだったかな?w
なんちゃって外科医やってるよ
ビビるよ?wクッソ無能だからなw

610卵の名無しさん2020/09/13(日) 18:40:44.31ID:zXha47WG

611卵の名無しさん2020/09/13(日) 18:48:02.26ID:zXha47WG
前々スレからのド底辺シリツ医への宿題

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

612卵の名無しさん2020/09/13(日) 19:20:47.79ID:/CHL/RSK
>>609
しかもありとあらゆる工作隠蔽してるっていうねw

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

もはや人殺しだなw

あんなのを救急で見させるとか病院もどうかと思うけどなw
病院ぐるみでやってんだろうなw

613卵の名無しさん2020/09/13(日) 21:07:38.96ID:zXha47WG
Mayo Clinic Q&A podcast: When it comes to COVID-19, who are 'long-haulers?'

ダウンロード&関連動画>>

@YouTube


614卵の名無しさん2020/09/13(日) 21:09:14.54ID:zXha47WG
>>612
>内科の領域もみれます
ド底辺シリツ医大卒なので内科のことはさっぱりわかりません、と言えば誰もが納得してもらえるのに
やっぱり、頭が悪いんだね。

615卵の名無しさん2020/09/13(日) 22:35:26.22ID:Oi5ggPM4
>>614
最悪な治療施されたからね

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

適当な診察ばっかしてんだろうな
医学部は最低でも早慶理工以上の学力ないと
入れないようにしないと
不幸な人間がうまれるだけだわ

616卵の名無しさん2020/09/14(月) 17:09:09.72ID:TZePAOs1
>>612
で、まさかそいつとその家族はのうのうと生きてるのか? 人の家族を滅茶苦茶にして?
それは許されないだろ普通に
どうなんだ? 

617卵の名無しさん2020/09/14(月) 19:09:19.55ID:/VYR9UVn
公文書改竄するような今の政権下で国勢調査に協力したくないなぁ。

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

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

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

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

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

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

ダウンロード&関連動画>>

@YouTube



1分15秒あたりから

620卵の名無しさん2020/09/15(火) 22:04:16.42ID:rklwrHxI

621卵の名無しさん2020/09/17(木) 01:34:28.56ID:HFcI9XBG
>>616
生きてんじゃねw
私立医大って事は父親も医者かそこそこの会社かだろ 
ご両親がご健在なのか是非知りたいとこではあるなw
お宅の息子さんについてどうお考えなのかw
面拝みたいものだ
まぁカルマは深いだろうなw
何れにせよこれからさ これから始まる

622卵の名無しさん2020/09/17(木) 16:21:49.19ID:nbDmQgwa
こういうのは裏口シリツ医には解けないと思う。

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

球面上の異なる 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()

試験会場で計算しやすいように問題では数値設定してあるなぁ。

623卵の名無しさん2020/09/18(金) 07:30:41.20ID:tOgDYNCb
大塚とかいうヤブぱねー
歯を食いしばって苦しめばいいのな
てめえとてめえの家族がな
許さねーからな お前だけは

624卵の名無しさん2020/09/18(金) 08:03:57.92ID:kqShTUv4
diskpart

list disk

625卵の名無しさん2020/09/18(金) 11:06:38.21ID:4pL23glN
大塚君元気にされてるかな。
アッチ系の先生だったけど
良い人だったな〜。

626卵の名無しさん2020/09/18(金) 14:49:47.81ID:ZCF7Lfet
こんなのを、でっけー釣り針って言うのか?

627卵の名無しさん2020/09/18(金) 15:45:12.98ID:pRVt8YPC
HP
コンピューターの電源を入れるか、再起動します。 画面に何も映っていないうちに、[F10] キーを押して BIOS 設定メニューに入ります。
BIOS 設定メニューは、一部のコンピュータにf2またはf6キーを押すことによりアクセス可能です。 BIOSが開いたら、ブート設定にアクセスします。

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

Dell
BIOS セットアップの起動
ノートPC の電源を入れます(または再起動します)。
Dell のロゴが表示されたら、次のいずれかのアクションを実行し BIOS セットアッププログラムを起動します。 キーボードあり ? 「BIOS セットアップを起動」メッセージが表示されるまで、<F2> をタップします。

628卵の名無しさん2020/09/18(金) 18:51:01.58ID:A4IaMG7V
年内に9万に死者数と予想しているなぁ。

https://covid19.healthdata.org/japan?view=total-deaths&tab=trend

629卵の名無しさん2020/09/19(土) 07:46:47.13ID:0Y3cTQB0
緊縮財政・構造改革・観光立国
この三つで衰退途上国日本の没落必須だな。

630卵の名無しさん2020/09/19(土) 09:26:49.36ID:tlEz4F7t
 6日の参院予算委員会で、立憲民主党の小西洋之議員が安倍晋三氏に「安倍総理はよく『法の支配』とおっしゃいますが、法の支配の対義語は何ですか?法の支配の反対の意味の言葉は何ですか。」と尋ねたところ、安倍晋三氏は「まさに、反対語と言うよりも、法の支配、え、ということを申し上げているのはですね、あわば、あ〜この〜この海、まさに法の支配による、この国際秩序を維持し、平和な海を守っていくことが、それぞれの海の反映に繋がっていく、という考え方を示しているところでございます。」と、トンチンカンな答弁を行ってしまいました。

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

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

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

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

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

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

 この方は本当に大学で政治学を修めてきたのでしょうか。

631卵の名無しさん2020/09/19(土) 09:27:00.66ID:tlEz4F7t

632卵の名無しさん2020/09/20(日) 00:14:58.35ID:BZsX8Vc7
地球の大きさは,紀元前3世紀頃にエラトステネスによって初めて求められた。

アレキサンドリア 北緯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

633卵の名無しさん2020/09/20(日) 12:30:23.81ID:BZsX8Vc7
Timeline: How The U.S. Reached 200,000 Deaths From COVID-19

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


ダウンロード&関連動画>>

@YouTube

&feature=youtu.be&t=75
1分15秒辺りから

634卵の名無しさん2020/09/20(日) 14:45:11.27ID:BZsX8Vc7
【広島】「うわっブスじゃー」小柄で小太りの高齢男性が女子中学生に暴言を吐く事案が発生 ★2 [potato★]
http://2chb.net/r/newsplus/1600575993/1

1 名前:potato ★[] 投稿日:2020/09/20(日) 13:26:33.55 ID:GbdyZADl9
広島県警によると、17日午前7時ごろ、東広島市西条町大沢で女子中学生への暴言が発生しました。(実行者の特徴:高齢男性、小柄、小太り、ジーパン、頭に白色系タオル巻く)

■実行者の言動や状況
・登校途中の女子生徒に暴言を吐いた。
・「うわっブスじゃー」

■現場付近の施設
・向陽中学校、★三升原交差点、国道375号線

2020/9/18 22:24 (JST)
https://this.kiji.is/679679671982326881
※前スレ
http://2chb.net/r/newsplus/1600572224/

635卵の名無しさん2020/09/20(日) 19:14:43.55ID:6sUnyL52
底辺医大卒なんかに絶対自分とか家族を任せちゃいけない
公開する羽目になるよ

636卵の名無しさん2020/09/21(月) 05:58:51.04ID:7LHGgQBc
>>635
シリツ医でも手先の器用なのはいるよ。
頭が器用なら底辺シリツ医大なんかにゃいかないな。

637卵の名無しさん2020/09/21(月) 06:54:41.96ID:7LHGgQBc

638卵の名無しさん2020/09/21(月) 10:58:40.63ID:+xq+le3W
安倍前総理の業績

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

その解説

ダウンロード&関連動画>>

@YouTube


639卵の名無しさん2020/09/21(月) 13:20:37.50ID:tIEmypBG
"某女子大には決して嘘をつかない女子大生と必ず嘘をつく女子大生がいることがわかっている。
この女子大の学生(嘘つきかどうかは不明)から
「あなたのいうことが正しければ手コキかフェラをしてあげる、間違っていれば何もしてあげない」と言われた。
女子大生にフェラをしてもらうには何と言えばいいか?
"
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) # pならばQ
cond2 <- function(P,Q) cond1(P,Q) & cond1(!P,!Q) # (pならばQ) かつ(pでないなら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)),]

640卵の名無しさん2020/09/21(月) 13:22:08.23ID:tIEmypBG
医者ならば、シリツ卒なら馬鹿である  から
シリツ卒ならば、医者ならば馬鹿である が、導けるか?

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

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

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

641卵の名無しさん2020/09/21(月) 14:30:33.85ID:tIEmypBG
医者ならば、シリツ卒なら馬鹿である  から
シリツ卒ならば、医者ならば馬鹿である が、導けるか?

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

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


'%=>%' = 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])

642卵の名無しさん2020/09/22(火) 04:22:09.57ID:i6/Qqjjo
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

643卵の名無しさん2020/09/22(火) 08:51:45.82ID:i6/Qqjjo
以下の中から論理的に同値な組み合わせをすべて列挙せよ。


a : 馬鹿ならば(シリツ医ならば裏口である)
b : (馬鹿ならばシリツ医)ならば裏口である)
c : 馬鹿ならば(裏口ならばシリツ医である
d : (馬鹿ならば裏口)ならばシリツ医である
e : シリツ医ならば(馬鹿ならば裏口である)
f : (シリツ医ならば馬鹿)ならば裏口である
g : シリツ医ならば(裏口ならば馬鹿である)
h : (シリツ医ならば裏口)ならば馬鹿である)
i : 裏口ならば(馬鹿ならばシリツ医である)
j : (裏口ならば馬鹿)ならばシリツ医である
k : 裏口ならば(馬鹿ならばシリツ医である)
l : (裏口ならば馬鹿)ならばシリツ医である)

644卵の名無しさん2020/09/22(火) 09:00:28.56ID:i6/Qqjjo
以下の中から論理的に同値な組み合わせをすべて列挙せよ。


a : 馬鹿ならば(シリツ医ならば裏口である)
b : (馬鹿ならばシリツ医)ならば裏口である)
c : 馬鹿ならば(裏口ならばシリツ医である
d : (馬鹿ならば裏口)ならばシリツ医である
e : シリツ医ならば(馬鹿ならば裏口である)
f : (シリツ医ならば馬鹿)ならば裏口である
g : シリツ医ならば(裏口ならば馬鹿である)
h : (シリツ医ならば裏口)ならば馬鹿である)
i : 裏口ならば(馬鹿ならばシリツ医である)
j : (裏口ならば馬鹿)ならばシリツ医である
k : 裏口ならば(シリツ医ならば馬鹿である)
l : (裏口ならばシリツ医)ならば馬鹿である)

645卵の名無しさん2020/09/22(火) 09:03:46.94ID:i6/Qqjjo
過去スレから同業者や患者の本音抜粋


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

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


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

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

底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろw

646卵の名無しさん2020/09/22(火) 10:14:13.61ID:sklJCuPT
'%=>%' = 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]))

647卵の名無しさん2020/09/22(火) 12:02:20.63ID:EfXnvoQe
シリツ医 ならば (馬鹿 ならば 裏口 である) という命題が真であるときに結論できるのは以下のいずれか?

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

648卵の名無しさん2020/09/22(火) 14:24:55.71ID:i8SA8uCz
安い指輪しててもブスで金だけの医学科の彼女持ちの私立底辺医大生君は元気かな?
スマホ・出会い系アプリの垢複数持ちしてまで浮気お疲れ様。
デートも食事も可愛い子には拒否られて裏でストーカー行為しながら、相手されずモテないからって自称ヤリチンアピすることしかできない可哀想な私立底辺非モテ医大男の貴方はある意味偉大です。

649卵の名無しさん2020/09/22(火) 16:03:55.93ID:sklJCuPT
底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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

650卵の名無しさん2020/09/22(火) 20:25:54.98ID:i8SA8uCz
私立底辺医大生ぶっさくて草
イケメンって言ってあげましょう(笑)

651卵の名無しさん2020/09/23(水) 12:19:46.09ID:DYSF68Y7
うすむらさき
@xxxxxx
ヤリチンはたいていブサイク。
ヤリチン公言してるやつらはまずブサメン。
すかぽんさんがツイートしました
@xxxxxxxx
ブサイクのヤリチン、一杯いるじゃん…


お釈迦様さんがツイートしました
@xxxxxxxx
ブサイクなヤリチンが世界で1番たちが悪い。ブサイクはブスしか寄ってこねーから(笑)一生ブスどもとつるんでろよ。

652卵の名無しさん2020/09/23(水) 23:45:14.47ID:Sa86U9pw
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()

653卵の名無しさん2020/09/24(木) 06:55:54.84ID:eL3RsNp+
【コロナ】20代の感染、「第2波」で10倍…無症状者の2割が入院後に重症化 和歌山県 [ばーど★]
http://2chb.net/r/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)

654卵の名無しさん2020/09/24(木) 07:04:06.98ID:eL3RsNp+
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.

655卵の名無しさん2020/09/24(木) 07:13:59.39ID:eL3RsNp+
>>654
話題のフォントにしてみた。

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

656卵の名無しさん2020/09/24(木) 14:11:06.85ID:eL3RsNp+
with コロナで三密を避けて生産
without コロナで三密で生産

後者の方が生産性が高いのは自明。
中国は後者の戦略で経済回復しつつあるというね。

657卵の名無しさん2020/09/24(木) 22:37:38.71ID:1DujI56R
ド底辺医大の三法則

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.
ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

658卵の名無しさん2020/09/25(金) 07:41:52.14ID:WXWIALQV
- ショートカットを表示しない


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

"link"=hex:00,00,00,00

659卵の名無しさん2020/09/25(金) 08:45:29.54ID:g+wOrPPh
「保守」「ナショナリスト」がナショナリズムを解体するグローバリストの安倍を礼賛する一方、パヨクは「戦後レジーム」を確定させた安倍を「戦前回帰の復古主義者」と誤認する。

660卵の名無しさん2020/09/25(金) 10:35:54.74ID:WXWIALQV
>>656
東京・江戸川区にある食品加工会社の工場で、新たに従業員73人が新型コロナウイルスに感染したことが確認され、これでこの工場での感染確認は78人になりました。
会社では、24日から工場の稼働を停止し、改めて消毒作業をすることにしています。

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

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

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

後者の方が生産性が高いのは自明。
中国は後者の戦略で経済回復しつつあるという。

661卵の名無しさん2020/09/25(金) 11:08:53.44ID:WXWIALQV
主語が何かすら理解していない底辺シリツ医の症例報告

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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

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

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

授業「主語と述語をみつけよう」|国語|小1・小2|群馬県
ダウンロード&関連動画>>

@YouTube



シリツ医は小学校1−2年で習うことすら習得できていない。
こんな学力でどうして大学に入学できるのだろうか?裏口入学以外に説明できる人がいたら御教授を賜りたい。

662卵の名無しさん2020/09/25(金) 12:43:09.13ID:g+wOrPPh
二 〇 一 四 年 の 世界 経済 フォーラム 年次 会議( ダボス 会議) の 冒頭 演説 で 安倍 は、 徹底的 に 日本 の 権益 を 破壊 する と 宣言。 電力 市場 の 完全 自由化、 医療 の 産業 化、 コメ の 減反 の 廃止、 法人 税率 の 引き下げ、 雇用 市場 の 改革、 外国人 労働者 の 受け入れ、 会社法 の 改正 などを 並べ立て、「 その とき 社会 は あたかも リセット・ボタン を 押し た よう に なっ て、 日本 の 景色 は 一変 する でしょ う」 と 言い放っ た。

適菜収. 国賊論 (Kindle の位置No.248-252). KKベストセラーズ. Kindle 版.

663卵の名無しさん2020/09/25(金) 22:37:25.35ID:g+wOrPPh
「保守」「ナショナリスト」がナショナリズムを解体するグローバリストの安倍を礼賛する一方、頭の悪い一部の左翼は「戦後レジーム」を確定させた安倍を「戦前回帰の復古主義者」と誤認する。自分の世界観に合わせて、都合よく現実を解釈するわけだ。

664卵の名無しさん2020/09/25(金) 22:38:11.02ID:g+wOrPPh
移民は「外国人材」、家族制度の破壊は「女性の活用」、戦争に巻き込まれることは「積極的平和主義」、秩序破壊のための実験は「国家戦略特区」、不平等条約のTPPは「国家百年の計」、南スーダンの戦闘は「衝突」、米軍機の墜落は「不時着」……。

665卵の名無しさん2020/09/26(土) 10:50:18.21ID:HU8VkIp7
>  巷 には、 少子 高齢 化 を 迎える 日本 において は、 デフレ は 避け られ ない という 議論 も あり ます が、 これ は 誤り です。 実際 に 多く の 国 は、 人口 が 減少 し て い ても、 デフレ には 陥っ て い ませ ん。

(中略)

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


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

安倍 晋三. 新しい国へ  美しい国へ 完全版

666卵の名無しさん2020/09/26(土) 15:03:53.61ID:HU8VkIp7
権力 の 分散 を 唱える のが 保守 で あり、 権力 の 集中 を 唱える のが 左翼 で ある。 理由 は 簡単 で、 保守 は 人間 理性 を 信用 し ない が、 左翼 は 合理的 かつ 理性的 で ある から だ。

667卵の名無しさん2020/09/27(日) 07:46:40.32ID:xQ2UgrRE
裏口でなくて、学力考査で大学入れたなら、これくらいは答えられるだろ?


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

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

668卵の名無しさん2020/09/27(日) 09:35:51.49ID:NC2DTSRg
裏 医 問 嘘 「 と フ 子 嘘 「 と チ
口 師 題 を あ 言 ェ 供 を あ 言 ョ
馬 免 は つ な わ ラ 向 つ な わ コ
鹿 許 こ か た れ を き か た れ を
で も れ な の た し は な の た も
な っ い い 。 て こ い い 。 ら
い て 若 う も っ お う う
証 い い こ ら ち 菓 こ に
明 な 女 と う 子 と は
に い 医 が に 屋 が 何
サ 小 か 正 は か 正 と
ク 学 ら し 何 ら し 言
ッ 生 け と け え
と で れ 言 れ ば
答 も ば え ば い
え 正 手 ば チ い
た 解 コ い ョ か
ら す キ い コ ?
? る か か か
ぞ フ ? 飴
。 ェ を
ラ あ
を げ
し る
て 」




669卵の名無しさん2020/09/27(日) 11:04:59.01ID:NC2DTSRg
1 底
: 辺
ド 医
底 大
辺 の
シ 三
リ 法
ツ 則





















670卵の名無しさん2020/09/27(日) 11:07:10.87ID:NC2DTSRg
裏 ド 底
口 底 辺
馬 辺 医
鹿 シ 大
を リ の
暴 ツ 第
く 医 三
人 大 法
間 卒 則
を は
偽 裏
医 口
者 入
扱 学
い の
し 負
た い
が 目
る か
。 ら

671卵の名無しさん2020/09/27(日) 11:09:13.63ID:NC2DTSRg
rm(list=ls())

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


f <− function(x,s=2){
  n=nchar(x)
  y=NULL
  for(i in 1:n){
    y <− paste0(y,substr(x,i,i),paste0(rep(’ ’,sample(0:s,1)),collapse=’’))
  }
  cat(y)
  invisible(y)

f(x)

672卵の名無しさん2020/09/27(日) 11:10:55.64ID:NC2DTSRg
 さ て は シ リ ツ だ な 。
そ う い う の い い か ら サ ク っと正 解 し て み !
こ れ に 即 答 が つ け ば即 、 終 わ っ たの に。


問 題は こ れ

嘘 をつ か な い 若 い女医 か ら
「あな た の い うこ と が 正 し け れば 手コ キかフ ェ ラ を し て あ げ る 」 と言わ れた 。
フ ェ ラ を し ても ら う に は 何 と言 え ばい い か ?

673卵の名無しさん2020/09/27(日) 13:27:27.49ID:NC2DTSRg
    大 本         シ 学 鹿 扱                
ド         卒 校 ん                        
    が 人         リ の を い                
底         は 名 。                        
    悪 の         ツ 負 暴 し                
辺       ド 恥 を                          
  ド い 頭         医 い く た                
医       底 ず 皆                          
  底 の が         大 目 人 が                
大       辺 か さ                          
  辺 で 悪         卒 か 間 る                
の       シ し ま                          
  シ は い         は ら を 。                
三       リ く 言                          
  リ な ん       ド 裏 裏 偽                  
法       ツ て い                          
  ツ い だ       底 口 口 医                  
則       医 、 ま                          
  医 、 。       辺 入 馬 者                  
        大 学 せ                          

674卵の名無しさん2020/09/27(日) 13:27:41.77ID:NC2DTSRg
                扱 鹿 学 シ         本 大    
                        ん 校 卒         ド
                い を の リ         人 が    
                        。 名 は         底
                し 暴 負 ツ         の 悪    
                          を 恥 ド       辺
                た く い 医         頭 い ド  
                          皆 ず 底       医
                が 人 目 大         が の 底  
                          さ か 辺       大
                る 間 か 卒         悪 で 辺  
                          ま し シ       の
                。 を ら は         い は シ  
                          言 く リ       三
                  偽 裏 裏 ド       ん な リ  
                          い て ツ       法
                  医 口 口 底       だ い ツ  
                          ま 、 医       則
                  者 馬 入 辺       。 、 医  
                          せ 学 大        

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

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

677卵の名無しさん2020/09/27(日) 14:42:14.68ID:Q7/GNSm0
# str −> matrix(tate)
tate <− function(str,moji=NULL){ # str:文字列, moji:1列の文字数
x=gsub(’¥n’,’’,str)
n=nchar(x)
m=ifelse(is.null(moji),ceiling(sqrt(n)),moji)
add=m^2−n
y=paste0(x,paste0(rep(’ ’,add),collapse=’’))
Y=NULL
for(i in 1:m^2)  Y[i]=substr(y,i,i)
L=R=matrix(Y,m,m)
for(i in 1:m) cat(L[i,],’¥n’)# 左から開始
for(i in 1:m) R[,m+1−i]=L[,i] # 
cat(’¥n¥n’)
for(i in 1:m) cat(R[i,],’¥n’)# 右から開始


str=”
はなのいろは    
   うつりにけりな 
      いたずらに 
わがみよにふる    
ながめせしまに    ”
nchar(str)
x=gsub(’¥n’,’’,str)
nchar(x)
tate(str,11)

678卵の名無しさん2020/09/27(日) 14:42:53.61ID:Q7/GNSm0
> str="
+ はなのいろは    
+    うつりにけりな 
+      いたずらに
+ わがみよにふる    
+ ながめせしまに    "
> tate(str,11)
は     わ な            
な     が が            
の う   み め            
い つ   よ せ            
ろ り   に し            
は に い ふ ま            
  け た る に            
  り ず                
  な ら                
    に                
                 


            な わ     は
            が が     な
            め み   う の
            せ よ   つ い
            し に   り ろ
            ま ふ い に は
            に る た け  
                ず り  
                ら な  
                に    
                 

679卵の名無しさん2020/09/27(日) 15:05:13.39ID:z6INan+X
https://addons.mozilla.org/ja/firefox/user/13863253/

Read Aloud: A Text to Speech Voice Reader

680卵の名無しさん2020/09/27(日) 15:41:27.05ID:NC2DTSRg
(sqrt(1+x)-sqrt(1+x^2))/(sqrt(1-x^2)-sqrt(1-x))

681卵の名無しさん2020/09/27(日) 15:41:46.99ID:NC2DTSRg
(sqrt(1+x)-sqrt(1+x^2))/(sqrt(1-x^2)-sqrt(1-x))

682卵の名無しさん2020/09/27(日) 19:20:23.23ID:NC2DTSRg

683卵の名無しさん2020/09/27(日) 19:43:46.04ID:B77KYq6e
100日で崩壊する政権 コロナ禍日本、安倍政権の軌跡 (日本語)
思わず注文してしまった。

684卵の名無しさん2020/09/27(日) 19:44:42.64ID:B77KYq6e
100日で崩壊する政権 コロナ禍日本、安倍政権の軌跡 (日本語)

を注文してした。

Kindle版もあったけど、家族にも読ませたいので紙の方にした。

685卵の名無しさん2020/09/27(日) 21:57:22.28ID:CM312CnK
東京女子医大、学費1200万円値上げ コロナで経営難  9/27(日) 21:00配信

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

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

河合塾が私立大医学部の20年度の募集要項などをまとめたところ、
主な選抜方式で総額が最も高いのは川崎医科大(岡山県)の4736万5千円。
今回の値上げで東京女子医大は21年度から、
金沢医科大(石川県)を上回り2番目に高いところになりそうだ。

686卵の名無しさん2020/09/27(日) 23:17:16.35ID:OJ6sMSx0
>>685
そんなオマエは反日ド底辺の風邪風邪クルクルパー
医学的に入れないオマエの低脳さがそんなに悔しいのかいW

687卵の名無しさん2020/09/28(月) 13:18:25.77ID:aUMwZUGo

688卵の名無しさん2020/09/30(水) 21:42:43.31ID:m81TU/YP
1 2
表表 見たのが表1
表裏 見たのが表1
裏表 見たのが裏1
裏裏 見たのが裏1
表表 見たのが表2
表裏 見たのが裏2
裏表 見たのが表2
裏裏 見たのが裏2

689卵の名無しさん2020/10/01(木) 09:34:59.05ID:aTCQsuu6
# 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)

690卵の名無しさん2020/10/01(木) 10:48:54.87ID:aTCQsuu6
# 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)

691卵の名無しさん2020/10/01(木) 11:48:30.61ID:aTCQsuu6
内視鏡の待機時間の暇つぶし

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

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

692卵の名無しさん2020/10/02(金) 11:00:19.10ID:rygTEqyI
ド底辺シリツ医の三法則
一、ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
二、ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
三、ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

> naname()
  底 リ 三 、 ツ で 頭 、 は を 、 入 く
ド シ の 一 リ の の 二 卒 名 三 口 暴  
辺 医   シ い 人   大 校   裏 を 。
ツ 則 辺 悪 本 。 医 学 。 は 鹿 る
法 底 が 、 だ ツ 、 ん 卒 馬 が
ド 大 い ん リ て せ 大 口 た
医 な い シ く ま 医 裏 し
は 悪 辺 し い ツ ら い
が 底 か 言 リ か 扱
ド ず ま シ 目 者
恥 さ 辺 い 医
皆 底 負 偽
ド の を
学 間

693卵の名無しさん2020/10/02(金) 11:00:29.42ID:rygTEqyI
  ド 辺 ツ 法 ド 医 は が ド 恥 皆 ド 学 人
底 シ 医 則 底 大 な 悪 底 ず さ 底 の 間
リ の   辺 が い い 辺 か ま 辺 負 を
三 一 シ 悪 、 ん シ し 言 シ い 偽
、 リ い 本 だ リ く い リ 目 医
ツ の 人 。 ツ て ま ツ か 者
で の   医 、 せ 医 ら 扱
頭 二 大 学 ん 大 裏 い
、 卒 校 。 卒 口 し
は 名   は 馬 た
を 三 裏 鹿 が
、 口 を る
入 暴 。
く  

694卵の名無しさん2020/10/02(金) 11:02:27.74ID:rygTEqyI
斜め読みは読みづらいな

695卵の名無しさん2020/10/02(金) 11:07:23.40ID:rygTEqyI
 











696卵の名無しさん2020/10/02(金) 11:07:41.00ID:rygTEqyI





























697卵の名無しさん2020/10/02(金) 11:08:05.63ID:rygTEqyI
































698卵の名無しさん2020/10/02(金) 11:09:08.57ID:rygTEqyI






















 

699卵の名無しさん2020/10/02(金) 11:09:17.01ID:rygTEqyI



鹿
















700卵の名無しさん2020/10/02(金) 12:47:44.57ID:rygTEqyI
つづら折り、斜め読み

  一 辺 シ の で ん だ ず か 、 ド を 暴 。
、 底 リ い は い 。 恥 し 三 底 鹿 く  
ド ツ 悪 な 悪   は く   辺 馬 人
医 が い が 二 卒 て 。 シ 口 間
大 、 頭 、 大 、 ん リ 裏 を
本 の ド 医 学 せ ツ ら 偽
人 底 ツ 校 ま 医 か 医
辺 リ 名 い 大 目 者
シ を 言 卒 い 扱
皆 ま は 負 い
さ 裏 の し
口 学 た
入 が
る  



 

701卵の名無しさん2020/10/02(金) 12:47:52.32ID:rygTEqyI
一 辺 シ の で ん だ ず か 、 ド を 暴 。
、 底 リ い は い 。 恥 し 三 底 鹿 く  
ド ツ 悪 な 悪   は く   辺 馬 人
医 が い が 二 卒 て 。 シ 口 間
大 、 頭 、 大 、 ん リ 裏 を
本 の ド 医 学 せ ツ ら 偽
人 底 ツ 校 ま 医 か 医
辺 リ 名 い 大 目 者
シ を 言 卒 い 扱
皆 ま は 負 い
さ 裏 の し
口 学 た
入 が
る  

702卵の名無しさん2020/10/02(金) 13:40:41.41ID:rygTEqyI
> str="安倍は二回も仮病で逃亡した国賊"
> naname2(str)
安 は も 逃 賊
倍 回 で 国
二 病 た
仮 し



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



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



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

703卵の名無しさん2020/10/02(金) 13:42:56.80ID:rygTEqyI
# 1行斜め読み
naname <− function(
  x=”さては裏口容疑者のしりつ医だな”,reverse=TRUE
){
  str=paste0(’ ’,x,collapse=’’)
  n=nchar(str)
  if(reverse)
    for(i in 1:n) cat(rep(’ ’,n−i+1,), substr(str,i,i),’¥n’)
  else
    for(i in 1:n) cat(rep(’ ’,i−1),substr(str,i,i), ’¥n’)

naname()

> naname()
                                  
                              さ 
                            て 
                          は 
                        裏 
                      口 
                    容 
                  疑 
                者 
              の 
            し 
          り 
        つ 
      医 
    だ 
  な 

704卵の名無しさん2020/10/02(金) 20:21:43.78ID:JS9K84/R
naname3 <− function(
str=”ど底辺しりつ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる”,
n=15){
x=character()
for(i in 1:nchar(str)) x[i]=substr(str,i,i)
s=matrix(rep(’ ’,n^2),n)
for(i in 1:n) s[i,n−i+1] <− x[i]
 for(i in 1:(n−1)) s[i+1,n−i+1]=’ ’
for(i in (n+1):(n+n−2))       s[i−  n+2 , 2*n−i+1] <− x[i]
 for(i in 1:(n−3)) s[i+3,n−i+1]=’ ’
for(i in (2*n−1):(2*n−1+n−5)) s[i−2*n+6 , 3*n−i−1] <− x[i]
 for(i in 1:(n−5)) s[i+5,n−i+1]=’ ’
for(i in (3*n−5):(3*n−5+n−7)) s[i−3*n+12, 4*n−i−5] <− x[i]

for(i in 1:n) cat(na.omit(s[i,]),’¥n’)

naname3()

705卵の名無しさん2020/10/02(金) 20:22:09.99ID:JS9K84/R


辺 負
シ い
リ 目 間
ツ か を
医 ら 偽
大 裏 医
卒 口 者
は 馬 扱
裏 鹿 い
口 を し
入 暴 た
学 く が
の 人 る

706卵の名無しさん2020/10/02(金) 20:23:26.12ID:JS9K84/R
 

底 の
辺 負
シ い 人
リ 目 間
ツ か を る
医 ら 偽
大 裏 医
卒 口 者
は 馬 扱
裏 鹿 い
口 を し
入 暴 た
学 く が

707卵の名無しさん2020/10/02(金) 20:24:17.42ID:JS9K84/R
 

底 馬
辺 鹿
シ を
リ 暴
ツ く
医 人
大 間
卒 を
は 偽
裏 医
口 者
入 扱
学 い
の し
負 た
い が
目 る



708卵の名無しさん2020/10/02(金) 20:49:02.03ID:JS9K84/R
 

京 た
医 事
大 件 頭
の だ に
事 よ 立 か
件 ね つ ぎ
は 。 こ り
裏   と 、
口 シ だ 信
入 リ よ 頼
学 ツ 。 の
が 医   回
現 の 裏 復
在 使 口 は
進 命 入 な
行 は 学 い
形 裏 の ね
で 口 学 。
あ 入 生
る 学 を
こ 撲 除
と 滅 籍
如 国 処
実 民 分
に 運 に
し 動 し
め の な
し 先 い

709卵の名無しさん2020/10/02(金) 20:49:33.73ID:JS9K84/R

ま な
り い
、 。 べ
い シ き
つ リ 。 立
ま ツ   て
で 出 裏 ば
経 身 口 よ
っ 者 入 い
て こ 学 ぞ
も そ 医 。
シ 、 師  
リ 裏 の 僕
ツ 口 免 も
医 入 許 裏
大 学 剥 口
卒 に 奪 入
= 厳 を 学
裏 し ! と
口 い の か
バ 処 国 、
カ 分 民 言
と せ 運 っ
汚 よ 動 て
名 を の た
は 訴 先 ら
拭 え 頭 信
え る に 頼

710卵の名無しさん2020/10/02(金) 21:00:21.55ID:JS9K84/R
 

ま 。
り  
、 シ  
い リ 裏
つ ツ 口 。
ま 出 入  
で 身 学 僕
経 者 医 も
っ こ 師 裏
て そ の 口
も 、 免 入
シ 裏 許 学
リ 口 剥 と
ツ 入 奪 か
医 学 を 、
大 に ! 言
卒 厳 の っ
= し 国 て
裏 い 民 た
口 処 運 ら
バ 分 動 信
カ せ の 頼
と よ 先 の
汚 を 頭 回
名 訴 に 復
は え 立 は
拭 る て な
え べ ば い
な き よ 。
い 。 い

711卵の名無しさん2020/10/03(土) 08:11:28.29ID:X8GPnLB6
  ド   シ   三   底   い   が   リ   名   シ   馬
  底   リ   法   辺   の   悪   ツ   を   リ   鹿
辺   ツ   則   シ   で   い   医   皆   ツ   を
  医       リ   は   ん   大   さ   医   暴
の   一   ツ   な   だ   卒   ま   大   く
  、   医   い   。   は   言   卒   人
ド   大   、       恥   い   は   間
  が   本   二   ず   ま   裏   を
悪   人   、   か   せ   口   偽
  の   ド   し   ん   入   医
頭   底   く   。   学   者
  辺   て       の   扱
シ   、   三   負   い
  学   、   い   し
校   ド   目   た
  底   か   が
辺   ら   る
  裏   。
口    
   

712卵の名無しさん2020/10/03(土) 08:13:17.87ID:X8GPnLB6
    ド   シ   三   底   い   が   リ   名   シ   馬
  底   リ   法   辺   の   悪   ツ   を   リ   鹿
辺   ツ   則   シ   で   い   医   皆   ツ   を
  医       リ   は   ん   大   さ   医   暴
の   一   ツ   な   だ   卒   ま   大   く
  、   医   い   。   は   言   卒   人
ド   大   、       恥   い   は   間
  が   本   二   ず   ま   裏   を
悪   人   、   か   せ   口   偽
  の   ド   し   ん   入   医
頭   底   く   。   学   者
  辺   て       の   扱
シ   、   三   負   い
  学   、   い   し
校   ド   目   た
  底   か   が
辺   ら   る
  裏   。
口    

713卵の名無しさん2020/10/03(土) 08:42:05.25ID:X8GPnLB6
左   上   白   な   プ   て   は   に
  の   が   っ   ロ   み   い   く
空   無   て   グ   た   え   い
  駄   い   ラ   。   角   。
に   た   ム       に  
  の   を   省   文  
で   改   ス   字  
  良   ペ   が  
し   ー   並  
  ス   ぶ  
と   と  
  読  
み  
 


左   空   に   で   し   と   み  
  の   駄   の   良   ス   読  
上   無   た   改   ー   と  
  が   い   を   ペ   ぶ  
白   て   ム   ス   並  
  っ   ラ   省   が  
な   グ       字  
  ロ   。   文  
プ   た   に  
  み   角  
て   え  
  い   。
は   い
  く

714卵の名無しさん2020/10/03(土) 08:58:01.50ID:X8GPnLB6
            左   駄   プ   た   に
          上   に   ロ   。   文
        の   な   グ       字
      空   っ   ラ   省   が
    白   て   ム   ス   並
  が   い   を   ペ   ぶ
無   た   改   ー   と
  の   良   ス   読
で   し   と   み
  て   は   に
み   い   く
  え   い
角   。

715卵の名無しさん2020/10/03(土) 08:58:40.76ID:X8GPnLB6
                医   底   で   だ   恥   せ   学   い
          ド   の   辺   は   。   ず   ん   の   し
        底   三   シ   な       か   。   負   た
      辺   法   リ   い   二   し       い   が
    シ   則   ツ   、   、   く   三   目   る
  リ       医   本   ド   て   、   か   。
ツ   一   大   人   底   、   ド   ら    
  、   が   の   辺   学   底   裏    
ド   悪   頭   シ   校   辺   口  
  い   が   リ   名   シ   馬  
の   悪   ツ   を   リ   鹿  
  い   医   皆   ツ   を  
ん   大   さ   医   暴  
  卒   ま   大   く  
は   言   卒   人  
  い   は   間  
ま   裏   を  
  口   偽  
入   医  
  者  
扱  
 

716卵の名無しさん2020/10/03(土) 08:58:46.41ID:X8GPnLB6
            ツ   ド   の   ん   は   ま   入   扱  
          リ   、   い   い   卒   い   口   者  
        シ   一   悪   悪   大   言   裏   医  
      辺       が   が   医   ま   は   偽  
    底   則   大   頭   ツ   さ   卒   を  
  ド   法   医   の   リ   皆   大   間  
    三   ツ   人   シ   を   医   人  
  の   リ   本   辺   名   ツ   く  
医   シ   、   底   校   リ   暴  
  辺   い   ド   学   シ   を  
底   な   、   、   辺   鹿  
  は   二   て   底   馬  
で       く   ド   口  
  。   し   、   裏  
だ   か   三   ら  
  ず       か    
恥   。   目    
  ん   い   。
せ   負   る
  の   が
学   た
  し

717卵の名無しさん2020/10/03(土) 13:16:21.57ID:X8GPnLB6
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だ。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はない。
つまり、いつまで経ってもシリツ医大卒=裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を!の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。

718卵の名無しさん2020/10/03(土) 13:17:04.11ID:X8GPnLB6
            東   進   行   の   使   除   籍   =   裏   医   師    
          京   在   形   医   命   を   処   卒   口   学   の   。
        医   現   で   ツ   は   生   分   大   バ   入   免   い
      大   が   あ   リ   裏   学   に   医   カ   口   許   な
    の   学   る   シ   口   の   し   ツ   と   裏   剥   は
  事   入   こ       入   学   な   リ   汚       奪   復
件   口   と   。   学   入   い   シ   名   。   を   回
  裏   如   だ   撲   口   か   も   は   き   !   の
は   実   件   滅   裏   ぎ   て   拭   べ   の   頼
  に   事   国       り   っ   え   る   国   信
し   た   民   。   、   経   な   え   民   ら
  し   運   と   信   で   い   訴   運   た
め   動   こ   頼   ま   。   を   動   て
  の   つ   の   つ       よ   の   っ
先   立   回   い   シ   せ   先   言
  に   復   、   リ   分   頭   、
頭   は   り   ツ   処   に   か
  な   ま   出   い   立   と
い   つ   身   し   て   学
      者   厳   ば   入
。   こ   に   よ   口
  そ   学   い  
、   入   。  
  口      
裏   僕  
  も  
裏  

719卵の名無しさん2020/10/03(土) 19:55:18.52ID:DtGYj66K
あーあ

720卵の名無しさん2020/10/04(日) 19:43:12.12ID:txbCWDtC

721卵の名無しさん2020/10/04(日) 21:58:15.66ID:txbCWDtC
生活圏を超える人の移動は、確実に接触率を上げ、これが実効再生産数を挙げて、感染者数上昇を引き起こす。
現在、GOTOで東京のウィルスを全国に拡散中。
しばらくは、旅行を楽しむような若者や元気な人が隠れ陽性となり、感染者数は急には増えないが、やがてこれらが顕在化して爆発する。

722卵の名無しさん2020/10/04(日) 22:00:13.58ID:txbCWDtC
世の中には、接客業を繁盛させることが「経済を回す」ことだと勘違いしてる馬鹿が多いので、
製造業がかなり疲弊していることが軽視されている。

723卵の名無しさん2020/10/04(日) 22:08:06.13ID:txbCWDtC
景気が良くても派遣業者とかいう奴隷商人に賃金ピンはねされ
景気が悪くなれば真っ先にくびになる
そんな制度を作ったのが自民党
考え無しに投票した国民による意思だから喜んで解雇されれば良い

724卵の名無しさん2020/10/07(水) 23:00:26.11ID:/kSbnZff
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.

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

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

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

安倍のほうがマシだったという時代が来そうだな。
https://twitter.com/5chan_nel (5ch newer account)

726卵の名無しさん2020/10/08(木) 19:34:02.60ID:206+ydgS
            D   ア   は   知   い   も   医   は   現
          S   ス   削   識   い   な   師   こ   が
        M   ペ   除   を   ぞ   い   に   れ   、
      -   ル   さ   ア   。   真   最   !   さ
    I   ガ   れ   ッ       理   も       て
  V   ー   た   プ   ア   も   イ       は
で   症   こ   デ   ッ   あ   ン   裏   シ
  候   と   ー   プ   る   パ   口   リ
群   く   ト   デ   。   ク   シ   ツ
  ら   し   ー       ト   リ   だ
い   た   ト   (   が   ツ   な
  方   す   例   あ   医    
が   る   )   る       で
  必       レ   こ   あ
要   日   ッ   の   る
  本   テ   マ   。
の   ル   イ  
  貼   ル  
り   ド  
  な  
表  
 

727卵の名無しさん2020/10/09(金) 06:35:42.82ID:MO9EjN/O
そ 返 W タ て だ  
う る O ー い な  
い の R を る    
う は D ス っ    
レ N フ ル て    
ス G ィ ー こ    
が ル し と  

728卵の名無しさん2020/10/09(金) 06:36:37.59ID:MO9EjN/O
そ 返 W タ て だ  
う る O ー い な  
い の R を る    
う は D ス っ    
レ N フ ル て    
ス G ィ ー こ    
が ル し と  

ま グ の 種  
あ ラ 練 の  
、 ミ 習 道  
プ ン で 楽  
ロ グ 一

729卵の名無しさん2020/10/09(金) 18:22:00.81ID:MO9EjN/O
二〇 一一 年三 月 の 東日本大震災 と 東京 電力 福島第一原発事故 以降 にでも、
政府 による 圧倒的 な 産業 支援 や、 または 税制 優遇 を通じて 蓄電池 や それ にまつわる 半導体、 太陽光 パネル と それ に 関連 する 薄膜 技術、 あるいは EV を 想定 し た モーター と 電磁石 などの 技術 開発 に 投資 が 向かっ て いれ ば、 この 分野 で 日本 が 世界的 に 覇権 を 握る こと が 可能 で あっ た だろ う。

730卵の名無しさん2020/10/09(金) 18:22:54.14ID:MO9EjN/O
「戦わ ず し て 負ける 国」 という 文脈 で この 事象 を 見れ ば、 原発 依存 の 継続 は、 米国 が 仕組ん だ 日本 の「 経済的 武装解除」 だっ た のでは ない かと 私 は 推察 する。  
二 一 世紀 の エネルギー 覇権 を 日本 が 握る こと は、 米国 にとって 許さ れ ない。 だから「 原発」 という 過去 の 負 の 遺産 を 背負わ せ 続ける。
そうして 世界 経済 の 中 で 戦える 武器 を 奪い取り、 経済的 属国 化 を 維持、 継続 しよ う と し た のでは ない か。

田崎基. 令和日本の敗戦 ──虚構の経済と蹂躙の政治を暴く (ちくま新書) (Kindle の位置No.2160-2164). 筑摩書房. Kindle 版.

731卵の名無しさん2020/10/11(日) 06:00:20.59ID:vXgR5p/0
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

732卵の名無しさん2020/10/11(日) 06:32:39.03ID:vXgR5p/0
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

733卵の名無しさん2020/10/11(日) 07:34:46.49ID:3gd5bAO1
同時に出発してAとBの間を往復します。
AからBへ向かって太郎君が,BからAへ向かって次郎君が進みます。
AとB地点の間の距離は2400メートルです。2回目に出会った地点は1回目に出会った地点よりも320メートルA側にずれた地点でした。このとき太郎と次郎の速さの比を答えなさい。

734卵の名無しさん2020/10/11(日) 12:25:24.12ID:OQwYWkDR
太郎君の速度をa,次郎君の速度をbとして

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

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚


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からの距離の差が320mなので
2400a/(a+b) - ( 4800-7200a/(a+b) ) = 320

これを展開すると
7a=8b
a/b=8/7
太郎:次郎=8:7

735卵の名無しさん2020/10/11(日) 13:07:27.40ID:OQwYWkDR
>>734
グラフに説明をいれてみた

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

736卵の名無しさん2020/10/11(日) 14:43:19.31ID:OQwYWkDR
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)

737卵の名無しさん2020/10/11(日) 15:16:31.23ID:OQwYWkDR
発展問題を考えてみた。

太郎君と次郎君が同時に出発してAとBの間を往復を繰り返します。
AからBへ向かって太郎君が,BからAへ向かって次郎君が進みます。
AとB地点の間の距離は2400メートルです。2回目に出会った地点は1回目に出会った地点よりも320メートルA側にずれた地点でした。
7回目に会う場所はA地点からどれだけ離れた点か答えなさい。

738卵の名無しさん2020/10/11(日) 20:47:55.10ID:OQwYWkDR
## 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))

739卵の名無しさん2020/10/11(日) 21:45:18.85ID:OQwYWkDR
# 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')

740卵の名無しさん2020/10/11(日) 21:45:42.67ID:OQwYWkDR
横軸を出会いが何回めか、縦軸に出会った点のAからの距離としてグラフにしてみた。

底辺私立医大を卒業した医者って頭悪いよね?  Part17 YouTube動画>19本 ->画像>80枚

741卵の名無しさん2020/10/12(月) 07:44:18.91ID:Zj/JMD3u
Vt:太郎の速度、Vj:次郎の速度
A1:1回目の出会いの点、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

742卵の名無しさん2020/10/12(月) 13:12:22.39ID:SUwbGDSe
## 元利均等返済の支払総額 - 元金均等返済の支払総額
# 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()

743卵の名無しさん2020/10/12(月) 13:14:49.46ID:SUwbGDSe
1億円を年利1%で10年返済で借りたとする。
 元利均等返済の支払総額
 元金均等返済の支払総額
の差はいくらか?

744卵の名無しさん2020/10/12(月) 18:23:49.86ID:1zSGJut3
日本の官僚のような表現だなぁ。

COVID-19 can sometimes be spread by airborne transmission

https://www.cdc.gov/coronavirus/2019-ncov/prevent-getting-sick/how-covid-spreads.html

745卵の名無しさん2020/10/13(火) 08:38:52.98ID:Y7G3krN3
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\UsbStor

この中の「Start」の値を「4」にすればUSBメモリが使えなくなり、「3」にすればUSBメモリが使えるようになるという

746卵の名無しさん2020/10/13(火) 12:18:01.05ID:tuQgtMnl
Windows 10で自動サインインするには、次の手順にしたがって「netplwiz」というコマンドで設定を変更すればよい。

747卵の名無しさん2020/10/13(火) 12:18:44.62ID:Y7G3krN3
自動サインインは便利な反面、パスワードの入力を省くことにより、第三者に勝手にパソコンを利用されるリスクがあるなどの懸念がある。
しかし、個人利用のみで、自宅でしか使っていないパソコンなら、その種の心配は少ないだろう。

パスワードの入力の煩雑さにイライラしていた人は、ぜひ自動サインインで自宅の自分パソコンの起動を快適にして利用してみてはいかがだろうか。

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

748卵の名無しさん2020/10/13(火) 13:24:32.54ID:fNIliGFO
左翼は正論で反駁するからダメなんだよね愚民というものの性質が分かってない。だから選挙で敗ける。

749卵の名無しさん2020/10/14(水) 16:31:36.14ID:DE6sqMps
クリプトン電球(LDS100V54W)

LED電球(LDA6LHE17BHS)

750卵の名無しさん2020/10/15(木) 07:07:49.54ID:S3zpGp7K
>>747
スリープ解除時のパスワード入力を省略する

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

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

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


「しばらく操作しなかった場合に・・・」から [常にオフ] を選択します。

751卵の名無しさん2020/10/15(木) 10:30:33.43ID:BdYTZNok
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

752卵の名無しさん2020/10/15(木) 17:00:30.96ID:0HNu1VEE
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のn番目にnが配置された数を返す
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 0点の場合の数
P0=(N-sum(s))/N
MASS::fractions(P0) # 0点の確率
P=c(P0,s/N) #0点〜5点の確率

score=permutations(6,8,0:5,repeats=TRUE) # 8問のすべての点数(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点以上)になる確率の総和

753卵の名無しさん2020/10/16(金) 10:29:31.81ID:D9Sfv+HZ
社労士試験2 <- 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)
}
社労士試験2(20,5,8,24)
社労士試験2(15,5,8,30)

754卵の名無しさん2020/10/16(金) 17:24:43.94ID:u4+tsgdi
f <- function(Box,Sum){ # Box:箱の数,Sum:入った数字の合計の値
# 重複を許してn個からr個を選ぶ組み合わせを列挙する
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から始まる分を補正
}

箱3個合計9の場合
> f(Box=3,Sum=9)

755卵の名無しさん2020/10/17(土) 08:36:54.78ID:fyhn97rm
'%=>%' = 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])

756卵の名無しさん2020/10/17(土) 14:38:05.30ID:sRhm83DJ
# ロシアのワクチンは旧ソ連の人工衛星にちなみ「スプートニクV」と名付けられた。
# ランセットに掲載された論文によると、
# 76人を対象に第1相および第2相の治験を行ったところ、
# 全員が新型コロナウイルスに対する抗体を獲得したという。
# 米J&J、コロナワクチン治験中断 参加者が原因不明の病気
# 同社は9月、新型コロナワクチンの治験の最終段階に当たる第3相試験に着手したと発表。
# 最大6万人を対象に安全性や有効性を確認するとしていた。

# 治験が再開されて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)

757卵の名無しさん2020/10/17(土) 14:38:24.29ID:sRhm83DJ
# 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)

758卵の名無しさん2020/10/17(土) 14:40:22.82ID:sRhm83DJ
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
)

759卵の名無しさん2020/10/17(土) 14:40:27.01ID:sRhm83DJ
# 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))
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)
}

760卵の名無しさん2020/10/17(土) 15:32:20.54ID:sRhm83DJ
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)

761卵の名無しさん2020/10/17(土) 17:08:54.41ID:sRhm83DJ
安倍・自由移民党のおかげや

日本女性の梅毒患者数はこの5年間で25倍に増加
://biz-journal.jp/2017/03/post_18252.html

762卵の名無しさん2020/10/17(土) 23:32:11.70ID:dEPfTJ75
>>756
> # 全員が新型コロナウイルスに対する抗体を獲得したという。
ワロタ

763卵の名無しさん2020/10/18(日) 04:42:31.02ID:PYky+T0u
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))

764卵の名無しさん2020/10/18(日) 04:44:21.95ID:PYky+T0u
>>762
値に0や1があるとカイ二乗検定が使えないから、ベイズ統計で処理することになるね。

765卵の名無しさん2020/10/18(日) 15:12:57.46ID:SLEF4C2c
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)
}

766卵の名無しさん2020/10/18(日) 15:49:59.13ID:PYky+T0u
"
時刻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つでも含まれる場合は、数字列に対する何らの操作も行わない。
"

767卵の名無しさん2020/10/18(日) 15:50:06.26ID:PYky+T0u
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の1を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)))

768卵の名無しさん2020/10/18(日) 16:28:25.78ID:PYky+T0u
# 書かれた数列から変換後の結果を返す
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の1を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))

769卵の名無しさん2020/10/18(日) 16:28:45.18ID:PYky+T0u
> 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

770卵の名無しさん2020/10/19(月) 06:14:37.34ID:0wKKOwQC
問題:
シリツ医 ならば (馬鹿 ならば 裏口 である) という命題が真であるときに結論できるのは以下のいずれか?

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

771卵の名無しさん2020/10/19(月) 06:20:48.23ID:0wKKOwQC
D2 = function(S,B,U) B2(S,B,U) %=>% A(S,B,U)
all(mapply(D2,gr[,1],gr[,2],gr[,3]))

772卵の名無しさん2020/10/19(月) 08:19:51.56ID:/Dz9Hd0l
"
問題 : 「シリツ医 ならば (馬鹿 ならば 裏口 である)」という命題と同値な命題はどれか?

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

773卵の名無しさん2020/10/19(月) 08:20:03.95ID:/Dz9Hd0l
# 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]))

774卵の名無しさん2020/10/21(水) 10:28:20.87ID:evABqEzF
忘年会は自粛。罹ると面倒くさいし。
14日間隔離、家族や職場、飲みの近くにいる連中も検査して隔離され迷惑もかける。
さらに他人になんか言われそうだしな。
こんな面倒な病気に罹るのはマイナス面しかない

775卵の名無しさん2020/10/22(木) 23:03:27.35ID:bnz5ObG8
is.wholenumber <- function(x, tol = .Machine$double.eps^0.5) abs(x - round(x)) < tol

776卵の名無しさん2020/10/22(木) 23:15:24.81ID:bnz5ObG8
# 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)

777卵の名無しさん2020/10/23(金) 00:04:18.09ID:h/e+1+Nn
オリンピック中止を国民に伝える前に、コロナのせいにするためGOTOキャンペーン推進中というのはうがった見方??

778卵の名無しさん2020/10/23(金) 16:21:26.33ID:qwP7c+cz
モウロクジジイ菅w
意味不明なことばかり言ってるお前が国民に理解されるべきだろうがw

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

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

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

・陰湿・陰険

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

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

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

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

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


やってることも後付け言い訳もヤバすぎるだろ。ピント外れの陰湿モウロク爺さんを通り越してるぞw

779卵の名無しさん2020/10/26(月) 06:16:14.37ID:pV7suPPf
米国が移民政策成功してるのって弱者が病気になろうと
気にせずゴミのように放置できるから社会コストが跳ね上がらないから。

日本だとこういうのもみんな無料医療で国保にタカらせ集中治療室まで使わせるからパンクする

780卵の名無しさん2020/10/27(火) 12:51:04.91ID:fMyc4UrA
共有フォルダの作り方(Windows10)

ダウンロード&関連動画>>

@YouTube


781卵の名無しさん2020/10/27(火) 17:17:00.15ID:fMyc4UrA
>>780
フォルダのプロパティで
共有の設定も必要。

782卵の名無しさん2020/10/28(水) 11:14:40.49ID:rzdMOcb/
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))

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

ある模試でクラスの中でひとりだけ満点、残りは全員0点であったとする。満点の学生の偏差値が80を超えるにはクラスに最低何人いる必要があるか?

783卵の名無しさん2020/10/28(水) 14:08:16.07ID:/M0AdKyc
"
【たばこ】喫煙率 男女合わせて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)))

784卵の名無しさん2020/10/28(水) 20:12:17.49ID:/M0AdKyc
# 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)

785卵の名無しさん2020/10/28(水) 20:16:21.11ID:/M0AdKyc
>>783
"
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)

786卵の名無しさん2020/10/28(水) 20:33:19.00ID:/M0AdKyc
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]

787卵の名無しさん2020/10/28(水) 20:40:14.96ID:/M0AdKyc
【たばこ】喫煙率 男女合わせて16.7%(男性27.1% 女性7.6%) 調査開始以降最低に [ばーど★]

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

http://2chb.net/r/newsplus/1603849457/


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

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

喫煙率調査につかった5700人の男性割合は比較して
日本全体で5056万/(5056万+5446万)の母集団からランダムサンプリングされたと考えてよいか?

788卵の名無しさん2020/10/29(木) 13:27:04.38ID:dPzny2cB
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)

789卵の名無しさん2020/10/29(木) 14:51:39.61ID:dPzny2cB
長方形ABCDの内部の点をPとして
PA=3,PB=4,PC=5のとき長方形の面積の最大値を求めよ。

790卵の名無しさん2020/10/29(木) 14:52:01.61ID:dPzny2cB
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)
}

791卵の名無しさん2020/10/30(金) 11:15:15.46ID:7PaA31uL
安倍政権が在留ベトナム人を増やした

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

在留ベトナム人
2012年 5万2367

2019年 41万1968人

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

在留外国人、293万人で最多 不法残留は6年連続増―入管庁
https://www.jiji.com/jc/article?k=2020032701013&g=soc
>ベトナムは不法残留も39.8%急増し、1万5561人で最多。以下、韓国(1万2563人)、中国(1万902人)の順となった。

792卵の名無しさん2020/10/30(金) 17:24:00.41ID:7PaA31uL
スカ総理って論理的に説明できる能力が皆無なんじゃないのか?

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

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

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

安倍のほうがマシだったという時代が来そうだな。
https://twitter.com/5chan_nel (5ch newer account)

793卵の名無しさん2020/10/31(土) 07:00:49.62ID:zawBtKJY
本当に経営者ってのはセコいやつばかりだなw
無利息融資とかも、大半が数字いじって申請してんだろコレw
普段は自分達のことを「経営者」とかいって偉ぶってるくせにやってることは、労基法ムシシタリ嘘の求人で人を集めたりセクハラパワハラ、そしてコロナ禍での火事場泥棒w
品性下劣なバカにはヤレヤレ

794卵の名無しさん2020/10/31(土) 22:16:01.70ID:C1e9/jO7
derive (sqrt(a^2-x^2)+sqrt(b^2-x^2))*(x+sqrt(x^2+c^2-b^2))

795卵の名無しさん2020/10/31(土) 22:31:01.43ID:C1e9/jO7
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)

796卵の名無しさん2020/10/31(土) 23:51:55.03ID:C1e9/jO7
長方形ABCDの内部または辺上の点をPとして
PA=3,PB=4,PC=5のとき長方形の面積の最大値と最小値を求めよ。

797卵の名無しさん2020/10/31(土) 23:58:38.90ID:C1e9/jO7
>>796
一般解が出せたので寝る。

最大値
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の値と一致

798卵の名無しさん2020/11/01(日) 00:02:13.93ID:MhtecZmU
コピペだが激しく同意。

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

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

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

この地域で〇〇業種で働いてるやつ全員検査うけろ、
とか、この地域の住民全員検査受けろ、
とか、この工場で働いてるやつ全員検査、この学校のやつ全員検査、
みたいに、行政が検査対象を指定して1人も逃さず検査することが重要


lud20201101073510このスレへの固定リンク: http://5chb.net/r/hosp/1592215787/
ヒント:5chスレのurlに http://xxxx.5chb.net/xxxx のようにbを入れるだけでここでスレ保存、閲覧できます。

TOPへ TOPへ  

このエントリをはてなブックマークに追加現在登録者数177 ブックマークへ


全掲示板一覧 この掲示板へ 人気スレ | >50 >100 >200 >300 >500 >1000枚 新着画像

 ↓「底辺私立医大を卒業した医者って頭悪いよね? Part17 YouTube動画>19本 ->画像>80枚 」を見た人も見ています:
底辺私立医大を卒業した医者って頭悪いよね? Part14
底辺私立医大を卒業した医者って頭悪いよね? Part2
底辺私立医大を卒業した医者って頭悪いよね? Part8
底辺私立医大を卒業した医者って頭悪いよね? Part4
底辺私立医大を卒業した医者って頭悪いよね? Part5
底辺私立医大を卒業した医者って頭悪いよね? Part16
底辺私立医大を卒業した医者って頭悪いよね? Part6
底辺私立医大を卒業した医者って頭悪いよね? Part7
底辺私立医大を卒業した医者って頭悪いよね? Part18
底辺私立医大を卒業した医者って頭悪いよね? Part9
底辺私立医大を卒業した医者って頭悪いよね? Part3
底辺私立医大を卒業した医者って頭悪いよね? Part15
底辺私立医大を卒業した医者って頭悪いよね? Part10
底辺私立医大を卒業した医者って頭悪いよね? Part11
底辺私立医大を卒業した医者って頭悪いよね? Part12
底辺私立医大を卒業した医者って頭悪いよね? Part13
底辺私立医大を卒業した頭悪いよね? [無断転載禁止]©2ch.net
宮廷卒なのに、底辺私立医大で学位取得
底辺私立医大卒が国立大学医学部卒を妬むスレ
初級英語も和訳できない底辺私立医大卒のスレ
医大卒業して形成外科で研修医やった人って
私立医大はオウム真理教とどう違うんだ?
【懲りない】偽医者が遺体解剖【慈恵医大】
底辺でヤブ医者だらけの皮膚科医を糾弾するスレ
卒業校にコンプレックスを持つ医者、集まれ!
「発狂]筑波東病院横山治之品川区大井慈恵医大卒業
「未成年へのセクハラ]筑波東病院横山治之品川区大井慈恵医大卒業
医者もどき!東京女子医大 もう絶対にいかない [無断転載禁止]©2ch.net
【死亡退院】【患者大量に薬殺】筑波東病院【横山治之品川区大井慈恵医大卒業】
【未成年へのセクハラ 患者大量に薬殺】筑波東病院横山治之品川区大井慈恵医大卒業
【死亡退院】【未成年へのセクハラ】筑波東病院 横山治之品川区大井慈恵医大卒業
医者やってて今までで一番勃起した診察は?2
医者やってて今までで一番勃起した診察は?3
歯科医院(歯医者)、歯磨き指導とかゴチャゴチャいらねーから黙って虫歯だけ治せっての
医者って偉いの?(笑)
株をやっている医者 六診
医者って何でタメ口なの?
学士入学の医者って....
検索した知識で医者を騙りMath
検索した知識で医者を騙るクズ
検索した知識で医者を騙るクズ
検索した知識で医者を騙る小悪党
検索した知識で医者を騙るクズ★9
検索した知識で医者を騙るクズ★8
検索した知識で医者を騙るクズ★3
検索した知識で医者を騙るクズ★7
検索した知識で医者を騙るクズ★4
検索した知識で医者を騙るクズ★6
検索した知識で医者を騙るクズ★5
歯医者になって良かったと思った事
検索した知識で医者を騙るクズ★2
30代前半で医学部入って医者になった奴
19:26:41 up 28 days, 1:50, 6 users, load average: 17.53, 16.60, 16.53

in 0.26539182662964 sec @0.26539182662964@0.1 on 012519