From 6913906b5369ae5fd44d0c0b9c77935131c2ca7a Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Thu, 27 Jun 2024 18:59:10 -0600 Subject: [PATCH 01/12] mpc bug test --- test/problems/mpc_bug | Bin 0 -> 23753 bytes test/problems/mpc_bug.h | 8 ++++++++ test/problems/test_prob_from_data_file.h | 18 ++++++++++++++++-- test/run_tests.c | 3 +++ 4 files changed, 27 insertions(+), 2 deletions(-) create mode 100644 test/problems/mpc_bug create mode 100644 test/problems/mpc_bug.h diff --git a/test/problems/mpc_bug b/test/problems/mpc_bug new file mode 100644 index 0000000000000000000000000000000000000000..989fbb3e4bb5863af6620ae8317575a1eed2a4c3 GIT binary patch literal 23753 zcmeI32~^J68^_aFD@|#kX^|E}HOMx@)WbWJ5+}jQRg~zfaEjbvmu@TQToB`Se@vz0ZB__dfT&&rL%$HMNG~ zPd)L+!M=liN0F~Tv-y{DlFQklTtQOZx~ukhk*cX^-ink%N7VZ%*hj$y9%P^YAn&Js zom5Wc^ppKpa(`W{2f4Vq%js+#O`QWSa+(#CemtdzoE}|v%`E67r>{5q3`lP$r%hk2 z9NNuRPQjm@T-wu0PQwzP1zk3mQ$XIvB}Yu6qGRa6z?e=6m=_1l_jlGY*$R|Us z`&b#v$<@s`qLGQ5cHEs1e^})Cj=8-)5z7S@YV5QWnJTwSxhLMw^E2x_OyulLw-a_E zbB&Lf>4`ixpxI$VkzO;0c()cgE&9k>N0G;M=Ec8yf7qjX!DB`Cb-MP2ugHB@fAa7V z>9}sM!RI2+ST!+~i#(hj``y8K8FhJCkk{`!87*I6-NXL4jGDAPXsUTmMq|fE?Y90! zM&sws-0|Zj83pcgoPF%NjH28$7PP%BqZK;i1AAx6DCe>DweHz6`qj&xO2WjTE`e zG?7w88f5j(cpy@?`=0afBKNM`8J#9_jd$-UCq?$mTjc)g{V3hP=4=spP-q#lS)^yH zuKS`yo|^2L6DRWH>kl*ciyX9a@!!Gjy@a7=32QH!I}2xCOwi3}=prPmTR6r%a~95Z zJ96ftrnAuD_Q~Y<)xCtPtAj7-Uz7<6BTRoEr_obbuiLq>?MxDOWp?~wq_d-tsYga$pleEiHQ0VyG`&Sw_*#oZlWi6Nn8rD(#;t7U; zr@#WxLS6Bm91H+Afd{}-;2AI(JO};^UIc#yQ^Ct%8h8~<2XBD4z&l_jm<48o_rVmz690YQ}{(4R9xjdRWnbZ{c2)Ea(MkQAm7&?Q*y}&)Zf?2 zlH{Xw27NTflAhZPU43e=1@*p~U*Ou*oL2t%ME$`vQ~Ewo9(dcygtnULhmV?JOl#Vw zW+uiQ-b5EPn=a<9 z06PWPDZowvb_%dlfSm&D6kw+SI|bM&z)k^n3b0eaI98XQs!2aQf8OZmm3*8dTNKk# zWMTX4eKT4V(@~eSmlp#9jf?4M!JK)=PR}tdrX!C@8<(v*R$NCpxvA$T=9w1hC@C*$ zr|((TPd@zfMn|x-n2um)F&)9qVmgAI#dHKai|Gh<7U>9fR+oNMts5uI=c0Hc)eFZP zsa`nVNcF<;MyeN%H&VTDykWg?yuth}(h0{IsZKb~NOi(-MyeBzGg6&!oRR8;;|%MB zqi>h?tBwc@457PCA^&nk;SP#->3YLDkghkZ1L=ChI*_h6 ztOMzK!#XHwy;0HlD|y`CtP|C>-{5(#@aLQLfakla_Z2+Pl{~)68doRyv1lL3^H;i$ zP5k2dAdO!}Mwbakjc*Fa=%B~Z<&#$0=%j?%7e<~}U^L|?DN7kv-kE~OvA6ci;^_F$Y>n-n- z%jv(e`mM-cRi!`vJ}UJO$5E+&%BwT>PZ|ADnjb3MfBrsR*?zJPO6gBY{V1|us&|eX zQv0MjW&fAZeo5{AcmK7+IIs4$P)!ZTC~A^p1GTyefxJFAfAwp9TsHt;9jd?jG*UoK z1Jneyz{a39_&#U`HV4hY7N7-a30i^HU`wzSXalwe+kkCBTaeG~d*Qk_=nT4meLy~+ z>WgbPupcM~`-ASF2j~fUfdjyS;Ai0H;2>}?I2s%Sjs<?(bdW(Vy!2K2_1U*A#YFbbfR~`Re+_ zmesFD@K0Iec^AB|>b#7q^DCw4@dNmwHP{Ah3)+HRL1pKyl$~!XXd%{xc8ioQL(odow`J8*^Tk$DhZSb-;OA&L{h$Jm-}IaLxH; zY5vv@&zZO^Iw#;fOnp4i0N)1DQiFnAig1ZILy!1wAXelY-T!0w<2I1Zc-ZUE!KvtSm;2QH@Siu${Og~P8H zJPq1S&kKw`QH$6`zFThG*simiE^kfTmlYIEW*Gx|XSLf!FP-z`ha$fr6U}ys{pLoH zX9$Jf)`_O+_qIA|o{FQ1U)}sBqr*3p;^40{deKJedppg%wN?b(Z5lP?R^(2~%-Zs= znpYeR=zC!HnxtLSXW?jdTe~p&F(xd}W5)(M*QLdfSs(q6e%|N%hj)jaWZqZrdaJv! zG+Fm#Zga0)WSC|1cyG6*bf^8)L1CL$(UArZt{5e)r}SS&g{cqTPWd-9T!oW6XyTz~ zU2R0VfW%?4Bg-3W!ZB|9DR8!d~MxJi)rbt<$?9~Eu@YU$9P*MET-(~ zE_x=~D=D;3qVK{N>!{_GIZNh;ZKa2HMuW6(MA6c@w(5&l#8BY&=k>J;W2yNDd*d@P z!4xz)c>T17i%5S_xb=kOAkrAq>Q-R(Lh`)x>EnH}<1 z@zIEJQ8c)HNJ6203~BV9w?B7bEQMd0P1(*X=z|N>hY!2{62p%IM^lXZ zw5JZ5v9vmWY*-I<#a+TEZ(o-60!&lQ9CFLq6^y+-FE2) zke^AqUC8+vq~~LloPXM%7L3vf-R7`};w*Dds5M$mpWLaFP@u7i^knXhcgIE3&5hqa znl@$$32DcZef|k1@968^izY3juJyM?=Qu2Mc=P%xvDB()%7T=K4sUds`^#kPIa|c z-R;(t_G_9QHPxP)ZdYxwueRA)TkWmwcE2t5zis_^Tl@32_v>Bh-@De&()!D3AbyXp zkp|-1MR_;A&-pigL0XQV*X0+$(%!3A!S^{2$i>Ur4wvI|=gOAn^U|uSrx8~KR(%6nm1H;9uchL48lydJkn_z<9m##Z)-C0JlQKTnE9ZOq6?~ub=hA+0 zKiFQjhuh(DhLvoW%Qvm!dicD&vi)MaxIQB#*~#_txvH}4=KA^EQdRBn`HZUDn, sizeof(scs_float)); if (read_status < 0) { return "Data read failure, exit.\n"; @@ -28,12 +31,22 @@ static const char *_test_prob_from_data(const char *file, scs_float OPT) { stgs->eps_abs = 1e-6; stgs->eps_rel = 1e-6; + /* Force verbosity for the test */ + stgs->verbose = 1; sol = (ScsSolution *)scs_calloc(1, sizeof(ScsSolution)); exitflag = scs(d, k, stgs, sol, &info); - perr = SCS(dot)(d->c, sol->x, d->n) - OPT; - derr = -SCS(dot)(d->b, sol->y, d->m) - OPT; + if (d->P) { + /* px = Px */ + SCS(accum_by_p)(d->P, sol->x, px); + xt_p_x = SCS(dot)(px, sol->x, n); + } else { + xt_p_x = 0.; + } + + perr = 0.5 * xt_p_x + SCS(dot)(d->c, sol->x, d->n) - OPT; + derr = -0.5 * xt_p_x - SCS(dot)(d->b, sol->y, d->m) - OPT; scs_printf("primal obj error %4e\n", perr); scs_printf("dual obj error %4e\n", derr); @@ -47,6 +60,7 @@ static const char *_test_prob_from_data(const char *file, scs_float OPT) { SCS(free_cone)(k); SCS(free_sol)(sol); scs_free(stgs); + scs_free(px); if (fail) { scs_printf("%s: FAILED\n", file); diff --git a/test/run_tests.c b/test/run_tests.c index 337b5d7a..15094ce7 100644 --- a/test/run_tests.c +++ b/test/run_tests.c @@ -43,9 +43,11 @@ _SKIP(random_prob) #if NO_READ_WRITE == 0 /* reads / writes */ #include "problems/hs21_tiny_qp_rw.h" #include "problems/max_ent.h" +#include "problems/mpc_bug.h" #else _SKIP(hs21_tiny_qp_rw) _SKIP(max_ent) +_SKIP(mpc_bug) #endif static const char *all_tests(void) { @@ -61,6 +63,7 @@ static const char *all_tests(void) { mu_run_test(unbounded_tiny_qp); mu_run_test(random_prob); mu_run_test(max_ent); + mu_run_test(mpc_bug); mu_run_test(test_exp_cone); return 0; } From d81a031fdd213b84e9b4250ac55d09f61cf9c2bb Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Thu, 27 Jun 2024 19:02:53 -0600 Subject: [PATCH 02/12] explicit memset to 0 --- test/problems/test_prob_from_data_file.h | 1 + 1 file changed, 1 insertion(+) diff --git a/test/problems/test_prob_from_data_file.h b/test/problems/test_prob_from_data_file.h index d4ffbae1..2a0d6d42 100644 --- a/test/problems/test_prob_from_data_file.h +++ b/test/problems/test_prob_from_data_file.h @@ -37,6 +37,7 @@ static const char *_test_prob_from_data(const char *file, scs_float OPT) { sol = (ScsSolution *)scs_calloc(1, sizeof(ScsSolution)); exitflag = scs(d, k, stgs, sol, &info); + memset(px, 0, n * sizeof(scs_float)); if (d->P) { /* px = Px */ SCS(accum_by_p)(d->P, sol->x, px); From 54e5f42e8c430b6427b874e26863ac4ad1fc55ad Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Thu, 27 Jun 2024 19:07:10 -0600 Subject: [PATCH 03/12] not sure what is failing --- test/problems/test_prob_from_data_file.h | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/test/problems/test_prob_from_data_file.h b/test/problems/test_prob_from_data_file.h index 2a0d6d42..ff7f4202 100644 --- a/test/problems/test_prob_from_data_file.h +++ b/test/problems/test_prob_from_data_file.h @@ -20,10 +20,9 @@ static const char *_test_prob_from_data(const char *file, scs_float OPT) { scs_int success; const char *fail; scs_float xt_p_x; - scs_float *px; + scs_float *px = SCS_NULL; read_status = SCS(read_data)(file, &d, &k, &stgs); - px = (scs_float *)scs_calloc(d->n, sizeof(scs_float)); if (read_status < 0) { return "Data read failure, exit.\n"; @@ -37,9 +36,10 @@ static const char *_test_prob_from_data(const char *file, scs_float OPT) { sol = (ScsSolution *)scs_calloc(1, sizeof(ScsSolution)); exitflag = scs(d, k, stgs, sol, &info); - memset(px, 0, n * sizeof(scs_float)); if (d->P) { /* px = Px */ + px = (scs_float *)scs_calloc(d->n, sizeof(scs_float)); + memset(px, 0, n * sizeof(scs_float)); SCS(accum_by_p)(d->P, sol->x, px); xt_p_x = SCS(dot)(px, sol->x, n); } else { @@ -61,8 +61,9 @@ static const char *_test_prob_from_data(const char *file, scs_float OPT) { SCS(free_cone)(k); SCS(free_sol)(sol); scs_free(stgs); - scs_free(px); - + if (px) { + scs_free(px); + } if (fail) { scs_printf("%s: FAILED\n", file); } From 72b6158246e895fb52f1c21d3a674b13fe63ccb1 Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Thu, 27 Jun 2024 19:09:23 -0600 Subject: [PATCH 04/12] fix n --- test/problems/test_prob_from_data_file.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/problems/test_prob_from_data_file.h b/test/problems/test_prob_from_data_file.h index ff7f4202..3b993039 100644 --- a/test/problems/test_prob_from_data_file.h +++ b/test/problems/test_prob_from_data_file.h @@ -39,9 +39,9 @@ static const char *_test_prob_from_data(const char *file, scs_float OPT) { if (d->P) { /* px = Px */ px = (scs_float *)scs_calloc(d->n, sizeof(scs_float)); - memset(px, 0, n * sizeof(scs_float)); + memset(px, 0, d->n * sizeof(scs_float)); SCS(accum_by_p)(d->P, sol->x, px); - xt_p_x = SCS(dot)(px, sol->x, n); + xt_p_x = SCS(dot)(px, sol->x, d->n); } else { xt_p_x = 0.; } From 8e8370ab82e54d2379ca6e5009de689e07bf9e17 Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Fri, 28 Jun 2024 07:01:06 -0600 Subject: [PATCH 05/12] add some prints --- src/scs.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/scs.c b/src/scs.c index 9cb1ee58..0de95be4 100644 --- a/src/scs.c +++ b/src/scs.c @@ -213,6 +213,9 @@ static void compute_residuals(ScsResiduals *r, scs_int m, scs_int n) { r->res_unbdd_a = SAFEDIV_POS(nm_ax_s, -r->ctx_tau); r->res_unbdd_p = SAFEDIV_POS(nm_px, -r->ctx_tau); } + scs_printf("iter %i\n", r->last_iter); + scs_printf("bty_tau %.6f\n", r->bty_tau); + scs_printf("nm_aty %.6f\n", NORM(r->aty, n)); if (r->bty_tau < 0) { nm_aty = NORM(r->aty, n); r->res_infeas = SAFEDIV_POS(nm_aty, -r->bty_tau); From fed1e6c53d7eb407989fa749d77b240dd930d26c Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Fri, 28 Jun 2024 07:03:41 -0600 Subject: [PATCH 06/12] better print --- src/scs.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/scs.c b/src/scs.c index 0de95be4..4210bb08 100644 --- a/src/scs.c +++ b/src/scs.c @@ -214,8 +214,8 @@ static void compute_residuals(ScsResiduals *r, scs_int m, scs_int n) { r->res_unbdd_p = SAFEDIV_POS(nm_px, -r->ctx_tau); } scs_printf("iter %i\n", r->last_iter); - scs_printf("bty_tau %.6f\n", r->bty_tau); - scs_printf("nm_aty %.6f\n", NORM(r->aty, n)); + scs_printf("bty_tau %.6e\n", r->bty_tau); + scs_printf("nm_aty %.6e\n", NORM(r->aty, n)); if (r->bty_tau < 0) { nm_aty = NORM(r->aty, n); r->res_infeas = SAFEDIV_POS(nm_aty, -r->bty_tau); From 66708de9c64c85942bd6456d5b8ebc881a5a1f4b Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Fri, 28 Jun 2024 07:46:39 -0600 Subject: [PATCH 07/12] test disable res infeas --- src/scs.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/scs.c b/src/scs.c index 4210bb08..5d00254b 100644 --- a/src/scs.c +++ b/src/scs.c @@ -218,7 +218,7 @@ static void compute_residuals(ScsResiduals *r, scs_int m, scs_int n) { scs_printf("nm_aty %.6e\n", NORM(r->aty, n)); if (r->bty_tau < 0) { nm_aty = NORM(r->aty, n); - r->res_infeas = SAFEDIV_POS(nm_aty, -r->bty_tau); + r->res_infeas = 1.0; /* SAFEDIV_POS(nm_aty, -r->bty_tau); */ } } From b1a41ba75e657d593d4a5ea2605892748f2559c8 Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Fri, 28 Jun 2024 07:56:50 -0600 Subject: [PATCH 08/12] disable other tests --- test/run_tests.c | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/test/run_tests.c b/test/run_tests.c index 15094ce7..e9ead414 100644 --- a/test/run_tests.c +++ b/test/run_tests.c @@ -51,20 +51,7 @@ _SKIP(mpc_bug) #endif static const char *all_tests(void) { - mu_run_test(test_validation); - mu_run_test(degenerate); - mu_run_test(small_lp); - mu_run_test(small_qp); - mu_run_test(rob_gauss_cov_est); - mu_run_test(hs21_tiny_qp); - mu_run_test(hs21_tiny_qp_rw); - mu_run_test(qafiro_tiny_qp); - mu_run_test(infeasible_tiny_qp); - mu_run_test(unbounded_tiny_qp); - mu_run_test(random_prob); - mu_run_test(max_ent); mu_run_test(mpc_bug); - mu_run_test(test_exp_cone); return 0; } int main(void) { From 3c1fc81fb99bf2ba2666fbbe7600278cb3aa48d7 Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Tue, 2 Jul 2024 04:44:31 +0000 Subject: [PATCH 09/12] Revert "disable other tests" This reverts commit b1a41ba75e657d593d4a5ea2605892748f2559c8. --- test/run_tests.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/test/run_tests.c b/test/run_tests.c index e9ead414..15094ce7 100644 --- a/test/run_tests.c +++ b/test/run_tests.c @@ -51,7 +51,20 @@ _SKIP(mpc_bug) #endif static const char *all_tests(void) { + mu_run_test(test_validation); + mu_run_test(degenerate); + mu_run_test(small_lp); + mu_run_test(small_qp); + mu_run_test(rob_gauss_cov_est); + mu_run_test(hs21_tiny_qp); + mu_run_test(hs21_tiny_qp_rw); + mu_run_test(qafiro_tiny_qp); + mu_run_test(infeasible_tiny_qp); + mu_run_test(unbounded_tiny_qp); + mu_run_test(random_prob); + mu_run_test(max_ent); mu_run_test(mpc_bug); + mu_run_test(test_exp_cone); return 0; } int main(void) { From 2945cba8f186a4fd1ce554b0bdeed4397a6c7d7d Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Tue, 2 Jul 2024 04:48:49 +0000 Subject: [PATCH 10/12] cleanup --- include/glbopts.h | 3 ++- src/scs.c | 39 ++++++++++++++++++--------------------- 2 files changed, 20 insertions(+), 22 deletions(-) diff --git a/include/glbopts.h b/include/glbopts.h index 4d7b7fdf..d0be30ba 100644 --- a/include/glbopts.h +++ b/include/glbopts.h @@ -39,7 +39,8 @@ extern "C" { #define WRITE_DATA_FILENAME (0) #define LOG_CSV_FILENAME (0) #define TIME_LIMIT_SECS (0.) - +/* Tolerance to check negativity condition for infeasibility */ +#define EPS_INFEAS_TOL (1e-9) /* redefine printfs as needed */ #if NO_PRINTING > 0 /* Disable all printing */ #define scs_printf(...) /* No-op */ diff --git a/src/scs.c b/src/scs.c index 5d00254b..7b76c4dc 100644 --- a/src/scs.c +++ b/src/scs.c @@ -207,18 +207,15 @@ static void compute_residuals(ScsResiduals *r, scs_int m, scs_int n) { r->res_unbdd_a = NAN; r->res_unbdd_p = NAN; r->res_infeas = NAN; - if (r->ctx_tau < 0) { + if (r->ctx_tau < -EPS_INFEAS_TOL) { nm_ax_s = NORM(r->ax_s, m); nm_px = NORM(r->px, n); r->res_unbdd_a = SAFEDIV_POS(nm_ax_s, -r->ctx_tau); r->res_unbdd_p = SAFEDIV_POS(nm_px, -r->ctx_tau); } - scs_printf("iter %i\n", r->last_iter); - scs_printf("bty_tau %.6e\n", r->bty_tau); - scs_printf("nm_aty %.6e\n", NORM(r->aty, n)); - if (r->bty_tau < 0) { + if (r->bty_tau < -EPS_INFEAS_TOL) { nm_aty = NORM(r->aty, n); - r->res_infeas = 1.0; /* SAFEDIV_POS(nm_aty, -r->bty_tau); */ + r->res_infeas = SAFEDIV_POS(nm_aty, -r->bty_tau); } } @@ -590,22 +587,22 @@ static void print_summary(ScsWork *w, scs_int i, SCS(timer) * solve_timer) { scs_printf("\n"); #if VERBOSITY > 0 - scs_printf("Norm u = %4f, ", SCS(norm_2)(w->u, w->d->n + w->d->m + 1)); - scs_printf("Norm u_t = %4f, ", SCS(norm_2)(w->u_t, w->d->n + w->d->m + 1)); - scs_printf("Norm v = %4f, ", SCS(norm_2)(w->v, w->d->n + w->d->m + 1)); - scs_printf("Norm rsk = %4f, ", SCS(norm_2)(w->rsk, w->d->n + w->d->m + 1)); - scs_printf("Norm x = %4f, ", SCS(norm_2)(w->xys_orig->x, w->d->n)); - scs_printf("Norm y = %4f, ", SCS(norm_2)(w->xys_orig->y, w->d->m)); - scs_printf("Norm s = %4f, ", SCS(norm_2)(w->xys_orig->s, w->d->m)); - scs_printf("Norm |Ax + s| = %1.2e, ", SCS(norm_2)(r->ax_s, w->d->m)); - scs_printf("tau = %4f, ", w->u[w->d->n + w->d->m]); - scs_printf("kappa = %4f, ", w->rsk[w->d->n + w->d->m]); - scs_printf("|u - u_t| = %1.2e, ", + scs_printf("Norm u = %1.6e, ", SCS(norm_2)(w->u, w->d->n + w->d->m + 1)); + scs_printf("Norm u_t = %1.6e, ", SCS(norm_2)(w->u_t, w->d->n + w->d->m + 1)); + scs_printf("Norm v = %1.6e, ", SCS(norm_2)(w->v, w->d->n + w->d->m + 1)); + scs_printf("Norm rsk = %1.6e, ", SCS(norm_2)(w->rsk, w->d->n + w->d->m + 1)); + scs_printf("Norm x = %1.6e, ", SCS(norm_2)(w->xys_orig->x, w->d->n)); + scs_printf("Norm y = %1.6e, ", SCS(norm_2)(w->xys_orig->y, w->d->m)); + scs_printf("Norm s = %1.6e, ", SCS(norm_2)(w->xys_orig->s, w->d->m)); + scs_printf("Norm |Ax + s| = %1.6e, ", SCS(norm_2)(r->ax_s, w->d->m)); + scs_printf("tau = %1.6e, ", w->u[w->d->n + w->d->m]); + scs_printf("kappa = %1.6e, ", w->rsk[w->d->n + w->d->m]); + scs_printf("|u - u_t| = %1.6e, ", SCS(norm_diff)(w->u, w->u_t, w->d->n + w->d->m + 1)); - scs_printf("res_infeas = %1.2e, ", r->res_infeas); - scs_printf("res_unbdd_a = %1.2e, ", r->res_unbdd_a); - scs_printf("res_unbdd_p = %1.2e, ", r->res_unbdd_p); - scs_printf("ctx_tau = %1.2e, ", r->ctx_tau); + scs_printf("res_infeas = %1.6e, ", r->res_infeas); + scs_printf("res_unbdd_a = %1.6e, ", r->res_unbdd_a); + scs_printf("res_unbdd_p = %1.6e, ", r->res_unbdd_p); + scs_printf("ctx_tau = %1.6e, ", r->ctx_tau); scs_printf("bty_tau = %1.2e\n", r->bty_tau); #endif From d2eb50aaa0ad5a9840570e66a0577b325ab3370b Mon Sep 17 00:00:00 2001 From: Brendan O'Donoghue Date: Mon, 1 Jul 2024 22:58:32 -0600 Subject: [PATCH 11/12] add more tests --- test/problems/mpc_bug.h | 15 +++++++++++++-- test/problems/{mpc_bug => mpc_bug1} | Bin test/problems/mpc_bug2 | Bin 0 -> 23753 bytes test/problems/mpc_bug3 | Bin 0 -> 23753 bytes 4 files changed, 13 insertions(+), 2 deletions(-) rename test/problems/{mpc_bug => mpc_bug1} (100%) create mode 100644 test/problems/mpc_bug2 create mode 100644 test/problems/mpc_bug3 diff --git a/test/problems/mpc_bug.h b/test/problems/mpc_bug.h index 4782404f..e8fc2e03 100644 --- a/test/problems/mpc_bug.h +++ b/test/problems/mpc_bug.h @@ -3,6 +3,17 @@ #include "scs.h" static const char *mpc_bug(void) { - scs_float OPT = -0.473957794500; /* from scs */ - return _test_prob_from_data("test/problems/mpc_bug", OPT); + const char *fail; + scs_float OPT1 = -0.473957794500; /* from scs */ + scs_float OPT2 = -0.029336830816; /* from scs */ + scs_float OPT3 = -0.002215217478; /* from scs */ + fail = _test_prob_from_data("test/problems/mpc_bug1", OPT1); + if (fail) { + return fail; + } + fail = _test_prob_from_data("test/problems/mpc_bug2", OPT2); + if (fail) { + return fail; + } + return _test_prob_from_data("test/problems/mpc_bug3", OPT3); } diff --git a/test/problems/mpc_bug b/test/problems/mpc_bug1 similarity index 100% rename from test/problems/mpc_bug rename to test/problems/mpc_bug1 diff --git a/test/problems/mpc_bug2 b/test/problems/mpc_bug2 new file mode 100644 index 0000000000000000000000000000000000000000..4fc1ca6d003a829196f0ed7c93ec2769815fb840 GIT binary patch literal 23753 zcmeI330RG38^=#c(k5DnN-9dqln5W{o;fpRJ%ql`&RAk(t5K1iu@@m*gDFF0%Qg&V z@LIo&F-Az!Sjsew5lWURpUHQQ^S^UlZ&z3AIW6W~SAMF&iA3;H81;2 zAJ9SVRLwZqf5neCpdjjWzOjrPvKQ%^HImUI?crvljAS(ARo?PR1~PIn8X0P@FQZYb znmB6c$!OA(i~e=%%cxVc5Az*$WaM>qvdg%7GHUqa=%fkSGO|bra`BQgtf}z~Upbpf z?(GxgTz~1v_xW=AHvg<=OL_Ud6YF_<$+_7mG}BW~1AWqRm2+~CcA}x2o=&pknu_P% zn>m8gPQ=s65>r-Piaaisl7N-0LOU;O!4N+$W+|NJUjO0jk81+UAM($Cq^i&LISDLUYf zn+4CM6xpzI0063gq{%WY=q)FK74j=gk%6`{j80Wy=|G!=#OZKWw@uvi zaPRM2InOSm&M)NrZ$j=yNB5S(jZ>lZ+iTeiA1pPUWuIj)B>JZh)=IG#LQ+S)?vve0 zkVWp&svFc&u-6LK-f+ZLaC$KJ+s4mZ2*M#B*QAlw!sUm3mp*A>C0vootaZ#Rg!{5# zm%6(*5mG-oy7Hy3v0&Qm=W79L>Ih05zkmOV<0gBcCw^HACWB@g%3u0}Vc=QtIcTG) zEGGkl!A;;H@GN){Oay-be*}L5e+HAl8(=b+0;Ynu!Mk7@cpuCFGrX6&pk16@R{a8}>^iY!ods~u?HX77< ztS!BC7`FQCJ{$5%$$8$hu{EvC&((bNizR&*Dhs{mX+c}8Od>}IG@~`HNtw?cH=`38 zuTmWLTad>DVPc?-6rApGDgC1(z)k^n3b0dvodWC>V5a~(1=uOTP62ib zuv37Y0_+rErvN(z*eSqH0d@+oQ-GZU=CP{uR7LvX_47_g3i)`)v?!vZm^|0agn$-B zbks4q;HTiwW<_)~f99N%7iL-((UFh;#$~Hc7S++itfb2mvn>mCbS``Q4!=vRpB(t- zosM8<5gozKB07SdMRWu^i|7b;7SR#xEYuO~tSbGeTQ{Cq&xP?utQU?qV!d#@5$lEH zjaV-nZ^U}xc*A<(c!Tv@s1uGeVx4fD5$lBGj94ceXT&<;I3v~x#~IcM#~C%p7j@~v zQ@sDM9>n_(>p{H#upY$w59>j^|F9m4+kaRG;{AqoAl`3S2jcyPbs*kvSO?<$hILTf zexs)OSMj{R+b62(yus^U>Cboj0k3y;pDTEst9X7@HLsrVW8pcH*RS{-$?I2qj^y<# zK1cHU6`vz{{qi}I<2n3?alV^ZUbo_T<#j7QFY>w-pBH)EiqDI@Zuz{(@modnS=sYg zIDfnz#q+1C{g~sgc;0v&iswyL`!2`ZN}jLEnkTjIkG!sUUevu0@;a)d`KaJLsBgdG zxTYNUyZFWHK^(t$J&5BMpF_p*i_f9O#jgtbyS#obj6Zx16vrPv2Uc|d;O_&hYq6ij z@rKWN72PNJoL^4=mesF?{!~>w=kv7KkE~O%A6chjKeA56`z`B~_gg+Em(hQv^;@C8 zDocO-eN^lpj-z7#lvQW!pHljxBtMjU{QP~qqT^&8lrWy+#!+a$SnnJ+#P*4G%Kk5= z|Kj@n=l)xVabB&qP$I!=6p84yfkaCwkhd?+6~AiZx*n)_sjm3cS3;r->Vf*80cZ#| z0Ik60pf%V6v;l2FJFq3#3bY3uz}BE6*amb0`Mv!oxb_0Q!R}xWkl#=B!gX)34=4ls zg8e`rus=8e90>Y?{|5g94gv>*W5BWCIM5Fq4^99-11Ez1;3RM|I0c*vP6GqLK=5;L zIv4~7gCU^0b!3Eo)vcel==UG}C>>E*`cYT>X^8o=22~wzK0rU!JsD5qN;f}#(b#iyy1%WtJ}Gvx}6{D!cW>@Jx~WM>p9Z|^(y=P*beRf zGoMOF6n7r1ta&trzwN-5U@OobbO1{_|GS}FbvfTxm-Bl?*P9vqTG9F8KhUn~?_Cox zo~rsjRo=MQ7sNF5r?m0B zBg(5gFQe}KN=bTb3O}?49l2$V`KIF5WiyPgxbb(!^UBK4RaX8(oF}z_ zo#OfX7w-FlCFKuGo4+$edzK*Ur3XEpcMQR z{1_Y!egblS)C<>RL2qyz*d6o(dw_iY>WORK_c=cEe$*S!dEImV*B|$JJ+bcl;y&kF zIWIf~_gR0eAI=kV9(DlA1%RA4=DaM=KhH1gfb+DRPYyzT&MODwn)A!z{H-&dGjUn? zo`CZ(+IXM~HULdQ)-Rvixjl~8Jm2g$))D)g{mlMlKeB&#oHNniJa7rP3fu_BfP2AX z;05qHcpuCK>u4x{F$EpKuAmP%9-Iqq0QZBJzzmRIxL9f`+wTJAjl5<0Y~CJv`P{sl zBzhP5Mcux=&1etZ*m5`_W8O}(N+0Nz;j)Vgyt8FTV|J5;p3C7rv!bbg7=_<6+DX&? z*y5>oHl8Maac6gWyWMonEy!rh!j07HUb1y-{b>5F@%Ev2V|LK}jHow~0r51j*P$6} z&h4Te3&v*obVOuQ$*S9a{_y>HHP_nBe!Yuozo!k7t_LlmH%F)I2Zt=CC5|y&4&4l+4@WMz^CT^jHk_Pd&^UN2Ii#%BkL&w2 zC2czG{JJ2P9_$@p`_bfhnteBNt=9ELwDj)s(7Fi=sQtvTL+lPLqReUCjV%mUQh1NU zehXf&qgJG*HotDmW(p_DDLEa`g9IheH|jv{Z(piJ)-)bz@~SXra+5S=djBG zWIWtFG3P=M%^z(PzSV6Z#oK0`megNO-O@A;JlEYs#?pQUd*XM}osHi-nL2hc3CX7t zhyT5VhV1-x$U^^R)Jc2m&WCQxsnd1$Q@xXy(cecS#*E8eLOXna%R2w*B64;=5z#Ym zHZ6;K9T;vCNSX$5p&hS%N)NULTG)j2C-)|i{R8GNBaM`seWZra}` zAwxU&`iBDMl7r(U3#a%w^zAq1hWYxTBxGK5J0Z0t{nWwj!dDNWS+}D1KlX_x<*KqH z-?yI^yd6oz*UEB|V(*vsd0ESqw|qtGRaX7VZbwz^sk&WtwXg1es;a-L?zg)1U)}7e zuJ%-SyK0JkHO+y3fE&!HPu5LNYa~_bZm$o0S$M2mhTA$ySR#rRpxgoH;<6^tGJY5`|^s8i|yj}%vEG3x6AKURb@A~&+jeO)epa)QFnj*ezB_h<^Ok5)%`bD zlWtj8Jm2hp_5<5tT}|z2QO)hLsUh~+)-XHyy>WF}r`GTv>yhW3{mS;Xtf78pyIa)~ z`}yzkYN~#C9(WuMwQOE^JgsZ_xE$Y;@wIu+#_5Fd^7r?s&5F-)&+x}bqW`*hz$1Ez i@=5po-$&)%3iaUoe66gWSNL}cXs+=8QFESv+y6hi9d^F} literal 0 HcmV?d00001 diff --git a/test/problems/mpc_bug3 b/test/problems/mpc_bug3 new file mode 100644 index 0000000000000000000000000000000000000000..bfed77f2de6a189d078b6ccdf7350ad672ffa20b GIT binary patch literal 23753 zcmeI33s{fm8^?cg=$uk%QPBahGD&QIBYDV+x}r?q!rfsmy&Y~{onk)cdqO0>gxFWb+F%c< zsfj-=#UK0bJ-hc3`SP=ff2k( z@7(bwtwhefFlbYtiVGdi-5%*E@~G*OK58Q8Ur5S4+02C;?)i8e5xLdDIXqcp($#w^ z*F-MP-xQ zMJ9V*+fYioyT#XTi(E9!!?jT4uD=XcmX=>**|(&W-lVU4SLEoMU3^Nfo68ooC}l!B zv)OkLZLdf|7j&z$Ic^MNfAMV>QCy!k|AlzsB- z70;b$sL}NKCqxdp5pwpi$aVIv=KWtd(RuBN*dZc4&mHz1B+{*u_H!$dpBcEh8j6h9 zTl1c}$mN^cILkzCxxY(QMdat!31+QChJRfc+FE3=fmwPRk-GiN6AeTudg-Mr0m_;3wjTmJEBgB>)4)razWEp<>A9xa|S{@?~x;k-eX^ZycC z3hGl+4bzV`7rMo@)m~WAOxSv%-_z-9Wx~u$kApHZU!=@A{=>w}Tc4&(D%dqGVBo_P zJFniZX(4~5$aVbs{aY?>!Ue;@^e-FM^lBH1G;|70duL!7T6wcniz{bHP0DHdqK2f%m`%;3KdYd_uv37Y0_+rErvN(z*eSqH0d@+oQ-GZU>=a<906PWPDZowv zb_%dlfSm&D6kwMS?(C z0jA}2u1&v&#zZHf}Q1b1Ut*=2zHj!5$r6d zBiLC^N3gR@N3gTL^rP&!Q>GV=H&VTDypigKV)HrR3{u~SSK83lpJ4_rHcX5^@sH!U4K{)()EY+AYFf0 z57PCA^-$6J!#a?zH>?Bcdc!)9t~aa$>3YLDkghkZgNoK0C5^v=$Nkkh!Si3)`wgD= za(}*B59(`Q!Sh_fD^H;i${;+zsU2J_lq3A6*Qi8J&tAL$MaD-eu`R;IsQt=jpw0s z+!VF$a=fkM@v5tFQu_MH^NPns+3O(BqdFRoT8@MA)+>%{@_xUHUpybA@r&n!G=A|u zR2si{A6ilTs-?ec>gTff!}~yK{Na6IZPyR}KES$``dJ!pc%N6>b%OW#HS}+F{aWTv zMa6U8PfPvCI+gm7bt?5E>r}elvQBxu<$ZEB{a01LmHDf#^vB;vrT*bKD)mowb;kaw zqCYD0Lyh~--^Xj)Pu4*t{i&!QW%f(;&T&I(pH!#p{|ef#sNH|>zjPSq)tU-rG907G zB*zA_7IJ~SJUB1?wH2;a!O}zZ(vP|vG7V4@)B?3Z9k4ZM26g~Dg65zFXbD<@oxsju z7tk8)3U&kE1Z_Y*w|^JcLqKP6C^!t{^QjTI9tn;DT|igR4Ri-bgJZz4;5cwR_#QX` zoCwYYJ;7O^7x)1<8~hOT2Iqit!H>Xs;Cyfa=mYwKAA_HOexN_N5LC8~bkVM|_0t{g z{;MCkBkD>&%8EaF7{897qT|h5Xs4manT8%;_!wJJ>rxvf>7fVOX{hT>LtS4KHSYQt z4@K=a>`;G0+gCKS{X91Y=bE3gyT z8SDaDgO%<7?NP3w?C%@O{=K&Itu6do+wtK)(5~9Poa9 zec!Dwf2*V48lWavQ6A$BJg;v2>5cbZH~&`Eug36CRpWUdlvj3MM%nq5%JkR{e&`Bz z1K$K~z_&p~=dBc-Z>nfswnzUe>i;`5J=rpa<9=oCG?8?}G!t$smDKz=7aYa1b~RbONV?gTWc#yCCOBhv3>1bOvXE zLqRWa7|8pt;kf2?pW`#HMB_m_I?ryrg^}ya+ zL9t|(J$A^g9*OkA`Hst>m|bL|+2g>dPorsc7={0-8%qoR-a0_@WCD4Ac70cN&s~&i z@25L6WD||}Gp%D+t!TPwv}00c%uc#-YfFi2OahG^v47FJQ;9Te*-RB1+erE;F7l51 zHyi0(AM;5I-}#y@?Dcx=(Q_wt9HD=$%guP2t9K&5!Tfe5RVHqyq704U!ijIl`_RKac|P&vo_#f1Cp&@M?zX;o$!|H89Qs7d zf8h!W?H1E_|L?Uf!M_R!Pe#XTeZ?6P?c~eAof6WzW8#&glUwmPT%+0$bw= zIvG1?<)=0(%h$wF;PywYw2I@Y!^ZCI&%}jN(9F;c^VLGgAS9~Ohi8LG!?R0fV9qic zoi+IGUZ>U6Mc+zia@#Mc?fs8tIAH$Q{NRFNqcKO zWkrQ)eI;z6taxL?9`|A>!h`0pc(D3-Y=X+%m`aJ zH*YniXhrVxRa-$8;bF3aPC@j`wgV#*_58`#ye}&<)>aA3_P1 z`6)8>wbVbWS<(ZIFG=6YO?!7jEM4F9ec^o16(pn`KRfw(D0#$Q^9Y%rVUP#NYhd)eS6-Y^E*KJ5PUP3xnz18>oEG6r1b4_d#me3F1 z8|ysL3M3&X)&8iHC23uq*fV^s2Ys3zy|2JMn&h*}ipIVCJmlp_CcT!IlT~=Xs?V!i zuBPQ{`(9nWU)S|0sy;>6tE~E!-A;YASKsY6l=d5%9Szl~=R5 z`|ea^pe0qJ}Eyag8kD=XKshUGaA z$gfwm9e$6`ooo9(pO@BEJ?dN$Skr#7U0fgMOS$^Gu2+*QR*>CXzm}5Q(MEeZAm^Kz zx{~{RtyjtYHdTDCU(Ip`H7w8hb7{Z0A8aq%!|m{UZEM*szi(8>_3(LlZTrP`aec-L zvXkrOb5%vz&GqxSrLx-L^BHBg$LEXn)h_?PllpGIgOYU1y5jL>|Fa+1j*bn~9`gon zmqjD7&$5x($>+umWuA6~|5%Sa?(A2#w^JkaGuz#{iP+D7m)BVJ!{fmHux?`G!u{#m z#QW9lHR<1*uUS8B&|m)kzGZXi=g5HYf`ieI&m=iUhsvJ}-S^{`d+C9We4nr7uNRm7 QT>`2r`+wA&C*b=34 Date: Tue, 2 Jul 2024 05:10:30 +0000 Subject: [PATCH 12/12] rename var --- include/glbopts.h | 2 +- src/scs.c | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/include/glbopts.h b/include/glbopts.h index d0be30ba..ed2a15b5 100644 --- a/include/glbopts.h +++ b/include/glbopts.h @@ -40,7 +40,7 @@ extern "C" { #define LOG_CSV_FILENAME (0) #define TIME_LIMIT_SECS (0.) /* Tolerance to check negativity condition for infeasibility */ -#define EPS_INFEAS_TOL (1e-9) +#define INFEAS_NEGATIVITY_TOL (1e-9) /* redefine printfs as needed */ #if NO_PRINTING > 0 /* Disable all printing */ #define scs_printf(...) /* No-op */ diff --git a/src/scs.c b/src/scs.c index 7b76c4dc..7dfd092a 100644 --- a/src/scs.c +++ b/src/scs.c @@ -207,13 +207,13 @@ static void compute_residuals(ScsResiduals *r, scs_int m, scs_int n) { r->res_unbdd_a = NAN; r->res_unbdd_p = NAN; r->res_infeas = NAN; - if (r->ctx_tau < -EPS_INFEAS_TOL) { + if (r->ctx_tau < -INFEAS_NEGATIVITY_TOL) { nm_ax_s = NORM(r->ax_s, m); nm_px = NORM(r->px, n); r->res_unbdd_a = SAFEDIV_POS(nm_ax_s, -r->ctx_tau); r->res_unbdd_p = SAFEDIV_POS(nm_px, -r->ctx_tau); } - if (r->bty_tau < -EPS_INFEAS_TOL) { + if (r->bty_tau < -INFEAS_NEGATIVITY_TOL) { nm_aty = NORM(r->aty, n); r->res_infeas = SAFEDIV_POS(nm_aty, -r->bty_tau); }