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

108 ：卵の名無しさん ：2024/02/09(金) 16:32:56.13 ID:vYmwH0s7H.net

>>103

535：１３２人目の素数さん：[sage]：2024/02/09(金) 11:41:33.75 ID:6mA04i5k
>>524
内視鏡バイトあけにプログラム

Sx=function(x){
v=sort(c(sin(x),sin(2*x),sin(3*x)))
if(v[1]+v[2]<v[3]){ S=0
}else{
s=sum(v)/2
S=sqrt(s*prod(s-v))
}
return(S)
}
Sx=Vectorize(Sx)
optimise(Sx,c(-1000,1000),maximum=TRUE)$obj

0.2743685

こっちではダンマリ決め込んでる模様