N[55/3668]

Integrate[y^(s-1)*(x+y)^m,{y,0,1-x}]

Integrate[y^(s-1)*(x-y)^m,{y,0,x}]

cantor[n_]:=If[n==1,{0},Join[1/3*cantor[n-1],2/3+1/3*cantor[n-1]]];

k6 = cantor[6];

Length[k6]

k6[[1]]

0
exp[x_,y_] := If[x==0,If[y==0,1,0],x^y];

exp[0,I]

mel2[s_,k_,l_]:=2^(-5)*Sum[N[exp[Abs[k6[[i]]-k6[[j]]],(s-1)]*(k6[[i]])^k*(k6[[j]])^l],{i,2,32},{j,2,32}]+(3/2)^(5)*N[Integrate[(Abs[x-y])^(s-1)*x^k*y^l,{x,0,3^(-5)},{y,0,3^(-5)}]];

Plot3D[Abs[mel[x+I*y,2,1]],{x,-1,5},{y,0,30}]

N[Log[2]/Log[3]]

Plot3D[Abs[mel[x+I*y,2,1]],{x,-1,2},{y,0,30}]

mel[4,2,1]

Plot3D[Abs[mel[x+I*y,4,5]],{x,-1,2},{y,0,30}]

Plot3D[Abs[mel[x+I*y,42,5]],{x,-1,2},{y,-30,30}]

1-N[Log[2]/Log[3]]

N[1/Log[3]]

Plot3D[Abs[mel[x+I*y,0,0]],{x,-10,10},{y,-30,30}]

Plot3D[Abs[mel2[x+I*y,0,0]],{x,1,10},{y,1,30}]

mel2[1.4,0,0]

Plot3D[Abs[mel[x+I*y,4,5]],{x,-1,2},{y,0,30}]

Plot3D[Abs[mel2[x+I*y,4,5]],{x,0.5,2},{y,0.2,30}]

mel3[s_,k_,l_]:=(3/2)^(4)*Sum[Integrate[(Abs[x-y])^(s-1)*x^k*y^l,{x,k5[[i]],k5[[i]]+3^(-4)},{y,k5[[j]],k5[[j]]+3^(-4)}],{i,1,16},{j,1,16}];

Clear[mel2]

k5=cantor[5];

Length[k5]

Plot3D[N[Abs[mel2[u+I*v,4,5]]],{u,1,2},{v,0.2,30}]

mel2[0.5+I,1,1]