Christian Wolinski

MaplePrimes Activity


These are replies submitted by Christian Wolinski

@acer You can use this:

h := proc(g) proc(a) option operator, arrow; proc(b) option operator, arrow; g(a, b); end; end; end;
g:=unapply(a/b, a, b);
f:=h(g);
f:=h(eval(g));
f:=h(unapply(a/b, a, b));


Though the body will not display the formula used to make g, just letter g or its definition, depending what you submitted.

@Carl Love Strangely thickness has to be type nonnegint with my version of Maple.

restart:
Digits:= 15:
V:= [x,y,z]:
eqs:= diff~(V(t), t)=~ [35*(y-x), -x*z-7*x+28*y, x*y-3*z](t);
sol:= dsolve({eqs[], (V(0)=~ V||~0)[]}, numeric, maxfun= -1, parameters= V||~0);
sol(parameters= ['rand(0.0..1.)()' $ 3]);
plots:-odeplot(sol, V(t), t= 0..50, numpoints= 15000, thickness= 0,transparency=0.8, axes=normal,
axis[1]=[location=origin,thickness=0], axis[2]=[location=origin,thickness=0], axis[3]=[location=origin,thickness=0],
scaling=unconstrained, orientation=[-45, 45, 0]);

 

@Carl Love Thank You. I never expected anything like overload in Maple. Considering how poor this implement is your tool is very useful. What I am trying to do is to ensure that my code is using default, builtin Maple procedures for operations like:

:=, +, -, *, /, ^
@, @@,
[], {},
if, ifelse

and anything I use commonly. I was hoping to be able to use the "use in end use" clause, but nothing like that exists in Maple.

@Preben Alsholm I believe this is the closest we can get to the sought form.

@Carl Love This wont work with:

main:= ():
main:-`+`(1, 1.1);
use main in 1+1.1 end use;


main is not a module.

@Preben Alsholm Thank you. How does one do this :-`+`(1,1.1); using the use ... in ... end? Does the unnamed module in ":-" have a proper name I can use?

@Carl Love How do I locate operators or procedures that had been overloaded?

@Carl Love I do not see what you mean. Are you telling me to use unwith?

MyOperations := module() option package;  export `+`;
    `+` := proc(a::integer, b::float) option overload;
        a + F(b);;
    end proc;
end module:
with(MyOperations);
1+1.1;
unwith(MyOperations);
1+1.1;


I can do this because this is my code. What about codes that are not mine?

@Carl Love I have Maple 2017.3 and I was using minimize(F, z, location) and minimize(F, z). Neither completes. What about your version of Maple? Honestly, I was not expecting solve to work any better.

@jm@france-paris.org I am not trying to use goto. I never use it. I dug it up for a way to test the STOP button. Often I lose sessions because STOP button does not accomplish.

@C_R My Maple 2017 does not stop when I use the stop button repeatedly. That is why I ask. Perhaps there is config options to consider.

@Carl Love I wrote this in Maple 5.4. There is only ilog10 in it.

@May You can replace ilog[2](n) with a recursive procedure L2:

L2:=proc(n) if n=1 then 0 elif n>1 then 1+procname(iquo(n,2)) else 'procname(args)' fi end;

OR You can replace 2^ilog[2](n) with L2P:

L2P:=proc(n) if n=1 then 1 elif n>1 then 2*procname(iquo(n,2)) else 'procname(args)' fi end;

then

J:=(n->(2*(n-L2P(n))+1));

Mission accomplished.

@Rouben Rostamian  At last a clear presentation.

@smithss Looking at your original image:

C:=black, red, yellow, pink, brown, purple, blue, green, orange;
L:=[[1, 1], [2, 1], [3, 1], [4, 1], [5, 1], [6, 1], [7, 1]], [[1, 2], [2, 2], [3, 2], [4, 2], [5, 2], [6, 2], [7, 2]], [[1, 3], [4, 3], [5, 3], [7, 3], [1, 4], [4, 4], [5, 4], [7, 4]], [[2, 3], [3, 3], [6, 3], [2, 4], [3, 4], [6, 4]], [[1, 5], [3, 5], [5, 5], [7, 5], [1, 6], [3, 6], [5, 6], [7, 6]], [[2, 5], [4, 5], [6, 5], [2, 6], [4, 6], [6, 6]], [[1, 7], [2, 7], [7, 7], [1, 8], [2, 8], [7, 8], [1, 9], [2, 9], [7, 9]], [[3, 7], [5, 7], [3, 8], [5, 8], [3, 9], [5, 9]], [[4, 7], [6, 7], [4, 8], [6, 8], [4, 9], [6, 9]];

plots[display](seq(seq(plots[textplot]([[op(i),op(j, [C])]],color=op(j,[C])),i=op(j,[L])),j=1..nops([C])));

 

Is there a problem here?

I suspect you want to permute points in each vertical line, so each horizontal line does not have the same color twice.

1 2 3 4 5 6 7 Last Page 1 of 16