Preben Alsholm

13613 Reputation

22 Badges

19 years, 229 days

MaplePrimes Activity


These are replies submitted by Preben Alsholm

@mattfred I rather doubt that you can get NextZero without upgrading. But there are other ways of finding zeros.

@mattfred NextZero was not part of RootFinding in Maple 10, but was included in Maple 11 and later.

@mattfred NextZero was not part of RootFinding in Maple 10, but was included in Maple 11 and later.

@Alejandro Jakubi I notice that in your (interesting!) version y and z evaluate to the local x~, although it doesn't show up in your comment.

@Alejandro Jakubi I notice that in your (interesting!) version y and z evaluate to the local x~, although it doesn't show up in your comment.

@acer

Changing eval(L) to eval(L,2) keeps the assignment of z to y:

RemoveAllAssumptions:=proc() local A,Ls,L,Lc,indx;
    Ls:=map(convert,[anames('user')],string);
    L:=ListTools:-Enumerate([anames('user')]);
    Lc:=select(hastype,eval(L,2),`local`);
    if Lc=[] then NULL
    else
       indx:=map2(op,1,Lc);
       A:=[seq(Ls[i],i=indx)];
       unassign(op(map(parse,A)));
    end if
 end proc:


@acer

Changing eval(L) to eval(L,2) keeps the assignment of z to y:

RemoveAllAssumptions:=proc() local A,Ls,L,Lc,indx;
    Ls:=map(convert,[anames('user')],string);
    L:=ListTools:-Enumerate([anames('user')]);
    Lc:=select(hastype,eval(L,2),`local`);
    if Lc=[] then NULL
    else
       indx:=map2(op,1,Lc);
       A:=[seq(Ls[i],i=indx)];
       unassign(op(map(parse,A)));
    end if
 end proc:


What is k(x)?

@brian abraham It seems that I also still have problems. No clue why it worked several times yesterday.

I tried in Classic Worksheet Maple 14 a couple of times. There I saw no problem (using the original code). So it may be a Java problem.

@brian abraham It seems that I also still have problems. No clue why it worked several times yesterday.

I tried in Classic Worksheet Maple 14 a couple of times. There I saw no problem (using the original code). So it may be a Java problem.

@hirnyk If you ask for values (when x(0)=1, D(x)(0)=0) you get

> sol(.1);
Error, (in sol) cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up

@hirnyk If you ask for values (when x(0)=1, D(x)(0)=0) you get

> sol(.1);
Error, (in sol) cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up

I didn't experience any problem when trying your code.

Maple 14.01 Standard interface, Windows XP.

Algebraic:-RecursiveDensePolynomials seems to be undocumented. No help available?

Algebraic:-RecursiveDensePolynomials seems to be undocumented. No help available?

First 213 214 215 216 217 218 219 Last Page 215 of 229