myproc1.prg

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

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