| |||||||||||||||||
![]() |
![]() |
![]() |
|||||||||||||||
|
Digital Root
Motivating ExampleConsider to play this guess-a-digit game with one of your friend
“How you did that?” she exclaimed on the accuracy of your guess. The secret lies on digital root.
The sum of the number 1329351 is 1 + 3 + 2 + 9 + 3 + 5 + 1 = 24 and the digital root of 24 is 2+4 = 6, while the sum she report to you was 15 with digital root of 1+5 = 6. Since the subtraction of two digital roots was 6 - 6 = 9 then you guess. Hey, how could 6 – 6 is 9? Read on this article and you will understand what it is mean.
What is Digital Root?Think of any positive integer number, for example 179. Add all the digits of that number (1 + 7 + 9 = 17). Repeat the addition of the digits until it is only single digit (thus, 17 -> 1 + 7 = 8). The last single digit is called digital root of the number. Thus, digital root of 179 is 8.
Digital root or digit sum of a positive integer number is a single digit obtained from the iterative summation of the digits in the number. For our base-10 decimal system, the single digit is one of number 1 to 9. The number of transformation from the number until digital root is called additive persistence . For number 179 we have additive persistence of 2 because it requires 2 transformations from 179 -> 17 -> 8.
Digital root of a number can be computed using the following formula
If you like iterative programming of digital root below is the function. For some computer or programming language, iterative programming more appropriate because it can handle very large number and also can give the additive persistence value. For example if you use
Function DigitalRoot(inputNum, Optional AdditivePersistence As Integer) As Variant '#################################################### ' This function return digital root using iteration ' copyright (c) 2005 by Kardi Teknomo ' see more tutorial in http://people.revoledu.com/kardi/ '#################################################### Dim s As Variant, sum As Long Dim g As Integer Dim i As Integer Dim num As String If Not IsNumeric(inputNum) Or inputNum = 0 Then Exit Function s = Val(inputNum) Do While Len(Str(s)) - 1 > 1 sum = 0 g = Len(Str(s)) - 1 For i = 1 To g sum = sum + Val(Mid(s, i, 1)) Next AdditivePersistence = AdditivePersistence + 1 s = sum Loop DigitalRoot = s End Function
The PDF file of this tutorial is also available for download here. Preferable reference for this tutorial is Teknomo, Kardi. Digital Root. http:\\people.revoledu.com\kardi\ tutorial\
|
|||||||||||||||
|
||||||||||||||||
© 2006 Kardi Teknomo. All Rights Reserved. Designed by CNV Media |
||||||||||||||||