(*常数{d,c}:*)eq=FindRoot[{1/QPochhammer[r*s]^2==s,1/s+2*r*Sqrt[s]*导数[0,1][QPochammer][r*s,r*s]==(2*(Log[1-r*s]+QPolyGamma[0,1,r*s))/;{N[1/r/.eq,120],val=Sqrt[((1-r*s)*Log[r*s]^2)/(Pi*(16*r*s*ArcTanh[1-2*r*s]-(-1+r*s r*s])*QPolyGamma[0,1,r*s]+(4-4*r*s)*QolyGamma[0,1,r*s]^2+4*(-1+r*s)**对数[r*s]*导数[0,2][QPochhammer][r*s,r*s]-2*导数[0,0,1][QPolyGamma][0,1,r*s))]/。等式;N[Chop[val],-楼层[Log[10,Abs[Im[val]]]-3]}(*瓦茨拉夫·科特索维奇,2023年10月3日*)