- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
284 ：デフォルトの名無しさん[sage]：2015/06/08(月) 02:01:06.69 ID:vgqsPLS1 - >>255 R
> menseki <- function( a, b, c ){
+ L <- sqrt( c( sum( ( a - b )^2 ), sum( ( b - c )^2 ), sum( ( c - a )^2 ) ) )
+ s <- sum( L ) / 2
+ T <- sqrt( prod( s - c( 0, L ) ) )
+ return( T )
+ }
> menseki( c(0,0), c(4,0), c(4,3) )
[1] 6
> menseki( c(-10,-10), c(1,-10), c(-2,3) )
[1] 71.5
> menseki( c(0,0), c(1,1), c(2,2) )
[1] 0
|
|