Carl Love

Carl Love

28070 Reputation

25 Badges

13 years, 31 days
Himself
Wayland, Massachusetts, United States
My name was formerly Carl Devore.

MaplePrimes Activity


These are replies submitted by Carl Love

I can't view your image. Please upload a worksheet, not an image.

The diff_table is symmetric, so it won't let you control the order of the derivatives: F[x,y] is identical to F[y,x]. Look closely at the order that it places the derivatives:

lprint(F[x,y]);
diff(diff(f(x, y, w, z, a, b), x), y)
lprint(F[x,b]);
diff(diff(f(x, y, w, z, a, b), b), x)

In the first case the F[x] is an integral part of the expression, and hence it can be substituted. In the second case it is not an integral part of the expression, and hence it cannnot be substituted.

@Bendesarts Here are my results. Download the attached worksheet and run it on your system.


 

restart

kernelopts(version);

`Maple 16.00, X86 64 WINDOWS, Sep 16 2012, Build ID 773592`

(1)

constants := (`minus`({constants}, {gamma}))[]:

P_1_0 := Matrix([`<,>`(cos(gamma(t)), -sin(gamma(t)), 0), `<,>`(sin(gamma(t)), cos(gamma(t)), 0), `<,>`(0, 0, 1)])

P_1_0 := Matrix(3, 3, {(1, 1) = cos(gamma(t)), (1, 2) = sin(gamma(t)), (1, 3) = 0, (2, 1) = -sin(gamma(t)), (2, 2) = cos(gamma(t)), (2, 3) = 0, (3, 1) = 0, (3, 2) = 0, (3, 3) = 1})

(2)

AG1_R1 := `<,>`((1/2)*r, 0, 0)

AG1_R1 := Vector(3, {(1) = (1/2)*r, (2) = 0, (3) = 0})

(3)

AG1_R0 := simplify(P_1_0.AG1_R1)

AG1_R0 := Vector(3, {(1) = (1/2)*cos(gamma(t))*r, (2) = -(1/2)*sin(gamma(t))*r, (3) = 0})

(4)

V_G1_R0 := map(diff, AG1_R0, t)

V_G1_R0 := Vector(3, {(1) = -(1/2)*sin(gamma(t))*(diff(gamma(t), t))*r, (2) = -(1/2)*cos(gamma(t))*(diff(gamma(t), t))*r, (3) = 0})

(5)

``

``


Download gamma.mw

@Bendesarts Here are my results. Download the attached worksheet and run it on your system.


restart:

kernelopts(version);

`Maple 16.02, X86 64 WINDOWS, Nov 18 2012, Build ID 788210`

constants:= ({constants} minus {gamma})[]:

`evalf/gamma`:= proc() end proc:

`evalf/constant/gamma`:= proc() end proc:

unprotect(gamma);

P_1_0:=Matrix([<cos(gamma(t)),-sin(gamma(t)),0>,<sin(gamma(t)), cos(gamma(t)),0 >,<0, 0, 1>]);

AG1_R1:=<(1/2)*r, 0, 0>;

AG1_R0:=simplify(P_1_0.AG1_R1);

V_G1_R0:=map(diff, AG1_R0, t);

 

P_1_0 := Matrix(3, 3, {(1, 1) = cos(gamma(t)), (1, 2) = sin(gamma(t)), (1, 3) = 0, (2, 1) = -sin(gamma(t)), (2, 2) = cos(gamma(t)), (2, 3) = 0, (3, 1) = 0, (3, 2) = 0, (3, 3) = 1})

AG1_R1 := Vector(3, {(1) = (1/2)*r, (2) = 0, (3) = 0})

AG1_R0 := Vector(3, {(1) = (1/2)*cos(gamma(t))*r, (2) = -(1/2)*sin(gamma(t))*r, (3) = 0})

V_G1_R0 := Vector(3, {(1) = -(1/2)*sin(gamma(t))*(diff(gamma(t), t))*r, (2) = -(1/2)*cos(gamma(t))*(diff(gamma(t), t))*r, (3) = 0})

 


Download gamma.mw

Physics is not listed at ?index,threadsafe , so it must be considered unsafe.

@Bendesarts It works for me in Maple 16. What error are you getting?

Note that MatrixVectorMultiply(A, B) can be shortened to simply A.B

@Bendesarts It works for me in Maple 16. What error are you getting?

Note that MatrixVectorMultiply(A, B) can be shortened to simply A.B

@Bendesarts Would you please show me an example of it not working? With the above commands, I am able to do diff(gamma(t), t) and simplify(gamma(t)) with no problem.

@Bendesarts Would you please show me an example of it not working? With the above commands, I am able to do diff(gamma(t), t) and simplify(gamma(t)) with no problem.

There is no attached file on your question.

@J4James Sorry, I didn't notice the attached file. I got it now.

What is it that the output doesn't match? Can you show a graph of the alternative?

It's an interesting problem. The simplified form that you got with solve andsubs contains sqrt(s[4]), even though the expressions to be simplified and the side relations are purely polynomial. The simplify-with-side-relations will never introduce sqrt like that. There may be some options though. I haven't been able to get it to work yet, but there may be a way where you change s[4] to s[4]^2.

Thanks for the addition. I had stretched out the computation for pedagogical reasons---to emphasize the linear algebra---thinking that the OP was taking a course in it.

Thanks for the addition. I had stretched out the computation for pedagogical reasons---to emphasize the linear algebra---thinking that the OP was taking a course in it.

First 598 599 600 601 602 603 604 Last Page 600 of 709