## 1500 Reputation

19 years, 104 days

## What is your version of Maple?...

@Ronan Maybe it is a version issue.

## Error....

@Ronan Instead of end, try end proc. Also did you get the `` in the ``(lcoeff(E))*normal(E/lcoeff(E)) ? Maybe you should change your input options in Options/Display/Input display to Maple Notation.

Also in
if type(E, `+`) then X := [op]('E') else X := ['E'] fi;
notice that E is not a variable, but the very expression evaluated as argument. Evaluating it further is not desired. We mean only to deconstruct it or to use it in a construction.

## Data....

Could you post the result of

`kk:=FFT(GenerateJaehne(n,1));`

## Vector expression....

@Carl Love The user may be working with a list/vector.

## No difference....

The only difference I can see between the plots is:
using option color=[red,red] in display produces a PLOT3D structure with 2 MESH structures with a COLOUR specification,
using option color=red in 2 tubeplots produces a PLOT3D structure with 2 MESH structures with a COLOR specification.
Both tubes are red and there are no black objects.

I am using Maple 2017.3.

## Precision....

If you use solution of the first system in the second, none of the equations verify unless you heavily reduce Digits. You are having precision issues.

## In that case:...

@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.

## Looks better with transparency....

@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]);

## Builtin Maple procedures....

@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.

## Thank You....

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

## Not a module....

@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?

## Another question....

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

## Unwith....

@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?

## minimize & timing....

@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.

 2 3 4 5 6 7 8 Last Page 4 of 19
﻿