const
   a=0;
   b=0.3925;
var
   i, n: byte;
   S, S1, S2, h,
   x, f: real;

procedure integr;
begin
   h:=(b-a)/n; S:=0;
   for i:=1 to n do
   begin
      x:=a+h*i-h/2;
      f:=exp(3*ln(sin(x/2+3.14/4)/cos(x/2+3.14/4)));
      S:=S+f;
   end; S:=S+h;
end;

BEGIN
   n:=4; integr;
   S1:=S; n:=n*2;
   integr; S2:=S;
   while (abs(s1-s2)>=0.0001) do
   begin
      n:=n*2;
      integr; S1:=S2;
      S2:=S;
   end;
   writeln(S:1:4);
END.