تبلیغات
وبلاگ مهندسی عمران (مهندسی آب)
وبلاگ مهندسی عمران (مهندسی آب)
زَکاةُ العلم پَخْشُه!! البته‌با‌‌دانش‌‌وبیان‌مناسب‌و‌به‌دور‌از‌هرگونه Copy&Paste!
حل معادله چندجمله‌ای به روش نصف کردن
نوشته‌شده در تاریخ پنجشنبه 2 آبان 1392 توسط محمدصادق عباسیان | نظرات ()
طبقه‌بندی: مبانی برنامه‌نویسی (فرترن)، 
برچسب‌ها: فرترن، حل معادله، چندجمله ای، نصف کردن، بولتزانو،  

توضیحات:
1. برنامه برای حل معادله یک چندجمله‌ای با حداکثر درجه 3 به روش نصف کردن نوشته شده.
2. برنامه ضرایب چندجمله‌ای (a، b، c و d) و دو تا مقدار که توی قضیه بولتزانو صدق کنن (x1 و x2) رو از ورودی می‌گیره.

3. برنامه توی هر مرحله x3 که مقدار حاصل از نصف کردن فاصله x1 و x2 هست رو حساب می‌کنه و با استفاده از قضیه بولتزانو مقدار x3 رو جایگزین x1 یا x2 می‌کنه.
4. برنامه وقتی متوقف می‌شه که یا فاصله x1 و x2 کمتر از 0.0001 بشه یا اینکه مقدار تابع توی نقطه x3 کمتر از 0.00001 بشه.
5. آخرین مقدار x3 به‌عنوان ریشه معادله توی خروجی چاپ می‌شه.

 

Program Root

Implicit None

 

Real :: a, b, c, d

Real :: x1, x2, x3

Real :: F1, F2, F3

 

Print*, "A Program to calculate the root of a polinomial."

Print*, "This program is presented by Mohammadsadegh Abbasian."

Print*

 

Print*, "Enter a, b, c and d, coefficients of polinomial ax^3 + bx^2 + cx + d:"

Read*, a, b, c, d

Print*

Print*, "Enter x1 and x2, two points which satisfies Bolzano's theorem:"

Read*, x1, x2

 

F1 = a*x1**3 + b*x1**2 + c*x1 + d

F2 = a*x2**3 + b*x2**2 + c*x2 + d

 

If (F1*F2 > 0) Then

          Print*

Print*, "Error! F1*F2 > 0: You have to enter x1 and x2, two points which"

Print*, " satisfies Bolzano's theorem."

Else

 

Do

x3 = (x1+x2) / 2

F3 = a*x3**3 + b*x3**2 + c*x3 + d

  

If (F3*F1 < 0) Then

x2 = x3

Else

x1 = x3

End If

  

If (ABS (x1-x2) < 0.0001 .OR. ABS (F3) < 0.00001) Then

Print*

Print*, "Root =", x3

Exit

                   End If

End Do

 

End If

End      



درباره‌ی وبلاگ

.::بسم الله الرحمن الرحیم::.
در این وبلاگ سعی می‌شه مطالب مختلفی در ارتباط با مهندسی عمران و به طور خاص مهندسی آب قرار داده بشه. تمام سعی بنده اینه که مطالبی رو ارائه بدم که یا حاصل تلاش خودم هست، یا اینکه مشابه اون در وبلاگ‌ها و سایت‌های فارسی پیدا نمی‌شه. بنابراین لطفاً حق کپی رایت فراموش نشه!!!

محمدصادق عباسیان
دانشجوی دکترای مهندسی عمران-آب، دانشگاه صنعتی شریف
پست الکترونیک
تماس با مدیر
RSS
ATOM
جستجو
آخرین مطالب
نوروز 1397 مبارک!
پذیرش مقاله در مجلۀ Theoretical and Applied Climatology
«یکِ عمران»: تخصصی‌ترین کانال مشاورۀ کنکور ارشد و دکتری
گفتگوی 6 از مجموعۀ «گفتگوهای آبی»
گفتگوی 5 از مجموعۀ «گفتگوهای آبی»
گفتگوی 4 از مجموعۀ «گفتگوهای آبی»
گفتگوی 3 از مجموعۀ «گفتگوهای آبی»
گفتگوی 2 از مجموعۀ «گفتگوهای آبی»
گفتگوی 1 از مجموعۀ «گفتگوهای آبی»
انتشار مقاله در مجله علمی-پژوهشی عمران مدرس
خلاصه‌های کنکور دکترای عمران آب
مشاوره رایگان کنکور کارشناسی ارشد
ارتفاع مکش کل خالص (NPSH)
رابطه بین مدت و شدت بارندگی
کلاس آموزش برنامه‌نویسی به زبان FORTRAN 90/95
آرشیو
اسفند 1396
مهر 1395
شهریور 1395
اردیبهشت 1395
فروردین 1395
بهمن 1393
مهر 1393
فروردین 1393
اسفند 1392
موضوعات
تغییر اقلیم
مقاله
«گفتگوهای آبی»
مبانی برنامه‌نویسی (فرترن)
مکانیک سیالات و هیدرولیک
هیدرولوژی
سازه
مقاومت مصالح و استاتیک
ریاضیات
مكانیك خاك
بتن
راه‌سازی و روسازی
نقشه‌برداری
اطلاع رسانی
علمی
نویسندگان
محمدصادق عباسیان
پیوندها
دانشگاه صنعتی شریف
کتاب عمران
وبلاگ فرآیندهای تصفیه‌ی آب و فاضلاب
پیوندهای روزانه
فروشگاه فایل‌های آموزشی جزوه‌ها و پروژه‌های مهندسی دانشگاه صنعتی شریف
صفحات جانبی
درباره‌ مدیر، محمدصادق عباسیان
ابر برچسب‌ها
بتن مکانیک خاک سیالات مکانیک سیالات و هیدرولیک هیدرولوژی علمی فرترن مقاومت مصالح و استاتیک هیدرولیک مبانی برنامه‌نویسی فرترن
آمار سایت
بازدیدهای امروز: نفر
بازدیدهای دیروز: نفر
كل بازدیدها: نفر
بازدید این ماه: نفر
بازدید ماه قبل: نفر
تعداد نویسندگان: عدد
كل مطالب: عدد
آخرین بازدید:
آخرین بروزرسانی:
Blog Skin