این کار را کردم اما مقدار 0 را می دهد !!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط ravegoat برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
آیا در برنامه ای نوشتم مشکلی هست؟
کاربر شهرسختافزار
این کار را کردم اما مقدار 0 را می دهد !!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط ravegoat برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
آیا در برنامه ای نوشتم مشکلی هست؟
|
|
مدیر انجمن برنامه نویسی و رباتیک
متاسفانه بنده میپل نصب ندارم که سورس شما رو بررسی کنم ولی در یه نگاه کلی که بهش انداختم مشکلی نداشت.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط aseman1369_s برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
شما اول بررسی کنید که به ازای dd(0) در خروجی آیا مشتق g در x=0 ظاهر میشه.
در صورتی که این ترم وجود داشت سورس زیر رو امتحان کنید؛ شاید جواب داد:
در اولین فرصت هم اگر میپل پیدا کردم سورس ها رو مجددا بررسی می کنم.کد:eq1 := diff(f(x), x, x, x)+(1/2)*f(x)*(diff(f(x), x, x)) = 0; eq2 := diff(g(x), x, x)+.4*f(x)*(diff(g(x), x)) = 0; eq3 := f(0) = 0, (D(f))(0) = 0, (D(f))(10) = 1; eq4 := g(0) = 1, g(10) = 0; dd := dsolve({eq1, eq2, eq3, eq4}, {f(x), g(x)}, numeric, output = operator) dg := eval(D(g)(x), dd); dg(0)
موفق باشید
آرمین
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
کاربر شهرسختافزار
بالاخره تونستم خروجی بگیرمبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط ravegoat برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
اینم دستورشdg := eval(diff(g(x), x), dd)با تشکر از پیگیری شما
print(dd, eval(dg(x), x = 0))
ravegoat (02-11-13)
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks