(C1) SHOW(A([I],[J,R],K,R)+A([I],[J,R,S],K,R,S)); J R S J R (D1) A + A I,K R S I,K R (C2) SHOW(FLUSHND(D1,A,3)); J R (D2) A I,K R
NZETAR(Z) ==> REALPART(NZETA(Z))
NZETAI(Z) returns IMAGPART(NZETA(Z)). This function is related to the complex error function by
NZETA(Z) = %I*SQRT(%PI)*EXP(-Z^2)*(1-ERF(-%I*Z)).
R[i,j,k,l]*UR[i,j,k,l].
This object is not
automatically simplified since it can be very large.