› Foros › Off-Topic › Miscelánea
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}]]