On Fri, May 23, 2014 at 11:54 AM, Matthias Weber <matwe...@indiana.edu>wrote:
> Dear All,
>
> I would like to define a command that expands
>
> \vector{2,4} % or vector[2,4] if that’s easier
>
> to
>
> \startpmatrix
> \NC 2 \NR
> \NC 4 \NR
> \stoppmatrix
>
> and more generally
>
> \vector{2,4,1,7}
>
> to
>
> \startpmatrix
> \NC 2 \NR
> \NC 4 \NR
> \NC 1 \NR
> \NC 7 \NR
> \stoppmatrix
>
> Any hints how to achieve this?
>
> Thanks,
>
\definemathmatrix
[pmatrix]
[left={\left(\,},right={\,\right)}]
\startluacode
document = document or {}
document.matthias = document.matthias or {}
local function lua_columnvector(a)
context.startpmatrix()
for i,v in ipairs(a) do
context.NC() context(tostring(v)) context.NR()
end
context.stoppmatrix()
end
document.matthias.lua_columnvector = document.matthias.lua_columnvector or
lua_columnvector
\stopluacode
\def\columnvector#1{\ctxlua{document.matthias.lua_columnvector(#1)}}
\starttext
\startformula
\columnvector{{1,2,3}} %% watch the double { !
\stopformula
\stoptext
--
luigi
___________________________________________________________________________________
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
___________________________________________________________________________________
