Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

Dear experts

I am interested to solve the following equation numerically by Maple. I would appreciate it if you let me how I can do and what the boundary conditions and initial values are needed


eq:= diff(2*diff(eta(x,y,t),t)+3*eta(x,y,t)*diff(eta(x,y,t),x)+(1/3-1/epsilon/B)*diff(eta(x,y,t),x,x,x),x)+diff(eta(x,y,t),y,y)-1/sqrt(Pi*R)*int(diff(eta(x+zeta,y,t),x,x)/sqrt(zeta),zeta=0..t/epsilon)=0;
where

1) epsilon, B and r are constant

2) 1/epsilon/B is not equal to 1/3 at all

choosing lightmodel=none and shading=none, produces a dark grey grided surface
plot3d(x*y, x = 0 .. 10, y = 0 .. 10, lightmodel = none, shading = none)

adding the style=wireframe option gives a blank plot.  Grid probably white?  Changing style to patchnogrid the surface is indeed white. However chosing both shading and style options to none regardless of the lightmodel will produce a plot that appears empty.  Is this to be expected?

However, just the style=wireframe option produces a colored grided wireframe as to expect
plot3d(x*y, x = 0 .. 10, y = 0 .. 10, lightmodel = none, style = wireframe)

Dear users

All my recent questions are removed by "mapleprimes" automatically. who knows the reason?

Hello,

 

I am having problems with Maple. I am new to the software and I am looking to use it for tensors. I am working with the Alcubierre metric, for more details, click the images below.

https://i.imgur.com/OvBywO6.png

https://i.imgur.com/2D9Y73x.png

These images should provide more clarity with the metric. My problem is that in Maple, I have successfully entered the metric, however whenever I use for example the Christoffel command, it states that all the Christoffel symbols are equal to zero.

https://i.imgur.com/VRDQM8d.png

I believe the reason why this is happening is because I have not defined the functions properly. I should be getting an answer like the example in the last picture below.

https://i.imgur.com/tn8HpIE.png

Would anyone be able to assist me in this? I would appreciate it greatly.

 

Many thanks.

Each term of the following sequence is derived using the sum of all preceding terms following a simple algorithm. I have tried to code it but without success (keep getting error message "too many levels of recursion"). 

Definition is as follows:

a(0)=0, a(1)=1;  for n>=1,

a(n+2) = n + Sum{k=1..n+1} a(k). 
 

it starts: 0,1,2,5,11,23,47,95,191,767,1536,3071,6143...

(Looks like every prime term is of the form 3*2^m-1). 

Cann anyone suggest a solution?

Thanks,

David.

Hi,

While computing a simple sequence of numbers, I remarked a small difference between the result obtained with $ and with seq.

Digits:=20:
u:=proc(n) evalf(((n+1)/n)^(n+1)) end proc:
a:=[u(n)$n=1..10]:
b:=[seq(u(n),n=1..10)]:
a-b;

 

The result is:

 

[0., 0., -4.*10^(-19), 0., 0., 6.*10^(-19), -9.*10^(-19), 0., -3.*10^(-19), 0.]

I have no idea why there are nonzero values in the output. Does anyone have an explanation?

 

It seems I get the correct values if I quote the expression before $:

a:=['u(n)'$n=1..10]:

However, it's not clear to me why this makes a difference in evalf.

As the title says, I'd like to  divide Non-isomorphism  graphs of order 7   into 6 parts according  diameter of graph.

I write following codes:

restart:
with(GraphTheory):
for i from 1 to 7 do
D||i:=[]:
od:

prc:=NonIsomorphicGraphs(7,output=iterator,outputform=graph,restrictto = connected ):
graphmark := prc():                      
while graphmark <> FAIL  do               
    if Diameter(graphmark) = 1 then  
         D1:=[op(D1),graphmark]; 
      elif Diameter(graphmark) = 2 then
         D2:=[op(D2),graphmark];
      elif Diameter(graphmark) = 3 then
         D3:=[op(D3),graphmark];
      elif Diameter(graphmark) = 4 then
         D4:=[op(D4),graphmark];
      elif Diameter(graphmark) = 5 then
         D5:=[op(D5),graphmark];
      elif Diameter(graphmark) = 6 then
         D6:=[op(D6),graphmark];
      fi:                                
     graphmark:=prc():                 
end do:

But I think  conditional statements  if.. elif are used to many  in  above maple  codes,  it is not concise.  

How to write better?

 

 

Projection will not work with orientation. 

plot3d(x*y, x = 0 .. 10, y = 0 .. 10, projection = 0.2)
                                                        

plot3d(x*y, x = 0 .. 10, y = 0 .. 10, projection = 0.2, orientation = [55, 75, 0])
                                                

After setting:

Digits:=20;

result of:

evalhf(9.3653976306373904636884810627704*10^(-315));

is:

-9.0813464423699167205*10^(-315)

 

This looks nonsesnse. What is going on?

 

 

 

how to show which region of the plan belongs to the argument points between 0 and Pi/2 and the module points between 0 and 2 ?

Does anyone know how to open .mm file in Maple, as well as using the program or function in .mm file in Maple? Many thanks.

Hello colleagues,

I would like to get a suggestion on how to utilize an existing `simplify` function or to define an operator, which allows the following simplification:

O(x^n)/x = O(x^(n - 1))

— Alexander

Hello

I need to test a huge amount of subsets and for doing that I was thinking of using combinat:-subset, since it avoids allocating memory for all subsets.  The problem with subset for my specific application is that it generates sets with all possible sizes and I just need subsets with a chosen number of elements.  Can that be done in maple?  

Many thanks

Ed

 

I have a plot of points in a graphical plot on the domain (x,y).  At each point xi (i=1..N) , there is a numerical value yi = S(xi) from which I plot a series of points (xi, S(xi)) in the (x,y) domain.     

Each point (xi,yi) represents a transient plot of two variables u(x,t) and v(x,t) in a plot file.  Is it possible to define a graph of the points (xi, S(xi)), such that clicking on any such point in the graph opens up a graphical file which is parameterised by (xi, S(xi))?

Would welcome help on this...

Melvin

Hi, 

when running a for do cycle the first two solutions are exact the same numbers, which is not correct. Can someone plesa help me fix this problem?

Thanks a lot.


 

restart

tmin:=10: #°C

tmax:=70: #°C

Tmin:=tmin+273.15:

Tmax:=tmax+273.15:

T:='T':

i:=0:

 

for T from Tmin by 2 to Tmax+1.25 do
i:=i+1:
a12:=2305.28444347652 - 9.14490843016421*T + 0.00680052257590234*T^2:
a21:=-6665.24838284836 + 46.0897018087247*T - 0.0694991633494123*T^2:
alfa:=0.3:
x2:=1-x1:
lng1:=x2^2*(tau21*(G21/(x1+x2*G21))^2+tau12*(G12/((x2+x1*G12)^2))):
lng2:=x1^2*(tau12*(G12/(x2+x1*G12))^2+tau21*(G21/((x1+x2*G21)^2))):
G12:=exp(-alfa*tau12):
G21:=exp(-alfa*tau21):
tau12:=a12/T:
tau21:=a21/T:
lnga1:=subs(x1=xa1,lng1):
lngb1:=subs(x1=xb1,lng1):
lnga2:=subs(x1=xa1,lng2):
lngb2:=subs(x1=xb1,lng2):
r1:=lnga1+ln(xa1)=lngb1+ln(xb1):
r2:=lnga2+ln(1-xa1)=lngb2+ln(1-xb1):
r:=fsolve({r1,r2},{xa1=0..0.22,xb1=0.22..1}):
assign(r):
xA1[i]:=xa1: xB1[i]:=xb1:
print(i,T,xA1[i],xB1[i]);
unassign('r1','r2','r','xa1','xb1'):
od:

1, 283.15, 0.4086195757e-1, .7650860222

 

2, 285.15, 0.4086195757e-1, .7650860222

 

3, 287.15, 0.4109304612e-1, .7564109743

 

4, 289.15, 0.4094687104e-1, .7455613500

 

5, 291.15, 0.4092946881e-1, .7345259571

 

6, 293.15, 0.4103899093e-1, .7233142804

 

7, 295.15, 0.4127502108e-1, .7119337099

 

8, 297.15, 0.4163857511e-1, .7003892047

 

9, 299.15, 0.4213210541e-1, .6886831535

 

10, 301.15, 0.4275956094e-1, .6768151230

 

11, 303.15, 0.4352648605e-1, .6647816285

 

12, 305.15, 0.4444014482e-1, .6525760020

 

13, 307.15, 0.4550971743e-1, .6401880864

 

14, 309.15, 0.4674655982e-1, .6276039487

 

15, 311.15, 0.4816452203e-1, .6148056135

 

16, 313.15, 0.4978038925e-1, .6017705621

 

17, 315.15, 0.5161445760e-1, .5884711603

 

18, 317.15, 0.5369126350e-1, .5748739966

 

19, 319.15, 0.5604059678e-1, .5609387793

 

20, 321.15, 0.5869882131e-1, .5466171048

 

21, 323.15, 0.6171072215e-1, .5318505354

 

22, 325.15, 0.6513208559e-1, .5165679944

 

23, 327.15, 0.6903339246e-1, .5006820935

 

24, 329.15, 0.7350533414e-1, .4840835134

 

25, 331.15, 0.7866732744e-1, .4666324128

 

26, 333.15, 0.8468127263e-1, .4481446382

 

27, 335.15, 0.9177527543e-1, .4283678555

 

28, 337.15, .1002878317, .4069372077

 

29, 339.15, .1107594115, .3832836608

 

30, 341.15, .1241550103, .3564111567

 

31, 343.15, .1425634130, .3241972432

(1)

 


 

Download lle.mw

lle.mw

First 555 556 557 558 559 560 561 Last Page 557 of 2217