كيفية حساب الجذر التكعيبى

[alkatebs]

أريد من الأفاضل دالة أو كود لايجاد الجذر التكعيبي لعدد

ولكم الشكر مقدما

[السيد عبد العال]

معادلة

=27^(1/3)

التيجة 3

[osama457]

شكرا أستاذنا

لكن هل الجواب الذي كتبته لا يقبل الأرقام السالبة؟

إن كان كذلك فأظنه يمكن تلافي ذلك بالعبارة

IIf([t_Num]<0;(Abs([t_Num])^(1/3))*-1;[t_Num]^(1/3))

مع استبدال كلمة [t_Num] باسم الحقل الذي يحتوي على الرقم

تم تعديل أغسطس 24, 2004 بواسطه osama457

[osama457]

الأستاذ / السيد عبد العال

لست متخصصا في الرياضيات ولا أفهم في المحاسبة

بحثت عن دالة جاهزة فما لقيت، وعن معادلة بسيطة وما لقيت أيضا

لكني لقيت معادلة غير بسيطة وتكرارية في الرابط :

http://mathforum.org/library/drmath/view/52628.html

وصغتها في كود ولما جيت أنزلها هنا لقيتك سبقتني بالجواب الصحيح فعلا

ومن باب الطرفة أكتب الكود اللي توصلت له

((خاصة إني بذلت فيه مجهود ساعة تقريبا )) :$

طبعا لا يصح استخدامه ما دام يغني عنه الكود السابق

Function CubeRoot(ByVal inNum As Variant) As Variant
If Not IsNumeric(Nz(inNum, "")) Then Exit Function
Dim x As Variant
x = 0
Do Until CStr(x ^ 3) = CStr(inNum)
    If x = 0 Then
        x = x - (x ^ 3 - inNum)
    Else
        x = x - (x ^ 3 - inNum) / (3 * x ^ 2)
    End If
Loop
CubeRoot = x

End Function

تم تعديل أغسطس 24, 2004 بواسطه osama457

[السيد عبد العال]

استاذنا اسامة

نسال الله ان يبارك لنا فى عمرك ووقتك وابداعاتك الجميلة

كل ما تكتبه جميل ومتميز