#C22.txt: ExpMath (RU), Spring 2018, APril 9, 2018 Help:=proc(): print(`ZNt(N,t) , ZNtR(N,t) , FindIC(f,t,T,res), OneS(f,t,t0),RN( f,t,t0,N,err)`): end: # zeta_N(1/2+I*t)*zeta_N(1/2-I*t) ZNt:=proc(N,t) local n: Re(add(1/n^(1/2+I*t),n=1..N)*add(1/n^(1/2-I*t),n=1..N)); end: #add(1/n,n=1..N) + add(n1^(1/2+I*t)*n2^(1/2-I*t)= ADD(sqrt(n1*n2)* 2(cos(log(n1)-log(n2))*t),1<=n1