ATLAST 2.1; 11 LinearSolve ´ë Inverse -- ÇØ´ä
randint[m_,n_,k_:9] :=
Table[ Random[Integer,{-k,k}], {m},{n}]
A¸¦ randint[3,3,5]·Î Á¤ÀÇÇÏ°í ÀÌ°ÍÀÌ NonsingularÀÎÁö È®ÀÎÇϽÿÀ. ¸¸ÀÏ ÀÌ°ÍÀÌ singularÀ̸é nonsingular°¡ µÉ ¶§±îÁö ´Ù½Ã Á¤ÀÇÇϽÿÀ. b¿Í cµµ ¸¶Âù°¡Áö·Î °¢°¢ randint[3,1,5], randint[1,3,5]·Î Á¤ÀÇÇϽÿÀ.
b = randint[3,1,5]
c = randint[1,3,5]
(a) Ax=b¿¡¼ x¸¦ LinearSolve¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇϽÿÀ.
(b) Ax=b¸¦ Inverse¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇϽÿÀ.
(d) yA=c¿¡¼ y¸¦ Inverse¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇϽÿÀ.
(e) yA=c¿¡¼ ¸¦ LinearSolve¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇϽÿÀ.
(½ÉÈ°úÁ¤) Ax=b¿¡¼ x¸¦ ±¸Çϴµ¥ LinearSolve¿Í Inverse¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇØ º¸½Ã¿À. ±×¸®°í Ax=bÀÇ °á°úµé¿¡ ´ëÇؼ ¼³¸íÇϽÿÀ.
Converted by Mathematica
January 18, 2000