0.0sa=0.0l.upto(n)do|j|ra=ra+@h[i][j]*@h[j][n-1]sa=sa+@h[i][j]*@h[j][n]endw=@h[i][i]-pif(@e[i]<0.0)z=wr=ras