% 判定の実行例
% 線形同次不等式が非零の解を持つか否かを判定

%A = [ 2, 1;      -1, 2;      0,  2 ];  % stat = 1
%A = [ 2, 1;      -1, 2;      0, -2 ];  % stat = 0

%A = [ 2, 1;      -2, 2;      0,  2 ];  % stat = 1
%A = [ 2, 1;      -2, 2;      0, -2 ];  % stat = 0

%A = [ 2, 1, -5;     -2, -1, 5 ];  % stat = 1  x = [ -2; -1; -1 ]

%A = [ 5, 1, 0;  2, 1, -5;     -2, -1, 5 ];  % stat = 1  x = [ -2; -1; -1 ]
A = [ 5, 1, 0;  1, 5, 0;    2, 1, -5;     -2, -1, 5 ];  % stat = 1  x = [ -2; -1; -1 ]
%A = [ 5, 1, 0;  1, 5, 0;    -2, -2, 0;      2, 1, -5;     -2, -1, 5 ];  % stat = 0

stat = non_zero_sol_homogeneous_ineqs (A);
A
stat
