ravegoat
16-01-10, 09:57
با سلام
انتگرال یک تابع مساحت محصور بین محور متغیر ها و نمودار تابع است. در انتگرال معین بازه ی انتگرال گیری مشخص است که در آن به ابتدای بازه، کران پایین انتگرال و به انتهای بازه، کران بالای انتگرال گفته می شود.
یکی از شیوه های انتگرال گیری استفاده از ریمان هست. یعنی نمودار تابع را به مستطیل های کوچک تقسیم می کنند. مجموع مساحت این مستطیل ها مقدار انتگرال خواهد بود. بدیهی است هرچه تعداد مستطیل ها بیش تر باشد، مقدار انتگرال دقیق تر خواهد بود.
ما می توانیم روش فوق را با استفاده از زبان تحت وب VBScript پیاده سازی کنیم. ابتدا بازه ی انتگرال گیری خود را به n تا قسمت مساوی تقسیم می کنیم. سپس یک مقدار برای متغیر در هر قسمت بر می گزینیم و مقدار تابع برای آن متغیر را حساب می کنیم. مقدار تابع ضرب در طول آن قسمت برابر است با مساحت آن قسمت. حال برای تمام n قسمت این کار را تکرار می کنیم و مساحت های به دست آمده را با هم جمع می کنیم.
برای نمونه از قصد داریم مقدار انتگرال تابع Sin(X ^ 2) را در بازه صفر تا پی (3.141) حساب کنیم. به دست آوردن انتگرال نامعین این تابع دشوار است اما ما با بهره گیری از VBScript می توانیم با تقریب بسیار خوبی این انتگرال را محاسبه کنیم:
<html>
<Script Language="VBScript">
For i = 0 To 3.141 Step 0.0001
sum = sum + (Sin(i ^ 2)*0.0001)
Next
msgbox(sum)
</script>
</html>
همان طور که ملاحظه می کنید ابتدا در بین تگ های HTML زبان VBScript معرفی شد. سپس از یک حلقه For بهره گرفتیم. این حلقه مقدار i را ابتدا برابر صفر می کند و سپس 0.0001 به مقدار آن می افزاید تا آنکه مقدار i به 3.141 برسد. 0.0001 طول هر ریمان است که اگر از این کوچک تر شود مقدار انتگرال دقیق خواهد بود ولی ما به همین عدد بسنده می کنیم.
در ادامه سیسنوس i ^ 2 به عنوان مقدار متغیر به دست می آید و در طول ریمان ضرب می شود. نتیجه به مقدار های قبلی متغیر sum افزوده می شود. در نهایت پس از پایان حلقه، یک جعبه متنی مقدار sum که حاصل انتگرال است را نمایش می دهد.
برای اجرای این سورس آن را داخل یک فایل HTML قرار می دهیم و فایل را با مرورگر IE اجرا می کنیم.
توجه داشته باشید این کد برای به دست آوردن انتگرال های مجازی نیازمند بازنگری است.
موفق باشید
آرمین:11():
انتگرال یک تابع مساحت محصور بین محور متغیر ها و نمودار تابع است. در انتگرال معین بازه ی انتگرال گیری مشخص است که در آن به ابتدای بازه، کران پایین انتگرال و به انتهای بازه، کران بالای انتگرال گفته می شود.
یکی از شیوه های انتگرال گیری استفاده از ریمان هست. یعنی نمودار تابع را به مستطیل های کوچک تقسیم می کنند. مجموع مساحت این مستطیل ها مقدار انتگرال خواهد بود. بدیهی است هرچه تعداد مستطیل ها بیش تر باشد، مقدار انتگرال دقیق تر خواهد بود.
ما می توانیم روش فوق را با استفاده از زبان تحت وب VBScript پیاده سازی کنیم. ابتدا بازه ی انتگرال گیری خود را به n تا قسمت مساوی تقسیم می کنیم. سپس یک مقدار برای متغیر در هر قسمت بر می گزینیم و مقدار تابع برای آن متغیر را حساب می کنیم. مقدار تابع ضرب در طول آن قسمت برابر است با مساحت آن قسمت. حال برای تمام n قسمت این کار را تکرار می کنیم و مساحت های به دست آمده را با هم جمع می کنیم.
برای نمونه از قصد داریم مقدار انتگرال تابع Sin(X ^ 2) را در بازه صفر تا پی (3.141) حساب کنیم. به دست آوردن انتگرال نامعین این تابع دشوار است اما ما با بهره گیری از VBScript می توانیم با تقریب بسیار خوبی این انتگرال را محاسبه کنیم:
<html>
<Script Language="VBScript">
For i = 0 To 3.141 Step 0.0001
sum = sum + (Sin(i ^ 2)*0.0001)
Next
msgbox(sum)
</script>
</html>
همان طور که ملاحظه می کنید ابتدا در بین تگ های HTML زبان VBScript معرفی شد. سپس از یک حلقه For بهره گرفتیم. این حلقه مقدار i را ابتدا برابر صفر می کند و سپس 0.0001 به مقدار آن می افزاید تا آنکه مقدار i به 3.141 برسد. 0.0001 طول هر ریمان است که اگر از این کوچک تر شود مقدار انتگرال دقیق خواهد بود ولی ما به همین عدد بسنده می کنیم.
در ادامه سیسنوس i ^ 2 به عنوان مقدار متغیر به دست می آید و در طول ریمان ضرب می شود. نتیجه به مقدار های قبلی متغیر sum افزوده می شود. در نهایت پس از پایان حلقه، یک جعبه متنی مقدار sum که حاصل انتگرال است را نمایش می دهد.
برای اجرای این سورس آن را داخل یک فایل HTML قرار می دهیم و فایل را با مرورگر IE اجرا می کنیم.
توجه داشته باشید این کد برای به دست آوردن انتگرال های مجازی نیازمند بازنگری است.
موفق باشید
آرمین:11():