* to pass an argument in a macro
@ 2012-12-23 1:58 Roland Thiers
2012-12-23 7:43 ` Wolfgang Schuster
0 siblings, 1 reply; 5+ messages in thread
From: Roland Thiers @ 2012-12-23 1:58 UTC (permalink / raw)
To: ntg-context
Bonjour,
I am new in ConTeXt. I love its features. I need some (or a lot of) help.
I tried to get a macro which compute some values for a math function. With help
from the wiki ConTeXt Garden and some time I could do that
- write my function userdata.f
- write another function to put the values in a table : userdata.tabf
- put both of them in a file "/Users/rolandt/context/mesfonctionsluatex.lua"
- In a file.tex, I use that macro :
\def\tabf#1#2%
{\startluacode
dofile("/Users/rolandt/context/mesfonctionsluatex.lua")
userdata.tabf(#1,#2)
\stopluacode}
Here are the functions:
-- fonction cube
-- on utilise l'espace de nom userdata
userdata=userdata or {}
function userdata.f(x)
context(x*x*x)
end
-- fonction tabf
-- which makes a table , compute 6 values, b=first x, c = step
userdata=userdata or {}
function userdata.tabf(b,c)
context.starttable{"*{7}{|l}|"}
local b=b
local c=c
context("\\HL")
context("\\VL x ") for i=1,6 do context("\\NC" .. b+(i-1)*c) end
context("\\VL".."\\AR")
context("\\HL")
context("\\VL f(x) ") for i=1,6 do context("\\NC")
context(userdata.f(b+(i-1)*c)) end
context("\\VL".."\\LR")
context("\\HL")
context.stoptable()
end
I am sure it could be much better but it works !
Evidently I need a third argument to be able to choose how many values compute.
I failed completely (I don't understand how arguments are passed).
I tried things like : context.starttable{"*{%s}{|l}|",a} but ... fatal error :)
I would appreciate some help or what to read to improve understanding that kind
of things.
Best regards,
Roland
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: to pass an argument in a macro
2012-12-23 1:58 to pass an argument in a macro Roland Thiers
@ 2012-12-23 7:43 ` Wolfgang Schuster
2012-12-25 8:36 ` Roland Thiers
0 siblings, 1 reply; 5+ messages in thread
From: Wolfgang Schuster @ 2012-12-23 7:43 UTC (permalink / raw)
To: mailing list for ConTeXt users
Am 23.12.2012 um 02:58 schrieb Roland Thiers <roland.thiers@gmail.com>:
> Bonjour,
> I am new in ConTeXt. I love its features. I need some (or a lot of) help.
> I tried to get a macro which compute some values for a math function. With help
> from the wiki ConTeXt Garden and some time I could do that
> - write my function userdata.f
> - write another function to put the values in a table : userdata.tabf
> - put both of them in a file "/Users/rolandt/context/mesfonctionsluatex.lua"
> - In a file.tex, I use that macro :
> \def\tabf#1#2%
> {\startluacode
> dofile("/Users/rolandt/context/mesfonctionsluatex.lua")
> userdata.tabf(#1,#2)
> \stopluacode}
When you Lua code is in the same folder as the TeX file you can use
\ctxloadluafile{myfile} to load the Lua file.
> Here are the functions:
>
> -- fonction cube
> -- on utilise l'espace de nom userdata
> userdata=userdata or {}
>
> function userdata.f(x)
> context(x*x*x)
> end
>
> -- fonction tabf
> -- which makes a table , compute 6 values, b=first x, c = step
>
> userdata=userdata or {}
>
> function userdata.tabf(b,c)
> context.starttable{"*{7}{|l}|"}
> local b=b
> local c=c
> context("\\HL")
> context("\\VL x ") for i=1,6 do context("\\NC" .. b+(i-1)*c) end
> context("\\VL".."\\AR")
> context("\\HL")
> context("\\VL f(x) ") for i=1,6 do context("\\NC")
> context(userdata.f(b+(i-1)*c)) end
> context("\\VL".."\\LR")
> context("\\HL")
> context.stoptable()
> end
\startluacode
userdata = userdata or {}
userdata.roland = userdata.roland or {}
local roland = userdata.roland
function roland.f(x)
context(x*x*x)
end
function roland.table(min,max,step)
local min = tonumber(min)
local max = tonumber(max)
local step = tonumber(step)
context.starttable({string.format("|*{%d}{l|}",max-min+2)})
context.HL()
context.VL()
context("x")
for i=min,max do
context.NC()
context(min+(i-1)*step)
end
context.VL()
context.FR()
context.HL()
context.VL()
context("f(x)")
for i=min,max do
context.NC()
roland.f(min+(i-1)*step)
end
context.VL()
context.AR()
context.HL()
context.stoptable()
end
\stopluacode
\define[3]\TableFuntion
{\ctxlua{userdata.roland.table("#1","#2","#3")}}
\starttext
\TableFuntion{1}{6}{1}
\TableFuntion{2}{7}{1}
\stoptext
Wolfgang
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: to pass an argument in a macro
2012-12-23 7:43 ` Wolfgang Schuster
@ 2012-12-25 8:36 ` Roland Thiers
2012-12-25 12:24 ` Hans Hagen
0 siblings, 1 reply; 5+ messages in thread
From: Roland Thiers @ 2012-12-25 8:36 UTC (permalink / raw)
To: mailing list for ConTeXt users
>
> Am 23.12.2012 um 02:58 schrieb Roland Thiers
> <roland.thiers@gmail.com>:
>
>> Bonjour,
>> I am new in ConTeXt. I love its features. I need some (or a lot of)
>> help.
>> I tried to get a macro which compute some values for a math function.
>
>
>>
Le 23 déc. 12 à 18:43, Wolfgang Schuster a écrit :
>
> \startluacode
>
> userdata = userdata or {}
> userdata.roland = userdata.roland or {}
>
> local roland = userdata.roland
>
> function roland.f(x)
> context(x*x*x)
> end
>
> function roland.table(min,max,step)
> local min = tonumber(min)
> local max = tonumber(max)
> local step = tonumber(step)
> context.starttable({string.format("|*{%d}{l|}",max-min+2)})
> context.HL()
> context.VL()
> context("x")
> for i=min,max do
> context.NC()
> context(min+(i-1)*step)
> end
> context.VL()
> context.FR()
> context.HL()
> context.VL()
> context("f(x)")
> for i=min,max do
> context.NC()
> roland.f(min+(i-1)*step)
> end
> context.VL()
> context.AR()
> context.HL()
> context.stoptable()
> end
>
> \stopluacode
>
> \define[3]\TableFuntion
> {\ctxlua{userdata.roland.table("#1","#2","#3")}}
>
> \starttext
> \TableFuntion{1}{6}{1}
> \TableFuntion{2}{7}{1}
> \stoptext
>
> Wolfgang
I read with care (maybe) your code above, Wolfgang (thanks again !) et
had a look in "programming in lua" to get a better idea of the object
table, new in lua too :-)
I have some more questions :
- when one create a table doing this : userdata=userdata or {}, is it
only to be sure that "userdata" is not actually a variable which
exists (with
a non nil value) ? Less safely we could write : userdata={} ?
- arguments for the user.data.table function are given as strings : "
#1" and changed in numbers in the body of the function. I noticed that
it was possible to
give numbers directly. is there always better to do like this ? (enter
strings et use tonumber)
- I found the command \define in context garden and saw it's the same
than \unexpanded\def , there is a link to the définitions of the TeX
primitives but
I could'nt find \unexpanded\def (\def was very instructive however).
- I changed slightly the code to obtain a range (x between min and max
with a step) and to choose a round-way.
I failed to find a context way to get rounded numbers, so I did a
workaround (a another function) with help from "programming in lua". I
would like a more straight (context) way.
Here is the code :
\startluacode
-- userdata = userdata or {}
-- userdata["roland"] = userdata["roland"] or {}
userdata=userdata or {}
userdata["roland"]=userdata["roland"] or {}
local roland = userdata["roland"]
function roland.f(x)
return math.log(x)
end
function roland.round (number, approx)
local power = 10^(approx or 0)
context(math.floor(number * power + 0.5) / power)
end
function roland.table(min,max,step,approx)
local min = tonumber(min)
local max = tonumber(max)
local step = tonumber(step)
local nbrcol = tonumber((max-min)*(1/step)+2)
local approx = tonumber(approx)
context.starttable({string.format("|*{%d}{l|}",nbrcol)})
context.HL()
context.VL()
context("x")
for i=1,(nbrcol-1) do
context.NC()
context(min+(i-1)*step)
end
context.VL()
context.FR()
context.HL()
context.VL()
context("f(x)")
for i=1,(nbrcol-1) do
context.NC()
local result=roland.f(min+(i-1)*step)
roland.round(result,approx)
end
context.VL()
context.AR()
context.HL()
context.stoptable()
end
\stopluacode
\define[4]\TableFuntion
{\ctxlua{userdata.roland.table("#1","#2","#3","#4")}}
\starttext
\TableFuntion{2}{6}{0.5}{2}
\blank[2*big]
\TableFuntion{1}{16}{1}{}
\blank[2*big]
\TableFuntion{2}{4}{2}{5}
\blank[2*big]
\TableFuntion{0.2}{2}{0.2}{3}
\stoptext
Best regards, Roland
Happy Christmas to all Context users !
> ___________________________________________________________________________________
> 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
> ___________________________________________________________________________________
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: to pass an argument in a macro
2012-12-25 8:36 ` Roland Thiers
@ 2012-12-25 12:24 ` Hans Hagen
2012-12-25 12:34 ` Roland Thiers
0 siblings, 1 reply; 5+ messages in thread
From: Hans Hagen @ 2012-12-25 12:24 UTC (permalink / raw)
To: mailing list for ConTeXt users
On 12/25/2012 9:36 AM, Roland Thiers wrote:
> - when one create a table doing this : userdata=userdata or {}, is it
> only to be sure that "userdata" is not actually a variable which exists
> (with
> a non nil value) ? Less safely we could write : userdata={} ?
There can already be stuff in userdata that you don't want to loose.
> - arguments for the user.data.table function are given as strings : "
> #1" and changed in numbers in the body of the function. I noticed that
> it was possible to
> give numbers directly. is there always better to do like this ? (enter
> strings et use tonumber)
Depends on if you want to catch errors. Forgetting an argument (or an
empty one) when a number is expected results in ,, which triggers a Lua
error, while with ,"", you can intercept the empty string and default.
Hans
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
| www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: to pass an argument in a macro
2012-12-25 12:24 ` Hans Hagen
@ 2012-12-25 12:34 ` Roland Thiers
0 siblings, 0 replies; 5+ messages in thread
From: Roland Thiers @ 2012-12-25 12:34 UTC (permalink / raw)
To: mailing list for ConTeXt users
Le 25 déc. 12 à 23:24, Hans Hagen a écrit :
> On 12/25/2012 9:36 AM, Roland Thiers wrote:
>
>> - when one create a table doing this : userdata=userdata or {}, is it
>> only to be sure that "userdata" is not actually a variable which
>> exists
>> (with
>> a non nil value) ? Less safely we could write : userdata={} ?
>
> There can already be stuff in userdata that you don't want to loose.
OK.
>
>> - arguments for the user.data.table function are given as
>> strings : "
>> #1" and changed in numbers in the body of the function. I noticed
>> that
>> it was possible to
>> give numbers directly. is there always better to do like this ?
>> (enter
>> strings et use tonumber)
>
> Depends on if you want to catch errors. Forgetting an argument (or
> an empty one) when a number is expected results in ,, which triggers
> a Lua error, while with ,"", you can intercept the empty string and
> default.
>
> Hans
>
OK. Thanks !
Roland
> -----------------------------------------------------------------
> Hans Hagen | PRAGMA ADE
> Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
> tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
> | www.pragma-pod.nl
> -----------------------------------------------------------------
___________________________________________________________________________________
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
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2012-12-25 12:34 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2012-12-23 1:58 to pass an argument in a macro Roland Thiers
2012-12-23 7:43 ` Wolfgang Schuster
2012-12-25 8:36 ` Roland Thiers
2012-12-25 12:24 ` Hans Hagen
2012-12-25 12:34 ` Roland Thiers
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).