افزونه حل دستگاه معادلات خطی به روش حذفی گاوس با mmb

[ali.2]

این برنامه دستگاه A*x=b رو حل میکنه باید ماتریس A و بردار b رو همونطور که تو مثال هست وارد کرد. فقط بعد از اینکه
A و b رو وارد کردید آخرش نباید تو فایل متنی مربوط به ماتریس A سطر خالی ایجاد کنید چون باعث بروز خطا میشه و در نهایت روی دکمه پایین کلیک کنید تا جواب دستگاه در سمت راست نمایش داده بشه
در آخر هم از دوست خوبم evil_gates به خاطر اینکه کمک کردن تا برنامه رو کامل کنم تشکر میکنم


این پیوست به خاطر وجود یک اشکال حذف شده (اشکال از MMB بود. با تابع ABS مشکل داره) لطفا فایل پایینی رو دانلود کنید

 

[ali.2]

تو برنامه قبلی من برای به دست آوردن قدرمطلق از تابع abs استفاده کرده بودم. اما mmb با این تابع نتایج درست تولید نمی کنه
مثلا وقتی بنویسیم (3.256-)abs برمیگردونه 3 که به وضوح غلط هست باید برگردونه 3.256
من تو این نمونه دیگه از تابع abs مولتی مدیا بیلدر استفاده نکردم و خودم براش کد نوشتم
پس هرکی قبلی رو دانلود کرده پاکش کنه و به جاش اینو دانلود کنه
ایراد از mmb بود وگرنه من الگوریتم رو درست نوشته بودم

 

[Corovarice]

جالبه دستتون درد نکنه. برای قدر مطلق می تونین این کارو بکنین : ( a عدد ورودیه و b قدر مطلق a هست )

a=VAL(a$)
If (a=0) Then
  b=0
End
If (a>0) Then
  b=ABS(a)
End
If (a<0) Then
  b1=a-1
  b2=ABS(b1)
  b3=b2*2
  b=b2-b3
  c1=ABS(a)
  c2=c1*2
  c3=a+c2
  If (c3=c1) Then
    b=a
  End
End
b$=CHAR(b)
LoadText("Text","b$")

 

[ali.2]

این کدی که گذاشتید کار تابع قدر مطلق رو انجام نمیده

 

[Corovarice]

مگه منظورتون از قدر مطلق این نیست؟
|3.2|=3
|3.2-|= 4-

 

[ali.2]

[BASS]If x>0 Then
Return x
Else
Return -x
End[/BASS]
​

 

[peyman136]

مگه منظورتون از قدر مطلق این نیست؟
|3.2|=3
|3.2-|= 4-

اینی که نوشتی بیشتر جز صحیحه تا قدر مطلق

 

[Corovarice]

اینی که نوشتی بیشتر جز صحیحه تا قدر مطلق

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