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