Am 15.02.2010 um 20:35 schrieb Peter Münster:
> On Sun, Feb 14 2010, Hans Hagen wrote:
>
>>> sqrt = math.sqrt
>>> pi = math.pi
>>> function my_equation(s, r)
>>
>> beware, this creates (and possibly overloads) sqrt, pi and my_equation as
>> gobals
>
> Indeed...
>
> The following hack was *not* so quick, but there is a bug somewhere
> (a digit is added at the end):
>
> \usemodule[calcmath]
> \startluacode
> local exp_replacements = {["*"] = "$·$"}
> local res_replacements = {["sqrt"] = "math.sqrt", ["π"] = "math.pi"}
> userdata = userdata or {}
> function userdata.result_as_string(r)
> r = math.floor(1000 * r + 0.5) / 1000
> r = tostring(r)
> tex.write(r:gsub("%.", ","))
> end
> function userdata.filter_expression(s)
> for k, v in pairs(exp_replacements) do
> s = s:gsub(k, v)
> end
> tex.write(s)
> end
> function userdata.filter_result(s)
> for k, v in pairs(res_replacements) do
> s = s:gsub(k, v)
> end
> tex.write(s)
> end
> \stopluacode
> \def\calculate#1{%
> \start
> \def\Expression{\ctxlua{userdata.filter_expression("#1")}}
> \def\Result{\ctxlua{userdata.filter_result("#1")}}
> \calcmath{\Expression=\ctxlua{userdata.result_as_string(\Result)}}
> \stop
> }
> \starttext
> \startlines
> \calculate{1+2}
> \calculate{3/2-1}
> \calculate{3*2}
> \calculate{sqrt(2)}
> \calculate{2*π}
> \stoplines
> \stoptext
I've noticed that one can even use such things as \calculate{3^2},
\calculate{2^3} out of the box and it's easy to add
["e"] = "math.exp(1)", ["sin"] = "math.sin", …
But the "$·$"-construct is problematic. It do not work in display style
(\let\calcmath\displaycalcmath) and without the dollar-signs the placement and
the spacing are wrong.
Thank you for your elaboration.
Greetings
Andreas
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
