ترانهادی ماتریس (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(i, j), NEXT j PRINT : PRINT NEXT i

نویسنده برنامه رسول فضلی