Testsuite / External functions: also test coefficients of 2nd order policy function
parent
acdca03e43
commit
51278b2f90
|
@ -52,6 +52,18 @@ end
|
||||||
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxu - oo_.dr.ghxu))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
|
|
@ -52,6 +52,18 @@ end
|
||||||
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxu - oo_.dr.ghxu))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
|
|
@ -54,6 +54,18 @@ end
|
||||||
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxu - oo_.dr.ghxu))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
|
|
@ -54,6 +54,18 @@ end
|
||||||
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxu - oo_.dr.ghxu))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 1e-12
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
|
|
@ -52,6 +52,18 @@ end
|
||||||
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxu - oo_.dr.ghxu))) > 1e-4
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-3
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-5
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 1e-9
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
|
|
@ -52,6 +52,18 @@ end
|
||||||
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxu - oo_.dr.ghxu))) > 1e-4
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-3
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-5
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 1e-9
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
|
|
@ -52,6 +52,18 @@ end
|
||||||
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-9
|
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-9
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxu - oo_.dr.ghxu))) > 1e-4
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-3
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-5
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 1e-9
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
|
|
@ -52,6 +52,18 @@ end
|
||||||
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-9
|
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-9
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxu - oo_.dr.ghxu))) > 1e-4
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-3
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-5
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
|
if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 1e-9
|
||||||
|
error('Failure in external function')
|
||||||
|
end
|
||||||
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
|
||||||
error('Failure in external function')
|
error('Failure in external function')
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in New Issue