ماتریس معکوس (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 m = m + c(1, i) * e(1, i) NEXT i IF m = 0 THEN PRINT "no makos pazer" FOR i = 1 TO 3 FOR j = 1 TO 3 PRINT e(j, i) / m, NEXT PRINT : PRINT NEXT END