Subversion Repositories wimsdev

formula=!lines2items $formula
cnt=!itemcnt $formula
!if $cnt!=3
 error=bad_formula
 !exit
!endif
formula=!rawmath $formula
!distribute item $formula into s1,s2,s3
s1=$[$s1]
s2=$[$s2]
s3=$[$s3]
!if NaN isin $s1 $s2 $s3 or Inf isin $s1 $s2 $s3
 error=bad_formula
 !exit
!endif
sides=!sort numeric item $s1,$s2,$s3
Sides=!item $wims_sort_order of $formula
!distribute item $sides into s1,s2,s3
!distribute item $Sides into S1,S2,S3
!if $s3>=$s1+$s2 or $s1<=0
 error=incompatible_sides
 !exit
!endif