
mathematica问题求解 5
NSum[(-1)^(a+b+c)/Sqrt[(a+b-c)^2+(-a+b+c)^2+(a-b+c)^2],{a,-200,200},{b,-200,200},{c,-...
NSum[(-1)^(a+b+c)/Sqrt[(a+b-c)^2+(-a+b+c)^2+(a-b+c)^2],{a,-200,200},{b,-200,200},{c,-200,200}]
用mathematica算这个累次求和的时候,需要把(0,0,0)这点去掉,求问用什么语句?
怎么写? 展开
用mathematica算这个累次求和的时候,需要把(0,0,0)这点去掉,求问用什么语句?
怎么写? 展开
2个回答
展开全部
{a,-200,-1},{b,-200,200},{c,-200,200} + {a,1,200},{b,-200,200},{c,-200,200}
+ {a=0},{b,-200,-1},{c,-200,200} + {a=0},{b,1,200},{c,-200,200}
+ {a=0},{b=0},{c,-200,-1} + {a=0},{b=0},{c,1,200}
__________________________________________________________________ or you can
NSum[(-1)^(a+b+c)/(Sqrt[(a+b-c)^2+(-a+b+c)^2+(a-b+c)^2] + Boole[a==0&&b==0&&c==0]),{a,-200,200},{b,-200,200},{c,-200,200}] -1
+ {a=0},{b,-200,-1},{c,-200,200} + {a=0},{b,1,200},{c,-200,200}
+ {a=0},{b=0},{c,-200,-1} + {a=0},{b=0},{c,1,200}
__________________________________________________________________ or you can
NSum[(-1)^(a+b+c)/(Sqrt[(a+b-c)^2+(-a+b+c)^2+(a-b+c)^2] + Boole[a==0&&b==0&&c==0]),{a,-200,200},{b,-200,200},{c,-200,200}] -1

2025-04-08 广告
Stata系列软件全国授权代理——北京友万。北京友万信息科技有限公司,总部设在北京市昌平科技园区,是一家专注于引进国内外软硬件产品的中关村高新技术企业。公司拥有多项自主研发的数据平台,依托自身经验丰富的技术团队资源,为不同领域的客户提供全面...
点击进入详情页
本回答由友万科技提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询