MaplePrimes Questions

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?

When I use block of 'if' in procedure Work I see empty graph. If there are no 'if' everything works properly

 

with(Maplets);
with(Elements);
with(Tools);
with(plots):
work := proc() local f, k, x0, y0, result, l;
l := Get(L::algebraic);
x0 := Get(X::algebraic);
y0 := Get(Y::algebraic);
result := subs(x = x0, l);
f := plot(l);
k := plots:-pointplot([x0, y0]);
plots[plots:-display]({f, k});

 

THESE BLOCK OF 'if'
if result = y0 then Set(res = "Belongs");
elif y0 < result then return Set(res = "Above");
elif result < y0 then return Set(res = "Below");
end if;


end proc;

 

mpt := Maplet(Window("Test", [[Plotter[f]()],
["Line eq", TextField[L]()],
["X ", TextField[X]()],
["Y ", TextField[Y]()],
["Result ", TextField[res](editable = false)],
[Button("Результат", Evaluate(f = 'work()')), Button("OK", Shutdown([res]))]]));


Display(mpt);

 

With block of 'if'

Without block of 'if'

I am thinking of running maple in google cloud. Does Maplesoft available in google cloud

Hi.

Im working with GRtensor iii package for Maple.

The goal is to obtain values of specific product of the Ricci tensor and scalar function in FRW spacetime together with second order covariant derivative acting on this product. .

grdef(

After i defined general 2 covariant derivatives acting on that product

 grdef( 

I have errors when i want to define contracted forms of this expression/tensor:

grdef(

which should be scalar quantity (fY*Rab );ab

grdef(

and this should have only 2 lower indices ac

Hovewer i obtain errors for both cases
Error, (in grtensor:-grdef) lhs/rhs index conflict.

grtensor_v2.mw

If I know the direction of up and down

how to control normal distribution to fill in missing data to the direction I want in maple?

just like fill in missing pixel in bitmap file.

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