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

[過去ﾛｸﾞ] 底辺私立医大を卒業した医者って頭悪いよね？ Part30 (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

780: (ﾜｯﾁｮｲ 0ddd-4JRL [240b:253:1000:dd10:* [上級国民]]) 2024/05/10(金) 18:41:31.15 ID:9pJ3+FOk0(2/4) AAS
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

781(2): (ﾜｯﾁｮｲ 0ddd-4JRL [240b:253:1000:dd10:* [上級国民]]) 2024/05/10(金) 18:45:07.46 ID:9pJ3+FOk0(3/4) AAS
料理もプログラムも道楽。
手を動かして、頭も動かすのがボケ予防にいいと、
懇意なナースに話したら「腰は動かさななくていいんですか？」と言われた。

782: 警備員[Lv.9][新初] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*]) 2024/05/10(金) 18:46:36.13 ID:eirMlK+F0(2/5) AAS
>>781
顔真っ赤にしてphioseとか書き込んじゃうのも道楽なの？w

783: 警備員[Lv.9][新初] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*]) 2024/05/10(金) 18:48:25.13 ID:eirMlK+F0(3/5) AAS
>>781
それにもうすでに認知症だろ
日本語通じてないし5chの徘徊止まらないんだからw

784(1): (ﾜｯﾁｮｲ 0ddd-4JRL [240b:253:1000:dd10:* [上級国民]]) 2024/05/10(金) 20:04:05.38 ID:9pJ3+FOk0(4/4) AAS
Wolframがいじれるようになって気分がいい。
作図はまだRの方が慣れている。
色々、作図用のツールを自作してきたのがあるし。
Phimoseくんらの集団がいじれるのはforeskinだけみたいだな。
数学番ではHaskellに移植している人もいた。

785: 警備員[Lv.9][新苗] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*]) 2024/05/10(金) 20:47:52.73 ID:eirMlK+F0(4/5) AAS
>>784
アンタは日本語通じないチンパンだからwolframなんて1000年早いよ
チンパンが電卓叩いてキーキー喚いてるだけw

786: 警備員[Lv.9][新苗] (ﾜｯﾁｮｲ 020c-oO4L [2001:268:922f:c32:*]) 2024/05/10(金) 20:48:38.49 ID:eirMlK+F0(5/5) AAS
高校生にボロクソ言われてももう何も言い返せない模様w
どうせ正論で叩きのめされるだけだからねw

787: (ﾜｯﾁｮｲ 65b0-JAQx [2400:2411:3fe0:400:*]) 2024/05/10(金) 22:11:40.58 ID:iPNVXLOk0(1) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元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

788: (ﾜｯﾁｮｲ 5ec7-ikzK [124.47.76.122 [上級国民]]) 2024/05/12(日) 09:54:54.84 ID:DLnBuKy80(1/2) AAS
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]]
)

789: (ﾜｯﾁｮｲ 5ec7-ikzK [124.47.76.122 [上級国民]]) 2024/05/12(日) 09:58:52.60 ID:DLnBuKy80(2/2) AAS
重複コマンド除去

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

790: (ﾜｯﾁｮｲ b8b0-7YD8 [2400:2411:3fe0:400:*]) 2024/05/12(日) 10:12:49.61 ID:CBWXcxL60(1) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元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

791: (ﾜｯﾁｮｲ ad46-ikzK [2a02:6ea0:d348:1000:* [上級国民]]) 2024/05/16(木) 09:39:00.07 ID:/6cUkJcY0(1) AAS
(*
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]

792: 警備員[Lv.4][新初] (ﾜｯﾁｮｲ 3645-TQ36 [2001:268:9235:ce72:*]) 2024/05/16(木) 20:05:59.04 ID:Ml98D8f+0(1) AAS
数学板で高校生にボコされてて草

793: (ﾜｯﾁｮｲ 8ade-d/dG [2001:ac8:40:9000:* [上級国民]]) 2024/05/17(金) 06:19:13.76 ID:cAVB/byV0(1) AAS
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]

794: (ﾜｯﾁｮｲ 8ac4-7YD8 [2400:2200:4b9:a37c:*]) 2024/05/17(金) 06:52:54.23 ID:M6tb4rzf0(1) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元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

795: 警備員[Lv.4][新芽初] (ｱｳｱｳｷｰ Saca-TQ36 [182.251.26.134]) 2024/05/18(土) 18:08:49.77 ID:4/dADRNma(1/3) AAS
数学板でフルボッコにされる模様w

796: (ﾜｯﾁｮｲ e1d6-3Pfd [240b:11:241:7900:*]) 2024/05/18(土) 18:18:05.94 ID:bv5siOJ30(1) AAS
尿瓶ジジイは高校生にすら負けてるのか？
中学レベルだなwww

797(1): (ﾜｯﾁｮｲ 2458-5MDN [14.13.16.0]) 2024/05/18(土) 20:18:58.41 ID:zB0YmMYc0(1) AAS
やはりシリツ卒だとRすら扱えないようだな。

798: 警備員[Lv.6][新芽初] (ｱｳｱｳｷｰ Saca-TQ36 [182.251.26.134]) 2024/05/18(土) 20:29:28.63 ID:4/dADRNma(2/3) AAS
>>797
日本語すら扱えないのにRが扱えているとは？w

799: 警備員[Lv.6][新芽初] (ｱｳｱｳｷｰ Saca-TQ36 [182.251.26.134]) 2024/05/18(土) 20:29:53.63 ID:4/dADRNma(3/3) AAS
2chｽﾚ:math

上下前次 1-新書関写板覧索設栞歴

あと 203 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.186s*