24/04/15 13:47:06.90 mlWvsrkI0.net
>>647
国試の合格率とか気にするとは底辺シリツだろうな。
大学も国試も現役合格したから興味ないね。
シリツは国試合格しそうもないのは卒業させないからね。
川崎だと全学で100人くらい留年者がいるらしい。
留年者の学費だけで1年7億。
留年ビジネスモデルと言われていたな。
一般的に難関大学ほど進級判定が甘い。
安部公房は医者をやらないならば卒業させるという条件で卒業したとか。
649:卵の名無しさん (ﾜｯﾁｮｲ 7324-XFh8 [149.50.210.2 [上級国民]])
24/04/16 07:08:58.48 kkHLe9110.net
合格率の分母を受験者数でなく、6年前の新入生の数で計算してこそ
真のシリツの合格率というべきだな。
これが実態
ド底辺シリツ医大の偏差値はシリツ進学を辞退した国立併願者の偏差値である。
URLﾘﾝｸ(i.imgur.com)
辞退の構造:
国公立合格→上位私大入学権利破棄→補欠者にお鉢→その補欠者が、受かった下位私大の入学権利破棄→その大学の補欠にお鉢・・
合格者と実際の入学者は別物w
上位合格者は併願して合格した国立へ進学w
元の表現だと
>こりゃ入学する奴は国立医に落ちまくったカスばっか
650:卵の名無しさん (ﾜｯﾁｮｲ 53ae-D7pH [2400:2200:6f2:ab20:*])
24/04/16 07:15:11.42 cNQi6+Lq0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
651:卵の名無しさん
24/04/17 03:48:39.61 qfXzsWUI0.net
2^(p-1)≡3^(p-1)≡...≡(p-3)^(p-1)≡(p-2)^(p-1)≡(p-1)^(p-1) (mod p)
652:卵の名無しさん
24/04/17 03:53:37.45 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:卵の名無しさん
24/04/17 17:07:39.22 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:卵の名無しさん
24/04/17 17:11:59.94 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:*])
24/04/17 19:10:14.14 MkyFVSRU0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
656:卵の名無しさん (ﾜｯﾁｮｲ 2158-TkrT [14.13.16.0 [上級国民]])
24/04/18 11:20:48.05 +ry/U8nR0.net
Wolfram言語に慣れるための練習問題
URLﾘﾝｸ(www.jstor.org)
の素数の一般項を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:
24/04/18 15:21:42.25 G90zZLV/0.net
尿瓶ジジイいつになったら脳内医者じゃないってこと証明してくれるの？チンパン数学得意だろ？
658:
24/04/18 15:25:44.27 PCl1oSxXH.net
>>648
散々論破されて発狂してダンマリ決め込んでを繰り返してるのに未だに自分のこと医者だと思い込んでるんだねw
実に哀れw
659:卵の名無しさん
24/04/19 04:12:18.32 gzHlOBqDa.net
近所の病院医師は地域の最低辺私大出
ぱかり…最近出身大学をネットでも病院内でも一切公表しなくなった、入院患者が良くなって退院したのをみたこともない。皆お帰りは葬儀社の車だ
660:卵の名無しさん (ﾌﾞｰｲﾓ MM33-za0e [49.239.66.111 [上級国民]])
24/04/19 08:40:22.88 /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 [上級国民]])
24/04/19 08:43:45.67 /j+JcaxoM.net
シリツ医大の高額な学費を払える経済環境なら
教育投資して地元国立大学に入れるくらいの学力はついたはず。
川崎医大の創始者の子弟は国立卒。
幸い東京には国立大学医学部が２つある。
教育投資しても国立大学合格の学力がつかなかったのが行くのがシリツ医大。
不正入試でも除籍になった学生は０
すなわち、シリツ医＝裏口容疑者
662:
24/04/19 11:23:15.55 VcZ0QXLj0.net
学費を出せても数学の問題文の日本語すらまともに読めないオツムじゃどこの医学部も無理だろうねw
663:卵の名無しさん
24/04/19 12:25:57.65 jyA19snA0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
664:卵の名無しさん
24/04/19 16:41:59.58 lzd31nIhd.net
おっ、書き込めるようになった
665:卵の名無しさん
24/04/19 17:54:42.76 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:
24/04/19 18:13:27.23 Ek+HeT/Y0.net
また言葉のサラダを垂れ流してるのか統失患者は
さっさとお薬飲め
667:卵の名無しさん (ﾜｯﾁｮｲ d9f4-D7pH [2400:2411:3fe0:400:*])
24/04/19 18:26:20.58 5S7ABuQB0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
668:
24/04/20 00:34:15.72 GFEHYFvN0.net
>>664
尿瓶ジジイはこんな時も延々と書き込んでたのか
書き込まないと息ができないのかな？w
669:卵の名無しさん (ﾜｲｰﾜ2 FFa3-cBs0 [103.5.140.160 [上級国民]])
24/04/20 09:43:38.07 kh2Eet3xF.net
あらま
670:
24/04/20 17:18:55.52 MDFhPqQ40.net
ワロタ
671:卵の名無しさん
24/04/21 18:14:24.70 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])
24/04/22 04:30:54.04 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 [上級国民]])
24/04/22 05:21:35.46 SyVkIenzM.net
URLﾘﾝｸ(mathematica.stackexchange.com)
674:
24/04/22 05:48:37.74 6m48Iv8q0.net
そうかな
675:卵の名無しさん
24/04/22 06:56:14.03 6gwBXAd90.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
676:卵の名無しさん (ﾌﾞｰｲﾓ MMdf-7vPn [49.239.68.87 [上級国民]])
24/04/22 08:08:29.35 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 [上級国民]])
24/04/22 08:23:33.06 t0ppkfzJ0.net
URLﾘﾝｸ(qiita.com)
678:卵の名無しさん (ﾌﾞｰｲﾓ MMdf-7vPn [49.239.68.87 [上級国民]])
24/04/22 08:41:33.26 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:卵の名無しさん
24/04/23 06:09:35.07 cuDP9RhHd.net
最近疑問に思うのだが、底辺私立医大卒の医者は、なぜ国立医大に行かなかったのだろう⁈
可哀想なのは患者だけで無く、底辺私立医大卒の家族たち!!
日々の何気ない生活の中で、時には知り合いから『お宅のご主人の大学は??』『おまえのお父さんの大学どこ??』という質問をうける事もあるだろう。
そんな時、阿保医者の家族達は『知らないんだょね』と誤魔化すのが精一杯、、知らない筈はないが（笑）
全ての患者も、優秀な医者に診て欲しいと思っているから、底辺私立医大卒は寝る間を惜しんでもっと勉強、再教育すべきと思う!!
国も医者のカテゴリ分けを検討すべきだな、、
国立医大卒はクラスA、
有名私立医大卒はクラスB、
その他底辺私立医大卒はクラスC、
って感じかな（笑）
680:卵の名無しさん
24/04/23 06:50:17.43 o5UY1SHn0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
681:
24/04/23 07:29:50.13 Hxwc1rjba.net
他人の家族の大学どこ？なんてまず聞かないだろw
ひきこもりかよ
682:卵の名無しさん
24/04/23 08:30:49.91 6GWPMFzHd.net
>>679
こういうセリフは現実を知らない医者じゃ無い奴が書いてるよな
羨ましかったら医者になればよかったのに
偏差値低くてなれなかったんだろうな
683:
24/04/23 08:42:34.51 Hxwc1rjba.net
ここのスレ尿瓶しか発狂してないのに全部ダンマリ決め込んでチンパン数学垂れ流した時くらいからこういう書き込み増えたな
どうせ自演なんだろうけどw
684:卵の名無しさん
24/04/24 05:07:28.35 gfSmTVc/0.net
シリツ医大の高額な学費を払える経済環境なら
教育投資して地元国立大学に入れるくらいの学力はついたはず。
川崎医大の創始者の子弟は国立卒。
教育投資しても国立大学合格の学力がつかなかったのが行くのがシリツ医大。
不正入試でも除籍になった学生は０
すなわち、シリツ医＝裏口容疑者
685:卵の名無しさん
24/04/24 05:07:55.33 gfSmTVc/0.net
誰も反論できないようだな。
シリツ医大の高額な学費を払える経済環境なら
教育投資して地元国立大学に入れるくらいの学力はついたはず。
幸い東京には国立大学医学部が２つある。
教育投資しても国立大学合格の学力がつかなかったのが行くのがシリツ医大。
不正入試でも除籍になった学生は０
すなわち、シリツ医＝裏口容疑者
686:卵の名無しさん
24/04/24 12:40:37.87 35LpFGV90.net
国立医に国立医と言うと 何も起きない
しかし
私立医に私立医と言うと、顔を真っ赤にして怒り出すｗ
687:卵の名無しさん
24/04/24 12:46:00.61 GdwhEVrG0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
688:卵の名無しさん
24/04/24 14:36:19.95 peZsWk3QH.net
>>685
地方の国立医行くぐらいなら
今は都内の私立医行くよ
そんなこともわからないの？本当に医者？
689:
24/04/24 19:15:28.42 qGEeTk4ga.net
>>685
脳内医者というのに反論できないからここで発狂してんだろ？w
慶医は別格扱いして2000万ほど金がかかるってことにはダンマリだし
(トップクラスの学力と財力もある医者には何も言えない模様ww)
日本語通じないチンパンにいくら金かけても医者にはなれないだろうなw自演には反論できないのかよ？
690:卵の名無しさん
24/04/24 23:51:08.01 gfSmTVc/0.net
>>688
都内の国立行けばいいじゃん。
幸い東京には国立大学医学部が２つある。
691:
24/04/24 23:56:00.72 qGEeTk4ga.net
>>690
地方の国立に行くならって言ってんだろ
相変わらず日本語理解できないアホチンパンみたいだね
それじゃ医学部どころかどこの大学の受験資格すらないだろww
アンタにとってはその国立あっても豚に真珠だろ
どうせ脳内だってバレてるぞ
あ、統失で病識ないのかw
692:
24/04/24 23:56:27.14 qGEeTk4ga.net
悔しかったらさっさと卒業証書だせよチンパンジーw
693:
24/04/25 00:15:02.96 K5343LLea.net
>>690
さっさとお薬飲めよ尿瓶ジジイ
世間でもここでも相手にされないのは病識ない統失だからだよ
それともただのチンパンジーが人のふりしてるだけか？w
694:卵の名無しさん
24/04/25 06:51:48.01 Br6i+yIR0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
695:卵の名無しさん
24/04/25 11:21:56.65 98ttXe3O0.net
>>179
秀丸エディタをバージョンアップしたら、あのダサいアイコンが出現。
起動時にCRCのチェックはしていないようなのでResource Hackerを使って.exeファイルのアイコンを置換。
696:卵の名無しさん
24/04/25 13:57:43.89 6CMGEqZoH.net
>>690
お前って日本語理解出来ないよな
考えがまとまらなくて会話出来ない
どう考えても統合失調症だよ
697:卵の名無しさん
24/04/25 16:24:16.21 0RgLTcLb0.net
>>690
合併で東工大に吸収されてしまうが
東京医科歯科はお勧めできない
桜蔭とか都内女子高ならいくのはありだが
地方の男子高校生がいくのは超絶コスパが悪い
首都圏では東大や慶応が強すぎて、関連病院が弱い
つまりポストが少ない
698:卵の名無しさん
24/04/25 16:39:30.24 0RgLTcLb0.net
医科歯科は難度が高い割にメリットが少ない
首都圏に拘る必要がなければ、地方の旧帝に行った方がよい
699:
24/04/25 17:21:49.22 waK9MmUg0.net
>>697
こいつ医者板と数学板で長年発狂しまくってる自称医科歯科()の自分が医者だと思い込んでる統失患者だから何言っても無駄だと思いますよ先生
700:卵の名無しさん
24/04/26 00:02:06.36 VBO0nehE+
これからの医者はだな、患者のメンタルを第一に考えて
まるで高級ホストクラブのようなサービス対応のできる
臨床医か、神技を持つブラックジャックのような達人外科医だね。
検査とデータ収集、それに基づく患者の病状の見立て
投薬の決定と手配などは、みんなＡＩが制御する全自動
医療システムがやってくれる。 せいぜいその全自動機械の
隙間を埋める作業員や病院の各種メンテナンス要員だわな。
701:卵の名無しさん
24/04/25 21:59:06.18 0wOg9LinH.net
裏口容疑者発見！
702:卵の名無しさん
24/04/25 22:00:09.16 AgUnnita0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
703:卵の名無しさん
24/04/25 22:01:53.63 0wOg9LinH.net
>>697
医局人事でジッツをあてにしなければいいだけ。
704:
24/04/25 22:06:11.01 iproWgx50.net
>>701
統失と脳内医者には何も言い返せなくて発狂かよw
アンタにはどのみち無理ww
705:
24/04/25 22:08:34.99 iproWgx50.net
>>703
おい尿瓶ジジイ
いつになったら医科歯科()の卒業証明書と医師免許のセット出せるんだよ
借り物でもなんでもいいからさっさと出せ
どうせ脳内だから逆立ちしても出せないんだろ？
706:卵の名無しさん (ﾜｯﾁｮｲ 43e2-If86 [240b:11:241:7900:*])
24/04/26 03:02:58.47 NzOpcZP+0.net
>>703
じゃあ、何で医科歯科の自慢なんか出来るんだよ
医科歯科の良いとこは何？
もしかして、入学時の偏差値とか受験生みたいなこと言わないよね？医者なら
707:卵の名無しさん (ﾜｯﾁｮｲ f758-PPS4 [14.13.16.0 [上級国民]])
24/04/26 06:11:49.76 NVbu8tKK0.net
>>706
なんで、旧二期校の医科歯科程度が羨ましいんだよ？
さてはシリツだな。
708:卵の名無しさん (ﾜｯﾁｮｲ 777b-lHPm [2400:2200:393:4522:*])
24/04/26 06:53:46.19 PgLeE3Vy0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
709:卵の名無しさん (ﾜｯﾁｮｲ 53b7-If86 [240a:61:5012:410b:*])
24/04/26 07:46:32.73 Isf2vfCb0.net
>>707
羨ましとか全く言ってないし
医科歯科の病院としての良いところ聞いてるんだけど
それすら答えられないんだったら少なくとも卒業生じゃないよなお前って
710:
24/04/26 12:14:15.80 ehNaIQWjH.net
そりゃそうよどうせ脳内で>>705にはダンマリ決め込むしかないし
711:卵の名無しさん
24/04/27 09:06:14.70 6JZARnJQ0.net
症例提示
飲み会の席で研修医を叱って、偉そうに説教垂れてて、
その研修医から小声で「〇〇卒（底辺私立医大）のくせに。」と言われて、
我を忘れて激怒して大声を張り上げた指導医が昔いたな。
もう70歳近いと思うけど元気にされてるかな。
712:卵の名無しさん
24/04/27 12:02:54.91 3WQNEiEJM.net
>>709
二期校時代に入学して卒業したぞ。
麻酔科教授が逮捕されたり波瀾の年だった。
713:
24/04/27 12:14:06.30 nyj9K6dY0.net
>>712
おい尿瓶ジジイ
いつになったら医科歯科()の卒業証明書と医師免許のセット出せるんだよ
借り物でもなんでもいいからさっさと出せ
どうせ脳内だから逆立ちしても出せないんだろ？
714:卵の名無しさん
24/04/27 12:18:41.72 bYRESnes0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
715:卵の名無しさん (ﾜｯﾁｮｲ 8fd7-If86 [240a:61:3172:a873:*])
24/04/27 12:41:37.56 nYo4ioQQ0.net
>>712
そんなの医科歯科の医者じゃなくても書けるだろ
結局、医科歯科の何科が有名だったとか言えないってことだろ？医科歯科卒ならポリクリやってんだからそれぐらい言えるだろ
お前医科歯科卒じゃねーだろ
716: 警備員[Lv.5][新][初] (ﾜｯﾁｮｲ 97f5-azdJ [2001:268:9232:1e5c:*])
24/04/27 13:14:06.51 hlCG3aTN0.net
どうせただの妄想で現実は5chしか居場所がない哀れなジジイ
717:
24/04/28 07:46:33.97 KzsHfIZj0.net
数学板では朝から発狂してんのにこっちではダンマリ決め込んでるw
718:
24/04/28 07:51:36.78 KzsHfIZj0.net
>>712
607：１３２人目の素数さん：2024/04/28(日) 07:14:40.34 ID:J7CuxUey
>>610
お前が東大合格者じゃないということはわかるな
邪魔だから消えろ
当然ながら数学板でも煙たがられていて草
719:卵の名無しさん (ﾜｯﾁｮｲ 89d7-Yag3 [240a:61:3172:a873:*])
24/04/28 09:16:50.03 fdfz/D+l0.net
ポリクリが何のことかわかってない尿瓶ジジイwwwだから答えられない
720:卵の名無しさん
24/04/28 22:37:38.39 T4lSHmOt0.net
>>715
体育をサボったら館山の大賀寮で合宿があった。
篠原とか言うのが体育の教授だったな。
医科歯科の寮の近くの飯屋は喜久多という店だった。
生化学は講義は数回でレポートと提出と試験のみだったな。
こういうのは入学していないとわからないはず。
721:卵の名無しさん
24/04/28 22:38:21.40 T4lSHmOt0.net
ポリクリじゃなくてＢＳＴと読んでた気がする。
722:卵の名無しさん
24/04/28 22:51:15.78 DbV9qX950.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
723:卵の名無しさん
24/04/28 23:03:51.87 kAGZqVYH0.net
>>720
何で教養過程話ばっかなんだよ
そんなの別に医学部じゃなくても歯学部でもそこの事務員とかでもわかんじゃん
全く証明になってねーよ医者のフリすんな
724:
24/04/29 00:17:26.56 hEPsqjXj0.net
結局何科が有名って簡単な質問すらダンマリかよ
やっぱり脳内医者じゃん
725:
24/04/29 00:18:59.68 hEPsqjXj0.net
>>720
お得意の数学()で論理的に証明したら？
どうせチンパンだからできないよな？w
726:卵の名無しさん
24/04/29 19:46:36.79 XyCVKLaJ0.net
麻酔科の抗議では教室で笑気の助燃性確認の実験があったぞ。
法医学では監察医務院の医師の講義があった。グロスライド満載で歯学部の学生も聴講にきていたよ。
727:卵の名無しさん
24/04/29 19:49:06.34 XyCVKLaJ0.net
抗議→講義
728:卵の名無しさん
24/04/29 19:52:43.47 XyCVKLaJ0.net
皮膚科の進級試験（医科歯科ではバリアー試験とよんでいた）は教科書ノート持ち込み可だった。
正しい診断と治療ができれば手段は問わないというのが香川教授のフィロソフィーだった。
専門が真菌だった。香川三郎という名前だっががサブロー培地は彼に由来するのではない。
外科の毛受教授は難読名字だった。
729:卵の名無しさん
24/04/29 20:37:44.34 /22NK8n+0.net
>>728
何で講義の話ばっかなの？そんなの歯学部でも事務員でも書き込みできるじゃん
ポリクリの話とか何科が有名とか本当の医者なら書き込める内容あるよね？
そんなんじゃ、誰も信じねぇし
730:卵の名無しさん
24/04/29 21:39:36.17 HbbuRoIa0.net
大学なんて関係ない 病気を治してくれる医者が良い医者だよ
731:卵の名無しさん
24/04/29 21:43:45.88 gTCXP9Vg0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
732:
24/04/29 21:51:45.85 Zn2/mWE20.net
どうせ日本語通じないアホだから誰も信じてないけどもっと頂戴よ事務員さんw
733:
24/04/29 21:54:33.60 Zn2/mWE20.net
>>728
で、ポリクリと何科が有名かって話はどうしたんだよ？
チンパンだから日本語通じないのか？
734: 警備員[Lv.4][新初] (ﾜｯﾁｮｲ 7368-0Cic [2001:268:9231:18ef:*])
24/05/01 02:46:03.79 n8XgBnFk0.net
ポリクリの話は完全ダンマリで草
735:卵の名無しさん
24/05/01 08:06:59.73 2kmmmW920.net
sim = \(level=10,p=runif(3),limit=NULL){
item=0
L=0
while(L<level && item < ifelse(is.null(limit),Inf,limit+2)){
item=item+1
d=sample(c(-1,0,1),1,prob=p)
if(!(L==0 & d==-1)) L=L+d
}
return(item)
}
sim(limit=1e5)
sim(p=c(1/3,1/3,1/3))
sim(p=c(1/2,0,1/2))
736:卵の名無しさん
24/05/01 08:19:20.25 +GFCyNv00.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
737:卵の名無しさん
24/05/01 08:23:26.31 2kmmmW920.net
>>733
んで、あんたのシリツ医大で有名なのは 裏口科じゃないの？
738:卵の名無しさん
24/05/01 08:25:06.45 2kmmmW920.net
>>734
医科歯科ではポリクリと呼ぶのは少なかったなぁ。
まあ、バイトをネーベンとかいうみたいな小数派。
739:
24/05/01 08:53:37.50 n8XgBnFk0.net
>>737
で、何科が有名なのかは調べてきたのかよ？
相変わらず日本語通じてなくて発狂か？w
740:卵の名無しさん
24/05/01 15:46:20.82 tY3bZEJ0H.net
>>738
結局言えないって事ね
お前が医者じゃないのは良くわかったよ
教養課程の話しか出来ないってことは歯科か？もしくは大学の事務？
741:卵の名無しさん
24/05/01 16:53:48.69 QesKngKf2
医学の世界では、未だにドイツ医学界からの
影響が大きいんだね。
やっぱ幕末明治に医学知識を仕入れた元が
ドイツ医学界だからだろな。シーボルトの
存在や明治政府がドイツ医学をメインとした
歴史的な経緯も影響してるとか聞いた。
742:卵の名無しさん
24/05/02 09:36:36.91 gdK6vbZR0.net
底辺私立医大卒の医者は、なぜ国立医大に行かなかったのだろう⁈
可哀想なのは患者だけで無く、底辺私立医大卒の家族たち!!
日々の何気ない生活の中で、時には知り合いから『お宅のご主人の大学は??』『おまえのお父さんの大学どこ??』という質問をうける事もあるだろう。
そんな時、阿保医者の家族達は『知らないんだょね』と誤魔化すのが精一杯、、知らない筈はないが（笑）
全ての患者も、優秀な医者に診て欲しいと思っているから、底辺私立医大卒は寝る間を惜しんでもっと勉強、再教育すべきと思う
※国も医者のカテゴリ分けを検討すべきだな、、
国立医大卒はクラスA、
有名私立医大卒はクラスB、
その他底辺私立医大卒はクラスC、
って感じかな（笑）
743:卵の名無しさん (ﾜｯﾁｮｲ fbf7-/SQ2 [2400:2200:773:b847:*])
24/05/02 12:27:27.17 G/hSYzRI0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
744:卵の名無しさん (ｽｯﾌﾟ Sd73-Yag3 [1.75.159.52])
24/05/02 12:59:52.14 6MXVoUA8d.net
>>742
尿瓶ジジイwww
お前バレないと思ってるだろ
文体変えても無駄だぞ
745:卵の名無しさん
24/05/02 17:52:38.13 KLYZJea+d.net
国立医大卒の医者とは学歴の話を普通に出来るが、
底辺私立の低脳馬鹿医者は学歴の話題はタブーなのは何故だろう…不思議だ笑
746:卵の名無しさん
24/05/02 17:53:28.44 KLYZJea+d.net
知り合いのナースが気をつかうと言ってました…
747:卵の名無しさん
24/05/02 17:54:10.32 KLYZJea+d.net
>>744
おまえはクラスCか？
748:
24/05/02 18:12:07.21 YZ5m1lIya.net
尿瓶ジジイの安い自演
749:卵の名無しさん
24/05/02 19:19:35.65 x0t1/BJBN
私立底辺出身かどうかに関係無く
医者はお人好しが多い。
一生に関わるような大病の治療を
安く請けるとか、不合理だろ？
社会復帰できる程度まで治療できたのなら
数千万円は請求して良い。
しかし、一方で風邪で解熱剤や鎮痛剤やビタミン剤などの
お注射とクスリだけなら、数千円がよいとこ。
人の気持ちは大切だが、自分の感情でもって
患者に毒を盛って殺害するなどの凶行を為した
大口病院のキチガイ看護婦の例もあるからな。
常に理知的で合理的な行動を求む。
750:卵の名無しさん
24/05/03 10:11:08.75 H1QNKQSw0.net
>>747
東大だから特Aだって言ってんじゃんwww
で、お前の出身大学どこだっけ？
いいからさっさと医師免許証アップしろよ
751: 警備員[Lv.9][新初] (ｱｳｱｳｷｰ Sa75-0Cic [182.251.25.152])
24/05/03 11:29:44.65 gaeP6UrMa.net
ポリクリの話とか何科が有名だとかそんなの調べれば出てきそうなのにそれすらできないのか尿瓶ジジイはw
752:卵の名無しさん
24/05/03 12:37:35.20 c8e1e0vl0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
753:卵の名無しさん
24/05/03 22:31:37.49 vhJICSfCD
カスハラから逃れたい一心で、愚かにも
患者に毒を盛ってコロすとか、女には
バケもんが多いなあ。
恨みを晴らす相手は、カスハラをやった
患者の親族だろ？ ま、強い相手には
手をだせず、死にかけてる患者にはけ口を
求めるとか良くある心理だがな。
ＡＶ嬢の方がマシよ。
ある意味自分を犠牲にしてるからな。
754:卵の名無しさん
24/05/04 10:01:45.81 S9SoaPReh
どこを出ていようが医者なんて所詮は賤業
さらにトンパンゴミ私立医を卒業していても十分こなせる単純肉体作業労働
なのでその程度の職業にガキの頃から課金されてガチ勉して現役で合格して
そのことを誇ってもむなしいだけ
しかも臨床なんて何も価値を生み出すどころかやればやるほど金を使い果たす方向でしかないので
国の財政を圧迫する方にしか行かないのでお荷物でしかない
年寄りに対してお前らに対しての医療は無駄なんだよと言う勇気もないので
早晩てめーらの金銭的待遇もさらに悪くなるのは既定路線だし
755:卵の名無しさん (ﾜｯﾁｮｲ 4958-R27w [14.13.16.0])
24/05/04 08:48:20.41 x8NUTTkd0.net
私立医大と書くと慶応や自治医大は？というツッコミが入るから
シリツ医大と書くことにしている。
756:卵の名無しさん (ｽﾌﾟﾌﾟ Sd33-Yag3 [49.98.230.254])
24/05/04 09:02:23.83 HRE9yqB8d.net
>>755
意味がわからんのだが
慶應も自治医大もシリツ医だろ
考えがまとまらなくて支離滅裂な事言ってるぞ
757: 警備員[Lv.6][新初] (ﾜｯﾁｮｲ 29a6-0Cic [2001:268:9235:ae6f:*])
24/05/04 09:43:51.63 l2Y+7LyF0.net
慶医や自治医に強烈なコンプレックスを感じてる模様
758: 警備員[Lv.6][新初] (ﾜｯﾁｮｲ 29a6-0Cic [2001:268:9235:ae6f:*])
24/05/04 09:44:19.50 l2Y+7LyF0.net
てかコンプ感じる資格もないだろ尿瓶ジジイはw
ただの統失患者
759:卵の名無しさん
24/05/04 22:17:54.20 QigGuG035
自治医なんて立ち位置は昔の慈恵と同じで国立医合格に自信がないやつが
受ける大学でしかないのでゴミ雑魚私立だけどなｗｗｗ
例えば熊高で九医や熊医に受かるやつがあえて自治に出願する理由がない
地域医療なんでどの県にだって医療過疎地区なんてあるわけで本人がやりたいと思うなら
自治医大なんぞに受けなくても自県の国公立医に進めばいいだけ
大学受験までの経歴も無意味化するしな
地方にありがちな地元国立大教育学部付属中学から県立最上位高校を経て
地元国公立大医学部に進学するのがゴールデンコース
歴史もない大学としての格もない自治医なんぞに進む意味なし
そういう意味では慶應以外のゴミ雑魚私立医大と立ち位置は同じですよ
760:
24/05/04 22:02:49.20 l2Y+7LyF0.net
>>755
おい尿瓶ジジイ、ポリクリの話や何科が有名って話はいつまでダンマリ決め込んでんだよ？
医科歯科出身の医者()なら即答できるだろ
761:卵の名無しさん
24/05/05 02:34:02.26 ubpMCkAO0.net
>>730
本当にそう！
国公立の人は尊敬するけど、私立医の同期でも(この人に診て欲しいな)って人はたくさんいる。
762:卵の名無しさん
24/05/05 08:31:41.53 QvzjiUhe0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
763:
24/05/05 13:31:02.60 +XmM6uzJ0.net
>>755
当然ながら数学板でも煙たがられて草
847：１３２人目の素数さん：2024/05/04(土) 21:55:01.60 ID:u/y1ognB
>>841
お前、ビビって医者板で何も書き込んでないみたいじゃん
無能のくせに偉そうやのう
854：１３２人目の素数さん：[sage]：2024/05/05(日) 10:59:16.77 ID:zAUKO4xv
>>847
若い頃は連休は救急病院でバイトしていたけど、
今は家族とゆっくり過ごす。
医師が羨ましいなら再受験すればいいのに。
俺の同期は２～３割は再受験組だったな。
歯学部には東大数学科卒もいた。
856：１３２人目の素数さん：2024/05/05(日) 13:27:35.07 ID:crhOwNkH
>>854
ここは高校数学質問スレです
意味不明な書き込みは控えて下さい
764:卵の名無しさん
24/05/05 20:34:45.85 94ULEsEqH.net
a=1/(14^^2024);
m=2024;
re={};
For[i=1,i<m,i++,(re=Append[re,Floor[a*14^i]]; a=a-(14^-i)*Floor[a*14^i];)];
f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]]
StringJoin["0.",f /@ re]
0.0006 K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
.....
765:卵の名無しさん
24/05/05 20:35:30.02 94ULEsEqH.net
0 1 2 3 4 5 6 7 8 9 A J Q Kを使った十四進法を考える。
十四進法の分数1/2024を十四進法の小数で小数2024位まで表せ。
766:
24/05/05 20:39:42.18 +XmM6uzJ0.net
>>764
何も言い返せず懲りずにチンパン数学垂れ流しかよw
767:卵の名無しさん
24/05/05 20:44:19.38 94ULEsEqH.net
東大合格者向けの問題
0 1 2 3 4 5 6 7 8 9 A J Q Kを使った十四進法を考える。
十四進法の分数1/2024を十四進法の小数で表したとき
小数第２０２４位（十進法で２０２４番めの意味）の数字は何か？
768:卵の名無しさん
24/05/05 21:24:58.86 QvzjiUhe0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
769:卵の名無しさん
24/05/06 01:02:02.51 IfootRVNs
困るとすぐに数学に逃げるあたりあいつに似てるなｗ
が、、、あいつは多浪とはいえ理３だから二期校再受験のバカ雑魚とは違うけど
770:卵の名無しさん (JP 0H52-4JRL [217.138.212.98 [上級国民]])
24/05/06 05:28:12.00 xSMf/GdlH.net
>>765
Rだと17桁を越えると誤答が返ってくるが、WolframScriptならちゃんと計算してくれる。
0.0006K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AK
K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3
007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561
AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387
Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA5
61AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK60913
87Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4Q
A561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK609
1387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K
4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6
091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q300
7K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AK
K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3
007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561
AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387
Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA5
61AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK60913
87Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4Q
A561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK609
1387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K
4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA
771:卵の名無しさん
24/05/06 05:49:18.87 MJoaaNRi0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
772:卵の名無しさん
24/05/06 06:13:27.11 fp7P4Tx60.net
>>760
レス乞食登場
773:卵の名無しさん
24/05/06 06:41:17.21 fp7P4Tx60.net
>>764
2行に短縮
f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]];
StringJoin["0.",f /@ RealDigits[1/(14^^2024),14,2024][[1]]]
774:卵の名無しさん
24/05/06 06:55:09.04 fp7P4Tx60.net
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= StringJoin["0.",If[#==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[#]]]& /@ RealDigits[1/(14^^2024),14,2024][[1]]]
Out[1]= 0.6K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA56\
> 1AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AK\
> K6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK60\
> 87Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q\
> 3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q300\
> 7K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4\
> QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA5\
> 61AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561A\
> KK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6\
> 091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091\
> 387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387\
> Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q30\
> 07K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K\
> 4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA\
> 561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561\
> AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK\
> 6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561AKK6091387Q3007K4QA561A
775:卵の名無しさん
24/05/06 06:58:48.58 /ggYx9fM0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
776:
24/05/06 09:02:26.09 XWjUTRqB0.net
>>772
レス乞食はアンタだろw
言い返せなくなるとダンマリ決め込んで全然関係ないことを呟き出す
872：１３２人目の素数さん：2024/05/06(月) 07:48:34.26 ID:6QrZPKCt
>>868
あんた、こんなヒドいスレ立ててる人なんだね
チラって見たけど、みんなに馬鹿にされてるし内容も医者板で書く内容じゃないし何がしたいん？
クソワロタw
777:
24/05/06 09:06:54.26 XWjUTRqB0.net
>>774
高校数学スレでもスレの趣旨が理解できずに朝から暴れ回って高校生にバカにされてるのがそんなに楽しいか？w
778:卵の名無しさん
24/05/06 09:42:09.91 fp7P4Tx60.net
練習問題
十進法で1/2024で表される数値を二進法の小数で表すとき
(1) 循環節は何桁の数字になるか？
(2) 循環節を列挙せよ。
あらゆるフリーリソースを用いてよい。
参考にならない参考資料
1/2024（十進法) =
0.00000000001000000110000100100011011010100011111010111100001101001001110111011001100011001010
01011111000111010101100000001000000110000100100011011010100011111010111100001101001001110111011001
10001100101001011111000111010101100000001000000110000100100011011010100011111010111100001101001001
11011101100110001100101001011111000111010101100000001000000110000100100011011010100011111010111100
00110100100111011101100110001100101001011111000111010101100000001000000110000100100011011010100011
11101011110000110100100111011101100110001100101001011111000111010101100000001000000110000100100011
01101010001111101011110000110100100111011101100110001100101001011111000111010101100000001000000110
00010010001101101010001111101011110000110100100111011101100110001100101001011111000111010101100000
00100000011000010010001101101010001111101011110000110100100111011101100110001100101001011111000111
01010110000000100000011000010010001101101010001111101011110000110100100111011101100110001100101001
011111000111010101100000001000000110.....(二進法)
f[x_] := If[x==0,"0","1"]
StringJoin["0.",Table["0",10],f /@ Flatten@RealDigits[1/2024,2,1000][[1]]]
Flatten@RealDigits[1/2024,2][[1]]
Length@Flatten@RealDigits[1/2024,2][[1]]
779:
24/05/06 10:09:06.60 XWjUTRqB0.net
尿瓶ジジイもう発狂する元気もないみたいだね
どうせ言い返してもすぐに論破されて何も言えなくなるから無駄ってことに気づいた？何年もかけて？w
780:卵の名無しさん
24/05/06 11:09:19.14 IfootRVNs
自分がガチで医者であることをいつまでたっても証明できないまま・・・
ほんとに情けない(笑)
781:卵の名無しさん
24/05/06 12:11:56.32 I5hka94Q0.net
底辺私立医大卒の医者は、なぜ国立医大に行かなかったのだろう⁈
可哀想なのは患者だけで無く、底辺私立医大卒の家族たち!!
日々の何気ない生活の中で、時には知り合いから『お宅のご主人の大学は??』『おまえのお父さんの大学どこ??』という質問をうける事もあるだろう。
そんな時、阿保医者の家族達は『知らないんだょね』と誤魔化すのが精一杯、、知らない筈はないが…
全ての患者も、優秀な医者に診て欲しいと思っているから、底辺私立医大卒は寝る間を惜しんでもっと勉強、再教育すべきと思う
※国も医者のカテゴリ分けを検討すべきだな、、
国立医大卒はクラスA、
有名私立医大卒はクラスB、
その他底辺私立医大卒はクラスC、
って感じ？
782:卵の名無しさん
24/05/06 12:16:28.32 Q5z1F645d.net
>>781
で、お前の出身大学は？
783:卵の名無しさん
24/05/06 12:31:31.03 /ggYx9fM0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
784:卵の名無しさん
24/05/06 13:41:39.41 fp7P4Tx60.net
>>778
これで解決
recdigits[a_,b_] := Level[RealDigits[a,b],{3}];
RealDigits[1/2024,2]
recdigits[1/2024,2]
% // Length
Subsets関数もそうだが引数が3か{3}かで動作が変わる。
これに気づくのに時間がかかった。
785:
24/05/06 17:29:41.13 PtUpOBSK0.net
>>784
尿瓶ジジイポリクリは何のことかわかったか？
786:卵の名無しさん
24/05/06 17:57:05.53 I5hka94Q0.net
底辺私立医大卒の医者は、なぜ国立医大に行かなかったのだろう⁈
可哀想なのは患者だけで無く、底辺私立医大卒の家族たち!!
日々の何気ない生活の中で、時には知り合いから『お宅のご主人の大学は??』『おまえのお父さんの大学どこ??』という質問をうける事もあるだろう。
そんな時、阿保医者の家族達は『知らないんだょね』と誤魔化すのが精一杯、、知らない筈はないが…
全ての患者も、優秀な医者に診て欲しいと思っているから、底辺私立医大卒は寝る間を惜しんでもっと勉強、再教育すべきと思う
※国も医者のカテゴリ分けを検討すべきだな、、
国立医大卒はクラスA、
有名私立医大卒はクラスB、
その他底辺私立医大卒はクラスC、
って感じかな爆笑笑笑笑笑
787:卵の名無しさん
24/05/06 18:06:45.13 g8qJzIfX0.net
>>786
で、出身大学は？
788: 警備員[Lv.6][新初] (ﾜｯﾁｮｲ 02e0-oO4L [2001:268:9234:4957:*])
24/05/06 21:57:33.13 PtUpOBSK0.net
>>786
文章から頭の悪さが滲み出ていてとても学歴を語るような知能はなさそうに見えるけどww
789:卵の名無しさん (ﾜｯﾁｮｲ 65b0-JAQx [2400:2411:3fe0:400:*])
24/05/06 22:11:11.49 MJoaaNRi0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
790:卵の名無しさん
24/05/06 23:07:51.78 IfootRVNs
Subsets関数もそうだが引数が3か{3}かで動作が変わる。
これに気づくのに時間がかかった。←時間がかかるのはバカな証拠ｗ
791:
24/05/08 19:41:30.06 jHzhBFpwa.net
おい尿瓶ジジイ
いつまでダンマリ決め込んでんだよ
792:死狂廃幻調教大師
24/05/09 10:00:06.83 enEmsgtr0.net
過去の医療が間違ってるなら頭が悪い方がいい医者ということだ。
793:卵の名無しさん
24/05/10 05:27:32.46 9pJ3+FOk0.net
>>791
レス乞食登場！
数学スレの問題
(quote)
直線Lがあり、またL上にはなくLに関して同じ側にある異なる2点A、Bがあるとし、
直線ABはLと平行でないとします。
このとき、AとBを通り直線Lに接する円の作図をする方法はできますか。
(unquote)
をWolramで作図したい。
慣れたR言語だとスラスラできた。
URLﾘﾝｸ(i.imgur.com)
ボケ予防にプログラミングと嫁と一緒に料理するのは楽しい。
３色ウールロールパンを焼いたらGoogle Chromeに似ていたので記念撮影。
娘に画像を送ったら笑っていた。
URLﾘﾝｸ(i.imgur.com)
794:卵の名無しさん
24/05/10 06:55:14.93 hMfL4Ncs0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
795:
24/05/10 07:57:52.88 uH1M+89Aa.net
996：１３２人目の素数さん：[sage]：2024/05/10(金) 07:51:10.17 ID:LuJ/YByN
プログラムを本気で学ぶつもりならム板が正解だろ
全方向に中途半端なんだよな
高校生にしかイキれない大人
クソダサい
796:
24/05/10 10:01:42.88 bSrfF8o4H.net
993：１３２人目の素数さん：[sage]：2024/05/10(金) 05:03:33.15 ID:esg1TcXl
R言語やWolfram言語が使える人はちゃんとしたレスをしているなぁ。
助言より罵倒を喜びとするPhioseくんらの集団が東大合格者だと思う人はその旨をレスしてください。
>Phiose
>Phiose
>Phiose
797: 警備員[Lv.8][新初] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])
24/05/10 18:03:35.97 eirMlK+F0.net
>>793
レス乞食って自己紹介か？
phioseとか書いてるアホが数学とか笑わせるw
798:卵の名無しさん (ﾜｯﾁｮｲ 0ddd-4JRL [240b:253:1000:dd10:* [上級国民]])
24/05/10 18:41:31.15 9pJ3+FOk0.net
a={5,6};b={3,4};c={2,1};d={6,0};
pb=PerpendicularBisector[{a,b}];
f[t_] := (
p = pb[[1]] + t*pb[[2]];
ResourceFunction["PointLineDistance"][Point[p],Line[{c,d}]][[1]] - EuclideanDistance[a,p ]
);
t0 = t /. Solve[f[t]==0,t];
center = (pb[[1]] + #*pb[[2]] & /@ t0)[[1]];
radius = EuclideanDistance[center,a];
{中心->center,半径->radius}
% // N
center = (pb[[1]] + #*pb[[2]] & /@ t0)[[2]];
radius = EuclideanDistance[center,a];
{中心->center,半径->radius}
% // N
799:卵の名無しさん (ﾜｯﾁｮｲ 0ddd-4JRL [240b:253:1000:dd10:* [上級国民]])
24/05/10 18:45:07.46 9pJ3+FOk0.net
料理もプログラムも道楽。
手を動かして、頭も動かすのがボケ予防にいいと、
懇意なナースに話したら「腰は動かさななくていいんですか？」と言われた。
800: 警備員[Lv.9][新初] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])
24/05/10 18:46:36.13 eirMlK+F0.net
>>799
顔真っ赤にしてphioseとか書き込んじゃうのも道楽なの？w
801: 警備員[Lv.9][新初] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])
24/05/10 18:48:25.13 eirMlK+F0.net
>>799
それにもうすでに認知症だろ
日本語通じてないし5chの徘徊止まらないんだからw
802:卵の名無しさん (ﾜｯﾁｮｲ 0ddd-4JRL [240b:253:1000:dd10:* [上級国民]])
24/05/10 20:04:05.38 9pJ3+FOk0.net
Wolframがいじれるようになって気分がいい。
作図はまだRの方が慣れている。
色々、作図用のツールを自作してきたのがあるし。
Phimoseくんらの集団がいじれるのはforeskinだけみたいだな。
数学番ではHaskellに移植している人もいた。
803: 警備員[Lv.9][新苗] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])
24/05/10 20:47:52.73 eirMlK+F0.net
>>802
アンタは日本語通じないチンパンだからwolframなんて1000年早いよ
チンパンが電卓叩いてキーキー喚いてるだけw
804: 警備員[Lv.9][新苗] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*])
24/05/10 20:48:38.49 eirMlK+F0.net
高校生にボロクソ言われてももう何も言い返せない模様w
どうせ正論で叩きのめされるだけだからねw
805:卵の名無しさん (ﾜｯﾁｮｲ 65b0-JAQx [2400:2411:3fe0:400:*])
24/05/10 22:11:40.58 iPNVXLOk0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
806:卵の名無しさん
24/05/12 09:54:54.84 DLnBuKy80.net
FermatPoint[pA_,pB_,pC_] :=(
pABC={pA,pB,pC};
aA=VectorAngle[pB-pA,pC-pA];
aB=VectorAngle[pC-pB,pA-pB];
aC=VectorAngle[pA-pC,pB-pC];
aABC={aA,aB,aC};
(* i内角120°以上の頂点 *)
If[Max[aABC]>= (2/3)Pi,FP=pABC[[ Position[# >= (2/3)Pi & /@ aABC,True][[1]][[1]] ]];Return[FP] ];
aA=VectorAngle[pB-pA,pC-pA];
aB=VectorAngle[pC-pB,pA-pB];
aC=VectorAngle[pA-pC,pB-pC];
aABC={aA,aB,aC};
cABC=Total[#*{1,I}]& /@ pABC;
cA=cABC[[1]];cB=cABC[[2]];cC=cABC[[3]];
B1=(cA-cC)*E^(-I Pi/3) + cC;
C1=(cB-cA)*E^(-I Pi/3) + cA;
BB1={pB,{Re[B1],Im[B1]}};
CC1={pC,{Re[C1],Im[C1]}};
F1=ResourceFunction["LineIntersection"][{BB1,CC1}];
B1=(cA-cC)*E^(I Pi/3) + cC;
C1=(cB-cA)*E^(I Pi/3) + cA;
BB1={pB,{Re[B1],Im[B1]}};
CC1={pC,{Re[C1],Im[C1]}};
F2=ResourceFunction["LineIntersection"][{BB1,CC1}];
{F1,F2} // Simplify // N;
FP={F1,F2}[[Position[{Area[Triangle[{pA,pB,F1}]]+Area[Triangle[{pB,pC,F1}]]+Area[Triangle[{pC,pA,F1}]] == Area[Triangle[pABC]],
Area[Triangle[{pA,pB,F2}]]+Area[Triangle[{pB,pC,F2}]]+Area[Triangle[{pC,pA,F2}]] == Area[Triangle[pABC]]},True][[1]][[1]] ]];
Return[Simplify[FP]]
)
807:卵の名無しさん
24/05/12 09:58:52.60 DLnBuKy80.net
重複コマンド除去
FermatPoint[pA_,pB_,pC_] :=(
pABC={pA,pB,pC};
aA=VectorAngle[pB-pA,pC-pA];
aB=VectorAngle[pC-pB,pA-pB];
aC=VectorAngle[pA-pC,pB-pC];
aABC={aA,aB,aC};
(* 内角120°以上の頂点 *)
If[Max[aABC]>= (2/3)Pi,FP=pABC[[ Position[# >= (2/3)Pi & /@ aABC,True][[1]][[1]] ]];Return[FP] ];
cABC=Total[#*{1,I}]& /@ pABC;
cA=cABC[[1]];cB=cABC[[2]];cC=cABC[[3]];
B1=(cA-cC)*E^(-I Pi/3) + cC;
C1=(cB-cA)*E^(-I Pi/3) + cA;
BB1={pB,{Re[B1],Im[B1]}};
CC1={pC,{Re[C1],Im[C1]}};
F1=ResourceFunction["LineIntersection"][{BB1,CC1}];
B1=(cA-cC)*E^(I Pi/3) + cC;
C1=(cB-cA)*E^(I Pi/3) + cA;
BB1={pB,{Re[B1],Im[B1]}};
CC1={pC,{Re[C1],Im[C1]}};
F2=ResourceFunction["LineIntersection"][{BB1,CC1}];
{F1,F2} // Simplify // N;
FP={F1,F2}[[Position[{Area[Triangle[{pA,pB,F1}]]+Area[Triangle[{pB,pC,F1}]]+Area[Triangle[{pC,pA,F1}]] == Area[Triangle[pABC]],
Area[Triangle[{pA,pB,F2}]]+Area[Triangle[{pB,pC,F2}]]+Area[Triangle[{pC,pA,F2}]] == Area[Triangle[pABC]]},True][[1]][[1]] ]];
Return[Simplify[FP]]
)
FermatPoint[{2,0},{2,4},{5,11}]
FermatPoint[{2,0},{2,4},{5,5}]
% // N
808:卵の名無しさん
24/05/12 10:12:49.61 CBWXcxL60.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
809:卵の名無しさん
24/05/15 17:50:08.29 YSau8yUmK
出身大学とか資格とか、それほど気にする必要無いよ。
どんな職業でも、その職務上の問題解決能力が
評価の全てだわ。
医師なら、治療成績だよ。
難しい病気を治療できれば出来るほど
その医師として能力は高いと断言して良い。
例えば、プロ野球選手の大谷さん。
出身高校とか甲子園での成績とか出身日本球団とか
どうでも良い。
プロ野球の最高峰の大リーグでの成績が全て。
各種メディアで知るとおり、超ド級のプロ野球
選手と断言できる。
そういう事だから、東大医学部を首席で卒業しても
医師としての業績が大した事ない、つまり腕の悪い
「ヤブ医者」であるなら、ゴミ医師と断言して良い。
もし、受験競技プレーヤーという職業があるのなら
東大をトップで卒業した人は、その分野で一流と
言えないことは無い。
だから、底辺医大しか出て無い医師は、受験競技プレーヤーと
しては、ゴミと云って良い。
810:卵の名無しさん (ﾜｯﾁｮｲ ad46-ikzK [2a02:6ea0:d348:1000:* [上級国民]])
24/05/16 09:39:00.07 /6cUkJcY0.net
(*
2024より大きい最小の素数は2027である。
2027の倍数で現れる数字が10種類であるような数字を小さい順に並べるとき10000個めになる数字はいくつか？
*)
Wolfram
For[n=2027;m=10000;i=1;ans={}, Length[ans]<m, i++, If[Length@Union@IntegerDigits[n*i]==10,AppendTo[ans,n*i]] ];
ans[[m]]
Rに移植
IntegerDigits = \(n,b=10) n%/%b^(floor(log(n)/log(b)):0) %% b
n=2027
m=10000
i=1
ans=integer()
while(length(ans)<m){
if(length(unique(IntegerDigits(n*i)))==10) ans=c(ans,n*i)
i=i+1
}
ans[m]
811:
24/05/16 20:05:59.04 Ml98D8f+0.net
数学板で高校生にボコされてて草
812:卵の名無しさん
24/05/16 22:02:12.94 3L5mxlSwh
医者って、生き物が相手だから
あまりシステムの部品展開って
視点があまり無いのかもな？
そんな事ねえよな。
人体における部品が破損することで
患者が死ぬ。これは医師にとって敗北だ。
だから、部品がその職務を休まず遂行し
他の部品とのコンミュニケーションを円滑に
行い、システム(会社、お家、お国)の健全な
運営に奉仕する。 システムが健全なら、その
部品の生存と幸せ感も保障される。
それは、生物でも巨大なＩＴシステムでも
同じだ。 銀行システムの一部の部品が壊れたり
機能不全を来たしただけで、大きな社会問題を
引き起こしたりする。
社会の部品としての「医師」の職務(ミッション)は何だ？
それを良く考えなさい。
東大医学部を首席で卒業する事では無い。
それは良い医師になるための手段の１つに
過ぎない。
底辺医大卒でも良い。
有り得ないぐらいの腕の良い医師で
あるなら、大谷みたいに年俸数十億円を
出しても狂気の沙汰とは言えない。
命は１つしか無いからな。
813:卵の名無しさん
24/05/17 06:19:13.76 cAVB/byV0.net
0から７までの8個の数字を並べかえて８桁の数字をつくる。
先頭が０の数字は８桁とはみなさない。
そのうち素数はいくつあるか？
R
f=\(n){
pm=permuteGeneral(0:n)
pm=apply(pm,1,\(x) sum(x*10^(n:0)))
pm=pm[pm>10^n]
p=pm[isPrimeRcpp(pm)]
c(length(p),p[1],tail(p,1))
}
f(7)
Wolframに移植
f[n_] :=(
m=Permutations[Range[0,n],{n+1}];
m=Total[10^Reverse[Range[0,n]]*#] & /@ m;
m=Select[m,#>10^n&];
p=Select[m,PrimeQ];
{Length[p],p[[1]],p[[-1]]}
)
f[7]
814:卵の名無しさん
24/05/17 06:52:54.23 M6tb4rzf0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
815:
24/05/18 18:08:49.77 4/dADRNma.net
数学板でフルボッコにされる模様w
816:卵の名無しさん (ﾜｯﾁｮｲ e1d6-3Pfd [240b:11:241:7900:*])
24/05/18 18:18:05.94 bv5siOJ30.net
尿瓶ジジイは高校生にすら負けてるのか？
中学レベルだなwww
817:卵の名無しさん (ﾜｯﾁｮｲ 2458-5MDN [14.13.16.0])
24/05/18 20:18:58.41 zB0YmMYc0.net
やはりシリツ卒だとRすら扱えないようだな。
818: 警備員[Lv.6][新芽初] (ｱｳｱｳｷｰ Saca-TQ36 [182.251.26.134])
24/05/18 20:29:28.63 4/dADRNma.net
>>817
日本語すら扱えないのにRが扱えているとは？w
819: 警備員[Lv.6][新芽初] (ｱｳｱｳｷｰ Saca-TQ36 [182.251.26.134])
24/05/18 20:29:53.63 4/dADRNma.net
ｽﾚﾘﾝｸ(math板)
820:卵の名無しさん
24/05/19 07:30:02.71 7gTBCjUp0.net
a=Flatten[Table[{a1,a2,a3,a4,a5},{a1,1,7},{a2,0,7},{a3,0,7},{a4,0,7},{a5,0,7},{a6,0,7},{a7,0,7},{a8,0,7}],Range[1,8]];
a[[12345]]
821:卵の名無しさん
24/05/19 08:28:22.79 J8nxQo9/M.net
Total @ Boole @ PrimeQ @ (Total[# * (10^Reverse[Range[0,7]])] & /@ Flatten[Table[{a1,a2,a3,a4,a5,a6,a7,a8},{a1,1,7},{a2,0,7},{a3,0,7},{a4,0,7},{a5,0,7},{a6,0,7},{a7,0,7},{a8,0,7}],Range[1,8]])
822:卵の名無しさん
24/05/19 10:18:39.89 ldPo3kLy0.net
FromDigits=\(x) sum(10^((length(x)-1):0)*x)
823:
24/05/19 10:45:18.41 At/fWR3Ka.net
またチンパン数学かよ
医者板で
救いようねーな
824:卵の名無しさん
24/05/19 13:15:02.28 jM8GEbPf0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
825:
24/05/19 14:05:21.86 At/fWR3Ka.net
尿瓶ジジイ、数学板でもバカにされまくるも日本語がまるで通じずいつものコピペを連投してるだけの模様
何か言い返したくても言われるのは正論ばかりなため論点ずらしでコピペで発狂するしかないみたいw
826:
24/05/19 15:36:58.47 At/fWR3Ka.net
325：１３２人目の素数さん：[sage]：2024/05/19(日) 15:05:48.85 ID:TUaSkgQ4
>>314
学生時代の話を聞きたいのか？
ブラックジャックの漫画にも出てきた冠動脈肺動脈起始症での
鈴木章夫教授は当時は有名だったぞ。
臨床実習である心疾患について君は興味はないのかと問われて
ありません、と答えたのが俺。医局で話題になっていたと医局員から聞いた。興味ない学生がいてもいいんじゃないという声もあったとか。
今更調べてドヤ顔で答えてて草
827:卵の名無しさん (ﾜｯﾁｮｲ c7c7-Vcku [124.47.76.122 [上級国民]])
24/05/20 04:59:29.29 81a+hUqr0.net
Solve[x==c/a && a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, x]
c=400
Solve[a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, {a,b,d}]
Clear[c]
Solve[c==400 && a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, {a,b,d}]
828:卵の名無しさん (ﾜｯﾁｮｲ c7c7-Vcku [124.47.76.122 [上級国民]])
24/05/20 05:00:10.09 81a+hUqr0.net
Solve[x==c/a && a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, x]
c=400
Solve[a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, {a,b,d}]
Clear[c]
Solve[c==400 && a/b==9/11 && c/d==2/3 && (a+c)/(b+d)==4/5, {a,b,d}]
829:卵の名無しさん (ﾜｯﾁｮｲ 52d0-r1ry [2400:2200:4b8:ef79:*])
24/05/20 06:58:00.33 TjxPu9Fm0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
830:
24/05/20 17:44:32.08 VggMFeSaa.net
尿瓶ジジイ数学板の高校生に速攻論破されるw
831:卵の名無しさん
24/05/21 19:11:31.25 j7TJ4F9n0.net
rm(list=ls())
f1=\(xyz){
x=xyz[1]
y=xyz[2]
z=xyz[3]
if(abs(x+y+z)>2 | abs(x)>1 | abs(y)>1| abs(z)>1) return(1e12)
else return(x*y+y*z+z*x)
}
opt=optim(runif(3),f1)
opt=optim(opt$par,f1)
opt$value
f2=\(xyz){
x=xyz[1]
y=xyz[2]
z=xyz[3]
if(abs(x+y+z)>2 | abs(x)>1 | abs(y)>1| abs(z)>1) return(-1e12)
else return(x*y+y*z+z*x)
}
opt=optim(runif(3),f2,control=list(fnscale=-1))
opt=optim(opt$par,f2,control=list(fnscale=-1))
opt$value
832:卵の名無しさん
24/05/22 08:12:51.67 g+5oxCgk0.net
f[] := (
pA={1,0};
b=RandomReal[{-Pi,Pi}];
pB={Cos[b],Sin[b]};
c=RandomReal[{-Pi,Pi}];
pC={Cos[c],Sin[c]};
ABC=Triangle[{pA,pB,pC}];
c={0,0};
Area[ABC]==Area[Triangle[{c,pA,pB}]]+Area[Triangle[{c,pB,pC}]]+Area[Triangle[{c,pC,pA}]]
)
Mean@Boole@Table[f[],1*^4] // N
833:卵の名無しさん
24/05/22 08:13:10.15 g+5oxCgk0.net
f[] :=(
pA={1,0,0};
b=RandomReal[{-Pi,Pi}];
pB={Cos[b],Sin[b],0};
c=RandomReal[{-Pi,Pi}];
pC={Cos[c],Sin[c],0};
pO={0,0,0};
t1=((pC-pB) \[Cross] (pO-pB))[[3]] * ((pO-pB) \[Cross] (pA-pB))[[3]] >=0;
t2=((pA-pC) \[Cross] (pO-pC))[[3]] * ((pO-pC) \[Cross] (pB-pC))[[3]] >=0;
t1 && t2
)
Mean@Boole@Table[f[],1*^4] // N
834:卵の名無しさん
24/05/22 08:23:45.94 g+5oxCgk0.net
import numpy as np
def is_acute_triangle(a, b, c):
# Calculate the squares of the lengths of the sides
a2 = np.sum((b - c) ** 2)
b2 = np.sum((a - c) ** 2)
c2 = np.sum((a - b) ** 2)
# Check the condition for acute triangle
return (a2 + b2 > c2) and (a2 + c2 > b2) and (b2 + c2 > a2)
def monte_carlo_simulation(n):
count_acute = 0
for _ in range(n):
# Generate 3 random points
a, b, c = np.random.rand(3, 2)
# Check if they form an acute triangle
if is_acute_triangle(a, b, c):
count_acute += 1
# Probability of forming an acute triangle
return count_acute / n
# Run the simulation with 1,000,000 trials
n_trials = 1000000
probability = monte_carlo_simulation(n_trials)
probability
0.274288
835:卵の名無しさん (ﾜｯﾁｮｲ df1e-Vcku [2a02:6ea0:d348:2000:* [上級国民]])
24/05/22 10:26:04.74 g+5oxCgk0.net
Clear[{f,a,b,c}]
f[] :=(
{a,b,c}=Sort@RandomReal[{0,1},3];
Boole@{a+b>c,a^2+b^2>c^2}
)
m=Table[f[],1*^6];
Length@Select[m,#=={1,1}&]/Total@m[[All,1]] // N (*鋭角三角形/三角形*)
Length@Select[m,#=={1,1}&]/Length@m // N (*鋭角三角形/三辺*)
836:卵の名無しさん (ﾜｯﾁｮｲ df1e-Vcku [2a02:6ea0:d348:2000:* [上級国民]])
24/05/22 10:30:59.02 g+5oxCgk0.net
0.422771
0.2124
837:卵の名無しさん
24/05/22 12:27:02.36 4aYTxoSC0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
838:卵の名無しさん (JP 0H0b-hTKR [202.253.111.210])
24/05/22 13:54:31.36 2GYI2wLiH.net
久しぶり来たけど
尿瓶ジジイは日本語喋れなくなったのか？www
統失が悪化したのか認知症になったのか
839:卵の名無しさん
24/05/22 14:44:50.17 g+5oxCgk0.net
f[]:=(
{b,c}=RandomReal[{-Pi,Pi},2];
pA={1,0};
pB={Cos[b],Sin[b]};
pC={Cos[c],Sin[c]};
a2=Total[(pB-pC)^2];
b2=Total[(pC-pA)^2];
c2=Total[(pA-pB)^2];
Boole[a2+b2>c2 && b2+c2>a2 && c2+a2>b2]
)
Table[f[],1*^6] // Mean // N
840:卵の名無しさん
24/05/22 14:49:54.55 g+5oxCgk0.net
>>839
これは>834のPythonコードを単位円上にある場合に鋭角三角形
になるモンテカルロシミュレーションのWolframでのコード。
推敲、高速化歓迎。
841:卵の名無しさん
24/05/22 14:51:00.12 Qsg/ucWOd.net
高校数学の質問スレ Part435
ｽﾚﾘﾝｸ(math板)
このスレで高校生の邪魔をし続けている
842:卵の名無しさん
24/05/22 14:51:18.57 g+5oxCgk0.net
ChatGPTがモンテカルロシミュレーション解を返してきたので
それをWolframで再現できて気分が( ・∀・)ｲｲ!!
課題解決のために、言語仕様を検索しながらのコーディングは記憶に残る。
843:卵の名無しさん
24/05/22 17:15:40.21 4aYTxoSC0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
844:卵の名無しさん (ﾜｯﾁｮｲ 7f58-nRHk [14.13.16.0 [上級国民]])
24/05/23 11:09:18.57 LL2Dpiwe0.net
*
問題
100cmの真っ直ぐな棒を3つに切って三角形を作ろうとしたところ
10cm,30cm,60cmに切断してしまって、これでは三角形ができないこと気付いた。
最長の60cmの棒を２つに切断して10cm,30cmの棒切れとで四角形の枠を作ることにした。
四角形の面積が最大になるように切断したい。そのときの四角形の面積を求めよ。
*)
Clear[{f,a,b,c,d,tab,tc,s}]
f[a_,b_,c_,x_] :=(
d=Sqrt[a^2+b^2 - 2 a b Cos[x]];
h=Sqrt[(c/2)^2-(d/2)^2];
tab=a b Sin[x]/2;
tc=d h /2;
tab+tc
)
Plot[f[10,30,60,x],{x,0,Pi}]
Maximize[f[10,30,60,x],x]
% // N
845:卵の名無しさん (ﾜｯﾁｮｲ 7f58-nRHk [14.13.16.0 [上級国民]])
24/05/23 12:28:18.09 LL2Dpiwe0.net
(*
問題
100cmの真っ直ぐな棒を3つに切って三角形を作ろうとしたところ
10cm,30cm,60cmに切断してしまって、これでは三角形ができないこと気付いた。
最長の60cmの棒を２つに切断して10cm,30cmの棒切れとで四角形の枠を作ることにした。
四角形の面積が最大になるように切断したい。そのときの四角形の面積を求めよ。
*)
Clear[f,p,q,r]
p=10;
q=30;
r=60;
(* x^2/a^2 + y^2/(a^2-c^2)=1 *)
f[theta_] :=(
d=Sqrt[p^2+q^2-2 p q Cos[theta]]; (* d:焦点間距離, theta:p qのなす角 *)
c=d/2; (* 焦点 (c,0),(-c,0) *)
a=r/2; (* 2a : 焦点からの距離和 *)
b=Sqrt[a^2-c^2]; (* 縦径=三角形の最大高 *)
d b/2 + p q Sin[theta]/2
)
Plot[f[theta],{theta,0,Pi}]
max=Maximize[f[theta],theta]
% // N
max[[2]]*180/Pi //N
Clear[_]
846:卵の名無しさん (ﾜｯﾁｮｲ ebb3-Vcku [240b:253:1000:dd10:* [上級国民]])
24/05/23 15:08:27.55 nMFechUv0.net
(*
問題
100cmの真っ直ぐな棒を3つに切って三角形を作ろうとしたところ
10cm,30cm,60cmに切断してしまって、これでは三角形ができないこと気付いた。
最長の60cmの棒を２つに切断して10cm,30cmの棒切れとで四角形の枠を作ることにした。
四角形の面積が最大になるように切断したい。そのときの四角形の面積を求めよ。
*)
p=10;
q=30;
r=60;
(* x^2/a^2 + y^2/(a^2-c^2)=1 *)
f[theta_] :=(
d=Sqrt[p^2+q^2-2 p q Cos[theta]]; (* d:焦点間距離, theta:p qのなす角 *)
c=d/2; (* 焦点 (c,0),(-c,0) *)
a=r/2; (* 2a : 焦点からの距離和 *)
b=Sqrt[a^2-c^2]; (* 縦径=三角形の最大高 *)
d b/2 + p q Sin[theta]/2
)
Plot[f[theta],{theta,0,Pi}];
m=Maximize[f[theta],theta];
% // N;
t0=2 ArcTan[Sqrt[2]];
d0=Sqrt[p^2+q^2-2 p q Cos[t0]];
c0=d0/2;
a0=r/2;
b0=Sqrt[a0^2-c0^2];
i=ResourceFunction["CircleIntersection"][Circle[{-c0, 0}, 10], Circle[{c0, 0}, 30]][[1]][[2]];
b1={0,b0};
c1={-c0,0};
c2={ c0,0};
g1=Graphics[{Dotted,Circle[{0, 0}, {a0, b0}]},Axes -> True];
g2=Graphics[Point[b1]];
g3=Graphics[{Thin,Red,Dashed,Circle[{-c0,0},{10,10}]}];
g4=Graphics[{Thin,Blue,Dashed,Circle[{c0,0}, {30,30}]}];
g5=Graphics[Point[c1]];
g6=Graphics[Point[c2]];
g7=Graphics[{ Thick,Line[{c1,i}] }];
g8=Graphics[{ Thick,Line[{c2,i}] }];
g9=Graphics[{ Thick,Line[{c1,b1}] }];
g10=Graphics[{ Thick,Line[{c2,b1}] }];
Show[g1,g2,g3,g4,g5,g6,g7,g8,g9,g10]
847:卵の名無しさん (ﾜｯﾁｮｲ 9742-r1ry [2400:2200:491:7f2:*])
24/05/23 17:05:38.99 LN7y/1kN0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
848: 警備員[Lv.5][新芽] (ﾜｯﾁｮｲ 1377-zKIf [2001:268:922f:a563:*])
24/05/23 17:40:41.69 xXCsacxW0.net
>>846
板名も読めない認知症みたいだね
849:卵の名無しさん (ﾜｯﾁｮｲ 47f6-Vcku [2001:ac8:40:6000:* [上級国民]])
24/05/24 04:55:18.55 KvzwQkmq0.net
底辺私立医大を卒業した医者って頭悪いよね？
なので、底辺私立医大卒はWolfram言語を使えないのが判明している。
850:卵の名無しさん (ﾜｯﾁｮｲ 7f58-Vcku [14.13.16.0 [上級国民]])
24/05/24 05:48:15.32 tvMs1ymz0.net
全長１ｍの真っ直ぐな棒を無作為にｎ分割してその棒切れをｎ辺とするｎ角形を作ろうとしたところｎ角形ができなかった。
最も長い棒を適当に２分割してｎ＋１個の棒切れにすればそれらの棒切れを辺とするｎ＋１角形をつくることは常に可能か？
IsPolygon[x_] := Total[x]/2 > Sort[x][[-1]];
f[n_] :=(
x=RandomReal[{0,1},n];
While[IsPolygon[x],x=RandomReal[{0,1},n]];
x=Sort[x];
{x[[1;;n-1]],x[[-1]]/2,x[[-1]]}/2 // Flatten // IsPolygon // Boole
)
Table[f[7],1*^4] // Mean
851:卵の名無しさん
24/05/24 06:21:36.06 tvMs1ymz0.net
全長１ｍの真っ直ぐな棒を無作為に切断して４つに分ける。
この４つの棒切れを４辺とする四角形を面積が面積が最大になるように配置して面積を計算する
(例：25cmの棒切が４個の場合、正方形に配置して面積計算する）
当然、四角形ができない場合もある。
(1) 四角形ができる確率を求めよ。
(2）四角形ができない場合（例：5cm 10cm,15cm 70cmに切断された場合）は面積は0として計算して
面積の平均値を求めよ。
(3) 四角形ができない場合は除外して面積０以上の四角形の面積の平均値を求めよ。
(* Sqrt[(s-a)(s-b)(s-c)(s-d)- a b c d Cos[(A+C)/2]^2 ] *)
f1[] :=(
a=RandomReal[{0,1}];
b=RandomReal[{0,1-a}];
c=RandomReal[{0,1-a-b}];
d=1-a-b-c;
{a,b,c,d}=Sort[{a,b,c,d}];
s=(a+b+c+d)/2;
If[s>d,Sqrt[(s-a)(s-b)(s-c)(s-d)],0]
)
s1=Table[f1[],1*^6];
Mean[s1]
Mean@Table[Boole[x>0],{x,s1}] // N
Histogram[s1]
852:卵の名無しさん
24/05/24 06:52:58.53 r7g4zcnN0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
853:
24/05/24 08:17:24.89 0U7pACD/0.net
>>849
アンタスレタイはおろか板名すら読めない認知症じゃん
高校生にもボコられてるしw
854:卵の名無しさん
24/05/24 11:06:25.97 jEQTPgGR0.net
ゼニの偏差値だけは異常に高い
卒業すれば🐴🦌患者から回収するのみ💦
855:卵の名無しさん
24/05/24 20:39:26.45 WJoZ1xqS0.net
誰も名誉毀損しない方が良かった
私立医のバカ研修医のせいだ
856:
24/05/24 21:10:51.61 0U7pACD/0.net
尿瓶ジジイ数学板の高校生にすら脳内学歴バレバレらしい
857:卵の名無しさん
24/05/25 21:08:20.55 z7Tvtid7V
医者って職業は、他の職業と大きく違う点がある。
医師の技量によって、助かる命が奪われたり
健常者がカワタにされたりする事がある。
これは患者本人にとっては、非常に重大なことだ。
これに異論は無いと認識してる。
無論、人によっては他人の生き死にとか一生とか
全く意に介さない奴もいる。
だから、患者に繰り返し毒を盛って多数の人を
コロすような看護婦も存在してしまう(大口病院事件)。
逆に、治療結果に非常な不満を抱き、被害妄想で狂い
世話になった医師を家に呼びつけて散弾銃で射殺する
ような奴も存在する(渡辺医師射殺事件)。
医者なんて止めちまえよ。
知能指数が高く、学歴もあるなら
ＩＴ産業に転身しなよ。
その能力によっては、医師のそれを遥かに
しのぐ年収を得る。
858:卵の名無しさん (ﾜｯﾁｮｲ dbc7-YmzF [124.47.76.122])
24/05/26 11:32:39.05 QO7JsAPH0.net
u=2024%/%c(12,15,20)+1; u
f=\(n){
s=12*n[1]+15*n[2]+20*n[3]
2024<=s & s<=2040
}
gr=expand.grid(0:u[1],0:u[2],0:u[3])
pm=gr[apply(gr,1,f),]
re=rowSums(pm)
859:卵の名無しさん
24/05/26 13:12:35.42 QO7JsAPH0.net
n = {3*4,3*5,4*5};
{p1,p2,p3} = n/Total[n];
{u1,u2,u3} = Floor[2024/n]+1;
f[x_] := Total[x*n];
v = Flatten@Table[{x,y,z},{x,Range[0,u1]},{y,Range[0,u2]},{z,Range[0,u3]} ];
m = Partition[v,3];
y = Select[m,2024<=f[#] && f[#]<=2040&];
fp[x_] := (
n=Total[x];
{x1,x2,x3}={x[[1]],x[[2]],x[[3]]};
Binomial[n,x1]p1^x1 * Binomial[n-x1,x2]p2^x2 * p3^x3
)
p = fp /@ y;
pdf = p/Total[p];
x = Total /@ y;
Total[x pdf]
860:卵の名無しさん
24/05/26 13:21:51.32 TYEZEMu50.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
861:卵の名無しさん
24/05/26 13:24:45.26 QO7JsAPH0.net
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= f[] := (For[sum=0;count=0, sum<2024, count++, sum+=RandomChoice[{12,15,20}->{12,15,20}]]; count)
In[2]:= n=Table[f[],10^6];
In[3]:= Mean[n] // N
Out[3]= 124.192
In[4]:= Quantile[n,{0.025,0.5,0.975}]
Out[4]= {120, 124, 129}
In[5]:= (* Histogram[n] *)
862:卵の名無しさん
24/05/26 13:25:59.77 QO7JsAPH0.net
In[7]:= n = {3*4,3*5,4*5};
In[8]:= {p1,p2,p3} = n/Total[n];
In[9]:= {u1,u2,u3} = Floor[2024/n]+1;
In[10]:= f[x_] := Total[x*n];
In[11]:= v = Flatten@Table[{x,y,z},{x,Range[0,u1]},{y,Range[0,u2]},{z,Range[0,u3]} ];
In[12]:= m = Partition[v,3];
In[13]:= y = Select[m,2024<=f[#] && f[#]<=2040&];
In[14]:= fp[x_] := (
n=Total[x];
{x1,x2,x3}={x[[1]],x[[2]],x[[3]]};
Binomial[n,x1]p1^x1 * Binomial[n-x1,x2]p2^x2 * p3^x3
)
In[15]:= p = fp /@ y;
In[16]:= pdf = p/Total[p];
In[17]:= x = Total /@ y;
In[18]:= Total[x pdf]
Out[18]= 495904886863024711014690900126037925947158151253955867691586858290118663480916940260788181\
> 604372384668673161160077913476388924610009381666181965328404540822774723934597627786022595480\
> 781720140588331207803909691382542301305760276287633967192246724712364034709143616564290023136\
> 791036653 / 399170493235018654399908642063415913011369141571001467137214805437161337290039906\
> 913196588800673241916796559715750891456576910871356692132890930902737404771635711223541077460\
> 954262289340296694519847364433075952126678819758516908619463844482254836343353585090173449556\
> 8610202700178827
In[19]:= % // N
Out[19]= 124.234
In[20]:=
863:卵の名無しさん
24/05/26 13:27:00.39 QO7JsAPH0.net
分数解とシミュレーション解はほぼ一致。
864:卵の名無しさん
24/05/26 13:29:20.59 TYEZEMu50.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
865:卵の名無しさん
24/05/26 16:10:11.36 QO7JsAPH0.net
In[1]:= n = {12,15,20};
In[2]:= {p1,p2,p3} = n/Total[n];
In[3]:= {u1,u2,u3} = Floor[2024/n];
In[4]:= f[x_] := Total[x*n];
In[5]:= v = Flatten@Table[{x,y,z},{x,Range[0,u1]},{y,Range[0,u2]},{z,Range[0,u3]} ];
In[6]:= m = Partition[v,3];
In[7]:= y12 = Select[m,(2024-12)<=f[#] && f[#]<2024&];
In[8]:= y15 = Select[m,(2024-15)<=f[#] && f[#]<2024&];
In[9]:= y20 = Select[m,(2024-20)<=f[#] && f[#]<2024&];
In[10]:= fp[x_] := (
n=Total[x];
{x1,x2,x3}={x[[1]],x[[2]],x[[3]]};
Binomial[n,x1]p1^x1 * Binomial[n-x1,x2]p2^x2 * p3^x3
)
In[11]:= p12 = p1*fp /@ y12;
In[12]:= p15 = p2*fp /@ y15;
In[13]:= p20 = p3*fp /@ y20;
In[14]:= AUC=Total[p12]+Total[p15]+Total[p20];
In[15]:= pdf12 = p12/AUC;
In[16]:= pdf15 = p15/AUC;
In[17]:= pdf20 = p20/AUC;
In[18]:= x12 = 1 + Total /@ y12;
In[19]:= x15 = 1 + Total /@ y15;
In[20]:= x20 = 1 + Total /@ y20;
In[21]:= Total[x12 pdf12]+ Total[x15 pdf15]+Total[x20 pdf20]
866: 警備員[Lv.4][新芽] (ﾜｯﾁｮｲ 977d-AvcR [2001:268:922f:d58:*])
24/05/27 00:03:59.92 k0XPVHZ30.net
また認知症悪化してるのか
867:卵の名無しさん (ﾜｯﾁｮｲ dbc7-YmzF [124.47.76.122])
24/05/27 04:19:00.14 akziHR3h0.net
URLﾘﾝｸ(mathematica.stackexchange.com)
868:卵の名無しさん (ﾜｯﾁｮｲ dbc7-fXFG [124.47.76.122 [上級国民]])
24/05/27 04:40:45.58 akziHR3h0.net
先頭項目でグループ化し，対応する最終項目の平均を計算する：
In[1]:=
GroupBy[{{a, x}, {b, v}, {a, y}, {a, z}, {b, w}}, First -> Last, Mean]
URLﾘﾝｸ(wolfram.com)
Out[1]=
869:卵の名無しさん (ﾜｯﾁｮｲ dbc7-fXFG [124.47.76.122 [上級国民]])
24/05/27 05:10:26.02 akziHR3h0.net
先頭項目でグループ化し，対応する最終項目の平均を計算する：
In[1]:=
GroupBy[{{a, x}, {b, v}, {a, y}, {a, z}, {b, w}}, First -> Last, Mean]
URLﾘﾝｸ(wolfram.com)
Out[1]=
870:卵の名無しさん
24/05/27 06:48:30.52 akziHR3h0.net
分数表示したくてWolfram言語で書いているが、Rのtapply関数に相当する関数はGroupByであった。
871:卵の名無しさん
24/05/27 06:50:06.87 akziHR3h0.net
n = {12,15,20};
{p1,p2,p3} = n/Total[n];
{u1,u2,u3} = Floor[2024/n];
f[x_] := Total[x*n];
v = Flatten@Table[{x,y,z},{x,Range[0,u1]},{y,Range[0,u2]},{z,Range[0,u3]} ];
m = Partition[v,3];
y12 = Select[m,(2024-12)<=f[#] && f[#]<2024&];
y15 = Select[m,(2024-15)<=f[#] && f[#]<2024&];
y20 = Select[m,(2024-20)<=f[#] && f[#]<2024&];
fp[x_] := (
n=Total[x];
{x1,x2,x3}={x[[1]],x[[2]],x[[3]]};
Binomial[n,x1]p1^x1 * Binomial[n-x1,x2]p2^x2 * p3^x3
)
p12 = p1*fp /@ y12;
p15 = p2*fp /@ y15;
p20 = p3*fp /@ y20;
AUC=Total[p12]+Total[p15]+Total[p20];
pdf12 = p12/AUC;
pdf15 = p15/AUC;
pdf20 = p20/AUC;
x12 = 1 + Total /@ y12;
x15 = 1 + Total /@ y15;
x20 = 1 + Total /@ y20;
Total[x12 pdf12]+ Total[x15 pdf15]+Total[x20 pdf20];
N[%,10]
872:卵の名無しさん
24/05/27 06:53:09.54 akziHR3h0.net
x=Flatten[{x12,x15,x20}];
Tally[x];
Histogram[x];
p=Flatten[{p12,p15,p20}];
xp=Transpose[Table[{x,p}]];;
pmf=GroupBy[xp,First->Last,Total;
ListPlot[pmf]
BarChart[pmf,ChartLabels->{Placed[Keys[pmf],Top]}]
Keys[pmf]
pmf[124]
% // N
徐々にWolframの書式に慣れてきた。
873:卵の名無しさん
24/05/27 07:55:15.79 PKj/VdlK0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
874:卵の名無しさん
24/05/27 11:02:03.46 Rg1JEAAsM.net
今日は内視鏡件数が少なかったので実働２時間だった。
まあ、来月から市町村健診が始まるから予約枠は全枠埋まるだろうなぁ。
875:卵の名無しさん
24/05/27 18:38:23.13 0KwBLVZDl
内視鏡検査データを採取するのは、レントゲン撮影みたいに
専門の検査技師(若い女性)にまかせて、偉い先生はだねえ
データをまず専用の解析ＡＩシステムに投げて、そこからの
解析レポートを精査するスタイルで作業効率を上げることだわ。
で、さらにＡＩと対話しながら解析の精密度を上げていくのが
今後の医療スタイルになるね。
876:卵の名無しさん
24/05/28 18:54:23.32 QlD/HeIz0.net
fp[a_,b_,c_] :=(
R=Sqrt[a^2+b^2+c^2];
rab=Sqrt[a^2+b^2];
hab=R-Sqrt[R^2-rab^2];
rbc=Sqrt[b^2+c^2];
hbc=R-Sqrt[R^2-rbc^2];
rca=Sqrt[c^2+a^2];
hca=R-Sqrt[R^2-rca^2];
pab=hab/(hab+hbc+hca);
pbc=hbc/(hab+hbc+hca);
pca=hca/(hab+hbc+hca);
{pab,pbc,pca}
)
p=Flatten[Table[fp[a,b,c],2]]/2;
s=Drop[Subsets[Range[6]],1];
f1[x_] := (-1)^(Length[x]-1)/Total[p[[#]] & /@ x]
ans=Simplify[Total[f1 /@ s]]
877:
24/05/30 19:05:12.34 yJ734KYJ0.net
医者板はおろか数学板でいくら発狂しても相手にされないね
878:卵の名無しさん
24/05/31 05:37:42.59 aPnJQqQ30.net
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= k=10^8;
In[2]:= pH=RandomVariate[BetaDistribution[1+400,1],k];
In[3]:= pB=RandomVariate[BetaDistribution[1+240,1+27],{k}];
In[4]:= Mean@Boole[#>0& /@ (pB-pH)]
Out[4]= 0
879:卵の名無しさん
24/05/31 05:40:41.96 U7Vlyaxm0.net
beta.diff=
function(r1,r2,n1,n2,a=1,b=1){
f <- function(x,y) dbeta(x+y,a+r1,b+n1-r1)*dbeta(y,a+r2,b+n2-r2)
vf=Vectorize(f,vectorize.args = 'y')
pdf <- function(x) integrate(function(y) vf(x,y),-1,1)$value
pdf=Vectorize(pdf)
cdf=function(x) integrate(pdf,-1,x)$value
cdf=Vectorize(cdf)
invisible(list(pdf=pdf,cdf=cdf))
}
re=beta.diff(240,400,240+27,400,1,1)
curve(re$pdf(x),-1,1)
integrate(\(x) x*re$pdf(x),0,1,rel.tol = 1e-24)
re$cdf(0)
880:卵の名無しさん
24/05/31 06:10:52.73 U7Vlyaxm0.net
問題 ： 400戦無敗のヒクソン・グレイシーに240勝24敗のブアカーオが勝利する確率を求めよ。
両選手の勝利確率の事前分布を一様分布に設定してβ分布に従う乱数で1億回シミュレーションしてもブアカーオ勝利は０回であった。
Wolframを使って分数解を算出。
a=1;
b=1;
r1=400;
r2=240;
n1=400;
n2=240+27;
f[x_,y_] := PDF[BetaDistribution[a+r1,b+n1-r1],x+y] PDF[BetaDistribution[a+r2,b+n2-r2],y] ;
pdf[x_] := Integrate[f[x,y],{y,-1,1}];
Integrate[pdf[x],{x,-1,0}]
881:卵の名無しさん
24/05/31 06:51:39.50 JEiAexHA0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
882:
24/05/31 06:59:45.84 0ZDViJXq0.net
>>613
数学板にもマルチしてレス乞食とかつくづく哀れ
東大卒業生やエリート高校生がアンタみたいな日本語通じないチンパン相手にするわけないだろw
883:卵の名無しさん (ﾜｯﾁｮｲ 53fb-IQ+a [240a:61:5196:98c4:*])
24/06/03 07:39:28.89 Wwe4EXxi0.net
尿瓶ジジイ最近大人しいじゃん
脳内医療をつぶやかなくなったし
自分は医者じゃなくてただの医療事務って気づいたのか？
プログラミング言語、医療事務なら必要だよなwwwだから頑張って練習してるんだろ？
884: 警備員[Lv.3][新芽] (ﾜｯﾁｮｲ 7f0b-Uf6x [2001:268:9234:d0ef:*])
24/06/03 07:55:20.69 WzbqPEqJ0.net
ｽﾚﾘﾝｸ(math板)
最近では誰にも相手にされないのでレス乞食と自演にご執心
自演認定厨などと予防線を張るも語るに落ちるw
885:卵の名無しさん
24/06/03 16:06:51.87 frR3kiZvv
お決まりのデータ分析処理なんかは
データファイルを用意して、日本語で
指示文を与えるだけで、分析レポートや
関連グラフが文書の形で返って来る時代だよん。
例えば会社の決算書を出せとかね。
これは経理データを与えれば、誰が
やってもほぼ同じ。しかもほぼ数分で
終わる。
会計士がやるのは、個々の会社の事業情勢に
応じた分析レポートを書き加えるだけ。
プログラミング言語を駆使するのは
専門学者が新しい理論に基づく数値解析処理を
行う場合だけだね。それも特殊な部分的な処理だけな。
臨床医はやらんな。
886: 警備員[Lv.24] (ﾜｯﾁｮｲ cf6e-8DHQ [153.242.16.144])
24/06/04 02:21:33.15 23liO8qz0.net
そう
887:
24/06/04 16:48:26.63 yILR1j/AH.net
尿瓶ジジイ高校生相手に自演を繰り返すも同じIDでなるほどですねなどと書き込んで自演が誰の目からも明らかになりダンマリを決め込むw
888:卵の名無しさん
24/06/04 17:17:24.49 V4c3AZTY0.net
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
URLﾘﾝｸ(www.skgh.jp)
URLﾘﾝｸ(www.suruga-ya.jp)
URLﾘﾝｸ(www.oma-aozora.jp)
889:卵の名無しさん
24/06/06 04:34:28.61 jVzJzDfs0.net
3浪日大卒研修医ですが確かに勉強できませんわ
体力気力しかない
研修医3ヶ月目にして医師としての適性を疑い始めてる
890:卵の名無しさん
24/06/06 06:38:26.64 KmxFroPZH.net
>>889
医者は体力気力あるのが才能だよ
勉強なんぞ出来なくても休まず仕事に来て
みんなとコミニケーション取れる奴が優秀
後こんな糞スレにはもう来ないほうが良い
891:まんこー誠まこしけーパン屋横須賀公郷町誠まましけーしけー
24/06/08 04:52:54.40
工藤静香こえこえースレッド？どおわーしけーこあっこかー？
区度ぷーー工藤静香こえこえーしょＰ－ふー
いけーだんー韓国？えろしけー電線管支持材木材開発しけーおわおわー
媚びるよー？くごーこかー？べいんーよーこすかー米穀？よーＰじょーかいこーしけーの
ころしーおわおわー？よーＰじょー買春べいんーよーこすかー米穀？いでぃおーこえこぺーんーーえたよーじょーいこーいちご宇多田ヒカルべいん－こえこえーしっけーしょーふもしけーおわＳ
韓国？えろＫしけーだけー死んだ？えへーーよーしけーしけーーいでぉおーっとーおーＳかあーかー国中黒人？工藤静香こえこえー？
Ｊはくじん－のこかいん－こかこかー？はくじんーのこかーあだちどおわーみせどおわーがいこーくいおいおー？
はくじんーのこかーあだちどおわーみけーなみこえーしけーしけーぶすよーこいすおわおＷしけーー
いでぉおーとーソーリーページいちこしけー？市川市歌舞伎町笑いおわおわーしねしね
こかー松本幸四郎こかいん－韓国？じみけー自民党えろこー夫ださいーお金儲けこかこかー妻島しけーおわおわー？
日本あほけーどもしけーこーじゅーおわおわしけーしけー０？工藤静香こ
892:まんこー誠まこしけーパン屋横須賀公郷町誠まましけーしけー
24/06/08 05:08:47.71
工藤静香こえこえースレッド？どおわーしけーこあっこかー？
区度ぷーー工藤静香こえこえーしょＰ－ふー佐越家しけーこんにゃくオーナナー二ーーヘンタおい？
工藤静香こえこえーしけーおわおわーえたよーみんなーしけーおわーころせー家族、もしけーおわおわー松原哲生蒟蒻のー授業？銃御意？重度おわー？おわおわー
工藤静香こえこえーしけーおわおわーこかいん－よしみーころせーよしみーころせーみんなーしけーおわーころせーよしみこかーしけー
八木さんち葉山？八木さんち葉山？山崎こかいんーまじころしー言いにくい？工藤静香こえこえーしけーおわおわー珍０歩声こここーしけー
ぽこたＹんーおわおわー医務室おわー井村屋製菓おわおわー工藤静香こえこえーパンパンひひぴんおめー覚醒剤
みんなーしけーおわーころせーじみえＫ－おわ自滅いおいおー？ｵﾜくぉわおわおわーオラクルカード中華ｵﾜ駒井？
おわおＷくーー玲子千葉よがせれぶあほけんちーなみこか－ＪＩＤＯ－じどーしぬおかＮＥ－4八木さんち葉山？言いにくいはくちよめもきれゆーこーもしけーしけーー
八木さんち葉山？言いにくい？家庭特異よやくざーでＭねーーきちがいこかいんーでもばかすけー工藤静香こえこえーしけーおわおわ工藤静香いうだＫＥＹＯ－けでどおわー孫帰るおわおわー
しえーおわおわしけー原恵美最低の佐野町山下小屋の隣だったくずくずじけーんーどおわーのこりけーよーじょー８０年おわおわしけーおわー＾？
７１ねんころーーだ原恵美きゅせー原恵美じうどー売春ーきゅーしゅーごみこかいんー佐野町山下小屋ふかいーかおーおわおわー・しょーふこやーばかうんこー歌舞伎町笑い市川しけー０おわーみんなーしけーおわーころせー
歌舞伎町笑い松本幸四郎こあっこかー？こかいんーのくず笑顔園児のくずしけーおわおわーのあほけーものー告知高野貴子しけーおわおわー？
べいん－そーりーいでぉおーそーりーこえこえーはくじんーのこかーあだちどおわーこかこかー
入江先生たぬきこえーせくすーよーじょーまんこしけー外人イデオロギ