Wolfram Cloud Document

Thesearethe8differntialequations(ifiuse8shapefunctions)forthegeneralizedcoordinates

[t]to

[t]ASYOUCANSEE,THISWORKSFINE!

In[]:=

ListDgl8={-129.006137732798`Sin[334.7356174047985`t]+16038.147354412993`

[t]+8019.073677207725`

[t]+6961.710838517229`

[t]+6433.029419170023`

[t]+6085.362833097541`

[t]+5828.203660787876`

[t]+5627.085115515234`

[t]+5464.773786742095`

[t]+0.12299999999999997`

′′

[t]+0.06149999999999988`

′′

[t]+0.035142857142857226`

′′

[t]+0.021964285714285738`

′′

[t]+0.014642857142857091`

′′

[t]+0.010250000000000066`

′′

[t]+0.0074545454545454`

′′

[t]+0.005590909090909075`

′′

[t]0,-64.50306886639892`Sin[334.7356174047985`t]+8019.073677206336`

[t]+12830.008260286922`

[t]+12301.32684094079`

[t]+11550.385255502828`

[t]+10889.951086133398`

[t]+10344.260387403454`

[t]+9896.079764234863`

[t]+9525.500273098965`

[t]+0.0615`

′′

[t]+0.03514285714285714`

′′

[t]+0.021964285714285714`

′′

[t]+0.014642857142857124`

′′

[t]+0.010250000000000037`

′′

[t]+0.007454545454545436`

′′

[t]+0.005590909090909091`

′′

[t]+0.004300699300699318`

′′

[t]0,-36.656551732634455`Sin[334.7356174047985`t]+6961.710838516545`

[t]+12301.326840942595`

[t]+14022.914961281625`

[t]+14397.108145685284`

[t]+14318.736070694373`

[t]+14083.571128609241`

[t]+13802.756401830295`

[t]+13520.571185562003`

[t]+0.03514285714285714`

′′

[t]+0.021964285714285714`

′′

[t]+0.014642857142857124`

′′

[t]+0.010250000000000037`

′′

[t]+0.007454545454545436`

′′

[t]+0.005590909090909091`

′′

[t]+0.004300699300699318`

′′

[t]+0.003379120879120845`

′′

[t]0,-22.733293165752244`Sin[334.7356174047985`t]+6433.029419171642`

[t]+11550.385255508896`

[t]+14397.108145690378`

[t]+15694.295645717299`

[t]+16267.381548618549`

[t]+16480.82839766756`

[t]+16509.967514004966`

[t]+16444.178366731503`

[t]+0.021964285714285714`

′′

[t]+0.014642857142857124`

′′

[t]+0.010250000000000037`

′′

[t]+0.007454545454545436`

′′

[t]+0.005590909090909091`

′′

[t]+0.004300699300699318`

′′

[t]+0.003379120879120845`

′′

[t]+0.0027032967032967203`

′′

[t]0,-15.02696945487861`Sin[334.7356174047985`t]+6085.362831948756`

[t]+10889.951086136134`

[t]+14318.736070694926`

[t]+16267.381548612495`

[t]+17397.880350381078`

[t]+18054.639540893724`

[t]+18428.607549193897`

[t]+18629.97845286259`

[t]+0.014642857142857124`

′′

[t]+0.010250000000000037`

′′

[t]+0.007454545454545436`

′′

[t]+0.005590909090909091`

′′

[t]+0.004300699300699318`

′′

[t]+0.003379120879120845`

′′

[t]+0.0027032967032967203`

′′

[t]+0.0021964285714285714`

′′

[t]0,-10.429113172009295`Sin[334.7356174047985`t]+5828.203660786874`

[t]+10344.26038740584`

[t]+14083.571128609183`

[t]+16480.82839766034`

[t]+18054.639540892793`

[t]+19102.808844437823`

[t]+19807.616279822425`

[t]+20283.79973727325`

[t]+0.010250000000000037`

′′

[t]+0.007454545454545436`

′′

[t]+0.005590909090909091`

′′

[t]+0.004300699300699318`

′′

[t]+0.003379120879120845`

′′

[t]+0.0027032967032967203`

′′

[t]+0.0021964285714285714`

′′

[t]+0.0018088235294117516`

′′

[t]0,-7.5222261315258265`Sin[334.7356174047985`t]+5627.085115509573`

[t]+9896.079764229798`

[t]+13802.756401820458`

[t]+16509.96751398605`

[t]+18428.60754918051`

[t]+19807.616279809037`

[t]+20810.86977714626`

[t]+21548.654009568505`

[t]+0.007454545454545436`

′′

[t]+0.005590909090909091`

′′

[t]+0.004300699300699318`

′′

[t]+0.003379120879120845`

′′

[t]+0.0027032967032967203`

′′

[t]+0.0021964285714285714`

′′

[t]+0.0018088235294117516`

′′

[t]+0.0015073529411764874`

′′

[t]0,-5.597559240622573`Sin[334.7356174047985`t]+5464.773801028572`

[t]+9525.500273096026`

[t]+13520.571185554669`

[t]+16444.178366715205`

[t]+18629.97845285246`

[t]+20283.799737262772`

[t]+21548.65400957316`

[t]+22526.08801129856`

[t]+0.005590909090909091`

′′

[t]+0.004300699300699318`

′′

[t]+0.003379120879120845`

′′

[t]+0.0027032967032967203`

′′

[t]+0.0021964285714285714`

′′

[t]+0.0018088235294117516`

′′

[t]+0.0015073529411764874`

′′

[t]+0.0012693498452012453`

′′

[t]0};

NDSolve[{ListDgl8,Table[

[0]0,{i,1,8,1}],Table[

'[0]0,{i,1,8,1}]},Table[

[t],{i,1,8,1}],{t,0,0.2},MaxSteps∞]

Out[]=



[t]InterpolatingFunction

Domain: {{0.,0.1}}

Output: scalar

[t],

[t]InterpolatingFunction

Domain: {{0.,0.1}}

Output: scalar

[t],

[t]InterpolatingFunction

Domain: {{0.,0.1}}

Output: scalar

[t],

[t]InterpolatingFunction

Domain: {{0.,0.1}}

Output: scalar

[t],

[t]InterpolatingFunction

Domain: {{0.,0.1}}

Output: scalar

[t],

[t]InterpolatingFunction

Domain: {{0.,0.1}}

Output: scalar

[t],

[t]InterpolatingFunction

Domain: {{0.,0.1}}

Output: scalar

[t],

[t]InterpolatingFunction

Domain: {{0.,0.1}}

Output: scalar

[t]

Quit[]

Thesearethe9differntialequations(ifiuse9shapefunctions)forthegeneralizedcoordinates

[t]to

[t]ASYOUCANSEE,THISLEADSTOAERRORMESSAGE!

In[]:=

NDSolve[{ListDgl9,Table[

[0]0,{i,1,9,1}],Table[

'[0]0,{i,1,9,1}]},Table[

[t],{i,1,9,1}],{t,0,0.2},MaxSteps∞]

NDSolve

:Cannot solve to find an explicit formula for the derivatives. NDSolve will try solving the system as differential-algebraic equations.

Out[]=

$Aborted