set good_YAxisX 0
set good_YAxisY 1
set good_Radius 3
- if { ${CenterX} != ${good_CenterX} } {
- puts "Faulty : Bad CenterX"
- set status 1
- }
- if { ${CenterY} != ${good_CenterY} } {
- puts "Faulty : Bad CenterY"
+
+ set SQDistCC [expr ($CenterX-$good_CenterX)*($CenterX-$good_CenterX)+($CenterY-$good_CenterY)*($CenterY-$good_CenterY)]
+
+ if { ${SQDistCC} > 1.0e-14 } {
+ puts "Faulty : Bad Center of the circle"
set status 1
}
if { ${XAxisX} != ${good_XAxisX} } {
puts "Faulty : Bad XAxisX"
- set status 1
+ set status 2
}
if { ${XAxisY} != ${good_XAxisY} } {
puts "Faulty : Bad XAxisY"
- set status 1
+ set status 3
}
if { ${YAxisX} != ${good_YAxisX} } {
puts "Faulty : Bad YAxisX"
- set status 1
+ set status 4
}
if { ${YAxisY} != ${good_YAxisY} } {
puts "Faulty : Bad YAxisY"
- set status 1
+ set status 5
}
if { ${Radius} != ${good_Radius} } {
puts "Faulty : Bad Radius"
- set status 1
+ set status 6
}
} else {
puts "Faulty : Bad solution"
- set status 1
+ set status 7
}
if { ${status} != 0 } {
- puts "Faulty : solution is wrong"
+ puts "Faulty : solution is wrong. Status = ${status}"
} else {
puts "OK : solution is correct"
}