20/11/01 21:26:23.58 X5qYnZ39.net
>>480
きれいな式になるんですね。
検算
> lm = function(a,b,c) {
+ b1=sqrt(2)*b
+ (1/2)*(a^2 + c^2 + sqrt((a+b1+c)*(a+b1-c)*(a-b1+c)*(-a+b1+c)))
+ }
> lm(3,4,5)
[1] 31.96663
20/11/01 21:26:23.58 X5qYnZ39.net
>>480
きれいな式になるんですね。
検算
> lm = function(a,b,c) {
+ b1=sqrt(2)*b
+ (1/2)*(a^2 + c^2 + sqrt((a+b1+c)*(a+b1-c)*(a-b1+c)*(-a+b1+c)))
+ }
> lm(3,4,5)
[1] 31.96663