mathematica吧
关注: 17,578 贴子: 67,251

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

  • 0
    数据是三维散点: AL=RandomReal[{0,2000},1000]; BL=RandomReal[{0.2,0.5},1000]; F:="某个复杂二元单值函数"; data[[i]]={AL[[i]],BL[[i]],F[AL[[i]],BL[[i]]]};当然,为了简便,这里F和data的写法只是个表达意思的描述, ListPointPlot3D[data]可以看出一个相对平滑曲面,数据良好。但是ListPlot3D却显示一个怪异的图像,请问,这可能是哪儿出了问题呢?
    yb118 09:29
  • 1
    Mathematica 在笔记本内做好的图复制到Word里之后中文文字字体会改变,如图所示: 不知道要怎么处理才能复制到word里不变。希望大佬答疑解惑一下,谢谢。
  • 99
    本文系自此帖(http://tieba.baidu.com/p/2736346260)5楼的回复修订增补而来。吧里的老人们阅读本文时可能会觉得各种眼熟:毕竟重要的经验我都是不断强调的。 我最初会得知Mathematica的存在,是因为《数学建模》老师在课堂上的推荐。我第一眼就被它那极度接近传统数学式书写的使用方法给吸引了——相信这个吧里的许多人也是一样。《数学建模》结课后不久校内就搞了数学建模大赛(目的是为了选拔参加全国大赛的选手),我就参加了,用的当然是Mathem
    Fluid 8-29
  • 0
    对于浮点型的数,在设置精度后为什么会这样?对于高精度的计算,有没有避免的方法? In[425]:= a = 81.136; precision = 20; SetPrecision[a, precision] SetAccuracy[a, precision] Out[427]= 81.135999999999995680 Out[428]= 81.1359999999999956799
  • 0
    请问,如果画一个散点图,ListPlot[a[[1 ;; 100]], Hue[]],这Hue里面怎么设置,可以画出的图的颜色根据列表a的幅值而改变?谢谢各位大佬了!!!
  • 2
    程序如下: \[Gamma] = 4; \[Xi] = 0.1; F = 0.1; eqn = Simplify[Eliminate[ {(A^2*\[Xi]^2*\[Omega]^2)/F^2 + (A^2*(3*A^2*\[Gamma] - 4*\[Omega]^2)^2)/ (16*F^2) == 1, T = Sqrt[(A*\[Xi]*\[Omega])^2 + (3/4)*\[Gamma]*A^3]/F}, A]] ContourPlot[Evaluate[eqn], {\[Omega], -1, 10}, {T, -80, 60}] ---------------------------------------------------------------------- 问题出在求解后会显示不是一个格式良好的方程,导致画不出图像。 思路是利用(1.1)A与Omega的关系式,将其与(1.2)联立,消去A,就能求出T和Omega的关系,借此绘制图像, 但是不知
  • 2
    这个代码有什么问题,结果也不正确
  • 14
    话不多说,上图: 另,再强调一遍,我个人是反对大家用手机客户端访问这个贴吧的,Mathematica又不是手机软件。除此之外,手机客户端还有不少坑爹特性,大家对比一下手机端和网页端就知道了,这里不再多牢骚。
    zyd199012 10-15
  • 11
    并且这是没有任何通知或提示的。大家在发帖时千万注意。 不确定除外链外是否有其他内容会受此影响,大家若不放心,可在发帖后通过查看浏览器隐身模式加以检查。
  • 2
    用了这串代码之后他会显示0-25的shift但是不显示shift之后的字母。但是同样的代码在朋友的机子上可以运行。很奇怪,不知道该怎么办,急求!!! 代码:Table[{k, Caesar[k, "CRRNG"]}, {k, 0, 25}]
    赐你一卒 10-11
  • 3
    开这帖没别的目的,就为了把十戒(http://tieba.baidu.com/p/2964416898)里的9到11条 9 没赋值的变量是蓝色的,注意这点能有效避免低级错误 10 赋过值的变量会变黑,注意这点能有效避免低级错误 11 内置函数全是黑色的,注意这点能有效避免低级错误 以一个更显眼的方式强调一遍(话说能理解上面三句的诸位可以出帖了,下面没新东西),顺便补充少许的例子。 为了便于修订,照例开了个笔记,请大家多点一下鼠标: note.youdao.com/noteshare?id=06adaac6aaf85c8
  • 2
    求助,mathematica可以画这样的图吗?其中d为常数,C为变常数(是不同的值)
  • 9
    如果我有一些带有无精确定义的函数的大式子,无精确定义的函数指的是这个函数没有唯一的表达式,但是这个函数确实满足一些规则的限制。 现在我希望找个办法运用这个无精确定义的函数所满足的规则来给包含这个无精确定义的函数的大式子进行化简,有没有什么又快又好且不容易出错的办法? 我以李代数的Jacobi identity为例,我使用了以下几种办法,但是效果都不太理想。 方法一:直接定义 由于Jacobi identity的特殊性,直接定义可能会出现无限
  • 5
    自己输入的代码是这样的 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[\
    xzcyr 7-3
  • 0
    用matlab的时候得到了两个sym类型的矩阵 应该怎么把这两个矩阵复制到mathematica里 A = [ 1, -1/2, -1/2, -1/2, 1, -1/2] [ -1/2, 1, -1/2, -1/2, -1/2, 1] [ -1/2, -1/2, 1, 1, -1/2, -1/2] [ -1/2, -1/2, 1, 1, -1/2, -1/2] [ 1, -1/2, -1/2, -1/2, 1, -1/2] [ -1/2, 1, -1/2, -1/2, -1/2, 1] X = x^2 x*y y^2 x*z y*z z^2
  • 1
    吞私信标准并不明确。 网址,包括不限于qq号手机号的各类号码,过长的mathematica代码,似乎都有可能被吞。 如果确有发私信的需求,建议在发完之后补发一条“我刚发了X条私信,你是否收到了。” 另,自从百度贴吧封杀pc端私信(是的,封杀了,尽管你在pc端看到的提示是“对方不接受私信”)后我个人就再也没回答过私信中的问题;我个人也一直不喜欢非公开的mathematica讨论,希望大家尽量在吧内提问以便知识的继承。
  • 2
    DSolve[{\[Mu] A[x] - \[Mu] S[x] - \[Beta] S[x] B[x]/\[Phi] (B[x]) - p S[x] == 0, (1 - \[Omega]) \[Beta] S[ x] B[x]/\[Phi] (B[x]) - (\[Mu] + \[Alpha]) F[x] == 0, \[Omega] \[Beta] S[x] B[x]/\[Phi] (B[x]) + \[Alpha] F[ x] - (\[Mu] + \[Eta] + \[Delta] + \[Gamma]) B[x] == 0}, {S[x], B[x], F[x]}, x] 可行域为S[x] >= 0, B[x] >= 0, F[x] >= 0, S[x] + B[x] + F[x] <= A
    wminice 10-5
  • 27
    如题,这是一个求扫盲帖,下面的提问用语可能会很不准确……我一直在潜意识里觉得“不能编写独立的程序/不能编写脱离Mathematica运行的程序”是Mathematica的缺点之一,毕竟,自己过去接触的程序语言们好像都是可以做到这点的。可就在刚才我突然产生了一个念头:不能写“独立”的程序会不会其实是编程语言的一种常态? 仔细想想,我所接触的所谓“可以编写独立程序”的语言,其实也就是本科时代的VB与近几年零星接触的C和fortran罢了。其他语
    黑黄 10-5
  • 5
    请问怎么定义一个不知道是含有几个自变量的函数?需要调用的时候给它几个变元,它就计算几个变元
    247098254 10-5
  • 9
    数值解: s1 = NDSolve[{y''[t] == y[t] - 2*y[t]^3, y[0] == 1, y'[0] == 0}, y[t], {t, 0, 100}] Plot[Evaluate[y[t] /. s1], {t, 0, 100}] 符号解: DSolve[{y''[t] == y[t] - 2*y[t]^3, y[0] == 1, y'[0] == 0}, y[t], t]
  • 8
    如题。显然它不只是个动态列表,比如下面这段 fortran 代码在我机子上要花11秒: program tst implicit none integer(8),allocatable:: lst(:) integer(8)::o1 lst=[integer(8)::] do o1=1,60000*2 lst=[lst,o1] end do print *, size(lst) end program 而这段 Mathematica 代码只要0.006秒: $ContextPath = DeleteDuplicates@Append[$ContextPath, "Internal`"]; dat = Compile[{}, Module[{list = Bag@Most@{0}}, Do[StuffBag[list, index], {index, 6 10^4 2}]; BagPart[list, All]]][]; // AbsoluteTiming
    xzcyr 10-2
  • 3
    方程式是对一个数的实数部分求导 方程式是 Solve[S D[Re[hp[r] Exp[I \[Omega] t]], t] == T/r D[r D[Re[hp[r] Exp[I \[Omega] t]], r], r] + Re[Rp Exp[I \[Omega] t]], Rp] 运行之后,右边的竖线就会变黑,然后卡住。 对方程左边单独运算 对实数部分求导D[Re[hp[r] Exp[I \[Omega] t]], t] 会给出答案 I e^itw w hp[r] Re'[e^itw hp[r]] 答案里有一个Re’的部分。自己手算的话这个式子可以交换D和Re运算的顺序。 输入Re[D[hp[r] Exp[I \[Omega] t], t]] 就会得到答案 -Im[E^(I t \[Omega]) \[Omega] hp[r]] 这个答案就是对
    xzcyr 10-2
  • 3
    不知编译为何的同学先看这里: note.youdao.com/share/?id=bf2a031f7d0d69064941032c7857dfd1&type=note#/ 这是我前两天灵光一闪意识到的:既然配置GCC的时候,用的是GenericCCompiler选项——这选项里有个Generic啊,那说不定,其他的编译器也能用这个方法配置?于是仔细读了读帮助又试了试,发现还真是这样。总之这里给出配置方法。 TCC的配置方法与GCC几乎是一样的,这里依旧以64位Windows为例。 首先把TCC下载下来。官网地址:download.savannah.gnu.org/releases/tinycc/ (目前Win
    xzcyr 10-2
  • 9
    照例开个云笔记: http://note.youdao.com/noteshare?id=15144020fcbd5fc7e4bdefa53566
    xzcyr 10-2
  • 11
    请问如何通过mathematica定义一套新的二维坐标系(y1,y2),然后将原来平面直角坐标系(x1,x2)中的曲线在新的坐标系中绘制??
    xzcyr 10-2
  • 2
    比如,我想求解sinx=1/2,x<100的10个解,并且这些解是按从大到小排序的,怎么处理这个问题呢? 我试了用FindInstance,但是找到的结果是无序的,随机的。 N[FindInstance[Sin[x] == 0 && x < 100, x, 10]] {{x -> -1523.67}, {x -> -5642.3}, {x -> -1369.73}, {x -> -2858.85}, \ {x -> -4501.9}, {x -> -5359.56}, {x -> -559.203}, {x -> -3747.92}, {x \ -> -424.115}, {x -> -2192.83}} 我觉得应该可以用TakeLargestBy,但是我写不出来,就不献丑了
  • 2
    用ListVectorPlot画图:ListVectorPlot[{{{0, 5.3000000000000576`}, {-0.3848556113147581`, \ -0.9229767919289974`}}, {{0, 5.800000000000047`}, {-0.3344746174929545`, \ -0.9424047592478202`}}, {{0, 6.300000000000036`}, {-0.29644734334986195`, \ -0.9550491990577286`}}, {{0, 6.800000000000026`}, {-0.26613050682477873`, \ -0.9639370069341596`}}, {{0, 7.300000000000015`}, {-0.24068304692135262`, \ -0.9706037661809549`}}, {{0, 7.800000000000004`}, {-0.2183908353959724`, \ -0.9758613851439402`}}, {{0, 8.299999999999994`}, {-0.19823575607243205`, \ -0.9801543679514932`}}, {{0, 8.799999999999983`}, {-
  • 4
    Clear[EulerLagrange]; Options[EulerLagrange] = {eXpand -> False}; EulerLagrange[density_, depend_List, independ_List, options__] := Block[{f0, fh, \[Epsilon], w, y, x$m, expand, euler = {}, wtable}, {expand} = {eXpand} /. {options}; wtable = Table[w[i], {i, 1, Length[depend]}]; f0 = Function[x$m, y + \[Epsilon] w]; ruleg[i_] := b_ Derivative[n__][wtable[[i]]][independ] :> (-1)^ Plus @@ {n} HoldForm[\!\( \*SubscriptBox[\(\[PartialD]\), \(Delete[Thread[{independ, {n}}], 0]\)]b\)]; Do[ fh = density /. depend[[j]] -> f0 /. {x$m -> independ, y -> depend[[j]] @@ independ, w -> wtab
  • 6
    代码如下: 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]]
    xzcyr 3-2
  • 0
    ClearAll 的正确用途及语法请参看帮助,不知道怎么查帮助的人,以及不知道我现在在说啥的人,请参看《你查过自带帮助了吗?你真的会查自带帮助吗?》:https://tieba.baidu.com/p/4392855072 顺便,clc,clear all之类的东西在Mathematica里也是没有任何意义的。 再顺便,如果你模模糊糊地觉得MATLAB、Mathematica、Maple、C、Pascal……其实是一个东西,那么,你是错的。 (这条其实已经收在《十戒》里了,但想想还是单开个标题好懂的帖强调一下。)
    xzcyr 9-4
  • 1
    z[Subscript[p, s], s] = (Subscript[p, s] - Subscript[c, s]) ((1 - \[Theta]) ( -Subscript[p, s] + 1/2 (1 - s \[Beta] + Subscript[c, o] - Subscript[h, 1] - Subscript[h, o] + Subscript[p, s]) + \[Beta] s + Subscript[h, o] + Subscript[h, 1]) + \[Theta] (v - Subscript[ p, s] + \[Beta] s)) - s^2/2 \[Eta] D[z[Subscript[p, s], s], s] 对s求导,求不出结果,而且会出现好多subscript是什么意思?谢谢啦~
  • 8
    这个也算是月经问题了,但是吧里好像一直没有标题足够明了的帖子出现,故开此帖。百度目前彻底限死了外链,只好贴截图了:
    xzcyr 6-5
  • 7
    ArcTan[1, 0` I ] 在wolframalpha上算出来时0。 这是啥原理?
  • 15
    求这个数 比较丑的写法: (DeleteDuplicates@(If[ Head@((# + 100)^((1/2))) === Integer && Head@((# + 268)^((1/2))) === Integer, #, 0] & /@ Array[# &, 1000000]))[[2 ;;]] 有没有更好的写法?
  • 7
    Abs[-((12 I (-2 I - I Cos[\[CurlyTheta]] + 9 a \[Lambda] Sin[\[CurlyTheta]]))/((2 + Cos[\[CurlyTheta]]) (15 - ( 81 a^2 \[Lambda]^2 Sin[\[CurlyTheta]]^2)/(2 + Cos[\[CurlyTheta]])^2)))]
  • 1
    f[x_] = k*Q*q/x^2 - (2*k*Q*q/(a^2 + x^2 - Sqrt[3]*a*x))*((x - Sqrt[3] a/2)/Sqrt[a^2 + x^2 - Sqrt[3]*a*x]) 就比如这个式子,要怎样求f(x)=0时x的取值以及怎样求导? 小白刚下载的软件,实在是不会用,官方文档由于英语不好也看不懂求救求救。。。。
  • 2
    我是一个新手,刚刚开始学习mathematica,是了解到做公式推导很多都在用mathematica。 目前情况是这样的,我想在mathematica中做这样的一个完整的公式推导,通过一些公式的代换来求解出一段RC电路的微分方程,实际计算过程我用手算已经完成,如图: 我尝试着在mathematica中做这么一个过程,但是感觉有点无从下手,之前的确也没有用软件进行过这类工作,想请教一下在帮助文档中是否有历程,或者应该对应学习哪些部分的知识
  • 1
    mathematica新手,想知道如何实现直接读取一个文件夹里的数据,经过处理,再保存为一个文件夹?这个功能可以实现吗?谢谢谢谢各位大佬了!

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

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

扫二维码下载贴吧客户端

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

本吧信息 查看详情>>

小吧:小吧主共10

会员: Expr

目录: 程序设计

友情贴吧