2Â¥: Originally posted by ËÎÎÄîÔ at 2015-10-28 07:05:41
5370£¬Äã×Ô¼ºÐ´µÄE=A(i,0)¡£¡£¡£¡£¡£
0ºÍQ£¨q£©»¹·Ö²»³öÀ´£¿´óСд¶¼²»Ïñ°¡£¿

3Â¥: Originally posted by ËÎÎÄîÔ at 2015-10-28 07:09:45
»¹ÓÐA£¨£©ÊÇʲô£¿Èç¹ûÊǺ¯Êý£¬Çë˵Ã÷Ô­ÐÍ»òÕß×÷Óã¬Òª²»È»Ë­ÖªµÀÄØ

For I=0 to N-1
        P=I
        Q=0
        E=A(I,0)
        FOR J=I TO (N-1)
                FOR K=0 TO (N-1)
                        IF ABS(A(J,K))<=ABS(E) THEN goto NE
                        E=A(J,K)
                        Q=K
                        P=J
NE:                NEXT K
        NEXT J
        IF ABS(E)>0.0000000001 THEN goto SE
        PRINT "NO UNIQUE SOLUTION"
        STOP
SE:        IF P=I THEN goto FO
        FOR K=0 TO N
                S(K)=A(I,K)
                A(I,K)=A(P,K)
                A(P,K)=S(K)
        NEXT K
FO:        FOT J=0 TO N-1
                IF J=I THEN goto NEJ
                IF A(J,Q)=0 THEN goto NEJ
                R=A(J,Q)/A(I,Q)
                FOR K=0 TO N
                        A(J,K)=A(J,K)-A(I,K)*R
                NEXT K
NEJ:        NEXT J
        M(I)=Q
NEXT I

8Â¥: Originally posted by jjdg at 2015-10-28 20:43:21
ÄãÊÇÓÃVB6Â𣿸øÎÒ´úÂë¿´¿´