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

1 ：卵の名無しさん ：2024/01/16(火) 09:07:20.74 ID:3V8WwmwLH.net

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

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

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

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

　一生で最大の屈辱
　一生で最大の屈辱　　　　
　一生で最大の屈辱　　　　　
と表現されております。

---

VIPQ2_EXTDAT: checked:vvvvvv:1000:512:: EXT was configured

601 ：卵の名無しさん (ﾜｯﾁｮｲ 9d58-+zHy [14.13.16.0 [上級国民]])：2024/04/06(土) 10:58:00.56 ID:9b6enGmQ0.net

>>600
類題に別スレでPythonコードが投稿されていた。
あんたが解いてもいいんだけど。
RもPythonも使えない低学力だろ？
大学で教わらなくても東大合格の学力があれば独学で学んでどちらかは使えるだろ。

あんたが解いてもかまわんぞ。

まあ、医師板だから >591にでも解答してみ。
昔、開業医スレに出した問題。

602 ：卵の名無しさん (ﾜｯﾁｮｲ e9f4-ss2F [2400:2411:3fe0:400:*])：2024/04/06(土) 10:59:07.78 ID:ofoo+qRZ0.net

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

603 ：卵の名無しさん (ﾜｯﾁｮｲ d5f6-+zHy [2001:ac8:40:6000:* [上級国民]])：2024/04/06(土) 11:00:41.95 ID:5adKPbaM0.net

RやPythonが使える人の練習問題

ボールが0〜36までの何番のポケットに入るかを当てる、カジノゲーム「ヨーロピアンルーレット」

どのポケットに入る確率も等しいとする。

ルーレットを回して
すべてのポケットに少なくとも1回入ったら終了する。

何回目に終了する確率が最も高いか？

604 ：卵の名無しさん (ﾜｯﾁｮｲ b6af-BnP6 [2001:268:9236:7781:*])：2024/04/06(土) 11:01:02.32 ID:B2rfkjLu0.net

>>601
板名もろくに読めないチンパンが数学だなんだいってんのがおかしいだろ？お薬飲んで小学生からやり直してください

605 ：卵の名無しさん ：2024/04/06(土) 12:10:41.34 ID:zJ9PnpiRH.net

>>601
どこらへんが医者板に相応しいの？
呪文ってなんだよwww
ドラクエ板でやれば

606 ：卵の名無しさん (ﾜｯﾁｮｲ 4e6e-PQnc [153.242.16.144 [上級国民]])：2024/04/07(日) 08:11:25.09 ID:MLc8SIck0.net

横紋筋融解症で入院中だけど北里卒の女医さん頼りになるゾ

607 ：卵の名無しさん ：2024/04/08(月) 05:54:34.11 ID:0nrZk2Or0.net

>>605
やはりスレタイの正しさが証明されたようだな。

608 ：卵の名無しさん ：2024/04/08(月) 05:56:25.33 ID:0nrZk2Or0.net

>>606
では頼りになる医師に>591の解を聞いてみてくれ

609 ：卵の名無しさん ：2024/04/08(月) 06:27:38.30 ID:hp7AykXE0.net

私立医大には二次方程式ができない学生がいるとエナリが公言してたが、これが現実

１次方程式もできない底辺シリツ医の記録
https://i.imgur.com/Crw3kVb.png

610 ：卵の名無しさん ：2024/04/08(月) 06:28:18.72 ID:PDQd+AC50.net

私立医大には二次方程式ができない学生がいるとエナリが公言してたが、これが現実

１次方程式もできない底辺シリツ医の記録
https://i.imgur.com/Crw3kVb.png

611 ：卵の名無しさん ：2024/04/08(月) 06:34:35.97 ID:hp7AykXE0.net

ド底辺シリツ医大の偏差値はシリツ進学を辞退した国立併願者の偏差値である。
http://i.imgur.com/4wHOfpa.jpg

辞退の構造:
国公立合格→上位私大入学権利破棄→補欠者にお鉢→その補欠者が、受かった下位私大の入学権利破棄→その大学の補欠にお鉢・・
合格者と実際の入学者は別物w
上位合格者は併願して合格した国立へ進学w

元の表現だと
>こりゃ入学する奴は国立医に落ちまくったカスばっか

612 ：卵の名無しさん ：2024/04/08(月) 06:36:09.90 ID:hp7AykXE0.net

偏差値 合格者 入学者 辞退者 辞退率
44 1 1 0 0
47 1 1 0 0
49 1 1 0 0
51 3 3 0 0
53 2 2 0 0
55 16 16 0 0
57 31 17 14 45
59 44 21 23 52
61 88 32 56 64
63 101 4 97 96
65 112 2 110 98
67 123 2 121 98
69 75 1 74 99
71 32 0 32 100
73 3 0 3 100
75 3 0 3 100
76 1 0 1 100

をグラフ化
http://imgur.com/GzSigMn.jpg

613 ：卵の名無しさん ：2024/04/08(月) 06:40:07.10 ID:hp7AykXE0.net

臨床統計問題（イロハのイの問題）

>612のデーターから合格者と入学者の偏差値に有意差があるかどうか検定せよ。
正規性が明らかでないため、ノンパラメトリック手法で計算せよ。

614 ：卵の名無しさん ：2024/04/08(月) 06:54:08.49 ID:Mjf2u1NQ0.net

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

615 ：卵の名無しさん (ﾌﾞｰｲﾓ MMff-bePJ [210.138.6.152 [上級国民]])：2024/04/08(月) 08:56:55.16 ID:YRwz55UWM.net

'%>%' <- function(x,y) !x|y # !(x&!y)
TF=c(TRUE,FALSE)
TF=expand.grid(TF,TF)
colnames(TF)=c('TRUE','FALSE')
f=function(x){
P=x[1]
Q=x[2]
P %>% (Q %>% P)
}
cbind(TF,p=apply(TF,1,f))
apply(TF,1,f)

616 ：卵の名無しさん ：2024/04/08(月) 14:46:30.80 ID:zW5ZNl+4H.net

ここが医者板ということすら理解できない脳内医者チンパンジーw

617 ：卵の名無しさん ：2024/04/08(月) 14:50:43.25 ID:zW5ZNl+4H.net

医者じゃなくて医者にご厄介になるほうだろ尿瓶は
さっさとお薬飲め

618 ：卵の名無しさん ：2024/04/08(月) 16:24:07.28 ID:h1beOKy40.net

>>613

730：卵の名無しさん：[sage]：2024/04/08(月) 08:05:00.21 ID:YRwz55UW
市町村健診が始まるまでは内視鏡も予約枠以下だな。
フルコミッションの歩合給で契約しなくてよかった。

732：卵の名無しさん：2024/04/08(月) 15:47:44.88 ID:vUdfaNIH
>>730
今時、内視鏡で歩合性のとことか無いだろ
どこの世界の話？

619 ：卵の名無しさん ：2024/04/08(月) 16:53:27.30 ID:0nrZk2Or0.net

臨床統計問題（イロハのイの問題）

>612のデーターから合格者と入学者の偏差値に有意差があるかどうか検定せよ。
正規性が明らかでないため、ノンパラメトリック手法で計算せよ。

620 ：卵の名無しさん ：2024/04/08(月) 19:09:58.59 ID:Mjf2u1NQ0.net

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

621 ：卵の名無しさん (ﾜｯﾁｮｲ df37-r0gw [2001:268:9234:70c1:*])：2024/04/09(火) 01:25:04.91 ID:G1eUf0Y90.net

で、歩合制ってどこのチンパン医療の話なんだ？

622 ：卵の名無しさん (JP 0H8a-r0gw [153.246.51.25])：2024/04/09(火) 12:29:04.11 ID:wgj7e50cH.net

https://rio2016.5ch.net/test/read.cgi/math/1712376048/

例によってチンパン数学を垂れ流しているが誰にも相手にされずw

623 ：卵の名無しさん ：2024/04/10(水) 19:53:59.41 ID:3EiImSQDH.net

WolframをRに移植
"
Make a line plot of a list of 100 random integers where the n-th integer is between 0 and n.
ListLinePlot[Table[RandomInteger[{0,n},1],{n,100}]]
"
R=NULL
for(n in 1:100) R[n]=sample(0:n,1)
plot(R,type='l')

624 ：卵の名無しさん (ﾜｯﾁｮｲ 3b58-P/Fc [14.13.16.0 [上級国民]])：2024/04/11(木) 16:34:09.56 ID:/ze3Go5I0.net

Wolframの関数をRに移植してみた。

# IntegerDigits[n] gives a list of the decimal digits in the integer n
IntegerDigit=\(n) n%/%10^(floor(log10(n)):0) %% 10
IntegerDigit(12345689012345678)
IntegerDigit(123456890123456789)


IntegerDigits=\(n){ # s : s of string
strsplit(as.character(n),'') |> unlist() |> as.numeric()
}
IntegerDigits(12345689012345678)
IntegerDigits(123456890123456789)

625 ：卵の名無しさん ：2024/04/11(木) 19:10:26.91 ID:L/dVU2eE0.net

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

626 ：卵の名無しさん ころころ (ﾜｯﾁｮｲ a3f6-P/Fc [2001:ac8:40:6000:* [上級国民]])：2024/04/12(金) 00:11:30.34 ID:SiEqt4J60.net

IntegerDigits[n] gives a list of the decimal digits in the integer n
IntegerDigits[n, b] gives a list of the base b

IntegerDigits[n, b]をRに移植

IntegerDigits =\(n, b=10){
r=n%%b
q=n%/%b
while(q > 0){
r=append(q%%b,r)
q=q%/%b
}
return(r)
}

> IntegerDigits(1234567890,2)
[1] 1 0 0 1 0 0 1 1 0 0 1 0 1 1 0 0 0 0 0 0 0 1 0 1 1 0 1 0 0 1 0


Wolframでの出力
In[8]:= IntegerDigits[1234567890,2]

Out[8]= {1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0}

627 ：卵の名無しさん ：2024/04/12(金) 06:15:45.86 ID:sdAWpiVH0.net

IntegerDigits[n] gives a list of the decimal digits in the integer n

> . IntegerDigits[n, b] gives a list of the base b


> digits in the integer n. IntegerDigits[n, b, len]


> pads the list on the left with zeros to give a list of length len

IntegerDigits =\(n, b=10,len=1){
r=n%%b
q=n%/%b
while(q > 0 | len > 1){
r=append(q%%b,r)
q=q%/%b
len = len -1
}
return(r)
}

IntegerDigits(1234567890)
IntegerDigits(1234567890,16)
IntegerDigits(1234567890,8,20)

628 ：卵の名無しさん ：2024/04/12(金) 06:51:53.06 ID:sdAWpiVH0.net

四角形ABCDで 対角線BDが角Bと角Dをどちらも二等分し、
対角線ACが角Aを二等分しているとき、 この四角形は菱形といえますか。
https://i.imgur.com/STCa7Ox.png

629 ：卵の名無しさん ：2024/04/12(金) 06:56:03.02 ID:sdAWpiVH0.net

> angle(B,D,A) ; angle(B,D,C)
[1] 0.1406664
[1] 0.1448525
> angle(D,B,A) ; angle(D,B,C)
[1] 0.2044789
[1] 0.2059283
> par
[1] 0.4182726 0.6057872
> theta
[1] 74

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

630 ：卵の名無しさん ：2024/04/12(金) 07:10:03.56 ID:n3xbmL4P0.net

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

631 ：卵の名無しさん ：2024/04/12(金) 07:22:31.56 ID:gFjlJb56H.net

〜幼少期のジョージ・ワシントンが、斧の切れ味を試したくなり、自宅の庭の桜の木を切り倒してしまった。しかしその木は実は、父親が大切にしていた桜。のちにジョージ少年は父親から「あの美しい桜を切ったのは誰か、知っているか？」と問われ、「僕は嘘はつけない…」と逡巡しながらも、「お父さん、僕が斧で桜の木を切りました」と正直に打ち明けると、父は怒るどころか「勇気ある行動（正直な告白）に価値がある」と息子をゆるし、褒めた。〜

https://precious.jp/articles/-/12046

問題：　なぜ父親は息子を許したか？

632 ：卵の名無しさん：2024/04/12(金) 21:03:21.19 ID:KBUWmJGh7

ワクチン禍も、その発生率から云うと
ヤブ医者の存在率も変わらんね。

ヤブ医師は国家資格を剥奪して
看護師に降格すべきだわ。

また、大口病院の入院患者毒殺事件の
犯人である看護婦は、もはや善悪の判断が
出来なくなってる精神病患者だから
人食いラインオのように射殺すべきだよ。

ま、死刑になってるから問題ねえな。

633 ： 警備員[Lv.8][苗] (ﾜｯﾁｮｲ 4e6e-PQnc [153.242.16.144 [上級国民]])：2024/04/13(土) 04:47:59.65 ID:VzARqhTT0.net

払うつもりは

634 ：卵の名無しさん (ﾜｯﾁｮｲ dfd4-RM5q [2400:4050:8424:1f10:*])：2024/04/13(土) 04:53:11.45 ID:EcuFUL590.net

川崎最高

635 ：卵の名無しさん ：2024/04/13(土) 11:15:45.02 ID:GsGqQwc+H.net

>>634
学費最高、偏差値最低　は　今も同じ？？

636 ：卵の名無しさん ：2024/04/13(土) 20:12:19.12 ID:m4t4Suf/0.net

待機時間にWolfram独学中

n!を2進法で表したときの桁数をm[n]とする。
例
　5! = 120 = 1 1 1 1 0 0 0(2進法)なので7桁。
　即ち　m[5]=7
数列 m[1],m[2],...,m[2023],m[2024]
で先頭の数字として最も多く現れる数字は1〜9のいずれかを述べよ。
現れる頻度順に1〜9の数字を並べよ。

m=Table[Length[IntegerDigits[n!,2]],{n,2024}]
b=Table[First[IntegerDigits[a]],{a,m}]
Table[Count[b,c],{c,1,9}]

637 ：卵の名無しさん ：2024/04/13(土) 22:01:16.39 ID:y76vsmqs0.net

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

638 ：卵の名無しさん (ﾜｯﾁｮｲ d1c7-XFh8 [124.47.76.122 [上級国民]])：2024/04/14(日) 05:16:55.54 ID:L/3YUpCZ0.net

素数を小さい順に100万個集める。
先頭の数字として現れる数字を頻度の多い順に並べなさい。


a=Table[Count[Table[First[IntegerDigits[n]], {n, Prime[Range[10^6]]}],m],{m,9}]
a
b=Ordering[a]
b
Reverse[Table[Range[9][[i]],{i,b}]]

639 ：卵の名無しさん (ﾜｯﾁｮｲ d1c7-MMLs [124.47.76.122])：2024/04/14(日) 05:38:15.75 ID:L/3YUpCZ0.net

素数を小さい順に100万個集める。
先頭の数字として現れる数字を頻度の多い順に並べなさい。


a=Table[Count[Table[First[IntegerDigits[n]], {n, Prime[Range[10^6]]}],m],{m,9}]
Reverse[Table[Range[9][[i]],{i,Ordering[a]}]]

library(RcppAlgos)
p=primeSieve(2,1e8)[1:1e6]
sapply(p,\(n) n%/%(10^floor(log10(n)))) |> table() -> tbl
tbl
order(tbl,decreasing = TRUE)

640 ：卵の名無しさん (ﾜｯﾁｮｲ d1c7-za0e [124.47.76.122 [上級国民]])：2024/04/14(日) 08:49:26.85 ID:L/3YUpCZ0.net

N=10000
n=20
m=10

sim=\(){
i=1
L=rep(0:1,c(N-n,n))
while(sum(sample(L,m))==0){
L=rep(0:1,c(N-n-m*i,n))
i=i+1
}
i
}
y=replicate(1e4,sim())
summary(y)
hist(y)

641 ：卵の名無しさん：2024/04/14(日) 10:47:37.89 ID:lNP/RdMwg

ルシファーみたいな雑魚ゴミがいるな

642 ：卵の名無しさん ：2024/04/14(日) 10:07:26.03 ID:dOCkL79q0.net

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

643 ：卵の名無しさん ：2024/04/14(日) 14:16:14.44 ID:Z7OdFIe50.net

>>635
東京医科歯科の国試合格率は？
私立医と比べて上？

644 ：卵の名無しさん ：2024/04/14(日) 14:25:53.47 ID:L/3YUpCZ0.net

n0=10000
n=n0
n20=20
n10=10
count=1
atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]]
While[atari==0,n-=20;count++;atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]]]
li={count,atari}

645 ：卵の名無しさん ：2024/04/14(日) 14:58:32.36 ID:L/3YUpCZ0.net

sim := (
n0=10000;
n=n0;
n20=20;
n10=10;
count=1;
atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]];
While[atari==0,n-=20;count++;atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]]];
li={count,atari}
)

k=10^5
re=Table[sim,k]
p=2500
a=1000000
balance=Table[-p*n10*re[[i,1]]+re[[i,2]]*a,{i,k}]
Mean[balance]
Median[balance]

646 ：卵の名無しさん ：2024/04/14(日) 16:32:57.71 ID:LCUBp+Bl0.net

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

647 ：卵の名無しさん ：2024/04/14(日) 19:10:10.42 ID:5HEdv+C80.net

>>645
何都合の悪いことは黙ってんだよ
>>643に反論出来ねぇなら書き込むんじゃねぇよ
マジで頭悪いねゴミクズ

648 ：卵の名無しさん ：2024/04/15(月) 13:47:06.90 ID:mlWvsrkI0.net

>>647
国試の合格率とか気にするとは底辺シリツだろうな。
大学も国試も現役合格したから興味ないね。

シリツは国試合格しそうもないのは卒業させないからね。
川崎だと全学で100人くらい留年者がいるらしい。
留年者の学費だけで1年7億。
留年ビジネスモデルと言われていたな。

一般的に難関大学ほど進級判定が甘い。
安部公房は医者をやらないならば卒業させるという条件で卒業したとか。

649 ：卵の名無しさん (ﾜｯﾁｮｲ 7324-XFh8 [149.50.210.2 [上級国民]])：2024/04/16(火) 07:08:58.48 ID:kkHLe9110.net

合格率の分母を受験者数でなく、6年前の新入生の数で計算してこそ
真のシリツの合格率というべきだな。

これが実態

ド底辺シリツ医大の偏差値はシリツ進学を辞退した国立併願者の偏差値である。
http://i.imgur.com/4wHOfpa.jpg


辞退の構造:
国公立合格→上位私大入学権利破棄→補欠者にお鉢→その補欠者が、受かった下位私大の入学権利破棄→その大学の補欠にお鉢・・
合格者と実際の入学者は別物w
上位合格者は併願して合格した国立へ進学w

元の表現だと
>こりゃ入学する奴は国立医に落ちまくったカスばっか

650 ：卵の名無しさん (ﾜｯﾁｮｲ 53ae-D7pH [2400:2200:6f2:ab20:*])：2024/04/16(火) 07:15:11.42 ID:cNQi6+Lq0.net

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

651 ：卵の名無しさん ：2024/04/17(水) 03:48:39.61 ID:qfXzsWUI0.net

2^(p-1)≡3^(p-1)≡...≡(p-3)^(p-1)≡(p-2)^(p-1)≡(p-1)^(p-1) (mod p)

652 ：卵の名無しさん ：2024/04/17(水) 03:53:37.45 ID:qfXzsWUI0.net

2^(p-1)≡3^(p-1)≡...≡(p-3)^(p-1)≡(p-2)^(p-1)≡(p-1)^(p-1) (mod p)

f1[n_] := Table[Mod[a^b,n],{b,n-1},{2,n-1}]
f2[n_] := Table[Union[li],{li,f1[n]}]
f3[n_] := Table[Length[f2[n][[m]]],{m,n-1}]
f4[n_] := Min[f3[n]]
n=2; m=1; While[m<2024,n++; m=m+Boole[f4[n]==1]]
n

653 ：卵の名無しさん ：2024/04/17(水) 17:07:39.22 ID:UD59Rbp40.net

# P乗の剰余が0,1になる剰余系を求める
f = \(n,p) (0:(n-1))^p%%n |> unique() |> length()
(sapply(1:99,\(x) f(x,p=6))==2) |> which()
(sapply(1:99,\(x) f(x,p=4))==2) |> which()

calc = \(P) (sapply(1:99,\(x) f(x,p=P))==2) |> which()
for(P in 2:10) cat(P,':',calc(P),'\n')

654 ：卵の名無しさん ：2024/04/17(水) 17:11:59.94 ID:qfXzsWUI0.net

> for(P in 2:10) cat(P,':',calc(P),'\n')
2 : 2 3 4
3 : 2
4 : 2 3 4 5 8 16
5 : 2
6 : 2 3 4 7 8 9
7 : 2
8 : 2 3 4 5 8 16 32
9 : 2
10 : 2 3 4 8 11

655 ：卵の名無しさん (ﾜｯﾁｮｲ 1b7c-D7pH [2400:2200:6d7:704e:*])：2024/04/17(水) 19:10:14.14 ID:MkyFVSRU0.net

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

656 ：卵の名無しさん (ﾜｯﾁｮｲ 2158-TkrT [14.13.16.0 [上級国民]])：2024/04/18(木) 11:20:48.05 ID:+ry/U8nR0.net

Wolfram言語に慣れるための練習問題
https://www.jstor.org/stable/3611701
の素数の一般項をWolframに1行で実装せよ。

prime[n_] := 1 + Total[Table[Floor[(n/( Total[Table[Floor[Cos[(Factorial[k-1]+1)Pi/k]^2],{k,1,m}]]))^(1/n)],{m,1,2^n}]]

657 ：：2024/04/18(木) 15:21:42.25 ID:G90zZLV/0.net

尿瓶ジジイいつになったら脳内医者じゃないってこと証明してくれるの？チンパン数学得意だろ？

658 ：：2024/04/18(木) 15:25:44.27 ID:PCl1oSxXH.net

>>648
散々論破されて発狂してダンマリ決め込んでを繰り返してるのに未だに自分のこと医者だと思い込んでるんだねw
実に哀れw

659 ：卵の名無しさん ：2024/04/19(金) 04:12:18.32 ID:gzHlOBqDa.net

近所の病院医師は地域の最低辺私大出
ぱかり…最近出身大学をネットでも病院内でも一切公表しなくなった、入院患者が良くなって退院したのをみたこともない。皆お帰りは葬儀社の車だ

660 ：卵の名無しさん (ﾌﾞｰｲﾓ MM33-za0e [49.239.66.111 [上級国民]])：2024/04/19(金) 08:40:22.88 ID:/j+JcaxoM.net

(* solve sin(mθ) = sin(nθ) 0<θ<π m>0 n>0*)

solve[m_,n_] := (a=(m+n+1)/2;
Table[(2b-1)Pi/(m+n),{b,1,Floor[a]-Boole[IntegerQ[a]]}])

661 ：卵の名無しさん (ﾌﾞｰｲﾓ MM33-za0e [49.239.66.111 [上級国民]])：2024/04/19(金) 08:43:45.67 ID:/j+JcaxoM.net

シリツ医大の高額な学費を払える経済環境なら
教育投資して地元国立大学に入れるくらいの学力はついたはず。
川崎医大の創始者の子弟は国立卒。
幸い東京には国立大学医学部が２つある。

教育投資しても国立大学合格の学力がつかなかったのが行くのがシリツ医大。
不正入試でも除籍になった学生は０
すなわち、シリツ医＝裏口容疑者

662 ：：2024/04/19(金) 11:23:15.55 ID:VcZ0QXLj0.net

学費を出せても数学の問題文の日本語すらまともに読めないオツムじゃどこの医学部も無理だろうねw

663 ：卵の名無しさん ：2024/04/19(金) 12:25:57.65 ID:jyA19snA0.net

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

664 ：卵の名無しさん ：2024/04/19(金) 16:41:59.58 ID:lzd31nIhd.net

おっ、書き込めるようになった

665 ：卵の名無しさん ：2024/04/19(金) 17:54:42.76 ID:TlfeA1um0.net

8桁くらいまでの素数なら
Rの標準機能でｎ以下の素数を出すのは簡単。
配列から合成数を除くというアルゴリズム
配列[-i]は配列からi番目を除くというRの仕様が何かと便利。
Pythonだと最後からi番目を返す。

おまけ、Rのコードのサラダ

primes = function(n){
pmax=floor(sqrt(n))
p=(1:pmax)[-outer(2:pmax,2:pmax)][-1]
P=p[length(p)]+1
f=function(x) all(x%%p!=0)
c(p,(P:n)[sapply(P:n,f)])
}


1000万までの素数を列挙
> primes(10^7) |> tail()
[1] 9999931 9999937 9999943 9999971 9999973 9999991

666 ：：2024/04/19(金) 18:13:27.23 ID:Ek+HeT/Y0.net

また言葉のサラダを垂れ流してるのか統失患者は
さっさとお薬飲め

667 ：卵の名無しさん (ﾜｯﾁｮｲ d9f4-D7pH [2400:2411:3fe0:400:*])：2024/04/19(金) 18:26:20.58 ID:5S7ABuQB0.net

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

668 ：：2024/04/20(土) 00:34:15.72 ID:GFEHYFvN0.net

>>664
尿瓶ジジイはこんな時も延々と書き込んでたのか
書き込まないと息ができないのかな？w

669 ：卵の名無しさん (ﾜｲｰﾜ2 FFa3-cBs0 [103.5.140.160 [上級国民]])：2024/04/20(土) 09:43:38.07 ID:kh2Eet3xF.net

あらま

670 ：：2024/04/20(土) 17:18:55.52 ID:MDFhPqQ40.net

ワロタ

671 ：卵の名無しさん ：2024/04/21(日) 18:14:24.70 ID:lkEjNZoL0.net

n=30
m=10
a=5

d={-2,1,0,4,1,-3,4,-1,2,4,0,-3,-4,-5,-5,0,5,-4,2,4,-4,3,5,2,-4,2,-1,-3,-5};
da=Accumulate[d];
t1=m - Total[da]/n;
ts=Prepend[da+t1,t1]
Needs["RLink`"]
InstallR[]
combn = REvaluate["combn"];
y=combn[n,a]; (* y=REvaluate["combn(30,5)"] ; *)
nc=Length[y[[1]]]; (* number of comibination *)
re=Mean[Table[ts[[y[[i]][[j]]]],{i,a},{j,nc}]];
Mean[re]
Quantile[re,{0.025,0.5,0.975}]

672 ：卵の名無しさん (ﾜｯﾁｮｲ 8fc7-hLVv [124.47.76.122])：2024/04/22(月) 04:30:54.04 ID:t0ppkfzJ0.net

Random[]; Random[Real]
runif(1)
Random[Integer]
sample(0:1,1) ; rbinom(1,1,0.5)
(* RandomInteger::argb: RandomInteger called with 3 arguments; between 0 and 2 arguments are expected.*)
RandomInteger[30] (* Perplexing !!)
sample(0:30,1)
RandomInteger[30,5]
sample(0:30,5,replace=TRUE)
RandomInteger[{1,30},5]
sample(30,5,replace=TRUE)

RandomReal[{-Pi,Pi},10]
runif(10,-pi,pi)
RandomComplex[1+1I,10] ; Table[Random[Complex],10]
runif(10)+1i*runif(10)
RandomComplex[1-Pi I,2+Pi,10]
runif(10,1,2)+1i*runif(-pi,pi)

673 ：卵の名無しさん (ﾌﾞｰｲﾓ MMdf-7vPn [133.159.149.21 [上級国民]])：2024/04/22(月) 05:21:35.46 ID:SyVkIenzM.net

https://mathematica.stackexchange.com/questions/85278/is-there-a-built-in-equivalent-to-pythons-enumerate

674 ：：2024/04/22(月) 05:48:37.74 ID:6m48Iv8q0.net

そうかな

675 ：卵の名無しさん ：2024/04/22(月) 06:56:14.03 ID:6gwBXAd90.net

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

676 ：卵の名無しさん (ﾌﾞｰｲﾓ MMdf-7vPn [49.239.68.87 [上級国民]])：2024/04/22(月) 08:08:29.35 ID:5MYEaEbxM.net

d=c(0,5,-2,-4,7,-1)
ts=14+cumsum(d)
k=1e4
re=replicate(k,mean(sample(ts,length(ts),replace=TRUE)))
summary(re)
quantile(re,p=c(0.025,0.5,0.975))

m=mean(ts); m
sd=sd(ts) ;sd
qnorm(.975)
c(m-qnorm(.975)*sd,m+qnorm(.975)*sd)

677 ：卵の名無しさん (ﾜｯﾁｮｲ 8fc7-7vPn [124.47.76.122 [上級国民]])：2024/04/22(月) 08:23:33.06 ID:t0ppkfzJ0.net

https://qiita.com/khiri-co/items/977e51074970f8e61c5f

678 ：卵の名無しさん (ﾌﾞｰｲﾓ MMdf-7vPn [49.239.68.87 [上級国民]])：2024/04/22(月) 08:41:33.26 ID:5MYEaEbxM.net

ts={14 ,19 ,17 ,13, 20 ,19}
k=1*^5
re=Table[Mean[RandomChoice[ts,Length@ts]],k]
Mean[re]
Quantile[re,{0.025,0.5,0.975}]

679 ：卵の名無しさん ：2024/04/23(火) 06:09:35.07 ID:cuDP9RhHd.net

最近疑問に思うのだが、底辺私立医大卒の医者は、なぜ国立医大に行かなかったのだろう⁈

可哀想なのは患者だけで無く、底辺私立医大卒の家族たち!!
日々の何気ない生活の中で、時には知り合いから『お宅のご主人の大学は??』『おまえのお父さんの大学どこ??』という質問をうける事もあるだろう。
そんな時、阿保医者の家族達は『知らないんだょね』と誤魔化すのが精一杯、、知らない筈はないが（笑）

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

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

680 ：卵の名無しさん ：2024/04/23(火) 06:50:17.43 ID:o5UY1SHn0.net

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

681 ：：2024/04/23(火) 07:29:50.13 ID:Hxwc1rjba.net

他人の家族の大学どこ？なんてまず聞かないだろw
ひきこもりかよ

682 ：卵の名無しさん ：2024/04/23(火) 08:30:49.91 ID:6GWPMFzHd.net

>>679
こういうセリフは現実を知らない医者じゃ無い奴が書いてるよな
羨ましかったら医者になればよかったのに
偏差値低くてなれなかったんだろうな

683 ：：2024/04/23(火) 08:42:34.51 ID:Hxwc1rjba.net

ここのスレ尿瓶しか発狂してないのに全部ダンマリ決め込んでチンパン数学垂れ流した時くらいからこういう書き込み増えたな
どうせ自演なんだろうけどw

684 ：卵の名無しさん ：2024/04/24(水) 05:07:28.35 ID:gfSmTVc/0.net

シリツ医大の高額な学費を払える経済環境なら
教育投資して地元国立大学に入れるくらいの学力はついたはず。
川崎医大の創始者の子弟は国立卒。

教育投資しても国立大学合格の学力がつかなかったのが行くのがシリツ医大。
不正入試でも除籍になった学生は０
すなわち、シリツ医＝裏口容疑者

685 ：卵の名無しさん ：2024/04/24(水) 05:07:55.33 ID:gfSmTVc/0.net

誰も反論できないようだな。

シリツ医大の高額な学費を払える経済環境なら
教育投資して地元国立大学に入れるくらいの学力はついたはず。
幸い東京には国立大学医学部が２つある。

教育投資しても国立大学合格の学力がつかなかったのが行くのがシリツ医大。
不正入試でも除籍になった学生は０
すなわち、シリツ医＝裏口容疑者

686 ：卵の名無しさん ：2024/04/24(水) 12:40:37.87 ID:35LpFGV90.net

国立医に国立医と言うと　何も起きない
しかし
私立医に私立医と言うと、顔を真っ赤にして怒り出すｗ

687 ：卵の名無しさん ：2024/04/24(水) 12:46:00.61 ID:GdwhEVrG0.net

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

688 ：卵の名無しさん ：2024/04/24(水) 14:36:19.95 ID:peZsWk3QH.net

>>685
地方の国立医行くぐらいなら
今は都内の私立医行くよ
そんなこともわからないの？本当に医者？

689 ：：2024/04/24(水) 19:15:28.42 ID:qGEeTk4ga.net

>>685
脳内医者というのに反論できないからここで発狂してんだろ？w
慶医は別格扱いして2000万ほど金がかかるってことにはダンマリだし
(トップクラスの学力と財力もある医者には何も言えない模様ww)
日本語通じないチンパンにいくら金かけても医者にはなれないだろうなw自演には反論できないのかよ？

690 ：卵の名無しさん ：2024/04/24(水) 23:51:08.01 ID:gfSmTVc/0.net

>>688
都内の国立行けばいいじゃん。
幸い東京には国立大学医学部が２つある。

691 ：：2024/04/24(水) 23:56:00.72 ID:qGEeTk4ga.net

>>690
地方の国立に行くならって言ってんだろ
相変わらず日本語理解できないアホチンパンみたいだね
それじゃ医学部どころかどこの大学の受験資格すらないだろww
アンタにとってはその国立あっても豚に真珠だろ
どうせ脳内だってバレてるぞ
あ、統失で病識ないのかw

692 ：：2024/04/24(水) 23:56:27.14 ID:qGEeTk4ga.net

悔しかったらさっさと卒業証書だせよチンパンジーw

693 ：：2024/04/25(木) 00:15:02.96 ID:K5343LLea.net

>>690
さっさとお薬飲めよ尿瓶ジジイ
世間でもここでも相手にされないのは病識ない統失だからだよ
それともただのチンパンジーが人のふりしてるだけか？w

694 ：卵の名無しさん ：2024/04/25(木) 06:51:48.01 ID:Br6i+yIR0.net

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

695 ：卵の名無しさん ：2024/04/25(木) 11:21:56.65 ID:98ttXe3O0.net

>>179
秀丸エディタをバージョンアップしたら、あのダサいアイコンが出現。
起動時にCRCのチェックはしていないようなのでResource　Hackerを使って.exeファイルのアイコンを置換。

696 ：卵の名無しさん ：2024/04/25(木) 13:57:43.89 ID:6CMGEqZoH.net

>>690
お前って日本語理解出来ないよな
考えがまとまらなくて会話出来ない
どう考えても統合失調症だよ

697 ：卵の名無しさん ：2024/04/25(木) 16:24:16.21 ID:0RgLTcLb0.net

>>690
合併で東工大に吸収されてしまうが
東京医科歯科はお勧めできない
桜蔭とか都内女子高ならいくのはありだが
地方の男子高校生がいくのは超絶コスパが悪い
首都圏では東大や慶応が強すぎて、関連病院が弱い
つまりポストが少ない

698 ：卵の名無しさん ：2024/04/25(木) 16:39:30.24 ID:0RgLTcLb0.net

医科歯科は難度が高い割にメリットが少ない
首都圏に拘る必要がなければ、地方の旧帝に行った方がよい

699 ：：2024/04/25(木) 17:21:49.22 ID:waK9MmUg0.net

>>697
こいつ医者板と数学板で長年発狂しまくってる自称医科歯科()の自分が医者だと思い込んでる統失患者だから何言っても無駄だと思いますよ先生

700 ：卵の名無しさん：2024/04/26(金) 00:02:06.36 ID:VBO0nehE+

これからの医者はだな、患者のメンタルを第一に考えて
まるで高級ホストクラブのようなサービス対応のできる
臨床医か、神技を持つブラックジャックのような達人外科医だね。

検査とデータ収集、それに基づく患者の病状の見立て
投薬の決定と手配などは、みんなＡＩが制御する全自動
医療システムがやってくれる。　せいぜいその全自動機械の
隙間を埋める作業員や病院の各種メンテナンス要員だわな。