test increase tolerance

Author: bilam

test/g100i.ijs

@@ -76,14 +76,14 @@ NB. +/ D ----------------------------------------------------------------
 
 plus=: 4 : 'x+y'
 
-(+/   -:!.1e_11 plus/  ) x=:0.01*_1e9+?    11$2e9  NB. comparison not close because of different orders of operations
-(+/   -:!.1e_11 plus/  ) x=:0.01*_1e9+?4   11$2e9
-(+/"1 -:!.1e_11 plus/"1) x
-(+/   -:!.1e_11 plus/  ) x=:0.01*_1e9+?7 5 11$2e9
-(+/"1 -:!.1e_11 plus/"1) x
-(+/"2 -:!.1e_11 plus/"2) x
-(+/   -:!.1e_11 plus/  )@> x=:(0.01*_1e9+2e9 ?@$~ ])&.> 4 ,&.>/ >: i. 100
-(+/   -:!.1e_11 plus/  )@> x=:(0.01*_1e9+2e9 ?@$~ ])&.> >: i. 100
+(+/   -:!.5e_11 plus/  ) x=:0.01*_1e9+?    11$2e9  NB. comparison not close because of different orders of operations
+(+/   -:!.5e_11 plus/  ) x=:0.01*_1e9+?4   11$2e9
+(+/"1 -:!.5e_11 plus/"1) x
+(+/   -:!.5e_11 plus/  ) x=:0.01*_1e9+?7 5 11$2e9
+(+/"1 -:!.5e_11 plus/"1) x
+(+/"2 -:!.5e_11 plus/"2) x
+(+/   -:!.5e_11 plus/  )@> x=:(0.01*_1e9+2e9 ?@$~ ])&.> 4 ,&.>/ >: i. 100
+(+/   -:!.5e_11 plus/  )@> x=:(0.01*_1e9+2e9 ?@$~ ])&.> >: i. 100
 
 NB. +/!.0 D ----------------------------------------------------------------
 
@@ -107,12 +107,12 @@ NB. +/ Z ----------------------------------------------------------------
 
 plus=: 4 : 'x+y'
 
-(+/   -:!.1e_11 plus/  ) x=:j./0.01*_1e9+?2     11$2e9
-(+/   -:!.1e_11 plus/  ) x=:j./0.01*_1e9+?2 4   11$2e9
-(+/"1 -:!.1e_11 plus/"1) x
-(+/   -:!.1e_11 plus/  ) x=:j./0.01*_1e9+?2 7 5 11$2e9
-(+/"1 -:!.1e_11 plus/"1) x
-(+/"2 -:!.1e_11 plus/"2) x
+(+/   -:!.5e_11 plus/  ) x=:j./0.01*_1e9+?2     11$2e9
+(+/   -:!.5e_11 plus/  ) x=:j./0.01*_1e9+?2 4   11$2e9
+(+/"1 -:!.5e_11 plus/"1) x
+(+/   -:!.5e_11 plus/  ) x=:j./0.01*_1e9+?2 7 5 11$2e9
+(+/"1 -:!.5e_11 plus/"1) x
+(+/"2 -:!.5e_11 plus/"2) x
 
 
 NB. +/ X ----------------------------------------------------------------

test/g520.ijs

@@ -6,9 +6,9 @@ l=.15
 ix =. l ? c  NB. indexes
 v =. l ?@$ 0  NB. vector values
 bk=. 0. +  i.#M
-bkg=.i.#M
-cons=.1e_11 1e_6 0.0 0 1. 1.0
-Frow=.(1+#M)$_4.
+bkg=. i.#M
+cons=. 1e_11 1e_6 0.0 0 1. 1.0
+Frow=. (1+#M)$_4.
 (128!:9) (,c);(,."1 (_2) ]\ 0 , #ix);ix;v;M;bkg;cons;bk;Frow
 )
 
@@ -31,7 +31,7 @@ for_l. >:  i. 50 do.
 end.
 bk =. _2 1 3 1e_8
 M =. |: _4 ]\ 0. 1 3 0  0 0.5 3 0   1 0 0 0   0 1e_9 0 0   NB. input by columns
-cons=.1e_11 1e_6 0.0 0 1. 1.0 _1 NB. ColThr MinPivot #freepasses #improvements #amounttoimproveby prirow
+cons=. 1e_11 1e_6 0.0 0 1. 1.0 _1 NB. ColThr MinPivot #freepasses #improvements #amounttoimproveby prirow
 Frow=. _4 _3 _2 _1. 0.
 bkg=.i.#M
 NB. Test DIP mode - on identity cols
@@ -148,7 +148,7 @@ delth''  NB. make sure we start with an empty system
 
 bk =. _2 1 3 1e_8
 M =. |: _4 ]\ 0. 1 2.9 0  0 0.5 3 0   1 0 0 0   0 1e_9 0 0   NB. input by columns
-cons=.1e_11 1e_6 0.0 0 1. 1.0 _1  NB. ColThr MinPivot #freepasses #improvements #amounttoimproveby nvirt
+cons=. 1e_11 1e_6 0.0 0 1. 1.0 _1  NB. ColThr MinPivot #freepasses #improvements #amounttoimproveby nvirt
 Frow=. _4 _3 _2 _1. 0.
 bkg=.i.#M
 NB. Test DIP mode - on identity cols

test/gpoly.ijs

@@ -13,10 +13,10 @@ test =: 3 : 0
  d=: p. r
  assert. *./ 1e_6  > c (+/@:|@[ %~ |@]) c p. >{:r
  assert. *./ 1e_13 > c %&(+/@:|)~ -/c,:d
- assert. (c p. z) -:!.1e_12 r p. z
- assert. (c p. z) -:!.1e_11 d p. z
- assert. (c p. x) -:!.1e_12 r p. x
- assert. (c p. x) -:!.1e_11 d p. x
+ assert. (c p. z) -:!.5e_11 r p. z
+ assert. (c p. z) -:!.5e_11 d p. z
+ assert. (c p. x) -:!.5e_11 r p. x
+ assert. (c p. x) -:!.5e_11 d p. x
  assert. (p. c) -: p. c,0 0 0 0 0
  1
 )

test/gt.ijs

@@ -89,13 +89,13 @@ p=: (8 %~ _10+?4$20)&p.
 q=: (8 %~ _10+?3$20)&p.
 sin =: 1&o.
 
-(p@q   =!.1e_11 p@q   T. 20) x=: (2^ _8)*_200+?30$400
-(q@p   =!.1e_11 q@p   T. 20) x
+(p@q   =!.5e_11 p@q   T. 20) x=: (2^ _8)*_200+?30$400
+(q@p   =!.5e_11 q@p   T. 20) x
 
-(p@sin =!.1e_11 p@sin T. 40) x=: (2^_10)*_600+?30$1200
-(q@sin =!.1e_11 q@sin T. 40) x
-(p@:^  =!.1e_11 p@:^  T. 40) x
-(q@:^  =!.1e_11 q@:^  T. 40) x
+(p@sin =!.5e_11 p@sin T. 40) x=: (2^_10)*_600+?30$1200
+(q@sin =!.5e_11 q@sin T. 40) x
+(p@:^  =!.5e_11 p@:^  T. 40) x
+(q@:^  =!.5e_11 q@:^  T. 40) x
 
 
 NB.  %@f t. -------------------------------------------------------------