sub EvalPolynominal{
	#first parameter gives the polynominal string
	#second parameter gives the min-des width
	#third parameter gives the short-line length
	
	my $polynominal=shift;
	my $curWidth=shift;
	my $curLength=shift;
	
	$polynominal =~ s/W/$curWidth/g ;#replace W with current value of min width
	$polynominal =~ s/L/$curLength/g ;#replace L with current value of min Length
	return eval ($polynominal);
}