Re: Simple command with variable number of arguments

[luigi scarso <luigi.scarso@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 1120 bytes --]

On Fri, May 23, 2014 at 11:54 AM, Matthias Weber <matweber@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

[-- Attachment #1.2: Type: text/html, Size: 1935 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________