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}] 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}]