حل دستگاه چند معادله چند مجهول

[far_222000]

من 1 برنامه با وی بی می خوام که بتونه مثلاً 20 معادله 20 مجهول رو حل کنه!!!

[far_222000]

چرا هیچ کسی جواب منو نمی ده؟

[King_of_Night]

سلام اقا فريد منم مجتبي
دوست عزيز من تا 30 - 40 روز ديگه يعني بعد از اينكه كنكورم رو دادم فعاليتم رو شروع مي كنم از اينكه تو اين مدت اصلان افتابي نشدم فقط به خاطر اين بود كه مي خوام درس بخونم در ضمن من مي تونم برنامه تو بنويسم قبلان يه چيزي تو همين مايع ها نوشته بودم.
خوب اميد وارم از دست من ناراحت نشده باشي
قربانت
bye

[hamed_Arfaee]

با سلام
من توضیحات و روش حل رو بهت میگم خودت روش فکر کن و با بیسیک براش برنامه بنویس
اگر هم مشکلی بود وسط راه کمک می کنم
ولی برنامه رو من نمی نویسم
+++++++++++++++++++
روش اول )
حل بروش ماتریس وارون
این روش یکم سختتر از اونه که بشه بر اساس توضیح برنامه نوشت براش

روش دوم)
حل بروش کرامر
شما به تعداد معادله ای که داری همان مقدار هم مجهول داری و هر یک از مجهولات در هر معادله یک ضریب دارن و هر معادله یک جواب داره پس ما براساس این اطلاعات معادلات را بصورت ضرب ماتریسی می نویسم بصورت زیر
ضرایب مجهولات را در یک ماتریس که میشه یک ماتریس n*n و اونو ضرب میکنیم به ماتریس مجهولات که میشه یک ماتریس 1*nو مساوی می شه با ماتریس معلومات که همان جواب معدلات است و آن یک ماتریس 1*n خواهد بود

پایین یک مثال از سه معادله سه مجهولی نوشتم ببین:

x+y+z=6
x-y+z=2
2x+y-z=1

حالا نحوه ایجاد ماتریس ها :
1 1 1 x = 6
1 -1 1 * y = 2
2 1 -1 z = 1

حالا اگه این ماتریسها رو اسم گذاری کنیم(برای راحت شدن کار) به ماتریس ضرایب می گیم A و به ماتریس مجهولات میگیم X و به ماتریس معلومات هم B

حالا باید دترمینان A رو محاسبه کنیم
و اگر مساوی صفر شد یعنی دستگاه بغیر از جواب صفر بیشمار جواب دارد
وبعد بصورت زیر پیش می ریم
det(X):
6 1 1
2 -1 1
1 1 -1

det(y):
1 6 1
1 2 1
2 1 -1

det(z):
1 1 6
1 -1 2
2 1 1
یعنی هر بار با جاگذاری ماریس معلومات بجای ستونهای x y z دترمینان را محاسبه می کنیم و در نهایت برای بدست آوردن جواب بصورت زیر عمل می کنیم:
x=det(x)/determinan : 6/6 =1
y=det(y)/determinan : 12/6=2
z=det(z)/determinan : 18/6=3

++++++++++++++++++++++++++++
برای آرایه های چند بعدی می تونی اینجوری تعریف کنی:

کد:

dim a(3,3)as integer

اگه سوالی داشتی بگو

[محمد حسینی]

موضوع خوبیه. تا چند روز دیگه مینویسمش.