I'm very very sorry Mr Mariusz, but I made a big mistake at the start, I forgot to replace $ t $ with $ t_ {1} $, in the second question,

t1 = 2;
indicator[x_] := Piecewise[{{1, 0 < x < 1/2}}, 0];
(* problème du controle*)
E1 = D[u[x, t], {x, 2}] - D[u[x, t], {t, 2}] == 
indicator[x]* (Cos[2 \[Pi] t1] + Sin[2 \[Pi] t1]) Sin[2 \[Pi] x];
(*données initiales propres *)
ic = {u[x, 0] == Sin[2 \[Pi] x], 
Derivative[0, 1][u][x, 0] ==   2  \[Pi] Sin[2 \[Pi] x]};
(* Condition aux bord de Dirichlet*)
bcc = {u[0, t] == 0, u[1, t] == 0};
(*résolution analytique de l'équation *)
sol = DSolve[{E1, ic, bcc}, u, {x, 0, 1}, {t, 0, 12}]

I found the solution as usual. But, other times I can't plot my solution

Grid[Partition[
  Table[Plot[
    Activate[(u /. sol[[1]])[[2]] /. Infinity -> 50][[1, 1]][[1]], {x,
      0, 1}, Exclusions -> None, PlotRange -> All], {t, 0, 12}], 3], 
 ItemSize -> 10]

I tried a lot to find the problem but i can't, if you can help me other times, please

The problem is because for K[1] =1 sum is singular.We need to use a Limit.

t1 = 2;
indicator[x_] := Piecewise[{{1, 0 < x < 1/2}}, 0];
(*problème du controle*)
E1 = D[u[x, t], {x, 2}] - D[u[x, t], {t, 2}] == 
   indicator[x]*(Cos[\[Pi] t] + Sin[\[Pi] t]) Sin[\[Pi] x];
(*données initiales propres k=1*)
ic = {u[x, 0] == Sin[\[Pi] x], 
   Derivative[0, 1][u][x, 0] == \[Pi] Sin[\[Pi] x]};
(*Condition aux bord de Dirichlet*)
bcc = {u[0, t] == 0, u[1, t] == 0};
(*résolution analytique de l'équation*)
sol2 = DSolve[{E1, ic, bcc}, u, {x, 0, 1}, {t, 0, 12}]

(* solution *)

((u /. sol2[[1]])[[2]][[1, 1, 1, 1]] /. 
  K[1] -> n)(*  In here K[1] now it will be: n *)
(* Sqrt[2]*(Cos[Sqrt[n^2]*Pi*t]*Piecewise[{{1/Sqrt[2], n == 1}}, 0] + (Sqrt[2]*Cos[(n*Pi)/2]*(n* 
  (Cos[Pi*t] - Cos[n*Pi*t] + Sin[Pi*t]) - Sin[n*Pi*t]))/((-1 + n^2)^2*Pi^3) + 
  Piecewise[{{1/(Sqrt[2]*n), n == 1}}, 0]*Sin[Sqrt[n^2]*Pi*t])*Sin[n*Pi*x]*)

fff[n_] := 
  Sqrt[2]*(Cos[Sqrt[n^2]*Pi*t]*
      Piecewise[{{1/Sqrt[2], n == 1}}, 
       0] + (Sqrt[2]*
        Cos[(n*Pi)/2]*(n*(Cos[Pi*t] - Cos[n*Pi*t] + Sin[Pi*t]) - 
          Sin[n*Pi*t]))/((-1 + n^2)^2*Pi^3) + 
     Piecewise[{{1/(Sqrt[2]*n), n == 1}}, 0]*Sin[Sqrt[n^2]*Pi*t])*
   Sin[n*Pi*x];

   fff[1](*For n =1 is Singular !! *)(* Error messages*)

  Limit[fff[n], n -> 1]
  (*((\[Pi] t Cos[\[Pi] t] - (1 + \[Pi] t) Sin[\[Pi] t]) Sin[\[Pi] x])/(4 \
  \[Pi]^2)*)

And now a solution:

 M = 50;(*Infinity is now 50 ! *)
 SOL[x_, t_] := ((\[Pi] t Cos[\[Pi] t] - (1 + \[Pi] t) Sin[\[Pi] t]) \
 Sin[\[Pi] x])/(4 \[Pi]^2) + Sum[fff[n], {n, 2, M}];

 Grid[Partition[
   Table[Plot[SOL[x, t], {x, 0, 1}, Exclusions -> None, 
     PlotRange -> All, AxesLabel -> {"t", "x(t)"}], {t, 0, 12}], 3], 
  ItemSize -> 10]

    Plot3D[SOL[x, t], {x, 0, 1}, {t, 0, 12}, AxesLabel -> Automatic]

See here.

Regards M.I.

Hello Mariusz, i came back to you again please I tried to solve this system by NDSolve, but I find errors and I do not know why! if you can help me?

t1 = 2;

(Définit la fonction indicatrice)

indicator[x_] := Piecewise[{{1, 0 < x < 1/2}}, 0];



E1 = D[g[x, t], {x, 2}] - D[g[x, t], {t, 2}] ==  indicator[x]*((Cos[\[Pi] t1] - Sin[\[Pi] t1]) Sin[\[Pi] x])/(
4 \[Pi])*DiracDelta[t - t1];
ic = {g[x, 0] == Sum[Sin[k *\[Pi]*x], {k, 1}], Derivative[0, 1][g][x, 0] ==  Sum[k *\[Pi] *Sin[k *\[Pi]* x], {k, 1}]};
(*Condition aux bord de Dirichlet*)
bcc = {g[0, t] == 0, g[1, t] == 0};
(*résolution numérique de l'équation*)
sol11 = NDSolve[{E1, ic, bcc}, g, {x, 0, 1}, {t, 0, 12},  MaxStepSize -> 0.1];

Best regards,

thank you for all your answers, I think the good question I need to ask is: how to extract the solution from DSolveValue? I did not understand the principle that you follow! other times I modified 2 to 3, and I have almost the same form of the solution, and I cannot extract the solution,

t1 = 2;
(*Définit la fonction indicatrice*)
indicator[x_] := Piecewise[{{1, 0 < x < 1/2}}, 0];
(*problème du controle*)
E1 = D[u[x, t], {x, 2}] - D[u[x, t], {t, 2}] == 
   indicator[x]*(Cos[3 \[Pi] t1] + Sin[3 \[Pi] t1]) Sin[3 \[Pi] x];
(*données initiales propres k=1*)
ic = {u[x, 0] == Sin[3 \[Pi] x], 
   Derivative[0, 1][u][x, 0] == 3 \[Pi] Sin[ 3 \[Pi] x]};
(*Condition aux bord de Dirichlet*)
bcc = {u[0, t] == 0, u[1, t] == 0};
(*résolution analytique de l'équation*)
sol2 = DSolve[{E1, ic, bcc}, u, {x, 0, 1}, {t, 0, 12}]

Activate[sol2 /. Infinity -> 1][[1, 1, 1]](*extractin de la solution de DSolveValue*)

It's not working !!

Thank you so much, Mr Mariusz, for your help, please if you have time I have one more question : I want to calculate the norm $ L ^ {2} $ of the solution when $t = 12$, I defined the integral in $ L ^ {2} $ as following:

(*Symbolic*)
L2[f_] := Sqrt[Integrate[Abs[f]^2, {x, 0, 1}]];
(*numérique*)
NL2[f_] := Sqrt[NIntegrate[Abs[f[x]]^2, {x, 0, 1}]];

then I defined a function h as follows:

h[x_] := SOL[x, 12]

but when I apply the norm to $ h $ it gives error

NL2[h] (*error*)

Can you help, please !!

Please, I have installed Mathematica 12.1, it works now, please I need to Plot the solution, it doesn't work for me, why?

Grid[Partition[
Table[Plot[Evaluate[u[x, t] /. sol[[1]]], {x, 0, 1}, Exclusions -> None, PlotRange -> All], {t, 0, 12}], 3], ItemSize -> 10]

You will find attached the result I found, on Mathematica 12.0 it's not working !! I corrected as you told me. but, it's not working. Should I update my program? or what ?

Attachments:

1111.PNG