ماتریس الحاقی (3*3)

با این برنامه ی بیسیک می توانید ماتریس الحاقی را محاسبه کنید
برای بدست آوردن اطلاعات بیشتر در مورد ماتریس الحاقی می توانید به کتاب هندسه تحلیلی دوره ی پیش دانشگآهی مراجعه کنید

CLS FOR i = 1 TO 3 FOR j = 1 TO 3 INPUT c(i, j) NEXT j, i FOR w = 1 TO 3 FOR z = 1 TO 3 FOR i = 1 TO 3 FOR j = 1 TO 3 IF i <> w AND j <> z THEN k = k + 1 d(k) = c(i, j) END IF NEXT j, i e(w, z) = ((-1) ^ (w + z)) * (d(1) * d(4) - d(2) * d(3)) k = 0 NEXT z, w FOR i = 1 TO 3 FOR j = 1 TO 3 PRINT e(j, i), NEXT j PRINT : PRINT NEXT i