myproc1.bak

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

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