Maintenance script: Automated @@ correction

2016-02-24T22:12:33Z

Automated @@ correction

← Older revision		Revision as of 22:12, 24 February 2016
Line 1:		Line 1:
	{{Template:TI-BASIC:Routine		{{Template:TI-BASIC:Routine
	\|picture=@@		\|picture=
	\|summary=Returns the sum of digits of a number.		\|summary=Returns the sum of digits of a number.
	\|input=''X'' - the number you want		\|input=''X'' - the number you want
Line 7:		Line 7:
	\|compatibility=TI-83/84/+/SE		\|compatibility=TI-83/84/+/SE
	\|author=DarkerLine		\|author=DarkerLine
	\|authors=@@		\|authors=
	\|url=http://www.unitedti.org/forum/index.php?showtopic=4479&view=findpost&p=70233 United TI		\|url=http://www.unitedti.org/forum/index.php?showtopic=4479&view=findpost&p=70233 United TI
	\|download=@@		\|download=
	}}		}}

Maintenance script: Initial automated import

2016-02-24T18:36:36Z

Initial automated import

New page

{{Template:TI-BASIC:Routine
|picture=@@
|summary=Returns the sum of digits of a number.
|input=''X'' - the number you want
|output=''Ans'' - the sum of X's digits
|variable=X, Ans
|compatibility=TI-83/84/+/SE
|author=DarkerLine
|authors=@@
|url=http://www.unitedti.org/forum/index.php?showtopic=4479&view=findpost&p=70233 United TI
|download=@@
}}

:sum(int(10fPart(Xseq(10^(-I-1),I,0,log(X

With our number stored in X, we loop through each of the digits of the number starting from the right using the [[TI-BASIC:Seq_List|seq(]] command. We get the respective digit by raising the number to the respective power of 10 and then multiplying the result by 10. The digits are returned separately in a list, and then we take the sum of them using the [[TI-BASIC:Sum|Sum(]] command.

For example, if the number is 1234, we get a list of {1,2,3,4}, which then returns a sum of 10. You should note, though, that this routine only works with positive and negative whole numbers, and will return incorrect results if you try to use a decimal number. You could fix this problem by using the code below instead:

:abs(E13(X/10^(int(log(abs(X+not(X→X

Here, we obtain the appropriate power of ten by which to divide the number so as to leave only one digit to the left of the decimal point. Because a real variable may contain only 14 digits, the answer is multiplied by 10^13 to guarantee the removal of any fractional part. From taking the absolute value of this new result, our number can be safely entered into the routine above.

Note: It should be understood that this routine is only capable of adding the first 14 digits of a number. An input of π, for instance, would return 69 even though the sum of all digits of π is infinite.

= Related Routines =

* [[TI-BASIC:Number_Concatenation|Number_Concatenation]]
* [[TI-BASIC:Number_Subset|Number_Subset]][[Category:TI-BASIC]]
[[Category:TIBD]]

TI-BASIC:Sum Of Digits - Revision history

Maintenance script: Automated @@ correction

Maintenance script: Initial automated import