coefn2[t_,a_]:=Integrate[Sin[x](x^a),{x,0,t}];

sumn[t_]:=Sum[coefn2[t,N[Log[2]]/N[Log[3]]-1+2*N[Pi]*n*I/N[Log[3]]],{n,-30,30}] ;

sumn[1]

Sum[1,{i,-30,30}]

Import["coef.txt","Table"]

Table

coef:=Import["coef.txt","Table"]

coef

coef[2]

coefcorr:={}

coefc2:=Import["coef.txt","Table"]

coefc2

coefcorr

For[k=1.k<62,k++, AppendTo[coefcorr, {Apply[Plus, First[coefc2]]}], coefc2=Rest[coefc2]]

coefcorr

coefc2

Apply[Plus,First[coefc2]]

AppendTo[coefcorr, {Apply[Plus, First[coefc2]]}]

coefcorr

Rest[coefc2]

Clear[coefcorr]

coefcorr

coefcorr

coefcorr:={}

coefcorr

coefc2

coefc22:=Rest[coefc2]

coefc22

A :={{1,2},{2,5}}

Apply[Plus, A]

Clear[coefc22]

coefc2

coefc22:=Apply[Plus, coefc2]

coefc22

Plus[{1,2}]

?Plus

somlist[A_]:= First[A]+First[Rest[A]];

somlist[{1,2}]

Clear[coefc22]

coefc22

coefc22:=Apply[somlist,coefc2]

coefc22

Clear[coefc2]

coefc2

somlistim[A_]:=First[A]+I*First[Rest[A]];

somlistim[{1,2}]

Clear[coefc22]

coefc22

coefc22:=Apply[somlistim,coefc2]

coefc22

Apply[somlist,{{1,2},{2,2}}]

?Apply

Map[somlist,{{1,2},{9,3}}]

Clear[coefc22]

coefc22:=Map[somlistim, coefc2]

coefc22

sompartlist[t_,{},n_]:={};

sompartlist[t_,l_,n_]:=AppendTo[sompartlist[t,Rest[l],n+1],{(N[Log[2]]/N[Log[3]]+2*N[Pi]*n*I/N[Log[3]])*First[l]*Exp[-2*Pi*I*n*N[Log[t]]/N[Log[3]]]}];

sompartlist[t,{1,2},2]

somlisttot[{}]:=0;

somlisttot[l_]:=First[l]+somlisttot[Rest[l]];

Clear[Sn]

Sn[t_]:=somlisttot[sompartlist[t,coefc22,61]];

SSn[t_]:=(t^((-N[Log[2]]/N[Log[3]])))*Sn[t];

SSn[1]

Real[SSn[1]]

coef

coefc2

coefc22

coefc222:={}

For[k=0,k<61, k++, AppendTo[coefc222, ((N[Log[2]]+2*I*Pi*(k-30))/N[Log[3]])*coefccorr[[k+1]]]]

coefc222

i

i*i

i:=I

i*i

Clear[coefc222]

coefc222:={}

coefc222

coefc_corr:={1}

coefc_corr

coefc_corr ={}

coefccorr:={}

coefccorr

Clear[coefc222]

coefccorr:={0.0009+0.0023*I,-0.0008,0.001 ,0. +0.0027*I,-0.0005+0.0003* I,0.001 +0.0004*I,-0.0017+0.0014*I,0.0006,0.0017+0.0028*I,-0.0019+0.001*I,0.0006 -0.0004*I,0.0012 +0.0038*I,-0.0006+0.0004*I,0.0017+0.0007*I,-0.0023+0.003*I,-0.0002-0.0004*I,0.0034 +0.0019*I,-0.0033+0.0026*I,-0.0003,0.0021+0.0056*I,-0.0011+0.0008*I,0.0024 +0.0019*I,-0.0026+0.0088*I,-0.0017-0.0013*I,0.0079 +0.0025*I,-0.0074+0.0078*I,-0.0005+0.0017*I,0.0076 +0.0162*I,-0.0153+0.0025*I,0.0251 +0.0003*I,0.8941, 0.0251 -0.0003*I,-0.0153-0.0025*I,0.0076 -0.0162*I,-0.0005-0.0017*I,-0.0074-0.0078*I,0.0079 -0.0025*I,-0.0017+0.0013*I,-0.0026-0.0088*I,0.0024 -0.0019*I,-0.0011-0.0008*I,0.0021 -0.0056*I,-0.0003,-0.0033-0.0026*I,0.0034 -0.0019*I,-0.0002+0.0004*I,-0.0023-0.003*I,0.0017 -0.0007*I,-0.0006-0.0004*I,0.0012 -0.0038*I,0.0006 +0.0004*I,-0.0019-0.001*I,0.0017 -0.0028*I,0.0006 ,-0.0017-0.0014*I,0.001 -0.0004*I,-0.0005-0.0003*I,0. -0.0027*I,0.001 ,-0.0008,0.0009 -0.0023*I}

coefc222

coefc222

Length[coefccorr]

coefccorr

{0.0009` +0.0023` I,-0.0008`,0.001`,0.` +0.0027` I,-0.0005`+0.0003` I,0.001` +0.0004` I,-0.0017`+0.0014` I,0.0006`,0.0017` +0.0028` I,-0.0019`+0.001` I,0.0006` -0.0004` I,0.0012` +0.0038` I,-0.0006`+0.0004` I,0.0017` +0.0007` I,-0.0023`+0.003` I,-0.0002`-0.0004` I,0.0034` +0.0019` I,-0.0033`+0.0026` I,-0.0003`,0.0021` +0.0056` I,-0.0011`+0.0008` I,0.0024` +0.0019` I,-0.0026`+0.0088` I,-0.0017`-0.0013` I,0.0079` +0.0025` I,-0.0074`+0.0078` I,-0.0005`+0.0017` I,0.0076` +0.0162` I,-0.0153`+0.0025` I,0.0251` +0.0003` I,0.0251` -0.0003` I,-0.0153`-0.0025` I,0.0076` -0.0162` I,-0.0005`-0.0017` I,-0.0074`-0.0078` I,0.0079` -0.0025` I,-0.0017`+0.0013` I,-0.0026`-0.0088` I,0.0024` -0.0019` I,-0.0011`-0.0008` I,0.0021` -0.0056` I,-0.0003`,-0.0033`-0.0026` I,0.0034` -0.0019` I,-0.0002`+0.0004` I,-0.0023`-0.003` I,0.0017` -0.0007` I,-0.0006`-0.0004` I,0.0012` -0.0038` I,0.0006` +0.0004` I,-0.0019`-0.001` I,0.0017` -0.0028` I,0.0006`,-0.0017`-0.0014` I,0.001` -0.0004` I,-0.0005`-0.0003` I,0.` -0.0027` I,0.001`,-0.0008`,0.0009`}

coefccorr[[1]]*coefccorr[[1]]

coefccorr

coefccorr[[1]]

I*I

N[Real[coefccorr[[1]]]]

coefccorr[[60]]

coefc222

Clear[coefc222]

coefc222

res:={}

c[t_,n_]:=t^(-N[Log[2]]/N[Log[3]])*coefc222[[n]]*Exp[-

I*Pi*N[Log[t]]/N[Log[3]]]*coefn2[t,N[Log[2]]/N[Log[3]]-1+2*N[Pi]*n*I/N[Log[3]]];

c[t_,n_]:=t^(-N[Log[2]]/N[Log[3]])*coefc222[[n+31]]*Exp[-I*Pi*N[Log[t]]/N[Log[3]]]*coefn2[t,N[Log[2]]/N[Log[3]]-1+2*N[Pi]*n*I/N[Log[3]]];

cc[t_]:=Sum[c[t,n], {n,-30,30}];

cc[1]

cc[1]

cc[1]

cc[1]

For[k=0,k<1000,k++, AppendTo[res, {N[k/1000], cc[N[k/1000]]}]]

({{\[Placeholder], \[Placeholder]}})

({{\[Placeholder], ,}})

1/1000

N[1/1000]

Interrupt Evaluation

ListPlot[resreel]

res

Real2[l_]:={l[[1]],Re[l[[2]]]};

Real2[{{1,87},{1,3}}]

resreel:=Map[Real2,res]

resreel

Real[1+5*I]

N[Real[4+I]]

Re[4+I]

Clear[Real2]

resreel