#
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
# 
#-----

b = 21
as = c(8,10,12,14,16)
cs = 27 - as
s = 24
A = sqrt( s * ( s - as ) * ( s - b ) * ( s - cs ) )

rbind( as, cs, A )