In Maple outputs, long fraction bars occur quite frequently. A common example is of the type A(x)/x, where A(x) may be a complicated expression made up by standard functions, derivatives, integrals etc. in terms of x and some constants, denoted by names. Maple displays such an expression in terms of a long solidus and x as the denominator. This looks rather weird. A preferable display would be of the form x^-1 A(x) or A(x) multiplied by 1/x. I have unsuccessfully tried to achieve this but failed. Can this be done?

Download MPLTT.mw

Has anyone made a physical model to recreate the Intermediate Axis Theorem? This is also known as the Tennis Racket Theorem, or the Dzhanibekov Effect. The science Youtuber Veritasium has made a recent videos on this this topic. 

The video: https://www.youtube.com/watch?v=1VPfZ_XzisU

I'm interested in recreating the spinning and random flipping of the "T" tool using Multibody as seen in the above video. 

I have written the function V(R) in Maple like this:

"V(R) := D_e * (1 - exp(-a * (R - R_e)))^2"

Where D_e, a and R_e are constants but Maple evaluates them as variables. Then before the function I have now written:

"Parameters(D_e, a, R_e)" and even "constants := D_e, a, R_e" (if that helps)

I would like to find the limit as R approaches infinity, but Maple just substitutes R with ∞ in the function. The answer should just be D_e, and not "D_e * (1 - exp(-a * (∞ - R_e)))^2"

Thanks for any help out there :)

Dear Maple users

I have been looking in the Maple help menu for categorical plots or charts, and haven't been able to find an appropriate one. I hope someone can help me. I am looking for something like the following, which I have been drawing:

Regards,

Erik V.

У меня есть код для активации Maple, но я не знаю какой имя сервера которое у меня требует для активации.

Dear Users!
Hope everyone is fine here. I have some questions about the following code:

Sol := {u[1, 1, 1, 1] = 0.2754389666e-1, u[1, 1, 1, 2] = 0.1305849194e-1, u[1, 1, 1, 3] = 0.2886163307e-2, u[1, 1, 1, 4] = -0.7346547512e-3, u[1, 1, 2, 1] = 0.4659732849e-1, u[1, 1, 2, 2] = 0.1466736306e-1, u[1, 1, 2, 3] = 0.2615590961e-3, u[1, 1, 2, 4] = -0.2999417306e-2, u[1, 2, 1, 1] = 0.4659732850e-1, u[1, 2, 1, 2] = 0.1466736306e-1, u[1, 2, 1, 3] = 0.2615590934e-3, u[1, 2, 1, 4] = -0.2999417305e-2, u[1, 2, 2, 1] = 0.7816751150e-1, u[1, 2, 2, 2] = 0.1319905841e-1, u[1, 2, 2, 3] = -0.3594991974e-2, u[1, 2, 2, 4] = -0.6810219469e-2, u[2, 1, 1, 1] = 0.4277449264e-1, u[2, 1, 1, 2] = -0.7962732407e-2, u[2, 1, 1, 3] = -0.1373208839e-1, u[2, 1, 1, 4] = -0.2756504221e-2, u[2, 1, 2, 1] = 0.7104313232e-1, u[2, 1, 2, 2] = -0.2934293200e-1, u[2, 1, 2, 3] = -0.1500623941e-1, u[2, 1, 2, 4] = -0.3113543133e-2, u[2, 2, 1, 1] = 0.7104313230e-1, u[2, 2, 1, 2] = -0.2934293199e-1, u[2, 2, 1, 3] = -0.1500623942e-1, u[2, 2, 1, 4] = -0.3113543128e-2, u[2, 2, 2, 1] = .1180017068, u[2, 2, 2, 2] = -0.7162229544e-1, u[2, 2, 2, 3] = -0.8898045960e-2, u[2, 2, 2, 4] = -0.9223166732e-2};
My aim is to write all the entries in Sol like the following way

u[1, 1, 1, 1] := 0.2754389666e-1;

u[1, 1, 1, 2] := 0.1305849194e-1;

u[1, 1, 1, 3] := 0.2886163307e-2;

and so on. For this I used the following logic (op command)

for i from 1 by 1 while i <= 32 do

lhs(op(i, Sol)) := rhs(op(i, Sol))

end do;
But it cant work. Please help me to solve my matter. I shall be greatful to you for your positive response. Please take care and thanks in advance.

Special request

@acer @Carl Love @Kitonum @Preben Alsholm

Graphs for comparison for different values of silicon carbide graphs

The question:

Write a Maple code to find the sum of digits of the number 12^6^5, and then it returns the message ‘This number is divisible by 3’ if the sum is a multiple of 3. Otherwise, it returns either ‘This number is a prime number’ or ‘This number is neither prime nor divisible by 3’.  

I have already found the divisors and placed them on a list, now I want the loop code stating whether there is 3 or not in the list.

For given positive integers 𝑎 and 𝑏, there exist positive integers 𝑟 and 𝑠 (the so-called Bezout’s coefficients) so that 𝑔𝑐𝑑(𝑎,𝑏)=𝑟 𝑎+𝑠 𝑏. Using Euclidean algorithm, one can find these coefficients by using a forward and a backward substitution. Surf the web, let say this one https://brilliant.org/wiki/bezouts-identity/, or use any Discreet Mathematics textbook to find out how these coefficient can be computed using Euclidean algorithm. Now, write a code in Maple to compute Bezout’s coefficients for the numbers 18344 and 65208. 

What is the best way to plot integer value solutions to the eqaution 5*x+3*y=100 ?

with(plots):
implicitplot(5*x+3*y=100,x=0..20,y=0..20) - plots all values although I 'd like to see just integer solutions.

 I'd like to get all at most 15 vertices Non-isomorphic  connected  bipartite graphs. One way is to use the function NonIsomorphicGraphs(k, output = graphs, outputform = graph, restrictto = connected).

with(GraphTheory):

k:=8;
s1:=[NonIsomorphicGraphs(k,restrictto = connected,output=graphs,outputform=graph)]:
bipartitegraph:=select[flatten](x->IsBipartite(x)=true, s1):
nops(bipartitegraph);
But when k=9, it is slow, I doubted that the code 

By Checking out the encyclopedia，http://oeis.org/A033995 , we knew the following number of bipartite graphs datas of , at most 14, they are not many（the datas contain  no-connected conditions)

so I read the help document about  

awesome.

Ps： I know  in SageMath  we can get all bipartite graphs quikly even though n>=10  by  using the 

for g in graphs.nauty_geng('-c -b 10 -g'):
 But I hope it can be realized in Maple. 

Thanks!

Hello,

what is the commonly recomended way how to switch between maple and matlab symbolic engine at matlab. I am using Matlab R2019a + Maple 2019.1 with Maple toolbox for Matlab. After instalation of Maple toolbox for Matlab, the Matlab is able to use only (!!!) Maple symbolic engine. The only way I found to go back (to the Matlab symbolic engine) is by uninstall Maple toolbox and reset matlab path.

Is there any more flexible way how to switch between maple and matlab symbolic engine?

P.S. Sorry for asking, but the actual maple toolbox documentation is very brief and unclear...

I plot addition with VectorSumPlot, is there are a way to do it without this method? And how can I plot multiplication and substraction of vectors?

I have two input variables namely torque and speed. I need to find the input current for the given induction motor. I have written down the required equations in math mode. So, when I give a specific input i.e. torque is 30 Nm and speed is 2000 rpm i get the input current. Now I need to put in a for loop for the math mode i.e. i need output current dataset for 10% increment in torque from zero to full torque and 10% increment in speed from 0 to full load speed. I cant seem to find any resource to do that in maple. Could anyone help me out?