莫斯科饱胃战😫
1159306280
关注数: 13
粉丝数: 15
发帖数: 657
关注贴吧数: 98
家里主机一直有这个声音,请问有啥问题啊?水冷*里面额外塞了一块8t的机械硬盘
老东西了,各位品鉴品鉴? 从师傅那借来了一只奥蒂兹el8,配上了我的科学HiFi拓品30套 ,有听过这耳机的大手子没?聊聊?
【求助】 如何使用ParametricPlot3D画圆柱径向振动位移图? 前情提示,观以下两个链接的帖子联想到自己的问题; 链接1:http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F1832677274954394380&urlrefer=53e7af7ad6853d183e68841e7d7b75e7 链接2:https://tieba.baidu.com/p/4093245267?pid=77170175789&cid=0#77170175789 背景:最近做了一篇圆柱壳非线性振动的问题,我想画出圆柱壳表面振动径向(柱坐标下的径向r方向)位移云图,但是不知道怎么画出来;由于我本身的计算程序偏长,故此处贴出一个简单的由chatgpt生成的圆柱壳振动程序作为例子: 此程序生成的三维云图不是所需要的径向振动位移云图,请问如何修改呢? Clear["Global`*"]; radius = 1; (*圆柱体的半径*) height = 3; (*圆柱体的高度*) amplitude = 0.1; (*振幅*) frequency = 5; (*频率*) vibrationFunction[v_] := amplitude Sin[frequency v]; (*振动位移函数*) ParametricPlot3D[{(1 + vibrationFunction[v]) Cos[ u], (1 + vibrationFunction[v]) Sin[u], v}, {u, 0, 2 Pi}, {v, 0, height}, ColorFunction -> Function[{x, y, z, u, v}, ColorData["Rainbow"][v]], ColorFunctionScaling -> False, PlotPoints -> 100, Boxed -> False, Axes -> False, Mesh -> None, Lighting -> "Neutral"]
【N3ap】 有老哥出一个n3ap的右单元嘛? RT,之前经常游完泳回家直接就戴上耳机了,有时候应该是没有把耳朵里面的水清干净,导致右单元进水【已经出现铜绿了】,今晚突然坏掉了,伤心,毕竟是陪伴了我5年的老伙计啊; 试问有哪位吧友愿意出一个N3ap的右单元嘛?
现在还能卡吉伯力吗?
【求助帖】Set::write: Tag Plus in c^2+s^2 is Protected 问大家一个非常简单的问题,就是如图所示,我想计算一个简单的矩阵,但是我想让最后输出结果中的c^2+s^2=1! 我在计算中加了一行c^2+s^2==1;但是似乎在最后的输出中并没有体现这一行的作用。 希望看到的大佬不吝赐教!!下面是源代码: Clear["Global`*"] estf = {{e11, e12, e13, e14, e15, e16}, {e21, e22, e23, e24, e25, e26}, {e31, e32, e33, e34, e35, e36}}; Chi = {{Chi11, 0, 0}, {0, Chi22, 0}, {0, 0, Chi33}}; T = {{c^2, s^2, 0, 0, 0, -2 s c}, {s^2, c^2, 0, 0, 0, 2 s c}, {0, 0, 1, 0, 0, 0}, {0, 0, 0, c, s, 0}, {0, 0, 0, -s, c, 0}, {s c, -s c, 0, 0, 0, c^2 - s^2}}; A = {{c, -s, 0}, {s, c, 0}, {0, 0, 1}}; c^2 + s^2 == 1; (*Cmat=ExpandAll[T.Cmat.Transpose[T]];*) (*estf=ExpandAll[A.estf.Transpose[T]];*) Chi = ExpandAll[A.Chi.Inverse[A]]; MatrixForm[%]
我发表了一篇图片贴,大伙来看看吧~
在现场
有一个代数常微分方程组求解遇到了点小问题,求指点! 如图所示,求解的是一个代数常微分方程组,前三组是odes,后面四组方程是代数边界条件(a,b,c,d都是常数),一直求不出来u[r],v[r],p[r]的解析表达式,求指点! 然后源代码如下: Clear["Global`*"]; Print["函数解析式的求解:"]; DSolve[{u[r] + m v[r] + r Derivative[1][u][r] == 0, -(c11 + c99 m^2 - r^2 \[Rho] \[Omega]^2) u[r] - (c11 + c99) m v[ r] + r (-r Derivative[1][p][r] + c11 Derivative[1][u][r] + c12 m Derivative[1][v][r] + c69 m Derivative[1][v][r] + c11 r (u^\[Prime]\[Prime])[r]) == 0, -m r p[r] + (c11 + c99) m u[r] + c99 v[r] + c11 m^2 v[r] - r^2 \[Rho] \[Omega]^2 v[r] + c12 m r Derivative[1][u][r] + c69 m r Derivative[1][u][r] - c66 r Derivative[1][v][r] - c66 r^2 (v^\[Prime]\[Prime])[r] == 0, -a p[a] + c12 u[a] + c12 m v[a] + a c11 Derivative[1][u][a] == 0, -b p[b] + c12 u[b] + c12 m v[b] + b c11 Derivative[1][u][b] == 0, -c69 m u[a] - c69 v[a] + a c66 Derivative[1][v][a] == 0, -c69 m u[b] - c69 v[b] + b c66 Derivative[1][v][b] == 0}, {u[r], v[r], p[r]}, r]
【求助】mathematica 11.3 输出eps格式图为啥背景是黑色的? 如下图2所示:使用mathematica 11.3输出pdf图和eps图,排除版本原因(我使用同一个版本的mathematica11.3,在笔记本上输出的eps图是没有大黑色背景的),有没有大佬知道该怎么解决输出eps格式图黑色背景问题? 对了,我是直接在图1 mathematica软件里面得到的图右键输出eps格式图像的
【求助】mma 画圆盘面的网格 画出来少一根线 求解答
e8 拆机换电池问题 大佬 求解 今晚拆完机换完电池后 不能振动了 而且貌似sim卡读取不了了 请问大佬们 估计是什么原因???
跪求<<分析力学>>王振发 课后习题详解🙏🙏🙏🙏
求分析力学 王振发 课后习 求分析力学 王振发 课后习题答案 🙏🙏🙏🙏
1
下一页