myproc.prg

来自「202用列主元消取法解线性方程 ***********★*******★****」· PRG 代码 · 共 17 行

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