跪求一教 - mathematica吧

level 1

tugeniub 楼主

小弟毕业设计要用，用mathematica解一个波导方程，大概要求如下，式子是关于x和y的超越方程，对于x从0.3到1.5均匀取1000个点，求得y的数值解，且规定y的解取1到1.4之间的数值解，并作出x，y的图像，方程复杂以f（x，y）代替，求个大神教一下代码如何写，谢谢

2015年05月15日 12点05分 1

level 11

paxiatog

f[x_, y_] := y - x^2
ListPlot[Transpose[{
#, Flatten[y /. Solve[f[#
, y] == 0, y] & /@ #]} &@
Range[0.3, 1.5, 1/999]]]

2015年05月16日 06点05分 4

tugeniub

不能确定一定y取1-1.4之间的根啊，我那个贝塞尔方程有无限多解

2015年05月16日 07点05分

paxiatog

ListPlot[Transpose[{
#, Flatten[y /. Solve[{f[#
, y] == 0, 1 < y < 1.4}, y] & /@ #]} &@ Range[0.3, 1.5, 1/999]]]

2015年05月16日 07点05分

吧务

level 15

xzcyr

所以又到了安利RootSearch的时间了？：http://library.wolfram.com/infocenter/Demos/4482/

2015年06月06日 13点06分 6

贴吧用户_5XEA8MX

小白想问，按照Example里 If[$VersionNumber>5, ToFileName[{$TopDirectory,"AddOns","ExtraPackages"}], ToFileName[{$UserBaseDirectory,"Applications"}] ]得到的路径把RootSearch文件粘到了相应文件夹内并运行，但是还是报错

2023年09月14日 08点09分

贴吧用户_5XEA8MX

报错内容是Get::noopen: Cannot open Ersek`RootSearch`. >>Needs::nocont: Context Ersek`RootSearch` was not created when Needs was evaluated. >>，这是为什么

2023年09月14日 08点09分

贴吧用户_5XEA8MX

我的mathematica是9.0版本的

2023年09月14日 08点09分

贴吧用户_5XEA8MX

按照Example里 If[$VersionNumber<5, ToFileName[{$TopDirectory,"AddOns","ExtraPackages"}], ToFileName[{$UserBaseDirectory,"Applications"}] ]得到的路径把RootSearch文件粘到了相应文件夹内并运行，但是还是同样报错

2023年09月14日 08点09分