mathematica吧
关注: 17,061 贴子: 64,977

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

  • 28
    因为要在Linux用MMA又想用MMA中文帮助,目前提取了11.1和11.3的中文语言包,顺便分享出来。以后可能会补充其他版本的语言。(度盘限速没办法下载太多版本) 参照了 贴吧/p/4024190694 语言包不提供任何担保。 如有侵权,联系删除。 楼下放链接和教程
    惊澜 1-15
  • 4
    我有个方程比较复杂积分弄不出來,现在想用数值积分的方法。比如我定义域是(0.5)。然后我想以0.01为步长进行积分,有没有什么办法可以把每一段步长的积分值一次性输出出来。我如果每次手动改区间工作量太大了。
    熵与焓 1-16
  • 23
    搜了一下,发现吧里好像没有主题帖专门说这个。(尽管我觉得这应该是任何一个有心学习Mathematica的人都能很容易地接触到的常识。)那就专开一帖好了。 为了便于修订,照例放到云笔记上: note.youdao.com/noteshare?id=7334ad886b97de3565d59beea50b5350 ……其实不看云笔记都无所谓,概括起来就那么几句话: 1. For循环写起来很冗长——这其实是其次的; 2. For循环在Mathematica里很慢——这其实也是其次的; 3. For循环的表意逻辑,几乎在任何情况下,都无意义地复
    m001 3-21
  • 5
    如图所示,在输出的结果中有小括号代表什么意思呢?能否输出一个确定的值呢?源代码如下所示: In[1]:= n = 2;(*稳定器个数*) D1 = 24.4;(*钻头直径Db*) D2 = 24.4; (*井眼直径*) l1 = 1800; (*第一跨钻铤长度*) l2 = 900; (*第二跨钻铤长度*) Dl1 = 20.32; (*第一跨钻铤外径 8寸钻铤*) DL1IN = 7.14;(*第一跨钻铤内径 8寸钻铤*) Dl2 = 17.8;(*第二跨钻铤外径 7寸钻铤*) DL2IN = 7.14;(*第二跨钻铤内径 7寸钻铤*) Dl3 = 17.8;(*第三跨钻铤外径 7寸钻铤*) DL3IN = 7.14;(*第三跨钻铤内径 7寸钻铤*) DS1 =
    澄life 1-16
  • 5
    以这个为例 ListPlot[Monitor[Table[{x, Sin[x]}, {x, 0, 2 Pi, 0.2}], x]] 比如想从红色渐变到蓝色,点集连线的渐变色我能弄出来,ListLinePlot,再加上ColorFunction -> {Blend[{Red, Blue}, # 1] &},但是对于点集ListPlot的渐变色就不行了。 应该怎么弄?谢谢!!
    无影东瓜 10-20
  • 59
    贴吧新弄了个贴条,贴条只能同时存在10个并且只能实际只能显示26字,于是我就在想着是不是该总结些Mathematica新手最常见的问题贴到那上面滚动播出(虽然很多人或许不会看,但有总比没有好嘛……)。试着弄了个草稿(二十戒),大家可以看看,哪些需要修改,哪些需要删节或补充: 二十戒 1 不要为了节约硬盘选择过老的版本。至少要用版本7 2  自带帮助是最好的教材,提问前先打开软件按下F1仔细查查 3 将光标停在不认识的函数前/中/后再
    xzcyr 9-5
  • 7
    【求助】画图的数值问题。 请问怎么让Plot3D或者等高线contourplot作出的图使固定颜色对应固定数值呢?并且这个标准适用每一张图。plotlegends只能在每张图的旁边加一个色彩棒,但并不是让所有图处于同一标准之下。
  • 1
    sp500 = FinancialData["SP500", "FractionalChange", {{2000, 1, 1}, {2009, 1, 1}, "Day"}] edist = EstimatedDistribution[sp500, NormalDistribution[\[Mu], \[Sigma]]] hist = Histogram[sp500, Automatic, "PDF"];Show[hist, Plot[PDF[edist, Quantity[x, "%"]], {x, -10, 12}, PlotStyle -> Thick, PlotRange -> All]]
    xzcyr 1-2
  • 0
    自己输入的代码是这样的 In[6]:= \[Psi][\[Xi]] = E^(-\[Xi]^2/2) H[\[Xi]]; H[\[Xi], Subscript[a, \[Nu]]] = Sum[Subscript[a, \[Nu]] \[Xi]^\[Nu], {\[Nu], 0, \[Infinity]}]; \[Psi][\[Xi]] Out[8]= E^(-(\[Xi]^2/2)) H[\[Xi]] In[9]:= \[Psi]'[\[Xi]] = D[E^(-(\[Xi]^2/2)) \!\( \*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\( \*SuperscriptBox[\(\[Xi]\), \(\[Nu]\)]\ \*SubscriptBox[\(a\), \(\[Nu]\)]\)\), \[Xi]] Out[9]= E^(-(\[Xi]^2/2)) \!\( \*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\(\[Nu]\ \*SuperscriptBox[\(\[Xi]\), \(\(-1\) + \[Nu]\)]\ \*SubscriptBox[\
  • 1
    有没有大神知道这个图像怎么做到吗?
    黑黄 1-12
  • 6
    也算是对这帖(http://tieba.baidu.com/p/2964416898)的2,3,4条的解说吧。有什么意见或建议欢迎提出: http://note.youdao.com/share/?id=abd51087f44c0b6a41ff6022d549dc4
  • 3
    In[30]:= RowReduce[{{1, l1, 0}, {l1, 0, l2}, {l2, 0, l1}}] Out[30]= {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}} 显然当(l1=l2)≠0时结果是错的。 正确答案应该为: {{1,l1,1},{0,-l1,1},{0,0,0}} 要怎样才能得到正确的答案?
    冉qx 1-10
  • 30
    这个 mathematica 10启动界面下面明明有字,为什么显示不完全?简直不能忍,每次一看到,就有满满的负能量
  • 3
    大佬们,怎么才能让我图中的这三个数据求和,然后其他的元素不变啊
  • 1
    也差不多该针对语义式匹配(Semantic Pattern Matching)专开个帖子了。为方便修订,照例开个云笔记,请各位多点一下鼠标: http://note.youdao.com/noteshare?id=77b86cb08aaf29ce8747990c9e71 有什么意见或建议欢迎提出。
  • 4
    在实践中发现对此不甚明了的人意外地多,故开此主题。为方便修订,照例弄个云笔记,请多点一下鼠标: http://note.youdao.com/noteshare?id=f2cdd9e72b66c73f372296800de7
    ZX_10281028 11-30
  • 4
    如果你 1. 觉得:=能把自变量全部染绿感觉很好看所以只用:= 2. 觉得:=写出来显得很专业所以只用:= 3. 在某一次使用:=或是=定义函数后出了问题,从此后就只用=或是:=了 4. 觉得=更像传统数学表达式所以只用= 5. 因为自带帮助教程《立即定义和延时定义》(tutorial/ImmediateAndDelayedDefinitions)里说了一句“在无法确定时用 := 总比用= 好一些. ”而开始无脑使用:=定义函数 6. 某篇教程声称=是用来定义变量的而:=是用来定义函数的 7. 因为其他的什么理由而只使用:=
  • 3
    我需要求一个积分,积分中有一个函数YO[x],YO函数为YO[x_] = Sum[E^(((I*h*Pi)/(\[Lambda]*f))*x^2)*Subscript[Y, h][x, z = 13.5], {h, -5, -1}] /. S(其中Subscript [Y,h][x,z]是偏微分方程的一个解)。我在{x,0,30}x的正向区间运行了一下YO[3],发现可以得到具体的值。在这之后我需要把只包含x正方向函数的YO拓展到{x,-30,30},负区间上函数值和正区间的值是对称的。所以我手动定义了一个分段函数,用Piecewise和If函数都试了一下,将函数YO[x]在负区间时的值等于YO[Abs[x]],但是
    aLIEz 1-9
  • 4
    如图在帮助文档中由横线隔开的区域的上下文都不相同。对于tfm,上下文分别为Cell$$4882`和Cell$$4889`。怎样能实现这个功能呢?
    隨意超 1-8
  • 30
    因为课题需要最近要解一个一阶含有11个函数的偏微分方程组,向学校解过这个方程组师兄和老师咨询了一下,他们是用的matlab,python,fotron等语言利用有限元或者有限差分法解的。了解到mathematica新增了一个NDSolve的函数功能,就想着尝试一下,因为这个方程组虽然函数多但是只是个一阶的,而且看到官方的帮助文档中有解耦合偏微分方程组的例子。Mathematica的解给出的是插值函数的形式,但是画图却是一片空白(因为函数中带有复数,所以最后画图时用
    aLIEz 1-8
  • 23
    如图所示,我使用的mathematica版本是10.1 已经使用了两个多月,一直没有发现有什么问题,最近使用的时候发现很简单很简单的计算,发出运行命令后,软件一直在running,无法完成计算。计算机也没有发现有发热之类别的故障,其他程序运行十分正常。 请问广大吧友有没有遇到过这种情况,有没有什么办法可以解决? 非常感谢。
    黑黄 1-5
  • 2
    想用NonlinearModelFit拟合自己写的一个函数的参数,效果非常差(附图),且速度极慢,求助大侠帮忙 附:(代码) ClearAll["Global`*"]; MR[B_, le_, lp_, \[Eta]_ ] := Block[{cq = 6.16*10^-6, \[Rho] = 20.2*10^4, fun, x, y, g, ps, qs, pt, qt, zs, fs, zt, ft, Z, F, lB, \[Alpha], \[Beta], \[Sigma]}, fun[x_, y_] := (2 Sqrt[-x] Sin[1/3 ArcCos[(3 y)/(2 x) Sqrt[-3/x]]])/ Sqrt[-4 x^3 - 27 y^2]; g = (2 (1 - \[Eta]))/(3 (\[Eta] + 1)) ; ps = -4/(3 g^4) (1 - 1/3 g - 8/9 g^2 + 1/3 g^3 - 1/2 g^4); qs = 1/g^6 (16/27 - 8/27 g - 80/81 g^2 + 664/729 g^3 - 28/81 g^4 -
  • 3
    安装时出现错误:hostname: command not found 解决方案: sudo cp /bin/hostnamectl /bin/hostname
  • 2
    有n颗钻石,其中可能有假钻石。(现有一台检测机,能检测钻石数量没有上限,可以一个一个测,也可以混合在一起测,但检测过程中只要有一个假的就会发出红灯。提醒你有假钻石。)你能找到一种方法使得用最少的测量次数,就可以辨别所有钻石吗?请给出证明过程。(如果缺少已知条件,大家补充)
  • 3
    model = CreateSystemModel[{x1'[t] == x2[t], x2'[t] == -9.8 x1[t] + a[t], a[t] == 9.8 x1[t] - x2[t] - Sign[x1[t] + x2[t]], x1[0] == 1, x2[0] == 0}, t] sim = SystemModelSimulate[model, 10, Method -> {"RungeKutta", "StepSize" -> 0.001}] SystemModelPlot[sim, "a", PlotRange -> {-10, 10}, Frame -> True, GridLines -> {Range[10], Automatic}] 仿照MATLAB进行滑模控制的一个例子,按理说在t=1s之后应该出现抖振,但却没有出现,这是怎么回事?
    冉qx 1-3
  • 2
    12.1.1中文版的mathematica,从官方发来的邮件里面的链接下载的安装程序打开后如下 不知道是不是win10的问题,字体小的几乎看不见 有大佬知道怎么办吗
  • 7
    最开始的时候用的Integrate,用积分来画曲线图,但是由于光场连续性以及遇到奇点时,这个命令就不能够很好地解决这个问题,前几天老板让换个思路,用微分的方法,即用NDsolve来解决,在学习中最后碰到一个很奇怪的问题,它报错说我的方程值与前置数不属于一个有维度的数字序列(?): 程序如下: k = 2 \[Pi] \[Phi]0 = \[Pi]/2 EXP = Exp[i*k*z*Cos[t]] Bessel1 = BesselJ[1, k*r*Sin[t]] f[t] = Sqrt[Cos[t]]*Sin[t]*Bessel1*Exp[i*k*z*Cos[t]] EP = NDSolve[{Derivative[1][f][t] == f[t], f[0] == 0},
  • 2
    Limit[(1+2/x)^3x,x->Infinity] 计算结果是∞ 用重要极限算,难道不应该是e^6吗?
    炼铜师 1-2
  • 0
    但是,请做好没人答你的问题的心理准备。 决定暂时不做处罚的原因,主要是目前会这么做的人很少。(一个月也不见得有一个。)“司法”实践不足。 顺便,自己没有做任何尝试的帖子原则上都可以判断为求码帖,诸位吧务应该没忘吧? 最后表个态,我不会回答任何设置了“你需要关注TA才能发表评论”的主题。
    xzcyr 1-2
  • 0
    其实经常在SE答题的盆友应该都有所察觉,那就是Mathematica对LaTeX的导入导出一直不完美。上面提及的这个问题很可能是继承自下面这个问题: ToExpression["\\mathbb{A}", TeXForm] 输出的是普通的A嗯。 \[DoubleStruckCapitalA]右键复制为LaTeX倒是可以正确导出为\mathbb{A},不过这个步骤是由FrontEnd`CopyAsTeX[]函数控制的。参看 mathematica.stackexchange.com/q/102928/1871 个人感觉这回这个LaTeX直接输入功能的上线有点仓促,把 Underscript 的快捷键占了,结果 Underscript 的自带帮
    xzcyr 1-2
  • 3
    @xzcyr 这位大神常常告诫我们要看看代码的颜色,黑了就赋值了,蓝了就没被赋值,但是我肿么发现有些时候前端卡卡之后,再恢复,结果就发现即使赋值过的东西也会是蓝色的诶……这还好说,关键是这个程序我让它跑了一天了,虽然所有的东西都变成蓝色的了,但是貌似程序还在好好运行着呢(有dynamic做的监控,程序运行没问题) 这是不是由于前端卡顿,然后不知如何之后造成的bug呢? bug会在前端处理大图像卡顿,显示未响应,然后恢复之后出
    xzcyr 1-2
  • 0
    这种时候我还是有点斗志的: ContourPlot[Cos[x] + Cos[y], {x, 0, 4 Pi}, {y, 0, 4 Pi}, PlotLegends -> Automatic, Contours -> 10, ContourShading -> False, ContourStyle -> ColorData["AvocadoColors"] /@ Rescale@Array[# &, 10], PlotPoints -> 100] 更多内容可参考 mathematica.stackexchange.com/q/54900/1871 另,觉得Jet方案好看的各位,建议阅读 mathematica.stackexchange.com/q/101625/1871 开头给出的几篇文章。大家都在用Jet?(当年)大家还都用ie6呢。
    xzcyr 1-2
  • 1
    版本11.1时“偏好设置”菜单里的选项改了一次,官网上曾经给出了一份该改动的完整对照表(是的,现在这表在官网找不到了,不知道啥情况),这里贴一下: 这里面有的选项我个人觉得还挺有用的,比如代码自动补全时不区分大小写(CaseSensitiveCommandCompletion)。
    xzcyr 1-2
  • 7
    请问大佬们,用Table生成的高维数组,Export的时候应该用什么文件格式,"Table","CSV","xls"之类的都试过,导出文件再导入没法再正确地读出数来。
  • 6
    之前电脑死机,没有及时关闭Mathematica,现在每次点击Mathematica12.1的时候会出现“严重启动错误”的警告字样,并无法打开,卸载重装后无果。求助
  • 1
    actual(t)的取值的表格我们定义为ss, forecast(t)的取值我们定义为predicts,这个n总共有50个值
    xzcyr 1-2
  • 1
    已知 k=Sqrt[kx^2+ky^2],对kx和ky一系列复杂计算后结果里有很多kx^2+ky^2项,怎样才能把它们换成k^2以化简结果?谢谢
    xzcyr 1-2
  • 2
    我发现Solve只能求解单个变量如x,或者两个{x,y},那么如何求解一个表达式呢(比如x*y) 对于结果是一个常量的表达式我通过FullSimplify来求解,如: 但是如果结果也是一个代数式呢,我发现文档的Reduce,Refine函数也都是只能针对变量进行操作,那么如何才能针对一个代数式进行求解呢,比如: 已知 求: 我发现如果直接使用Solve还是FullSimplify都没法解决,我目前只能手动的去一步步做: verticalEnergy := v1 Sin[theta1] - v2 Sin[theta2] totalEnergy := (m v1^2 - m v2^2)/2 + (
    xzcyr 1-2
  • 3
    我想把一个文件夹下所有的文件名字转化为一个一维数组,有什么好方法吗,改名什么的就算了,数据太多了会乱
    xzcyr 1-2
  • 2
    样本是n组四元数组,写成了n*4的矩阵形式,用Sort重排了一下,然后对应的n个标签怎么按照n个数组重排的方式重排呢。
    xzcyr 1-2
  • 1
    L[x_, y_] := Integrate[l[t], {t, 0, 1.6}] p[x_, y_] := D[L[x, y], x] =和:=都试过了,但赋值给p[x,y]是总是is not a valid variable, 怎么避免它把常数代入求偏导的变量中啊 萌新求助(@_@;)?
    xzcyr 1-2
  • 1
    向大家请教一个问题:如何把DO循环中每一步的结果都输出一次到excel文档里?比如说Do[s=i;export["i.xls",s],{i,1,10,0.1}],但是这样输出文件的名字不会随i变化。我希望对不同的i输出文件的名字也不同。请问应该如何解决?
    xzcyr 1-2
  • 7
    一三从 2020-12
    利用龙格库塔算法求解三体问题运动轨迹的话,用mathematica怎么编写龙格库塔算法呢?
    xzcyr 1-2
  • 1
    之前的版本没有这个问题。新版这个特性可能是为了鼠标交互时更流畅吧。 我知道一种方法是设置RenderingOptions -> {"3DRenderingEngine" -> "Mesa"} 这个方法的缺点是图元多一些就很容易卡顿,比如MengerMesh[3, 3],还有虚线显示有点问题。 有没有更好的方法呢?
    xzcyr 1-2

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

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

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!

本吧信息 查看详情>>

小吧:小吧主共10

会员: Expr

目录: 程序设计

友情贴吧