maple_matt_2

Ask a Question

Create a Post

One Badge

Member for: 13 years, 1 days

Contact maple_matt_2

MaplePrimes Activity

These are replies submitted by maple_matt_2

Thank you! I am still confused as ...

Answered: maple_matt_2 0

August 29 2012

0 0

Thank you! I am still confused as to why this happened. I literally copied and pasted the elements of the solution, as Maple displays them, ((1) in blue) from EQN when forming this expression. One would think that Maple would know its own code!

So I guess the rule is, whether copied and pasted or not, always go through and put a multiplication in anything whatever that is supposed to be a multiplication. This is a little bit of a PITA, but now I know.

Thank you! I am still confused as ...

Commented: maple_matt_2 0

August 29 2012

Follow up...

Commented: maple_matt_2 0

August 29 2012

I don't see my worksheet showing up, so I will try again.

Kinematics_2.mw

E[Typesetting:-delayDotProduct(pot, beam)*initial] := (1/2)*M[b]*g*L*sin(beta):

E[Typesetting:-delayDotProduct(kin, wheel)] := (1/2)*Iota[wheel]*omega[wheel]^2+(1/2)*M[w]*V[Typesetting:-delayDotProduct(Typesetting:-delayDotProduct(c, m), wheel)]^2:

E[Typesetting:-delayDotProduct(kin, collar)] := (1/2)*M[c]*V[c]^2:

E[Typesetting:-delayDotProduct(kin, beam)] := (1/2)*Iota[Typesetting:-delayDotProduct(Typesetting:-delayDotProduct(c, m), beam)]*omega[beam]^2+(1/2)*M[b]*V[Typesetting:-delayDotProduct(Typesetting:-delayDotProduct(c, m), beam)]^2:

Now with all of the components in terms of either θ or V_c we can solve.

M[c]*g*L*sin(beta)+(1/2)*M[b]*g*L*sin(beta) = (3/4)*M[w]*V[c]^2/tan(theta)^2+(1/2)*M[c]*V[c]^2+M[c]*g*L*sin(theta)+(1/6)*M[b]*V[c]^2*cos(theta)^2+(1/8)*M[b]*V[c]^2*(1+1/tan(theta)^2)+(1/2)*M[b]*g*L*sin(theta)

(1)

(2)

M[w] := 21:

(3)

(4)

evalf[20](sqrt((M[c]*g*L*sin(beta)+(1/2)*M[b]*g*L*sin(beta)-M[c]*g*L*sin(theta)-(1/2)*M[b]*g*L*sin(theta))/((3/4)*M[w]/tan(theta)^2+(1/2)*M[c]+(1/6)*M[b]*cos(theta)^2+(1/8)*M[b](1+1/tan(theta)^2))))