myproc1.bak

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

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