[Maxima] Eronian triangles with Maxima

[Luigi Marino]

This is my last work with Maxima

EronianTriangles are
triangles with perimeter even number
and area integer number; 
the block found sides a,b,c and area.


erone(p):=block(for a:2 thru p/2 do for b:a thru p/2 do   for c:b thru p/2 do  
 if  (a+b+c=p and a<b+c and b<a+c and c<a+b )  
 then (area: sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c)),
 if floor(area)=area then print('a=a,'b=b,'c=c,'area=area)))$

Best regards
 Luigi Marino
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.math.utexas.edu/pipermail/maxima/attachments/20081231/83975998/attachment.htm