function res = c_div_td2( t )
d=log(2)/log(3);

N = 61;
som=0;
gamma2=[-2.267657709813954+0.9489551512054337*i,
1.9354960475383252+1.4977446097955833*i,
-0.1328195647943838-2.43248071863027*i,
-1.3666637021157144+2.002645730840752*i,
2.0810691517820494-1.2205358933821588*i,
-2.2866180596164396+0.729703260426287*i,
2.2690853286232966-0.7423549218823151*i,
-2.009239934734829+1.2647650525953762*i,
1.1618538932216-2.054640513997711*i,
0.5570038237772779+2.2789798792690923*i,
-2.2240122564430687-0.6985048260429313*i,
1.2345020105041267-1.9589931203045572*i,
1.9961960329331099+1.1408277923342827*i,
-0.3596355830624949+2.253537376764068*i,
-1.9427447851652393+1.1625435494620917*i,
-2.2443472524484376+0.05285273399362039*i,
-2.211171231112612-0.2457632405927225*i,
-2.1738159837788498+0.35931247608457134*i,
-1.3916803493289256+1.67843735581728*i,
1.0323654124458905+1.8923801474788384*i,
1.7067497619152776-1.2725587414826314*i,
-2.0508627627863167-0.4506704922669921*i,
1.873389264374494+0.8750707339484809*i,
-2.0284219738424336+0.1186691535620025*i,
0.3919319278861532-1.9523978888148776*i,
1.7051270398703455-0.9346077792668598*i,
1.344146292512522-1.3267399837449865*i,
-1.4528483755758432-1.0948057025834586*i,
1.7088742509588832+0.2427501956528521*i,
1.5609503908346232-0.24966173178325282*i,
1.331944852072626+0.*i,
1.5609503908346232+0.24966173178325282*i,
1.7088742509588832-0.2427501956528521*i,
-1.4528483755758432+1.0948057025834586*i,
1.344146292512522+1.3267399837449865*i,
1.7051270398703455+0.9346077792668598*i,
0.3919319278861532+1.9523978888148776*i,
-2.0284219738424336-0.1186691535620025*i,
1.873389264374494-0.8750707339484809*i,
-2.0508627627863167+0.4506704922669921*i,
1.7067497619152776+1.2725587414826314*i,
1.0323654124458905-1.8923801474788384*i,
-1.3916803493289256-1.67843735581728*i,
-2.1738159837788498-0.35931247608457134*i,
-2.211171231112612+0.2457632405927225*i,
-2.2443472524484376-0.05285273399362039*i,
-1.9427447851652393-1.1625435494620917*i,
-0.3596355830624949-2.253537376764068*i,
1.9961960329331099-1.1408277923342827*i,
1.2345020105041267+1.9589931203045572*i,
-2.2240122564430687+0.6985048260429313*i,
0.5570038237772779-2.2789798792690923*i,
1.1618538932216+2.054640513997711*i,
-2.009239934734829-1.2647650525953762*i,
2.2690853286232966+0.7423549218823151*i,
-2.2866180596164396-0.729703260426287*i,
2.0810691517820494+1.2205358933821588*i,
-1.3666637021157144-2.002645730840752*i,
-0.1328195647943838+2.43248071863027*i,
1.9354960475383252-1.4977446097955833*i,
-2.267657709813954-0.9489551512054337*i];

coefctable = [0.000935641304673019+ 0.00227944330084001*i,
    -0.000773851103326780 + 1.51598357770963e-05*i,
    0.000991824903530022 + 1.83607318384124e-06*i,
    -2.93092478000003e-05 + 0.00268378889289341*i,
    -0.000487939976875792 + 0.000326508781630623*i,
    
    0.00102704621166704 + 0.000385554882543291i,
    -0.00173316757317320 + 0.00137368980732600i,
    0.000606114870179993 - 2.32334891238440e-05i,
    0.00172028865976599 + 0.00279558008695926i,
    -0.00186577989852318 + 0.000992167161897640i,
    0.000620952399137213 - 0.000389941764275302i,
    0.00118838775012687 + 0.00379141397489056i,
    -0.000600497806722727 + 0.000385732016430124i,
    0.00174346361497657 + 0.000702666422335558i,
    -0.00231780122284680 + 0.00302629416399494i,
    -0.000220948060317066 - 0.000446918163112343i,
    0.00336617467088245 + 0.00191570165644338i,
    -0.00327460361805850 + 0.00262776460927931i,
    -0.000290212806017856 + 9.75798477308710e-06i,
    0.00206968813688073 + 0.00558770419645803i,
    -0.00110794294170245 + 0.000762994794555888i	,
    0.00236073396152013 + 0.00189573527241041i,
    -0.00260823357324522 + 0.00878523806153410i,
    -0.00169141114460595 - 0.00133807972843184i	,
    0.00792469443512968 + 0.00249090840288870i,
    -0.00744452052188175 + 0.00775405269281251i,
    -0.000501129955835961 + 0.00173734264987536i,
    0.00764815950302048 + 0.0162048122968349i,
    -0.0153170512207108 + 0.00251035587617970i,
    0.0250807239980155 + 0.000308226843690148i,
    0.894117607504927 + 0.00000000000000i	,
    0.0250807239980155 - 0.000308226843690148i,
    -0.0153170512207108 - 0.00251035587617970i,
    0.00764815950302048 - 0.0162048122968349i,
    -0.000501129955835961 - 0.00173734264987536i,
    -0.00744452052188175 - 0.00775405269281251i,
    0.00792469443512968 - 0.00249090840288870i,
    -0.00169141114460595 + 0.00133807972843184i	,
    -0.00260823357324522 - 0.00878523806153410i,
    0.00236073396152013 - 0.00189573527241041i,
    -0.00110794294170245 - 0.000762994794555888i,
    0.00206968813688073 - 0.00558770419645803i,
    -0.000290212806017856 - 9.75798477308710e-06i,
    -0.00327460361805850 - 0.00262776460927931i,
    0.00336617467088245 - 0.00191570165644338i,
    -0.000220948060317066 + 0.000446918163112343i,
    -0.00231780122284680 - 0.00302629416399494i,
    0.00174346361497657 - 0.000702666422335558i	,
    -0.000600497806722727 - 0.000385732016430124i,
    0.00118838775012687 - 0.00379141397489056i	,
    0.000620952399137213 + 0.000389941764275302i,
    -0.00186577989852318 - 0.000992167161897640i,
    0.00172028865976599 - 0.00279558008695926i,
    0.000606114870179993 + 2.32334891238440e-05i,
    -0.00173316757317320 - 0.00137368980732600i	,
    0.00102704621166704 - 0.000385554882543291i,
    -0.000487939976875792 - 0.000326508781630623i,
    -2.93092478000003e-05 - 0.00268378889289341i,
    0.000991824903530022 - 1.83607318384124e-06i,
    -0.000773851103326780 - 1.51598357770963e-05i,
    0.000935641304673019 - 0.00227944330084001i];


for k = 1:N
    som = som + coefctable(k)*gamma2(k)*exp(-2*i*pi*log(t)*(k-31)/log(3));
end;

res=som;
end

