Hi all, is there a reliable way to hide/obfuscate the source code of a maple library file (*.mla) (e.g. if you want to redistribute it)?

From what I know, since it has to be into the archive, any not exported (or hidden) procedure can be easily viewed setting kernelopts(opaquemodules=false) or through LibraryTools:-Browse.

Hi all, how to write function to get cylic sum and symmetric sum

Example.

Thank you very much.

If I try to plot the function piecewise(x < -2, 2, -2 <= x and x <= 5, 2*x+5, 5 < x, 1-sqrt(x-5)) which is discontinuous, why does the plot is continuous?

Any suggestions.

Thanks

Can someone help with the simplification of the result of this code? I am sure the "qs" in the final result should not appear.

Thanking you in anticipation of your positive responses

#k=1
restart:
P:=sum(a[k]*x^k, k=0..2):
assume(alpha>0,alpha <= 1):
Q:=fracdiff(P,x,alpha);
e1:=simplify(eval(P, x=q))=y[n]:
e2:=simplify(eval(Q,x=q))=f[n]:
e3:=simplify(eval(Q,x=q+h^alpha))=f[n+1]:
var:=seq(a[i], i=0..2):
M:=e||(1..3):

Cc:=eval(<var>, solve(eval({M}),{var}) ):
for i from 1 to 3 do
	a[i-1]:=Cc[i]:
end do:
Cf:=P:
E:=collect(Cf, [y[n], f[n], f[n+1]], recursive):
print():
#y[n+1]=collect(simplify(simplify(expand(eval(Cf,x=q+h^alpha)),size)), [y[n],f[n],f[n+1]], factor);
y[n+1]=simplify(eval(Cf, x=q+h^alpha)):
collect(%, [y[n], f[n], f[n+1]], recursive);

I want to solve the following algebraic equation system using solve command. But, it gives only the trivial solution. I want to find a,b and c in terms of k. k is a constant here. Thanks in advance.

Input:

solve({-6*c+(3/2)*c^2-2*b-3*b*c+(3/2)*b^2-3*a*c+(k^2)*b-b+(3/2)*(a^2)+(k^2)*a-a=0,
-2*b-3*b*c+3*(b^2)-6*a*c+2*(k^2)*c-2*c-9*a*b+3*(k^2)*b-3*b+6*(a^2)+4*(k^2)*a-4*a=0,
(3/2)*(b^2)-3*a*c+(k^2)*c-c-9*a*b+3*(k^2)*b-3*b+9*(a^2)+6*(k^2)*a-a=0, 
-3*a*b+(k^2)*b-b+6*(a^2)+4*(k^2)*a-4*a=0, 
(3/2)*(a^2)+(k^2)*a-a=0},{a,b,c});

Output:

{a=0, b=0, c=0}

I want to solve an ODE of second order with Adams-Bashforth method.

It seems the solution has convergence for a small range of requested interval.

Please download the file from link below and made your comment on it.

Thank you for taking your time

https://ufile.io/f9a0e

When I input the the following command line in Maple 2018.1

 > Int(1/(1+sqrt(x)),x=0..1)=int(1/(1+sqrt(x)),x=0..1);

the output is 

>Int(1/(1+sqrt(x)), x = 0 .. 1) = MeijerG([[0, 0, 1/2], []], [[1/2, 0], [-1]], 1)/Pi

which is not the desired result!  How can I get the desired result like this

>2-ln(2)

Thanks a lot.

Goodday everyone,

Please, anyone with useful informations on the above stated error code should help.

Below is the attached file.

Error_invalid_subscript_selector.mw

Thanks in anticipation for your response

Please how do I add a number to column values in a matrix.

I needed to covert a column data representing temperatue values from celcius  to kelvin and I needed to add 273 to this column.

Thank you in advance.

What is a good way to generate a random, high degree polynomial with integer coefficients, that has a high number of real roots. Example a degree 800 with 600 real roots. I am not looking for a mul application.

I entered this function
f:=x->(4*x^2-4)^(4/5);

Then I entered f(0) and got (-4)^(4/5).

When I tried to approximate , I got -2.452480922+1.781831689*I

I am looking for the real number value, which is 3.031433 with my TI-83 calculator and here https://www.desmos.com/calculator/b1soxuhbri

How do I set it in maple so that x is assumed to be real in f(x) and all outputs are real.

Hello everyone. Below is the loop coding to plot the rectangles. 

This will give me  21 rectangles with 21 graphs. And how am I going to combine them(21 rectangles) in one single graph? Really appreciate your help. Thank you in advanced! :)

Hey and Thanks for your input.

Download function_evaluation_goes_wrong.mw

Am I doing something wrong?

I am trying to create a question that generates two complex numbers and asks for the product of the two complex numbers.

This is what I have so far in the algorithm box of the question creator but it doesn't give me the correct answer:

$a=5 + 20*I;
$b=4 - 12*I;
$ans= maple("evalc($a*$b)");

This is my first time using MapleTA. Any help would be appreciated.

Hi

I am having trouble in plotting the 3d plot of explicit expressions. Lets say

eq1:=f(z)

eq2:=g(z)

then how can I plot f(z) and g(z) together with z in 3d plot?

Thanks in advance

Regards

Sunit