5 proc GetPercent {Value GoodValue} {
7 if {${GoodValue} != 0.} {
8 set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
9 } elseif {${Value} != 0.} {
10 set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]