1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
pload QAcommands
puts "========"
puts "OCC524"
puts "========"
puts ""
set LowerVector 1
set UpperVector 6
set InitialValueVector 5
set LowerRowMatrix 1
set UpperRowMatrix 6
set LowerColMatrix 1
set UpperColMatrix 6
set InitialValueMatrix 4
set info_result [OCC524 ${LowerVector} ${UpperVector} ${InitialValueVector} ${LowerRowMatrix} ${UpperRowMatrix} ${LowerColMatrix} ${UpperColMatrix} ${InitialValueMatrix}]
set ll [llength ${info_result}]
if {${ll} != 46} {
puts "OCC524: Error"
} else {
regexp {math_Vector of Length = ([-0-9.+eE]+)} ${info_result} full Vector1Length
if {${Vector1Length} != [expr ${UpperVector} - ${LowerVector} + 1]} {
puts "Vector1Length=${Vector1Length}"
puts "OCC524: Error"
} else {
regexp {math_Vector\(1\) = ([-0-9.+eE]+)} ${info_result} full Vector1_1
regexp {math_Vector\(2\) = ([-0-9.+eE]+)} ${info_result} full Vector1_2
regexp {math_Vector\(3\) = ([-0-9.+eE]+)} ${info_result} full Vector1_3
regexp {math_Vector\(4\) = ([-0-9.+eE]+)} ${info_result} full Vector1_4
regexp {math_Vector\(5\) = ([-0-9.+eE]+)} ${info_result} full Vector1_5
regexp {math_Vector\(6\) = ([-0-9.+eE]+)} ${info_result} full Vector1_6
#regexp {math_Vector\(7\) = ([-0-9.+eE]+)} ${info_result} full Vector1_7
#regexp {math_Vector\(8\) = ([-0-9.+eE]+)} ${info_result} full Vector1_8
#regexp {math_Vector\(9\) = ([-0-9.+eE]+)} ${info_result} full Vector1_9
if {${Vector1_1}!=120. || ${Vector1_2}!=120. || ${Vector1_3}!=120. || ${Vector1_4}!=120. || ${Vector1_5}!=120. || ${Vector1_6}!=120.} {
puts "Error : OCC524"
} else {
regexp -all {math_Vector\(1\) = ([-0-9.+eE]+)} ${info_result} full Vector2_1
regexp -all {math_Vector\(2\) = ([-0-9.+eE]+)} ${info_result} full Vector2_2
regexp -all {math_Vector\(3\) = ([-0-9.+eE]+)} ${info_result} full Vector2_3
regexp -all {math_Vector\(4\) = ([-0-9.+eE]+)} ${info_result} full Vector2_4
regexp -all {math_Vector\(5\) = ([-0-9.+eE]+)} ${info_result} full Vector2_5
regexp -all {math_Vector\(6\) = ([-0-9.+eE]+)} ${info_result} full Vector2_6
#regexp -all {math_Vector\(7\) = ([-0-9.+eE]+)} ${info_result} full Vector2_7
#regexp -all {math_Vector\(8\) = ([-0-9.+eE]+)} ${info_result} full Vector2_8
#regexp -all {math_Vector\(9\) = ([-0-9.+eE]+)} ${info_result} full Vector2_9
if {${Vector2_1}!=120. || ${Vector2_2}!=125. || ${Vector2_3}!=120. || ${Vector2_4}!=120. || ${Vector2_5}!=120. || ${Vector2_6}!=120.} {
puts "OCC524: Error"
} else {
puts "OCC524: OK"
}
}
}
}
|
