ریاضی و ویژوال بیسیک دات نت

[ravegoat]

با سلام!

قبلا" در مورد انتگرال گيري معين با VBScript توضيحاتي داده شده بود. در اين بخش قصد داريم براي محاسبه ي انتگرال در زبان VB.Net از ميانگين ريمان بالا و پايين استفاده كنيم.
ريمان بالا ماكسيمم مقدار متغير در يك بازه و ريمان پايين مينيمم مقدار متغير است.

براي تشخيص اين مقادير از دستور Math.Max و Math.Min بهره مي گيريم.

براي نزديك كردن مقدار انتگرال تقريبي به مقدار واقعي آن از دستور Math.Round كمك مي گيريم. همان طور كه در سورس مشاهده مي كنيد با فرمان Round اعداد تا 4 رقم بعد از اعشار گرد مي شوند.

سورس زير مقدار انتگرال تابع X ^ 4 را در بازه ي 0 تا 100 به دست مي آورد:
ابتدا مجموعه Math را با دستور Imports System.Math وارد پروژه كنيد.

        Dim sum1, sum2 As Double
        For i As Double = 0 To 100 Step 0.0001
            sum1 += Min(i ^ 4, (i + 0.0001) ^ 4) * 0.0001
        Next
        For i As Double = 0 To 100 Step 0.0001
            sum2 += Max(i ^ 4, (i + 0.0001) ^ 4) * 0.0001
        Next
        MsgBox(Round((sum1 + sum2) / 2, 4))

با سپاس
آرمينبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید