对偶单纯形法线形规划delphi源码