Exact Numbers

(2^100-1)/2^99

((3+Pi)/2)^(-3!)

Gamma[34/10+1]

{Zeta[6],Zeta[Pi],Zeta[Pi+1.2]}

Plot[Abs[Zeta[1/2+I y]],{y,0,40}]

pA=2^-2000

numA=N[pA]

(pA-numA)/pA

numA40=N[pA,40]

(pA-numA40)/pA

pB=Sin[Pi^(7/2)+ I]

numB35=N[pB,105]

(numB35-pB)/Abs[pB]

Approximate Numbers

expA = 2.0^-2000

N[expA,40]

SetPrecision[expA,40]

(expA-pA)/pA

(N[expA,40]-pA)/pA

expA100=SetPrecision[2.^-2000,100]

(expA100-pA)/pA

(N[2.^-2000,100]-pA)/pA

expB=Sin[Pi^3.5 +I]

Abs[(expB-pB)/pB]

N[expB,35]

Abs[(N[expB,35]-pB)/pB]

expC=SetPrecision[Sin[Pi^3.5+ I],50]

Abs[(expC-pB)/pB]

expD=Sin[SetPrecision[Pi^3.5+I,50]]

Abs[(expD-pB)/pB]

expE=Sin[SetPrecision[Pi^3.5,35]+I]

Abs[(expE-pB)/pB]

expF=Sin[Pi^SetPrecision[3.5,50]+ I]

Abs[(expF-pB)/pB]

expG=Sin[Pi^3.500000000000000000000000000000000000000000000+ I]

Abs[(expG-pB)/pB]