# vba, 76

 Function r(a,b,c)
 s=(a+b+c)/2:r=(a*b*c)/(8*(s-a)*(s-b)*(s-c))
 End Function

Call with 
> ?r(3,4,5) 

or in excel with 
> =r(5,12,13)