24/02/09 16:32:56.13 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
こっちではダンマリ決め込んでる模様