barnamenevisjavan
پنج شنبه 17 فروردین 1391, 12:19 عصر
سلام من الان پيش دانشگاهي رشته رياضي هستم امروز درس ديفرانسيل داشتيم و به يه مبحث خيلي جالب رسيديم كه برام خيلي جالب بود تا اين كه تصميم گرفتم برنامه شو بنويسم امروز روشي رو ياد گرفتيم كه مبناي حل جذر اعداد يا همون راديكال هست مثلا تا حالا فكر كردين كه ماشين حساب چطوري راديكال عدد 37 رو حساب ميكنه؟يا وقتي شما توي دات نت مينويسي Sqrt(37) چطوري اين عدد 37 محاسبه ميشه؟ جوابش خيلي اسونه اين كار توسط ديفرانسيل انجام ميشه يعني يه سري قواعد كه با ضرب و تقسيم بهش ميرسيم كه علاوه بر حل جذر تمامي اعداد اعم از اعشاري و و گنگ و...ميتونه نسبت هاي مثلثاتي رو هم حل بكنه فرمولش رو من اينجا هم بيان ميكنم توي سورس برنامه هم توضيح دادم لطفا ببينيد و نظر بديد تنها مشكلي كه من داشتم اين بود كه نتونستم يه قاعده كلي تعريف كنم تا هر عددي كه خواستيم به اين روش محاسبه بشه من فقط تونستم عدد 37 رو توي اعداد و عدد 29 رو توي مثلثات محاسبه كنم هركس ميتونه يه قاعده كلي براش بنويسه اينم توضيح كد:
Public Function Sqr37()
Dim sqrtxt As Double
TextBox1.Text = sqrtxt
'√x+∆x=1/2*√x*∆x+√x راديكال(ايكس + دلتا ايكس)برابر است با 1 تقسيم بر 2راديكال ايكس در دلتا ايكس +راديكال ايكس
sqrtxt = (1 / (2 * Sqrt(36))) * 1 + Sqrt(36)
Label1.Text = sqrtxt
End Function
خوب بالا يه متغير اعشاري تعريف كردم و ريختم توي تكست باكس
بعد اومدم يه دستور ضرب و جمع و تقسيم بهش معرفي كردم كه با عدد دريافتي اين كارو بكنه و در اخر ريختم توي ليبل تا نشون بده
----------------------------
براي محاسبه به اين روش بايد ما عبارت كلي رو مثلا همين 37 رو به شكلي در بياريم كه جذرش قابل محاسبه باشه مثلا عدد 37 رو من بايد بصورت 36+1 بنويسم چون به اين طريغ جذر 36 قابل محاسبه هست كه همون 6 ميشه و ميمونه يه 1
√x+∆x --->منظور همون 36+1 هست كه 36 برابر ايكس و 1 برابر دلتا ايكس هست
1/2*√x*∆x+√x ---->اينجا هم عملياتي روي ايكس و دلتا ايكس انجام ميشه تا عدد 37 محاسبه بشه
----------------------------
مثلا براي محاسبه راديكال 81.6 ما بايد 81.6 رو بصورت راديكال 81 + 0.6 بنويسيم و با اعمال اعمال جبري محاسبه بشه
----------------------------
من نتونستم توي برنامه همچين قابليتي قرار بدم كه خودش بتونه بصورت اتومات مثلا عدد 81.6 رو عدد 81+0.6 قراربده و اعمال جبري رو انجام بده
عينا همين روش نسبت هاي مثلثاتي هم حل ميشه كه نمونش رو قرار دادم اگر ميشه در اين باره يكم بحث كنيد تا به يه جايي برسيم
----------------------------
فرمول كلي محاسبه جذر اعداد=√x+∆x=1/2*√x*∆x+√x
Public Function Sqr37()
Dim sqrtxt As Double
TextBox1.Text = sqrtxt
'√x+∆x=1/2*√x*∆x+√x راديكال(ايكس + دلتا ايكس)برابر است با 1 تقسيم بر 2راديكال ايكس در دلتا ايكس +راديكال ايكس
sqrtxt = (1 / (2 * Sqrt(36))) * 1 + Sqrt(36)
Label1.Text = sqrtxt
End Function
خوب بالا يه متغير اعشاري تعريف كردم و ريختم توي تكست باكس
بعد اومدم يه دستور ضرب و جمع و تقسيم بهش معرفي كردم كه با عدد دريافتي اين كارو بكنه و در اخر ريختم توي ليبل تا نشون بده
----------------------------
براي محاسبه به اين روش بايد ما عبارت كلي رو مثلا همين 37 رو به شكلي در بياريم كه جذرش قابل محاسبه باشه مثلا عدد 37 رو من بايد بصورت 36+1 بنويسم چون به اين طريغ جذر 36 قابل محاسبه هست كه همون 6 ميشه و ميمونه يه 1
√x+∆x --->منظور همون 36+1 هست كه 36 برابر ايكس و 1 برابر دلتا ايكس هست
1/2*√x*∆x+√x ---->اينجا هم عملياتي روي ايكس و دلتا ايكس انجام ميشه تا عدد 37 محاسبه بشه
----------------------------
مثلا براي محاسبه راديكال 81.6 ما بايد 81.6 رو بصورت راديكال 81 + 0.6 بنويسيم و با اعمال اعمال جبري محاسبه بشه
----------------------------
من نتونستم توي برنامه همچين قابليتي قرار بدم كه خودش بتونه بصورت اتومات مثلا عدد 81.6 رو عدد 81+0.6 قراربده و اعمال جبري رو انجام بده
عينا همين روش نسبت هاي مثلثاتي هم حل ميشه كه نمونش رو قرار دادم اگر ميشه در اين باره يكم بحث كنيد تا به يه جايي برسيم
----------------------------
فرمول كلي محاسبه جذر اعداد=√x+∆x=1/2*√x*∆x+√x