mathematica吧
关注: 14,632 贴子: 59,399

自带帮助是最好的教材,提问前请先仔细查查

  • 0
    我的电脑有4个核。 ---------------------------------------------------------- 测试A:循环中不含迭代 Table[Pause[0.1]; i, {i, 1, 5}] // AbsoluteTiming 输出:{0.490122, {1, 2, 3, 4, 5}} 可以看到:串行计算耗时0.5秒,计算结果{1,2,3,4,5} Parallelize[Table[Pause[0.1]; i, {i, 1, 5}]] // AbsoluteTiming 输出:{0.228474, {1, 2, 3, 4, 5}} 可以看到:并行计算耗时0.2秒,计算结果{1,2,3,4,5} ---------------------------------------------------------- 测试B:循环中含有迭代 a = 0; Table[Pause[0.1]; a = a + 1, {i, 1, 5}] // AbsoluteTiming 输出
  • 2
    {xsol, ysol} = NDSolveValue[{x'[t] == 2 x[t] - 2 x[t]^2 - x[t]*y[t], y'[t] == 2 y[t] - 2 y[t]^2 - x[t]*y[t], x[0] == 0.5, y[0] == 1}
    qq_ant 2-15
  • 0
    也算是对这帖(http://tieba.baidu.com/p/2964416898)的2,3,4条的解说吧。有什么意见或建议欢迎提出: http://note.youdao.com/share/?id=abd51087f44c0b6a41ff6022d549dc4
    xzcyr 2-15
  • 0
    小白想自学请问哪位大佬有视频教程
  • 1
    把任意一个置顶放在最上面,违反另一条的就会涨,没办法,试验性地造个第2.5条置顶好了。 大家有什么更好的对策欢迎留言。
    xzcyr 2-15
  • 3
    关键词:Export Import Read ReadList BinaryRead BinaryReadList DumpSave 导入 导出 Excel 用户友好 CSV XLS XLSX TXT 图片 PDF EPS …… 想想还是开个帖子整理下常见的导入导出问题及技巧。为方便修订照例放在云笔记上,请大家多点几下鼠标: note.youdao.com/noteshare?id=cca8f44b56fcab28a6b9bfb394397e21 有什么意见或已经议欢迎提出,不过回帖不看帖的照例直接删。
    wshzh1966 2-15
  • 1
    data = {} For[i = 1, i <= 20000, i++, {\[Phi] = RandomReal[{0, 2 Pi}], t = RandomReal[{0, 1}], x[i] = Sqrt[1 - t^2] Sin[\[Phi]], y[i] = Sqrt[1 - t^2] Cos[\[Phi]], z[i] = t}; AppendTo[data, {x[i] , y[i] , z[i]}]] ListPlot3D[{data}, Mesh -> None] 如果改成全球面 即在z的表达式里加入正负 data = {} For[i = 1, i <= 20000, i++, {\[Phi] = RandomReal[{0, 2 Pi}], t = RandomReal[{0, 1}], a = If[RandomReal[{0, 1}] > 0.5, 1, -1], x[i] = Sqrt[1 - t^2] Sin[\[Phi]], y[i] = Sqrt[1 - t^2] Cos[\[Phi]], z[i] = t*a}; AppendTo[data, {x[i] , y[i] , z[i]}]] ListPlot3D[{data}, Mesh -> N
    0.0.0.* 2-14
  • 2
    Table[x^2,{5}] out={x^2,x^2,x^2,x^2,x^2} ------------------------------------------ y={5} Table[x^2,y] Table::nliter: 位置 2 处的非列表迭代器(non-list iterator) y 没有算出实数值. out=Table[x^2,y] ------------------------------------------ table是怎么把y和{5}区分开的?
    hdjcgug 2-14
  • 1
    大概问题就是运算很久都不出结果,不知道是不是写法有问题
    0.0.0.* 2-13
  • 4
    有几位吧友反映汉化包有问题,今天试了一下发现汉化成功,所以发个帖说一下注意事项(不想挖坟,之后汉化包这块可能会改到github更新 图为汉化成功截图 系统为Ubuntu 18.04
    54400092 2-13
  • 7
    如图所示,打开mathematica9,在默认新建的notebook里面 输入 a+1 回车 显示 Out[1]=1+a 然后输入 a+2 回车 然后就一直显示"正在运行...未命名-1*&
    ggs880418 2-11
  • 4
    如图,我在输入本子上写的函数后,想要画图和求极值,但是图总是画不出来,输入的时候问题在哪儿呢?希望有大佬能够指教,谢谢了...
    未宇97 2-10
  • 3
    多参量的微分方程用Mathematica咋解解??
  • 7
    用FindFit拟合了一些结果,需要把各个变量的拟合值导出到文件里…… 但是发现FindFit的输出不是String也不是List,不知道怎么操作…… 请问各位大佬能不能指点一下迷津……最后最好能输出变量的拟合值,分行………… 谢谢大家!!
  • 7
    今天刚下了最新版11.3,然后作图发现线条变粗了,不如老版的好看(我之前用的8.0)。请问怎么修改线条的默认设置阿,想改回老版的粗细 附个简单的代码: Plot[-(Sqrt[x]/2) + (9 x^(3/2))/4 - 4 x^2, {x, 0, 1}] 下面是生成的图像:
  • 1
    如题,mathematica 每次开始计算时,总是出现 是否自动计算所有初始化单元,如图 求问大佬 怎么关闭
    magus000 2-3
  • 5
    新人求解,谢谢各位大神。 NMaximize[{y, 3.5 < yx^5 < 6, 1.732051 < 4 y*x^4 < 5.6713, y < 1, x > 1}, {y, x}]
  • 4
    导入的数据u怎么画图, Import["C:\\Users\\Administrator.WIN-V9SNTOLOT8M\\Desktop\\0.txt"] 01.62065e-22 01.61249e-19 0.018.88655e-06 0.021.74105e-05 0.032.55691e-05 0.043.33668e-05 0.054.08105e-05 0.064.79083e-05 0.075.46691e-05 0.086.11023e-05 0.096.72171e-05 0.17.30229e-05 0.117.85289e-05 0.128.37442e-05 0.138.86776e-05 0.149.33376e-05 0.159.77325e-05 0.160.00010187 0.170.000105759 0.180.000109405 0.190.000112817 0.20.000116002 0.210.000118968 0.220.000121723 0.230.000124275 0.240.000126634 0.250.000128811 0.260.000130816 0.270.000132663 0.280.000134364 0.290.000135935 List
    xzcyr 2-2
  • 7
    我要处理一个excel里的数据,但是这个版本的mma导入excel会出错。 比如新建一个excel,如下: 导入的代码为: data = Import["E:\\桌面\\1.xlsx"] data = Import["E:\\桌面\\1.xlsx", "XLSX"] 但是结果为: 这个版本不知道怎么读excel总是不成功。 求大家帮忙~
    xzcyr 2-2
  • 3
    Mathematica在计算的过程中是否会重复计算表达式的推导呢? 比如定义一个函数 f[x_,y_]:=Limit[func,z->0]; func是一个表达式,里面含有x,y,z三个变量,然后要计算f[1,2],f[2,3]等多个数值,在这种计算过程中Mathematica是否每次都要先计算函数f[x_,y_]的具体表达式,然后再将x,y的值代入进去? 这样做的效率很低,当然可以先用FullSimplisy@Limit得到一个化简的式子,然后用化简的式子作为f[x_,y_]的定义,可这样做写起来很麻烦,有木有什么好办法?
    任道正 1-30
  • 4
    如图所示,输出的格式变得非常奇怪,并且复制删帖以后还多出了 ` 符号,求解,怎么变成一般的格式
  • 5
    请问该方程可以用mma求解么,我自己用DSlove试了下,提示缺少条件
  • 9
    请问如何把作出的函数图像清晰的保存到word里?我试了以下4种方法:(1)直接在mma里鼠标右键复制图像,然后在word里鼠标右键点击保存。结果严重失真:图像在word里变小,线条扭曲,坐标轴比例失调。(2)在mma里右键另存为jepg或者gif格式,然后在word中插入保存的图片。结果图像的两个坐标轴变粗,曲线也变粗,图像远不如在mma里清晰。(3)另存为bitmap格式,在word中插入图片。结果两个坐标轴变粗,曲线变粗,图像清晰度比jepg和gif清晰一些,但是
    超级city 1-28
  • 2
    有个简单的问题想咨询一下,我想把一个式子代入另一个式子计算,比如a=b+c d=e+f 想计算g=a+d(都是未赋值变量),但是我选中g计算的结果还是a+d,该怎么解决呢
  • 13
    怎么让print输出不换行?且用逗号隔开? Do[Print[Subscript[b, i] ], {i, n}]
  • 5
    代码如下: L = 5; c = 0.2; FF = Tan[L*b] - (c*b)/(b^2 - 0.01); Plot[FF, {b, 200, 210}] q1 = b /. FindRoot[FF, {b, 0.3}] q2 = b /. FindRoot[FF, {b, 0.5}] q3 = b /. FindRoot[FF, {b, 7}]; q4 = b /. FindRoot[FF, {b, 7.5}]; q4 - q3 m = 50; B = Table[0, {j, 1, m}]; B[[1]] = B[[1]] + b /. FindRoot[FF, {b, 0.3}]; B[[2]] = B[[2]] + b /. FindRoot[FF, {b, 0.5}]; NE = 0.6; Table[ x1 = B[[2]] + (i - 2)*NE1; B[[i]] = B[[i]] + b /. FindRoot[FF, {b, B[[i - 1]] + NE}, MaxIterations -> Infinity] , {i, 3, m}]; B[[30]]
    筇殇love 1-27
  • 0
    问题: Method->{"DistributionAxes" ->“SmoothHistogram”},该命令在SmoothDensityHistogram中不起作用了么? 如下代码,应当生成下图(其中之一) data = RandomReal[BinormalDistribution[{-1, 2}, {1, 1}, .8], 1000]; GraphicsColumn[ Table[SmoothDensityHistogram[data, ColorFunction -> "DarkRainbow", Method->{"DistributionAxes" -> p}, ImageSize -> 500, BaseStyle -> {FontFamily -> "Helvetica"},MeshFunctions->{#3&},Mesh->5, LabelStyle -> Bold], {p, {True, "SmoothHistogram", "BoxWhis
  • 3
    n = 2 F = Integrate[(D[Subscript[u, n] = \!\( \*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(n\)]\( \*SuperscriptBox[\((1 - t)\), \(3\)] \*SuperscriptBox[\(t\), \(3\)] \*SuperscriptBox[\(t\), \(k - 1\)] \*SubscriptBox[\(a\), \(k\)]\)\), {t, 2}])^2, {t, 0, 1}] + c (Integrate[(Subscript[u, n] = \!\( \*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(n\)]\( \*SuperscriptBox[\((1 - t)\), \(3\)] \*SuperscriptBox[\(t\), \(3\)] \*SuperscriptBox[\(t\), \(k - 1\)] \*SubscriptBox[\(a\), \(k\)]\)\))^2, {t, 0, 1}] - 1) Solve[Do[Print[D[F, Subscript[a, i]]], {i, n}], D[F, c], {Do[Print[Subscript[a, i]], {i, n}],
    氘化氢 1-26
  • 22
    Plot[{(1 + 1/n)^n, E}, {n, 1, 10000000}] 然后往10000000上多加一个零,就出错了:
    magus000 1-24
  • 1
    x^18 - Exp[-(4/x^2)]*x^18 - Exp[-(4/x^2)]*x^16 - Exp[-(4/x^2)]*x^14,按理说这个函数是单调递增的, 为比较,我又画了一个把x的低次幂即16、14次幂去掉的函数图像。 可以看到当我把x设为从0到1*10^7时,是符合的。 但是当我设到3*10^7时,可以看到出现小的波动 进一步,设到7*10^7时,这种现象就更明显了 为了更好地看清,我把区间设为从5*10^7到7*10^7,可是可以看到有的确有上下波动,这是为什么呢? 阶梯型上升可能是值太大显示的问题,但这波动我有点无法理解,
    xzcyr 1-23
  • 5
    f[x_, y_] := 30 /; 0 <= x <= 500 && 0 <= y <= 5; f[x_, y_] := 30 + 3*(y - 5) /; 0 <= x <= 500 && 5 < y; f[x_, y_] := 55 /; 500 < x <= 1000 && 0 <= y <= 5; f[x_, y_] := 55 + 4*(y - 5) /; 500 < x <= 1000 && 5 < y; f[x_, y_] := 100 /; 1000 < x <= 1800 && 0 <= y <= 5; f[x_, y_] := 100 + 5*(y - 5) /; 1000 < x <= 1800 && 5 < y; f[x_, y_] := 350 /; 1800 < x <= 7000 && 0 <= y <= 15; f[x_, y_] := 350 + 15*(y - 15) /; 1800 < x <= 7000 && 15 < y; Plot3D[f[x,
    肖观印 1-23
  • 8
    为什么输出会和输入一样?有什么语法错误吗?
  • 2
    Ns = 2; Nd = 2; ra = 5; b = 0.158; m = 19.4; ow = 1.29; rg = 10^(1/10); alpha = (1/(2*b))*((2*b*m)/(2*b*m + ow))^m; beta1 = 1/(2*b); delta = ow/(2*b*(2*b*m + ow)); d = Max[Ns, Floor[m*Ns]]; c = Max[d - Ns, 0]; epc = m*Ns - d; l = 1; NIntegrate[(ExpIntegralEi[-x]*((-x^(-d + l - 1))* MeijerG[{{1}, {d - l}}, {{d - l + 1, d - l + 1, d}, {}}, (10^(ra/10)*x)/((beta1 - delta)*rg)])* MeijerG[{{1}, {}}, {{Nd, Nd + 1}, {}}, (10^(ra/10)*x)/rg])/x^Nd, {x, 0, Infinity}] ---------------------------------------------- Ei和两个Meijer函数的数值积分,但是在奇点的时候显示得到两个函数
    咖啡机 1-22
  • 22
    如图为Table Of Integrals, Series And Products 中的公式,但在验证的时候: 代码: q = 1; w = 2; e = 2; r = 2; N[Hypergeometric2F1[q, w, e, r]]; N[1/(2*\[Pi]*I)*Gamma[e]/(Gamma[q]*Gamma[w]) Integrate[(Gamma[q + x]*Gamma[w + x]*Gamma[-x])/Gamma[e + x]*(-r)^ x, {x, -50*I, 50*I}]];
    xzcyr 2-2
  • 67
    MMA虽然强大,功能非常人性化,这归功于其涉及面广阔而纷繁复杂的各种内置函数和相应的选项,可以实现我们所需要绝大部分功能。但由于算法的复杂性或是商业保密原因,它拒绝将内部过程透露给你,也不给数据接口,这就导致多元化的自定义不是那么自由了。 要知道,人需求是随着所遇到的问题、时间逐渐增加的,既然内置函数都是封装的,那么新的需求或者功能,只能依靠开发人员进行版本更新、添加补充新的函数才能实现。 当然,用户也
  • 2
    对于26sinx=lnx,求x=23附近的根,该用哪个函数啊。 嗯,另外贴吧里面有没有关于对mathematics函数的解释和使用教导的帖子啊。谢谢
  • 6
    椭圆 一个动点到俩定点的距离 之和为一常数
    汤发发_ 1-19
  • 2
    开这帖没别的目的,就为了把十戒(http://tieba.baidu.com/p/2964416898)里的9到11条 9 没赋值的变量是蓝色的,注意这点能有效避免低级错误 10 赋过值的变量会变黑,注意这点能有效避免低级错误 11 内置函数全是黑色的,注意这点能有效避免低级错误 以一个更显眼的方式强调一遍(话说能理解上面三句的诸位可以出帖了,下面没新东西),顺便补充少许的例子。 为了便于修订,照例开了个笔记,请大家多点一下鼠标: note.youdao.com/noteshare?id=06adaac6aaf85c8
    xzcyr 1-19
  • 1
    我试了一下用if和Piecewise构造分段函数,用FindMinimum,NMinimize求最小值都没有结果,是最优化函数本身不支持分段函数,还是我的代码出了问题
    0.0.0.* 1-19
  • 15
    因为要在Linux用MMA又想用MMA中文帮助,目前提取了11.1和11.3的中文语言包,顺便分享出来。以后可能会补充其他版本的语言。(度盘限速没办法下载太多版本) 参照了 贴吧/p/4024190694 语言包不提供任何担保。 如有侵权,联系删除。 楼下放链接和教程
    a547673135 1-18
  • 9
    mathematica有专门函数求解吗
    wb揭谛 1-18
  • 17
    这是我的模仿对象: 我现在能做到这种程度,再往下真不会了: 用mma作图是不是很不自由啊,比如说我的轴标签的位置在轴的什么位置我定不了。还有原图
    xzcyr 1-17
  • 1
    r2 = {x, y, z} r1 = EuclideanDistance[r2, 0] oop = 3/(4*\[Pi]*((r1)^3)) Curl[{oop*x, oop*y, oop*z}, {x, y, z}] Div[{oop*x, oop*y, oop*z}, {x, y, z}]
  • 3
    我正在做一个关于微分方程的课题,需要数值解微分方程组。我的笔记本配置还行,i7 7700 内存32G。但经常
  • 0
    试了很多方法都不行,这是一个非自治的微分方程,一直显示有奇点或者是刚性方程,有没有办法弄过去,吧里的方法都试过了也不行 s = NDSolve[{x'[t] == 0.3 y[t], y'[t] == -0.1 x[t] - 0.01 y[t] + 0.2 y[t]^2 + 0.5 Cos[2 Pi t] + 4, x[0] == 1, y[0] == 1}, {x[t], y[t]}, {t, 0, 50 Pi}] ParametricPlot[Evaluate[{x[t], y[t]} /. s], {t, 0, 50 Pi}, PlotStyle -> Red]
    0.0.0.* 1-17

  • 发贴红色标题
  • 显示红名
  • 签到六倍经验

赠送补签卡1张,获得[经验书购买权]

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
    • 猜球赢海信大奖
      葡萄牙
      34%
      威尔士
      33%
      1467831600
      欧洲杯
      VS
      33%

本吧信息 查看详情>>

小吧:小吧主共10

会员: Expr

目录: 程序设计

友情贴吧

大家都在搜
  • mathematica下载
  • mathematica matlab
  • mathematica求定积分
  • mathematica安卓版
  • mathematica官网
  • matlab学会需要多久
  • mathematica求极限
  • mathematica教程
  • mathematica求导
  • mathematica中文官网
  • mathematica切线方程
  • mathematica求函数的值
  • mathematica绝对值定积分
  • mathematica怎么用
  • Mathematica和matlab
  • mathematica学生版
  • mathematica12
  • wolfram alpha 安卓下载
  • mathematica画切线
  • mathematica函数图像
  • mathematica中文版下载
  • mathematica中文
  • Mathematica的应用
  • r=a(1+cosθ)图像