|
V[d_]：=积分[Boole[Abs[Sum[x[i]，{i，1，d}]]<=1]，
表[x[i]，{i，1，d}]\[元素]
长方体[表[-1，{i，1，d}]，表[+1，{i、1，d{]]（*Lorenz H.Menke，Jr.*）
v[d_]：=与[{a=Array[x，d]}，RegionMeasure@ImplicitRegion[a∈长方体[-表[1，d]，表[1、d]]&&-1<=总数[a]<=1，a]]（*Carl-Woll*）
v[d_]：=2^（d+1）/（Pi）积分[Sin[t]^（d+1）/t^（n+1），{t，0，无穷}]（*Carl Woll*）
| 