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]·Î Á¤ÀÇÇϽÿÀ.

[Graphics:../Images/index_gr_170.gif]
[Graphics:../Images/index_gr_171.gif]
[Graphics:../Images/index_gr_172.gif]
[Graphics:../Images/index_gr_173.gif]
b = randint[3,1,5]
[Graphics:../Images/index_gr_174.gif]
c = randint[1,3,5]
[Graphics:../Images/index_gr_175.gif]
(a) Ax=b¿¡¼­ x¸¦ LinearSolve¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇϽÿÀ.
(b) Ax=b¸¦ Inverse¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇϽÿÀ.
(d) yA=c¿¡¼­ y¸¦ Inverse¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇϽÿÀ.
(e) yA=c¿¡¼­ [Graphics:../Images/index_gr_184.gif]¸¦ LinearSolve¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇϽÿÀ.
(½ÉÈ­°úÁ¤) Ax=b¿¡¼­ x¸¦ ±¸Çϴµ¥ LinearSolve¿Í Inverse¸¦ ÀÌ¿ëÇÏ¿© ±¸ÇØ º¸½Ã¿À. ±×¸®°í Ax=bÀÇ °á°úµé¿¡ ´ëÇؼ­ ¼³¸íÇϽÿÀ.


Converted by Mathematica      January 18, 2000