// purpose or non-infringement. Please see the License for the specific terms
// and conditions governing the rights and limitations under the License.
-//#ifndef DEB
-#define No_Standard_RangeError
-#define No_Standard_OutOfRange
-#define No_Standard_DimensionError
-//#endif
-
#include <math_Matrix.ixx>
#include <math_Vector.hxx>
// purpose or non-infringement. Please see the License for the specific terms
// and conditions governing the rights and limitations under the License.
-//#ifndef DEB
-#define No_Standard_RangeError
-#define No_Standard_OutOfRange
-#define No_Standard_DimensionError
-//#endif
-
#include <stdio.h>
#include <math_Vector.ixx>
set LowerVector 1
-set UpperVector 9
+set UpperVector 6
set InitialValueVector 5
set LowerRowMatrix 1
set UpperRowMatrix 6
set LowerColMatrix 1
-set UpperColMatrix 3
+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} != 64} {
+if {${ll} != 46} {
puts "OCC524: Error"
} else {
regexp {math_Vector of Length = ([-0-9.+eE]+)} ${info_result} full Vector1Length
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
+ #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}!=0. || ${Vector1_5}!=0. || ${Vector1_6}!=0. || ${Vector1_7}!=0. || ${Vector1_8}!= 0.|| ${Vector1_9}!=0.} {
+ 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\(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}!=60. || ${Vector2_2}!=60. || ${Vector2_3}!=60. || ${Vector2_4}!=60. || ${Vector2_5}!=60. || ${Vector2_6}!=60. || ${Vector2_7}!=0. || ${Vector2_8}!= 0.|| ${Vector2_9}!=0.} {
+ #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"