I am also working on Hamilton's Principle to derive the governing equation of beam. After evaluating the strain and kinetic energy, I am combining both the energies. Now I want to apply the variational operator on my Hamilton's principle. The strain energy and kinetic energy terms contain the five variables such as u[x,t], v[x,t], w[x,t],Theta[x,t] and Phi[x,t].
How I can get the governing equation with these five variables? The Strain energy terms are as follows:
D00 ks \[Theta][x, t]^2 + D00 \[Phi][x, t]^2 + B00
\!\(\*SuperscriptBox[\(u\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 - 2 D00 \[Phi][x, t]
\!\(\*SuperscriptBox[\(v\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] + D00
\!\(\*SuperscriptBox[\(v\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 - 2 D00 ks \[Theta][x, t]
\!\(\*SuperscriptBox[\(w\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] + D00 ks
\!\(\*SuperscriptBox[\(w\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 - 2 B10
\!\(\*SuperscriptBox[\(u\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]
\!\(\*SuperscriptBox[\(\[Theta]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] + B20
\!\(\*SuperscriptBox[\(\[Theta]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 - 2 B01
\!\(\*SuperscriptBox[\(u\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] - 2 B01 \[Theta][x, t]
\!\(\*SuperscriptBox[\(u\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] + 2 B10 \[Phi][x, t]
\!\(\*SuperscriptBox[\(u\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] + B11
\!\(\*SuperscriptBox[\(\[Theta]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] + B20
\!\(\*SuperscriptBox[\(\[Theta]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] + B11 \[Theta][x, t]
\!\(\*SuperscriptBox[\(\[Theta]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] + B20 \[Theta][x, t]
\!\(\*SuperscriptBox[\(\[Theta]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] - 2 B20 \[Phi][x, t]
\!\(\*SuperscriptBox[\(\[Theta]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t] + B11
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 + 2 B11 \[Theta][x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 + B11 \[Theta][x, t]^2
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 - B11 \[Phi][x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 - B20 \[Phi][x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 - B11 \[Theta][x, t] \[Phi][x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 - B20 \[Theta][x, t] \[Phi][x, t]
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2 + B20 \[Phi][x, t]^2
\!\(\*SuperscriptBox[\(\[Phi]\),
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[x, t]^2