حل معادله چند مجهولی با vba

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Mialde8080
    • 2014/03/15
    • 2

    حل معادله چند مجهولی با vba

    سلام دوستان
    کسی میتواند جواب سوال منو بده با تشکر از شما عزیزان
    سوال:
    بطور مثال معادله مجهولی زیرا در نظر بگیرید
    a11X1 +a12X2+……+a19X9 = b1
    a21X1 +a22X2+……+a29X9 = b2
    . . . . . . . . . . . . .
    a91X1 +a92X2+……+a99X9 = b9

    با این شرایط که:

    در Sheet 1 وارد کنیم:
    a11 را در سلول A1 و a12 در سلول B1 و ....
    a21 را در سلول A2 و a22 در سلول B2 و ....
    ........
    .......
    در Sheet 2 وارد کنیم:
    b1 را در سلول A1
    b2 را در سلول A2
    ....
    ....

    در Sheet 3 (قسمت مهم سوالم)
    با قرار دادن یکی Key Button و استفاده از Vba code معادله حل شود(بدون استفاده از فرمولهای Minverse و MMult)
    بطوریکه جواب X1 در سلول A1 و جواب X2 در سلول A2 و ... بنشیند.

    به فایل پیوست نگاهی بندازید ببینید مشکل چیست( جوابی که میگیرم اشتباه است)
    فایل های پیوست شده
چند لحظه..