作业帮mathematica 求解带参数的方程组,下面程序解不出答案,pi = 3.14w = 3*10^(-5)x = 15*10^(-6)d = 1*10 (-3)r = 150*10^(-6)Nsolve[{(R - z + d)^2 + r^2 - 2*r*(R - z + d) == R,R == z*(1 + (pi*w^2/(x*z))^2)},{R,z}]
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 12:28:01
![mathematica 求解带参数的方程组,下面程序解不出答案,pi = 3.14w = 3*10^(-5)x = 15*10^(-6)d = 1*10 (-3)r = 150*10^(-6)Nsolve[{(R - z + d)^2 + r^2 - 2*r*(R - z + d) == R,R == z*(1 + (pi*w^2/(x*z))^2)},{R,z}]](/uploads/image/z/11507160-48-0.jpg?t=mathematica+%E6%B1%82%E8%A7%A3%E5%B8%A6%E5%8F%82%E6%95%B0%E7%9A%84%E6%96%B9%E7%A8%8B%E7%BB%84%2C%E4%B8%8B%E9%9D%A2%E7%A8%8B%E5%BA%8F%E8%A7%A3%E4%B8%8D%E5%87%BA%E7%AD%94%E6%A1%88%2Cpi+%3D+3.14w+%3D+3%2A10%5E%28-5%29x+%3D+15%2A10%5E%28-6%29d+%3D+1%2A10+%28-3%29r+%3D+150%2A10%5E%28-6%29Nsolve%5B%7B%28R+-+z+%2B+d%29%5E2+%2B+r%5E2+-+2%2Ar%2A%28R+-+z+%2B+d%29+%3D%3D+R%2CR+%3D%3D+z%2A%281+%2B+%28pi%2Aw%5E2%2F%28x%2Az%29%29%5E2%29%7D%2C%7BR%2Cz%7D%5D)
mathematica 求解带参数的方程组,下面程序解不出答案,pi = 3.14w = 3*10^(-5)x = 15*10^(-6)d = 1*10 (-3)r = 150*10^(-6)Nsolve[{(R - z + d)^2 + r^2 - 2*r*(R - z + d) == R,R == z*(1 + (pi*w^2/(x*z))^2)},{R,z}]
mathematica 求解带参数的方程组,下面程序解不出答案,
pi = 3.14
w = 3*10^(-5)
x = 15*10^(-6)
d = 1*10 (-3)
r = 150*10^(-6)
Nsolve[{(R - z + d)^2 + r^2 - 2*r*(R - z + d) == R,R == z*(1 + (pi*w^2/(x*z))^2)},{R,z}]
mathematica 求解带参数的方程组,下面程序解不出答案,pi = 3.14w = 3*10^(-5)x = 15*10^(-6)d = 1*10 (-3)r = 150*10^(-6)Nsolve[{(R - z + d)^2 + r^2 - 2*r*(R - z + d) == R,R == z*(1 + (pi*w^2/(x*z))^2)},{R,z}]
Mathematica的语句是要有分号结尾的,还有就是系统默认函数采用的是驼峰命名法.
不过Mathematica的提示很管用,比如你敲nsolve,紧接着按ctrl+K,就会有提示和纠正你的拼写错误,变成NSolve .
这样就可以了
pi = 3.14;
w = 3*10^(-5);
x = 15*10^(-6);
d = 1*10 (-3);
r = 150*10^(-6);
NSolve[{(R - z + d)^2 + r^2 - 2*r*(R - z + d) == R,
R == z*(1 + (pi*w^2/(x*z))^2)},{R,z}]
大写如下:
pi = 3.14
w = 3*10^(-5)
x = 15*10^(-6)
d = 1*10 (-3)
r = 150*10^(-6)
NSolve[{(R - z + d)^2 + r^2 - 2*r*(R - z + d) == R,
R == z*(1 + (pi*w^2/(x*z))^2)}, {R, z}]
第二个方程中z是三次方，两个方程不能解三次的吧