-
Notifications
You must be signed in to change notification settings - Fork 0
/
rescaledAmpSaS0q2Simple.txt
1 lines (1 loc) · 12.7 KB
/
rescaledAmpSaS0q2Simple.txt
1
{(c[1]*Cosh[ω*(dot[a[1], k[2]] + dot[a[1], q[1]])])/(ω^2*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[29]*Cosh[ω*(dot[a[1], k[2]] + dot[a[1], q[1]])]*dot[q[1], F[2], v[1]])/(ω^2*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[7]*Cosh[ω*(dot[a[1], k[2]] + dot[a[1], q[1]])]*dot[q[1], F[2], v[1]]^2)/(ω^2*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[42]*Cosh[ω*dot[a[1], q[1]]]*G[1, ω*k[2]])/(ω*dot[q[1], q[1]]) + (c[10]*Cosh[ω*dot[a[1], q[1]]]*dot[q[1], F[2], v[1]]*G[1, ω*k[2]])/(ω*dot[q[1], q[1]]) + (c[2]*G[1, ω*k[2]]*G[1, ω*q[1]])/dot[q[1], q[1]] + (c[60]*dot[a[1], q[1]]*G[1, ω*k[2]]*G[1, ω*q[1]])/dot[q[1], q[1]] + (c[9]*dot[k[2], q[1]]*G[1, ω*k[2]]*G[1, ω*q[1]])/dot[q[1], q[1]] + (c[58]*dot[q[1], F[2], v[1]]*G[1, ω*k[2]]*G[1, ω*q[1]])/dot[q[1], q[1]] + (c[54]*dot[a[1], q[1]]*dot[q[1], F[2], v[1]]*G[1, ω*k[2]]*G[1, ω*q[1]])/dot[q[1], q[1]] + (c[6]*dot[k[2], q[1]]*dot[q[1], F[2], v[1]]*G[1, ω*k[2]]*G[1, ω*q[1]])/dot[q[1], q[1]] + (c[53]*dot[q[1], F[2], v[1]]^2*G[1, ω*k[2]]*G[1, ω*q[1]])/dot[q[1], q[1]] + (c[34]*G[1, ω*(k[2] + q[1])])/(ω*dot[q[1], q[1]]) + (c[47]*G[1, ω*(k[2] + q[1])])/(ω*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[33]*dot[k[2], S[1], q[1]]*G[1, ω*(k[2] + q[1])])/(ω*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[24]*dot[q[1], F[2], v[1]]*G[1, ω*(k[2] + q[1])])/(ω*dot[q[1], q[1]]) + (c[61]*dot[q[1], F[2], v[1]]*G[1, ω*(k[2] + q[1])])/(ω*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[23]*dot[k[2], S[1], q[1]]*dot[q[1], F[2], v[1]]*G[1, ω*(k[2] + q[1])])/(ω*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[22]*dot[q[1], F[2], v[1]]^2*G[1, ω*(k[2] + q[1])])/(ω*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[30]*dot[q[1], F[2], v[1]]*dot[q[1], S[1], v[2]]*G[1, ω*(k[2] + q[1])])/(ω*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[19]*dot[q[1], F[2], v[1]]^2*dot[q[1], S[1], v[2]]*G[1, ω*(k[2] + q[1])])/(ω*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[46]*dot[q[1], S[1], F[2], v[1]]*G[1, ω*(k[2] + q[1])])/(ω*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[45]*dot[q[1], F[2], v[1]]*dot[q[1], S[1], F[2], v[1]]*G[1, ω*(k[2] + q[1])])/(ω*dot[k[2], q[1]]*dot[q[1], q[1]]) + (c[15]*G[1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (c[39]*dot[q[1], F[2], v[1]]*G[1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (c[32]*dot[q[1], S[1], v[2]]*G[1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (c[20]*dot[q[1], F[2], v[1]]*dot[q[1], S[1], v[2]]*G[1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (c[26]*dot[q[1], S[1], F[2], v[1]]*G[1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[50]*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[69]*dot[a[1], q[1]]*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[59]*dot[a[1], q[1]]^2*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[57]*dot[k[2], q[1]]*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[55]*dot[a[1], q[1]]*dot[k[2], q[1]]*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[18]*dot[k[2], q[1]]^2*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[62]*dot[q[1], F[2], v[1]]*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[56]*dot[a[1], q[1]]*dot[q[1], F[2], v[1]]*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[8]*dot[k[2], q[1]]*dot[q[1], F[2], v[1]]*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[12]*dot[q[1], F[2], v[1]]^2*Gpe[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[49]*dot[a[1], q[1]]*Gpe[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[65]*dot[a[1], q[1]]^2*Gpe[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[3]*dot[k[2], q[1]]*Gpe[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[14]*dot[a[1], q[1]]*dot[k[2], q[1]]*Gpe[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[48]*dot[q[1], F[2], v[1]]*Gpe[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[63]*dot[a[1], q[1]]*dot[q[1], F[2], v[1]]*Gpe[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[51]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[67]*dot[a[1], q[1]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[41]*dot[a[1], q[1]]^2*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[40]*dot[k[2], q[1]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[11]*dot[a[1], q[1]]*dot[k[2], q[1]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[28]*dot[k[2], S[1], q[1]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[17]*dot[q[1], F[2], v[1]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[16]*dot[a[1], q[1]]*dot[q[1], F[2], v[1]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[64]*dot[q[1], S[1], v[2]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[31]*dot[a[1], q[1]]*dot[q[1], S[1], v[2]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[21]*dot[k[2], q[1]]*dot[q[1], S[1], v[2]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[13]*dot[q[1], F[2], v[1]]*dot[q[1], S[1], v[2]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[27]*dot[q[1], S[1], F[2], v[1]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω*c[25]*dot[a[1], q[1]]*dot[q[1], S[1], F[2], v[1]]*Gpo[1, 1, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[52]*dot[a[1], q[1]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[68]*dot[a[1], q[1]]^2*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[5]*dot[k[2], q[1]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[44]*dot[a[1], q[1]]*dot[k[2], q[1]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[37]*dot[a[1], q[1]]*dot[k[2], S[1], q[1]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[4]*dot[q[1], F[2], v[1]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[43]*dot[a[1], q[1]]*dot[q[1], F[2], v[1]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[66]*dot[a[1], q[1]]*dot[q[1], S[1], v[2]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[38]*dot[k[2], q[1]]*dot[q[1], S[1], v[2]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[36]*dot[q[1], F[2], v[1]]*dot[q[1], S[1], v[2]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]] + (ω^2*c[35]*dot[a[1], q[1]]*dot[q[1], S[1], F[2], v[1]]*Gpo[1, 2, ω*q[1], ω*k[2]])/dot[q[1], q[1]], {c[1] -> dot[v[1], F[2], v[2]]^2/2, c[2] -> -1/2*(dot[a[1], a[1]]*dot[v[1], F[2], v[2]]^2), c[3] -> dot[a[1], v[2]]^2*dot[a[1], F[2], v[1]]^2 - (dot[a[1], a[1]]*dot[a[1], F[2], v[1]]*(dot[a[1], F[2], v[1]] - 2*dot[a[1], v[2]]*dot[v[1], F[2], v[2]]))/4, c[4] -> (dot[a[1], k[2]]*(dot[a[1], a[1]] - 2*dot[a[1], v[2]]^2)*e[1]*tr[F[2], S[1]])/4, c[5] -> -1/4*((dot[a[1], a[1]] - 2*dot[a[1], v[2]]^2)*dot[a[1], F[2], v[1]]*e[1]*tr[F[2], S[1]]), c[6] -> (y*(dot[a[1], v[2]]*dot[a[1], F[2], v[1]] + dot[a[1], a[1]]*dot[v[1], F[2], v[2]]))/(2*ω[1]^3), c[7] -> (-1 + 2*y^2)/(4*ω[1]^2), c[8] -> (dot[a[1], F[2], v[1]]*(2*y*dot[a[1], k[2]]*dot[a[1], v[2]] + ((-1 + y^2)*dot[a[1], a[1]] + dot[a[1], v[2]]^2)*ω[1]))/(4*ω[1]^3), c[9] -> -1/4*(dot[a[1], F[2], v[1]]^2 + 2*dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*dot[v[1], F[2], v[2]] + 2*dot[a[1], a[1]]*dot[v[1], F[2], v[2]]^2)/ω[1]^2, c[10] -> ((I/8)*(-1 + 2*y^2)*tr[F[2], S[1]])/ω[1]^2, c[11] -> -1/16*((-1 + 2*y^2)*dot[a[1], F[2], v[1]]*tr[F[2], S[1]])/ω[1]^2, c[12] -> -1/4*(y*dot[a[1], k[2]]^2*dot[a[1], v[2]] + dot[a[1], k[2]]*((-1 + y^2)*dot[a[1], a[1]] + dot[a[1], v[2]]^2)*ω[1] + y*dot[a[1], a[1]]*dot[a[1], v[2]]*ω[1]^2)/ω[1]^3, c[13] -> (dot[a[1], F[2], v[1]]*(y*dot[a[1], k[2]] + dot[a[1], v[2]]*ω[1]))/(4*ω[1]^2), c[14] -> (y*dot[a[1], F[2], v[1]]*(2*dot[a[1], v[2]]*dot[a[1], F[2], v[1]] + dot[a[1], a[1]]*dot[v[1], F[2], v[2]]))/(2*ω[1]), c[15] -> ((-1/4*I)*(dot[a[1], F[2], v[1]]*dot[k[2], S[1], F[2], v[1]] + dot[a[1], v[2]]*dot[v[1], F[2], v[2]]*tr[F[2], S[1]]*ω[1]))/ω[1], c[16] -> (tr[F[2], S[1]]*((-1 + 2*y^2)*dot[a[1], k[2]] + 2*y*dot[a[1], v[2]]*ω[1]))/(16*ω[1]^2), c[17] -> (tr[F[2], S[1]]*(2*y*dot[a[1], k[2]]*dot[a[1], v[2]] - (dot[a[1], a[1]] - 2*dot[a[1], v[2]]^2)*ω[1]))/(16*ω[1]), c[18] -> -1/4*(y*dot[a[1], v[2]]*dot[a[1], F[2], v[1]]^2)/ω[1]^3, c[19] -> ((-1/2*I)*y)/ω[1]^2, c[20] -> ((I/2)*y*dot[a[1], F[2], v[1]])/ω[1]^2, c[21] -> -1/4*(y*dot[a[1], F[2], v[1]]^2)/ω[1]^2, c[22] -> ((-1/2*I)*y*dot[k[2], S[1], v[2]])/ω[1]^2, c[23] -> ((-1/2*I)*y*dot[v[1], F[2], v[2]])/ω[1]^2, c[24] -> ((-1/2*I)*y*dot[v[1], F[2], S[1], v[2]])/ω[1]^2, c[25] -> dot[a[1], F[2], v[1]]/(8*ω[1]), c[26] -> ((-1/4*I)*dot[a[1], F[2], v[1]])/ω[1], c[27] -> -1/8*(dot[a[1], k[2]]*dot[a[1], F[2], v[1]])/ω[1], c[28] -> -1/8*dot[a[1], F[2], v[1]]^2/ω[1], c[29] -> -((y*dot[v[1], F[2], v[2]])/ω[1]), c[30] -> ((I/2)*dot[v[1], F[2], v[2]])/ω[1], c[31] -> (dot[a[1], F[2], v[1]]*dot[v[1], F[2], v[2]])/(4*ω[1]), c[32] -> ((-1/2*I)*dot[a[1], F[2], v[1]]*dot[v[1], F[2], v[2]])/ω[1], c[33] -> ((I/2)*dot[v[1], F[2], v[2]]^2)/ω[1], c[34] -> ((I/2)*dot[v[1], F[2], v[2]]*dot[v[1], F[2], S[1], v[2]])/ω[1], c[35] -> -1/2*(dot[a[1], k[2]]*dot[a[1], F[2], v[1]]*e[1])/ω[1], c[36] -> -((dot[a[1], k[2]]*dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*e[1])/ω[1]), c[37] -> -1/2*(dot[a[1], F[2], v[1]]^2*e[1])/ω[1], c[38] -> (dot[a[1], v[2]]*dot[a[1], F[2], v[1]]^2*e[1])/ω[1], c[39] -> ((I/4)*y*dot[a[1], v[2]]*tr[F[2], S[1]])/ω[1], c[40] -> -1/8*(y*dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*tr[F[2], S[1]])/ω[1], c[41] -> (y*dot[v[1], F[2], v[2]]*tr[F[2], S[1]])/(8*ω[1]), c[42] -> ((-1/4*I)*y*dot[v[1], F[2], v[2]]*tr[F[2], S[1]])/ω[1], c[43] -> -1/2*(y*dot[a[1], k[2]]*dot[a[1], v[2]]*e[1]*tr[F[2], S[1]])/ω[1], c[44] -> (y*dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*e[1]*tr[F[2], S[1]])/(2*ω[1]), c[45] -> ((I/2)*y*ω[2])/ω[1]^2, c[46] -> ((-1/2*I)*dot[v[1], F[2], v[2]]*ω[2])/ω[1], c[47] -> ((-1/2*I)*dot[v[1], F[2], v[2]]*dot[k[2], S[1], F[2], v[1]]*ω[2])/ω[1], c[48] -> (dot[a[1], F[2], v[1]]*(-4*dot[a[1], k[2]]*dot[a[1], v[2]]^2 + dot[a[1], a[1]]*(dot[a[1], k[2]] + 2*dot[a[1], v[2]]*ω[2])))/4, c[49] -> -(dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*(dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], F[2], v[1]]*ω[2])), c[50] -> -1/4*(dot[a[1], a[1]]*dot[v[1], F[2], v[2]]*(dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], F[2], v[1]]*ω[2])), c[51] -> ((dot[a[1], k[2]]*(-2*dot[a[1], v[2]]*dot[v[1], F[2], v[2]]*tr[F[2], S[1]]*ω[1] + dot[a[1], F[2], v[1]]*(-2*dot[k[2], S[1], F[2], v[1]] + tr[F[2], S[1]]*ω[1])))/ω[1] - 2*dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*tr[F[2], S[1]]*ω[2])/16, c[52] -> (e[1]*(dot[a[1], k[2]]*(-2*dot[a[1], v[2]]*dot[v[1], F[2], v[2]]*tr[F[2], S[1]]*ω[1] + dot[a[1], F[2], v[1]]*(-2*dot[k[2], S[1], F[2], v[1]] + tr[F[2], S[1]]*ω[1])) - 2*dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*tr[F[2], S[1]]*ω[1]*ω[2]))/(4*ω[1]), c[53] -> -1/2*(y*(dot[a[1], k[2]]*dot[a[1], v[2]] + dot[a[1], a[1]]*(y*ω[1] - ω[2])))/ω[1]^3, c[54] -> (-2*y*dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], F[2], v[1]]*(ω[1] - 2*y*ω[2]))/(4*ω[1]^3), c[55] -> (dot[a[1], F[2], v[1]]*(y*dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], v[2]]*dot[v[1], F[2], v[2]]*ω[1] + y*dot[a[1], F[2], v[1]]*ω[2]))/(4*ω[1]^3), c[56] -> -1/4*(y*dot[a[1], k[2]]^2*dot[v[1], F[2], v[2]] + dot[a[1], k[2]]*(2*dot[a[1], v[2]]*dot[v[1], F[2], v[2]]*ω[1] + y*dot[a[1], F[2], v[1]]*ω[2]) + ω[1]*(y*dot[a[1], a[1]]*dot[v[1], F[2], v[2]]*ω[1] + dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*ω[2]))/ω[1]^3, c[57] -> -1/4*(dot[a[1], F[2], v[1]]*(dot[a[1], k[2]]*dot[a[1], v[2]]*dot[v[1], F[2], v[2]] + y*dot[a[1], a[1]]*dot[v[1], F[2], v[2]]*ω[1] + dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*ω[2]))/ω[1]^2, c[58] -> (dot[a[1], k[2]]*(dot[a[1], F[2], v[1]] + 2*dot[a[1], v[2]]*dot[v[1], F[2], v[2]]) + 2*dot[a[1], a[1]]*dot[v[1], F[2], v[2]]*(2*y*ω[1] - ω[2]))/(4*ω[1]^2), c[59] -> -1/4*(dot[v[1], F[2], v[2]]*(dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], F[2], v[1]]*ω[2]))/ω[1]^2, c[60] -> (dot[v[1], F[2], v[2]]*(dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], F[2], v[1]]*ω[2]))/(2*ω[1]^2), c[61] -> ((I/2)*(dot[k[2], S[1], v[2]]*dot[v[1], F[2], v[2]]*ω[1] + y*dot[k[2], S[1], F[2], v[1]]*ω[2]))/ω[1]^2, c[62] -> (dot[a[1], k[2]]^2*dot[a[1], v[2]]*dot[v[1], F[2], v[2]] + dot[a[1], a[1]]*ω[1]*(dot[a[1], v[2]]*dot[v[1], F[2], v[2]]*ω[1] + y*dot[a[1], F[2], v[1]]*ω[2]) + dot[a[1], k[2]]*(2*y*dot[a[1], a[1]]*dot[v[1], F[2], v[2]]*ω[1] + dot[a[1], v[2]]*dot[a[1], F[2], v[1]]*ω[2]))/(4*ω[1]^2), c[63] -> -1/4*(dot[a[1], F[2], v[1]]*(4*y*dot[a[1], k[2]]*dot[a[1], v[2]] + dot[a[1], a[1]]*(ω[1] - 2*y*ω[2])))/ω[1], c[64] -> -1/4*(dot[a[1], F[2], v[1]]*(dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], F[2], v[1]]*ω[2]))/ω[1], c[65] -> (dot[a[1], F[2], v[1]]*(-2*y*dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], F[2], v[1]]*(ω[1] - 2*y*ω[2])))/(2*ω[1]), c[66] -> -((dot[a[1], F[2], v[1]]*e[1]*(dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], F[2], v[1]]*ω[2]))/ω[1]), c[67] -> (2*dot[v[1], F[2], v[2]]*tr[F[2], S[1]]*(-(y*dot[a[1], k[2]]) + dot[a[1], v[2]]*ω[1]) + dot[a[1], F[2], v[1]]*(2*dot[k[2], S[1], F[2], v[1]] + tr[F[2], S[1]]*(ω[1] - 2*y*ω[2])))/(16*ω[1]), c[68] -> (e[1]*tr[F[2], S[1]]*(-2*y*dot[a[1], k[2]]*dot[v[1], F[2], v[2]] + dot[a[1], F[2], v[1]]*(ω[1] - 2*y*ω[2])))/(4*ω[1]), c[69] -> (dot[a[1], k[2]]^2*dot[v[1], F[2], v[2]]^2 + dot[a[1], a[1]]*dot[v[1], F[2], v[2]]^2*ω[1]^2 + 2*dot[a[1], k[2]]*dot[a[1], F[2], v[1]]*dot[v[1], F[2], v[2]]*ω[2] + dot[a[1], F[2], v[1]]^2*ω[2]^2)/(4*ω[1]^2)}}