myproc.prg

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

function qupi(t1,t2,t3)
ss=0
 if (t1>t2)
 ss=ss+1
 endif
 if (t1>t3)
 ss=ss+1
 endif
 if (t2>t3)
 ss=ss+1
 endif
 if (ss/2)=int(ss/2)
 return 1
 else
 return -1
 endif