myproc5.prg

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

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