Hi,

I asked a question before, how to shift subscript of u(i,j):

P: u[i,j] -->  u[i+1,j]

https://www.mapleprimes.com/questions/223136-How-To-Define-An-Operator

How about an arbitrary expression?

P: u[i,j]^2 v[i,j]+u[i-1,j]  -->  u[i+1,j]^2 v[i,j]+u[i,j]

thanks.

See below, why the difference + what is the distinction between the 2?  Notice that they yield different results with the is command.

Download sum_versus_Sum.mw

where i can change the value?

I'd like to find the harmonic mean of the lengths of the three altitudes of a triangle.  I believe this to be equal to the radius of the incenter of the triangle.  I haven't used the geometry package  much, but notice it has some interesting features like Harmonic mean. (Incidentally, it has a vertex, and vertices command, but these don't seem to be recognised in Maple 7 - not even in the Help section.)  I would normally tackle thissue  problem using coordinate geometry, and give a diagram of the triangle using the plots [display] command.  Id like some advice about the interactivity of commands in geometry and plots packages eg  can I find the coordinates of the base of an altitudemail using the geometry package?  There is an altitude command which gives the àltitude's equation.  For this the coding would be

:triangle(ABC, [point (A,0,0),point (B,,2,0), point (C,1,3)]:

altitude (hA1,A, ABC);

detail (hA1);

   I think I have answered my own question!  I see there is a DefinedAs command which would give me the coords.   Am I correct in thinking the geometry package is the best method of doing this.  Later I was hoping to display animation, to see how the Harmonic mean changes with varying different triangles.

Thanks for reading this and Happy New Year.

David  

Hallo,

I have a list of graphs made correctly with the package GraphTheory: g=[g[1],g[2],g[3]], where g[1], g[2] and g[3] are graph objects. GraphTheory[DrawGraph] inside a for-loop doesn't work. GraphTheory[DrawGraph](g) draws all graphs simultaneously. How can I draw the single graphs of the list successively when the number of members in g is a variable?

Thanks.

Hello everyone,

Compliment of the season. I received the error message while trying to solve some Pade approximant problem and try to find what could possibly be the error but could not.

Please, anyone with good informations on the possible solutions should help.

Thanks. The Link is below

 Error.mw

Hello.
Can I somehow print several matrices next to each other without getting the quotations marks printet too?
Attached what I currently have.

Download matrix_print_attempt.mw

 Hi,  

Is there a way of determining whether a function of two variables is continuous or not? Can we find the discontinuity points 

of such multivariable functions? (Considering the graphs of the function is not always helpful.)

Hi, I need to calculate some discrete variational problems, but it's a hard work just by hand.

Is there any toolboxes about the discrete variational computation? Or how to design a program to do that?

In particular, I need to realize the functions:

1. the linearized operator and the adjoint operator of some expressions.

       For example:

       the linearized operator of u(n,m+1)u(n+1,m) is u(n+1,m)Tm+u(n,m+1)Tn

       the adjoint operator is u(n+1,m-1)T^(-1)m+u(n-1,m+1)T^(-1)n,

       (The latter is just the discrete Euler operator.)

      Tm, Tn is the shift operator, T^(-1) is the inverse operator of T.

2. discrete Euler-Lagrange equation.

I am not familar with the maple, please help!

Thanks.

Hello

What is the fairest way to divide a shelf of books up between n people?

Partition_problem2.mw

Below is the output from test relation that seems contradictory.  All I did was swap the order of operation from summing an integral to taking the integral of the sum.  The summation and integration variables are independent so I would think the statement for S4 would yield a TRUE result.  Also, I got a FALSE return on a well known trig identity.

Am I missing something subtle or even obvious?

equivalence_discrepancy.mw

How do I introduce the first derivative of M when i<> k and aij when i <> j and aii in Maple?

How can i plot various 3 multiple graphs using Maple to Compare ADM, EXACT SOLUTION AND RKF45 using the table below:

Hello everyone.and complements

Please I am trying to obtain series expansion of the expression below in u but encounter difficulties particularly when b=0. I am very optimistic that when b=0 there will be a result not division by 0. Can I get help on the code?

Thank you in anticipation of your quick and positive responses and suggestions

# for k=2 CHEBY HYBRID WITH mu=(1-(1/2)*sqrt(2)))) AND v=(1+(1/2)*sqrt(2))))
restart:
omega:=u/h:
t:=(sum(a[j]*x^j,j=0..3)+a[4]*sin(omega*x)+a[5]*cos(omega*x)):
F:=diff(t,x):
G:=diff(t,x,x):
p1:=simplify(eval(t,x=q))=y[n]:
p2:=simplify(eval(t,x=q+(1-(1/2)*sqrt(2))*h))=y[n+mu]:
p3:=simplify(eval(t,x=q+h))=y[n+1]:
p4:=simplify(eval(t,x=q+(1+(1/2)*sqrt(2))*h))=y[n+v]:
p5:=simplify(eval(F,x=q+2*h))=f[n+2]:
p6:=simplify(eval(G,x=q+2*h))=g[n+2]:

vars:= seq(a[i],i=0..5):
Cc:=eval(<vars>, solve({p||(1..6)}, {vars})):
for i from 1 to 6 do
	a[i-1]:=Cc[i]:
end do:
Cf:=t:

K:=collect(combine(simplify(eval(Cf,x=q+2*h),size),trig),{y[n],y[n+mu],y[n+1],y[n+v],f[n+2], g[n+2]},factor):


Num := numer(K):
Den := denom(K):

N := 20:   # order of expansion
Num_N :=(convert(series(Num, u, N),polynom)):
Den_N := (convert(series(Den, u, N),polynom)):
b:=y[n+2]=(convert(series(Num_N/Den_N, u, N),polynom)):

eval(b,u=0); 

We have three vectors: position, velocity and accelleration

Then we calculate three unit vector of osculating plane and the center of curvature . Can you help me in creating a smart plot to show the idea

Es_1_1_2.mw

Thank's a lot and Regards