You can subscribe to this list here.
2014 
_{Jan}

_{Feb}
(232) 
_{Mar}
(323) 
_{Apr}
(383) 
_{May}
(359) 
_{Jun}
(435) 
_{Jul}
(252) 
_{Aug}
(172) 
_{Sep}
(265) 
_{Oct}
(263) 
_{Nov}
(350) 
_{Dec}
(359) 

2015 
_{Jan}
(267) 
_{Feb}
(220) 
_{Mar}
(311) 
_{Apr}
(269) 
_{May}
(388) 
_{Jun}
(403) 
_{Jul}
(172) 
_{Aug}
(399) 
_{Sep}
(364) 
_{Oct}
(269) 
_{Nov}
(357) 
_{Dec}
(468) 
2016 
_{Jan}
(618) 
_{Feb}
(592) 
_{Mar}
(625) 
_{Apr}
(516) 
_{May}
(375) 
_{Jun}
(155) 
_{Jul}
(346) 
_{Aug}
(262) 
_{Sep}
(346) 
_{Oct}
(291) 
_{Nov}
(333) 
_{Dec}
(335) 
2017 
_{Jan}
(436) 
_{Feb}
(460) 
_{Mar}
(370) 
_{Apr}
(165) 
_{May}

_{Jun}

_{Jul}

_{Aug}

_{Sep}

_{Oct}

_{Nov}

_{Dec}

S  M  T  W  T  F  S 



1
(3) 
2
(6) 
3
(32) 
4
(23) 
5
(16) 
6
(16) 
7
(17) 
8
(11) 
9
(9) 
10
(14) 
11
(8) 
12
(4) 
13
(3) 
14
(10) 
15
(4) 
16
(6) 
17
(7) 
18
(10) 
19
(7) 
20
(14) 
21
(12) 
22
(26) 
23
(31) 
24
(28) 
25
(23) 
26
(12) 
27
(12) 
28
(11) 
29
(4) 
30
(4) 



From: Barton Willis <willisb@un...>  20140419 19:04:18

Maybe your function works perfectly. But consider: (%i1) gen_rhs(Ex,Vars)::= block([n:length(Ex),m:length(Vars)], Exs:subst(makelist(Vars[i]=y[i,1],i,m),Ex),print(Exs), MList:ev(makelist(makelist(Exs[i]),i,m)),print(MList), buildq([MList],lambda([t,y],matrix(splice(MList)))))$ (%i2) george : gen_rhs([sin(a+b),cos(a*b)],[a,b])$ [sin(y[2,1]+y[1,1]),cos(y[1,1]*y[2,1])] [[sin(y[2,1]+y[1,1])],[cos(y[1,1]*y[2,1])]] (%i3) george(5,z); (%o3) matrix([sin(z[2,1]+z[1,1])],[cos(z[1,1]*z[2,1])]) (%i4) y[2,7] : 42$ (%i5) george(5,z); (%o5) matrix([sin(y[2,1]+y[1,1])],[cos(y[1,1]*y[2,1])]) Are you certain this is what you want? ________________________________________ On 04/19/2014 03:13:39 PM, Helmut Jarausch wrote: > My attempt so far is > > gen_rhs(Ex,Vars)::= block([n:length(Ex),m:length(Vars)], > Exs:subst(makelist(Vars[i]=y[i,1],i,m),Ex),print(Exs), > MList:ev(makelist(makelist(Exs[i]),i,m)),print(MList), > buildq(MList,lambda([t,y],matrix(splice(MList)))) > )$ 
From: Kris Katterjohn <katterjohn@gm...>  20140419 17:03:13

Hi Helmut, On 04/19/2014 09:56 AM, Helmut Jarausch wrote: > Hi, > > I can't get it right: > > given > > g(x,[options]) := block([dout], > dout: assoc('dense_output,options,true), > return(7) > )$ > > fct(x,[options]):= block( > g(x,options) /* this doesn't work if options is an empty list */ > )$ > > g(1); > fct(1); > > gives the error message: > > assoc: every list element must be an expression with two arguments; > found: [[]] > > What am I missing? > I think something like fct(x,[options]) := apply('g, cons(x, options))$ will do what you want. This prevents the list "options" in fct from becoming the list "[options]" in g. > Many thanks for a hint, > Helmut Cheers, Kris Katterjohn 
From: Thomas D. Dean <tomdean@wa...>  20140419 16:18:42

On 04/19/14 07:56, Helmut Jarausch wrote: I looked at ??assoc and messed around with different arguments, found one that worked. Your definitions ended with an extra [] around the arguments to assoc. I tried fct(x,[options]):= block( g(x,flatten(options)) )$ fct(1,['dense_output, false]); Tom Dean 
From: Helmut Jarausch <jarausch@ig...>  20140419 14:56:16

Hi, I can't get it right: given g(x,[options]) := block([dout], dout: assoc('dense_output,options,true), return(7) )$ fct(x,[options]):= block( g(x,options) /* this doesn't work if options is an empty list */ )$ g(1); fct(1); gives the error message: assoc: every list element must be an expression with two arguments; found: [[]] What am I missing? Many thanks for a hint, Helmut 
From: Helmut Jarausch <jarausch@ig...>  20140419 13:34:13

On 04/19/2014 03:13:39 PM, Helmut Jarausch wrote: > Hi, > > I'm struggling with Maxima's macro feature. > > Given a list of expressions and a list of variables, say > [sin(a+b),cos(a*b)] and [a,b] > I'd like to convert this to a function mapping > y > matrix([sin(y[1,1]+y[2,1])],[cos(y[1,1]*y[2,1)]) > > My attempt so far is > > gen_rhs(Ex,Vars)::= block([n:length(Ex),m:length(Vars)], > Exs:subst(makelist(Vars[i]=y[i,1],i,m),Ex),print(Exs), > MList:ev(makelist(makelist(Exs[i]),i,m)),print(MList), > buildq(MList,lambda([t,y],matrix(splice(MList)))) > )$ > > Unfortunately, Maxima complains that MList is not a list. > What am I missing? > I've missed square brackets around MList in buildq(... Sorry for the noise, Helmut 
From: Helmut Jarausch <jarausch@ig...>  20140419 13:13:44

Hi, I'm struggling with Maxima's macro feature. Given a list of expressions and a list of variables, say [sin(a+b),cos(a*b)] and [a,b] I'd like to convert this to a function mapping y > matrix([sin(y[1,1]+y[2,1])],[cos(y[1,1]*y[2,1)]) My attempt so far is gen_rhs(Ex,Vars)::= block([n:length(Ex),m:length(Vars)], Exs:subst(makelist(Vars[i]=y[i,1],i,m),Ex),print(Exs), MList:ev(makelist(makelist(Exs[i]),i,m)),print(MList), buildq(MList,lambda([t,y],matrix(splice(MList)))) )$ Unfortunately, Maxima complains that MList is not a list. What am I missing? Many thanks for a hint, Helmut 
From: 本田康晃 <yasuaki.honda@gm...>  20140419 00:49:23

Dear Robert san, Barton san, maxima users, I just modified the code as suggested by Robert san, in Github at https://github.com/YasuakiHonda/qepmax As I could not repro the bug Barton san has encountered, I cannot guarantee this fixes the issue, but worth a try. Thanks and best regards, Yasuaki Honda, Chiba, Japan 20140416 0:41 GMT+09:00 Robert Dodier <robert.dodier@...>: > On 20140415, Barton Willis <willisb@...> wrote: > > > (defun $prepare_for_qepcad () > > (setf (get '%and 'strsym) '(#\ #\/ #\\ #\ )) ;; < GCL and CCL both > think something is wrong here > > (setf (get '%or 'strsym) '(#\ #\\ #\/ #\ )) > > Maybe the first and last characters want to be #\Space. Just guessing. > Maybe it's simpler and clearer to write > > (setf (...) (coerce " /\ " 'list)) > (setf (...) (coerce " \/ " 'list)) > > ?? > > best > > Robert Dodier > > > >  > Learn Graph Databases  Download FREE O'Reilly Book > "Graph Databases" is the definitive new guide to graph databases and their > applications. Written by three acclaimed leaders in the field, > this first edition is now available. Download your free book today! > http://p.sf.net/sfu/NeoTech > _______________________________________________ > Maximadiscuss mailing list > Maximadiscuss@... > https://lists.sourceforge.net/lists/listinfo/maximadiscuss > 