Re: Decimal comma on input

*To*: mathgroup at smc.vnet.net*Subject*: [mg60545] Re: Decimal comma on input*From*: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>*Date*: Tue, 20 Sep 2005 05:18:59 -0400 (EDT)*Organization*: Uni Leipzig*References*: <dgm112$o3b$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, don't do that ! or what is lst={2,3,4,5} a four element list of integers or a two elemement list of floats ? How knows ? Regards Jens "Cca" <cca at gregosetroianos.mat.br> schrieb im Newsbeitrag news:dgm112$o3b$1 at smc.vnet.net... | Here in Brazil our decimal separator is a comma. (This is the favoured convention in most non English-speaking countries.) We also put dots between each group of three digits. As an example, the number whose numeral is | | 1234.56789 | | in USA is represented in Brazil as | | NumberForm[1234.56789, DigitBlock->{3,3}, | NumberPoint->",", NumberSeparator->"."] | | or also (following the SI) | | NumberForm[1234.56789, DigitBlock->{3,3}, | NumberPoint->",", NumberSeparator->" "] | | This said, it is natutal to ask: how to instruct Mathematica to recognize a decimal comma on input? My ad hoc | solution is shown below, but I would be very interested in knowing alternative approaches. | | --------------------------------------------- | Instead of a "true" comma, I use one with hidden information, namely | | TagBox[",", Identity, Editable->False, SyntaxForm->"."] // DisplayForm | | with the following rule (which will work, of course, only in the expected contexts): | | MakeExpression[RowBox[{a_, | TagBox[",", Identity, Editable->False, SyntaxForm->"."], b_}], form_] := MakeExpression[StringJoin[a, ".", b], form] | | Now we can try, for example, 2,3*3,5, 2,3+1,45, etc. | --------------------------------------------- | Finally, to make it easy to insert the decimal comma above I provide four ways to the user: | | (1) a button: | | ButtonBox[",", ButtonData-> | TagBox[",", Identity, Editable->False, SyntaxForm->"."]// DisplayForm | | (2) a rule for InputAliases (which overrides \[InvisibleComma]); | | (3) a keyboard shortcut, for which I add the following line to the file KeyEventTranslations.tr: | | Item[KeyEvent["KeypadDecimal"], FrontEndExecute[ | {FrontEnd`NotebookWrite[FrontEnd`InputNotebook[], | TagBox[",", Identity, Editable->False, SyntaxForm->"."], After]}]] | | (4) a menu command (not well tested yet): | | LinkWriteHeld[$ParentLink, | Hold@AddMenuCommands["New", | {Item["Decimal comma", | FrontEndExecute[{ | FrontEnd`NotebookWrite[FrontEnd`InputNotebook[], TagBox[",", Identity, Editable->False, SyntaxForm->"."], After]}]]}]] | --------------------------------------------- | | Carlos César de Araújo | Gregos & Troianos Educacional | www.gregosetroianos.mat.br | Belo Horizonte, MG, Brazil | (31) 3283-1122 |