myproc3.prg

202用列主元消取法解线性方程 ***********★*******★********★************ 一．功能 当线性方程组有唯一解时求其解 。 二．算法简介消元过程

function qupi(t1,t2)
ss=0
if(t1>t2)
return -1
endif
if(t1<t2)
return 1
endif