problema con mathematica

Hago lo siguiente y no me resuelve la ecuación. Alguién ve el fallo???

Adjuntos

con que programa se abre ese archivo?
la extension .nb es del mathematica
Puedes escribir las ordenes aquí, que no tengo el Mathematica en este PC?
q_z = p0 + p1*cos[Phi];
q_Phi = 0;
q_s = [Rho]*e;
FullSimplify[Solve[{q_s*R + D[N_s*R, {s}] + D[N_s_Phi, {Phi}] == 0, q_Phi*R + D[N_s_Phi]*R, {s}] + D[N_Phi, {Phi}] == 0, q_z*R + N_Phi == 0}, {N_s, N_Phi, N_s_Phi}]]
q_z = p0 + p1*Cos[Phi];
q_Phi = 0;
q_s = Rho*e;
FullSimplify[Solve[{q_s*R + D[N_s*R, {s}] + D[N_s_Phi, {Phi}] == 0, q_Phi*R +
   D[N_s_Phi]*
    R, {s}} + D[N_Phi, {Phi}] == 0, {q_z*R + N_Phi ==
              0}, {N_s, N_Phi, N_s_Phi}]]

Te he quitado los errores con los paréntesis y el cos que lo tenías en minúsculas.

Sigue fallando por las variables que utilizas, eso ya te lo dejo a tí.
5 respuestas