نمایش نتایج 1 تا 1 از 1 مجموع
-
16-01-10 09:57 #1
مدیر انجمن برنامه نویسی و رباتیک
- تاریخ عضویت
- Feb 2008
- موقعیت
- انسخده
- ارسالها
- 1,571
- تشکر
- 3,817
- 4,445 تشکر در 1,495 ارسال
به دست آوردن انتگرال معین با VBScript
با سلام
انتگرال یک تابع مساحت محصور بین محور متغیر ها و نمودار تابع است. در انتگرال معین بازه ی انتگرال گیری مشخص است که در آن به ابتدای بازه، کران پایین انتگرال و به انتهای بازه، کران بالای انتگرال گفته می شود.
یکی از شیوه های انتگرال گیری استفاده از ریمان هست. یعنی نمودار تابع را به مستطیل های کوچک تقسیم می کنند. مجموع مساحت این مستطیل ها مقدار انتگرال خواهد بود. بدیهی است هرچه تعداد مستطیل ها بیش تر باشد، مقدار انتگرال دقیق تر خواهد بود.
ما می توانیم روش فوق را با استفاده از زبان تحت وب VBScript پیاده سازی کنیم. ابتدا بازه ی انتگرال گیری خود را به n تا قسمت مساوی تقسیم می کنیم. سپس یک مقدار برای متغیر در هر قسمت بر می گزینیم و مقدار تابع برای آن متغیر را حساب می کنیم. مقدار تابع ضرب در طول آن قسمت برابر است با مساحت آن قسمت. حال برای تمام n قسمت این کار را تکرار می کنیم و مساحت های به دست آمده را با هم جمع می کنیم.
برای نمونه از قصد داریم مقدار انتگرال تابع Sin(X ^ 2) را در بازه صفر تا پی (3.141) حساب کنیم. به دست آوردن انتگرال نامعین این تابع دشوار است اما ما با بهره گیری از VBScript می توانیم با تقریب بسیار خوبی این انتگرال را محاسبه کنیم:
همان طور که ملاحظه می کنید ابتدا در بین تگ های HTML زبان VBScript معرفی شد. سپس از یک حلقه For بهره گرفتیم. این حلقه مقدار i را ابتدا برابر صفر می کند و سپس 0.0001 به مقدار آن می افزاید تا آنکه مقدار i به 3.141 برسد. 0.0001 طول هر ریمان است که اگر از این کوچک تر شود مقدار انتگرال دقیق خواهد بود ولی ما به همین عدد بسنده می کنیم.HTML Code:<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>
در ادامه سیسنوس i ^ 2 به عنوان مقدار متغیر به دست می آید و در طول ریمان ضرب می شود. نتیجه به مقدار های قبلی متغیر sum افزوده می شود. در نهایت پس از پایان حلقه، یک جعبه متنی مقدار sum که حاصل انتگرال است را نمایش می دهد.
برای اجرای این سورس آن را داخل یک فایل HTML قرار می دهیم و فایل را با مرورگر IE اجرا می کنیم.
توجه داشته باشید این کد برای به دست آوردن انتگرال های مجازی نیازمند بازنگری است.
موفق باشید
آرمینبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
-
2 کاربر زیر از ravegoat بخاطر این ارسال مفید قدردانی نموده اند:
پاسخ با نقل قول
 |
اطلاعات موضوع
کاربران در حال مشاهده موضوع
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
قوانین ارسال
Bookmarks