Rješavanje  u Mathematica

RowBox[{RowBox[{l, :=, 0.5}], ;}] RowBox[{RowBox[{p, =, 0.01}], ;}] c = Sqrt[p] ; RowBox[{alfa, =, RowBox[{0.7, , RowBox[{Sin, [, RowBox[{x, RowBox[{π, /, 0.25}]}], ]}], }]}]

RowBox[{0.7, , RowBox[{Sin, [, RowBox[{12.5664, , x}], ]}]}]

A[n_] := 2/l∫_0^lalfa *   Sin [(n π x)/l] x ; B[n_] := 0 ;

Table[{A[n], B[n]}, {n, 10}]

RowBox[{{, RowBox[{RowBox[{{, RowBox[{0., ,, 0}], }}], ,, RowBox[{{, RowBox[{0.7, ,, 0}], }}], ... {{, RowBox[{RowBox[{-, 7.19641*10^-17}], ,, 0}], }}], ,, RowBox[{{, RowBox[{0., ,, 0}], }}]}], }}]

u[n_, x_, t_] := (A[n] Cos[(n π c )/l t] + B[n] Sin [(n π c )/l t]) * Sin [(n π)/l x]

u[2, x, t]

RowBox[{0.7, , RowBox[{Cos, [, RowBox[{1.25664, , t}], ]}], , RowBox[{Sin, [, RowBox[{12.5664, , x}], ]}]}]

u[x_, t_] := Underoverscript[∑, n = 1, arg3] u[n, x, t]

u[x, t]

RowBox[{RowBox[{0., , RowBox[{Cos, [, RowBox[{0.628319, , t}], ]}], , RowBox[{Sin, [, RowBo ... RowBox[{Cos, [, RowBox[{6.28319, , t}], ]}], , RowBox[{Sin, [, RowBox[{62.8319, , x}], ]}]}]}]

RowBox[{u, [, RowBox[{x, ,, 5.8}], ]}]

RowBox[{RowBox[{0., , RowBox[{Sin, [, RowBox[{6.28319, , x}], ]}]}], +, RowBox[{0.375079, , ... RowBox[{56.5487, , x}], ]}]}], +, RowBox[{0., , RowBox[{Sin, [, RowBox[{62.8319, , x}], ]}]}]}]

Created by Mathematica  (December 3, 2003)