Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

What is the problem with the initialconsiditions that caused this error?

"Error, (in dsolve/numeric/DAE/initial) missing initial conditions for the following: {Integer}"

Thanks.

 Dear all

Is there a nice idea to determine the Lyapunov function of the following system

Lyapunov_function.mw

Some parameters used in the code:

b fixed parameter

a any parameter in R

Many thanks for your help

 

 

I was trying to learn more about the commands in this package and found it to be someone non satisfying:


 

Download sockets_strangeness.mw

 

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

 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!

 

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

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.

Is Maple capable of printing functional html links? That is can a Maple code output an html link that actually works?

Hi all;

I need to compute the stabilizing feedback for the system of nonlinear ODEs

stabilizing_Feedback.mw

 

Many thanks for your help

I tried to solve the following equation to find an explicit expression for x in terms of n. But the answer is a long relation in terms of RootOf and _Z. 

 

(1/4)*((-x^2+1)*(-4*Pi*(x^2-1)+n*(x^4-2*x^2+5))*cosh(n*x)*sinh(Pi*x)+sinh(n*x)*((-x^2+1)*(-4*n*(x^2-1)+Pi*(x^4-2*x^2+5))*cosh(Pi*x)-2*x*(x^4-2*x^2-3)*sinh(Pi*x)))/(x^2-1)^2=0

 

Any comment is welcomed.

F(0) := a; F(1) := b; F(2) := c; F(3) := d

for k from 0 to 1 do F(k+4) := -(N[1]*G(k)+Re*(sum(F(k-m)*(m+1)*(m+2)*(m+3)*F(m+3), m = 0 .. k))-Re*(sum((k-m+1)*F(k-m+1)*(m+1)*(m+2)*F(m+2), m = 0 .. k)))/((1+N[1])*(k+1)*(k+2)*(k+3)*(k+4)) end do

How to plot a graph for this equation with different values of N_1 and Re number

Dear Users!

Hoped everyone fine here. I have three main questions regarding the maple code given bellow:

restart; with(LinearAlgebra); with(plots);

alpha := 1; beta := 1; theta := 1/2;

UU := sinh(x)*sinh(y)*sinh(z)*exp(-1.*t);

NN := 3; L := 0; R := 1; T := 1; N := NN; Mx := NN; My := NN; Mz := NN; `Δx` := (R-L)/Mx; `Δy` := (R-L)/My; `Δz` := (R-L)/Mz; `Δt` := (R-L)/N;

kappa[1] := 1; kappa[2] := 2/x^2; kappa[3] := 1/x^2; kappa[X] := x^2+y^2+z^2+1; kappa[Y] := x^2+y^2+z^2+1; kappa[Z] := x^2+y^2+z^2+1; kappa[4] := 0; NL := 3;

ics := [seq(seq(seq([u[i, j, k, 0] = eval(UU, [x = i*`Δx`, y = j*`Δy`, z = k*`Δz`, t = 0]), u[i, j, k, -1] = eval(u[i, j, k, 1]-2*`Δt`*(eval(diff(UU, t), t = 0)), [x = i*`Δx`, y = j*`Δy`, z = k*`Δz`, t = 0])][], i = 0 .. Mx), j = 0 .. My), k = 0 .. Mz)];

bcs := [seq(seq(seq([u[0, j, k, n] = eval(UU, [x = 0, y = j*`Δy`, z = k*`Δz`, t = n*`Δt`]), u[Mx, j, k, n] = eval(UU, [x = L, y = j*`Δy`, z = k*`Δz`, t = n*`Δt`])][], j = 0 .. My), k = 0 .. Mz), n = 1 .. N), seq(seq(seq([u[i, 0, k, n] = eval(UU, [x = i*`Δx`, y = 0, z = k*`Δz`, t = n*`Δt`]), u[i, My, k, n] = eval(UU, [x = i*`Δx`, y = L, z = k*`Δz`, t = n*`Δt`])][], i = 1 .. Mx-1), k = 0 .. Mz), n = 1 .. N), seq(seq(seq([u[i, j, 0, n] = eval(UU, [x = i*`Δx`, y = j*`Δy`, z = 0, t = n*`Δt`]), u[i, j, Mz, n] = eval(UU, [x = i*`Δx`, y = j*`Δy`, z = L, t = n*`Δt`])][], i = 1 .. Mx-1), j = 1 .. My-1), n = 1 .. N)];
Sol := {u[1, 1, 1, 1] = 0.2366497936e-1, u[1, 1, 1, 2] = 0.7589975856e-2, u[1, 1, 1, 3] = 0.6029906475e-3, u[1, 1, 2, 1] = 0.3778786317e-1, u[1, 1, 2, 2] = 0.7126415819e-2, u[1, 1, 2, 3] = -0.1197885714e-2, u[1, 2, 1, 1] = 0.3778786315e-1, u[1, 2, 1, 2] = 0.7126415820e-2, u[1, 2, 1, 3] = -0.1197885718e-2, u[1, 2, 2, 1] = 0.6038763054e-1, u[1, 2, 2, 2] = 0.4264591907e-2, u[1, 2, 2, 3] = -0.3509477851e-2, u[2, 1, 1, 1] = 0.3171958616e-1, u[2, 1, 1, 2] = -0.1327161715e-1, u[2, 1, 1, 3] = -0.4628647419e-2, u[2, 1, 2, 1] = 0.4979852397e-1, u[2, 1, 2, 2] = -0.3060811899e-1, u[2, 1, 2, 3] = -0.344914876e-4, u[2, 2, 1, 1] = 0.4979852397e-1, u[2, 2, 1, 2] = -0.3060811898e-1, u[2, 2, 1, 3] = -0.3449150010e-4, u[2, 2, 2, 1] = 0.7882396741e-1, u[2, 2, 2, 2] = -0.6192340018e-1, u[2, 2, 2, 3] = 0.1156615222e-1}

Using set of points given in ics, bcs and Sol

1. I want to contruct a vector at any time level (by fixing fourth suffix like u[i,j,k,n]) for i = 0..Mx,j=0..My,k=0..Mz and then find its L2 and L[infinity] norms.

2. Next I want contruct a vector by fixing two suffixes like u[i,j,k,n]) for i = 0..Mx,j=0..My and plot a surface in 3D

3. Finally I want to construct a vector by fixing three suffixes like u[i,j,k,n]) for i = 0..Mx, and plot a curve in 2D.

I'm waiting for your positive respone. I shall be very thankfull to you in advance.

Special request to:
@acer @Carl Love @Kitonum @Preben Alsholm

Hi everyone, I have a mechanical problem, I solved it using hybrid method (differential transformation method for time and finite difference method for space) I need some help please.

How do i pipe maple output to the clipboard and vice versa (assigning clipboard content to a variable declared in a maple worksheet)?

  1. The member() function doesn't find the value in a table if that value is associated with the key (aka index)  '0'
  2. Doesn't seem to matter if the table is created explicitly (ie by calling table()) or implicitly (ie by simple indexed assignment)
  3. member() doesn't seem to have the same issue with a zero-based Array()
  4. I'm pretty sure that this is a bug, but I'd like some opinions before I report it
  5. This behaviour has been around for a while: same thing happens all the way back to Maple 18. (I can't check anything earlier)

Check the ouput of member(10,t1) in the attached

  restart:

  interface(version);

`Standard Worksheet Interface, Maple 2019.1, Windows 7, May 21 2019 Build ID 1399874`

(1)

#
# Explicit table creation: same thing
# happens if table is created "implicitly"
#
  t1:=table([0=10, 1=12]);
  member(10,t1);
  member(12,t1);

table( [( 0 ) = 10, ( 1 ) = 12 ] )

 

false

 

true

(2)

#
# Zero-based Array
#
  A:=Array(0..1, [10, 12]);
  member(10,A);
  member(12,A);

Array(%id = 18446744074528920750)

 

true

 

true

(3)

 

Download memberProp.mw

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