Forgot password
 Register account

Mathematica Today: 0|Threads: 202|Rank: 4 

Author Replies
Views
Last post
不能写出完整的矩阵,要如何用Mathematica来运算? New

thread-14001-1-1.html 原题目如上链接,具体的矩阵(行列式)如下: \[ \begin{vmatrix} \binom{n+m}{n} & \binom{n+m}{n+1} & \binom{n+m}{n+2} & \cdots & \binom{n+m}{n+k-1}\\ \binom{n+m}{n-1} & \binom{n+m}{n} & \binom{n+m}{n+1} & \cdots & \binom{n+m}{n+k-2}\\ \vdots & \vdots & \vdots & \cdots & \vdots\\ \

abababa 2025-6-21 14:43 215 abababa 2025-6-22 11:56
将多项式系数分解为素因子形式

$h=\operatorname{Hauptmod}$ \begin{array}{cc|c|ccc|c} &N& h_N & && N & h_N\\ \hline &2& \left[\frac{\eta(\tau)}{\eta(2\tau)}\right]^{24} & && 9 & \left[\frac{\eta(\tau)}{\eta(9\tau)}\right]^{3}\\ \hline &3& \left[\frac{\eta(\tau)}{\eta(3\tau)}\right]^{12} & && 10 & \left[\frac{\eta(\tau)}{\eta(1

青青子衿 2025-6-7 20:55 224 青青子衿 2025-6-8 12:58
用MMA制作带有背景色的表格 青青子衿 2025-6-5 15:19 0305 青青子衿 2025-6-5 15:19
重心坐标工具包

baricentricas.nb http://garciacapitan.blogspot.com/2021/01/coordenadas-baricentricas.html 点击文中的链接到谷歌网盘下载即可. 文中介绍了如何使用. 作者还有关于重心坐标的文章: https://www.journal-1.eu/2015/01/Francisco-Javier-Barycentric-Coordinates-pp.32-48.pdf

hbghlyj 2023-3-10 16:04 220067 hbghlyj 2025-5-4 09:38
将 Mathematica 画的函数图导出数据给 tikz 作图

tikz 有一种作图方式是通过读入外部文件的数据来画的,命令的格式是 plot[<local options>] file{<filename>},比如 \draw plot file {D:/0.txt}; 酱紫,被读入的 0.txt 中的数据格式为每行两个或以上数字,用空格隔开,详细见 tikz 手册 P327 Plotting Points Read From an External File。 数据文件当然应该用软件生成,

kuing 2018-6-24 22:49 96517 ccmxigua1 2025-4-20 20:40
不等式mathematica对称求和和轮换求和的自定义的函数

2月17日更新: 把cyc,sym函数限制到了a,b,c的式子上. 增加了cycQ,symQ判断式子是否关于a,b,c轮换或对称. 增加了invcyc,若f是关于a,b,c的轮换多项式,输出a,b,c的多项式g使$f=\sum_{\text{cyc}}g$; 若f是关于a,b,c的不轮换的多项式,输出"Not cyclic"; 若f不是关于a,b,c的多项式,输出"Not a polynomial of a,b,c". 增加了invsym

hbghlyj 2020-1-29 12:09 32718 kuing 2025-3-23 22:33
3D如何实现遮挡标签

顶点编号的正十二面体 即使挡住的标签也会显示出来,如何实现遮挡的效果?

hbghlyj 2025-3-19 03:35 0214 hbghlyj 2025-3-19 03:35
Mathematica 内置 AI 助手

Mathematica 内置 AI 助手 Notebook Assistant 可即时为您的 Wolfram 语言问题创建自定义专家答案。 如何绘制山脉周围地形的 3D 图? 用您自己的话告诉 Notebook Assistant 您想要做什么,让它用计算解决方案给您带来惊喜。 帮我修复它。 出了什么问题?想要更好、更快的代码?请 Notebook Assistant 为您修复它。 填写

hbghlyj 2025-3-19 00:47 0210 hbghlyj 2025-3-19 00:47
请教在Mathematica中怎么定义一个抽象的矩阵?

如题,假设我想定义A,B两个矩阵,但我不知道A,B的具体值是什么,只知道它们是n阶矩阵。然后对于一个表达式,我在化简时,才不至于消去AB-BA这样的项。请教这样的要怎么做才行?

abababa 2024-6-21 16:24 4261 hbghlyj 2025-3-5 05:07
根式脱套 RadicalDenest

Resource Polynomial Root object simplification ResourceFunction["RadicalDenest"][(2^(1/3) - 1)^(1/3)] \[\sqrt[3]{\sqrt[3]{2}-1}=\frac{1-\sqrt[3]{2}+2^{2/3}}{3^{2/3}}\] ResourceFunction["RadicalDenest"][√(65-6 √35-2 √22-6 √55+2 √77-2 √14+6 √10)] \[\sqrt{6 \sqrt{10}-2 \sqrt{14}-2 \sqrt{22}-6 \s

hbghlyj 2022-12-19 17:39 8474 hbghlyj 2025-2-14 06:17
怎么能随机生成200个矩阵,且它们的特征值的绝对值都小于2

如题,这个用Mathematica要怎么做呢?

abababa 2021-11-26 15:27 4501 hbghlyj 2025-1-19 22:03
怎么随机生成正交矩阵$M\in O(n)$

怎么随机生成正交矩阵$M\in O(n)$ https://web.archive.org/web/20220121021352/https://statweb.stanford.edu/~cgates/PERSI/papers/subgroup-rand-var.pdf We suggest a simple algorithm for Monte Carlo generation of uniformly distributed variables on a compact group. Examples include random permutations, R

hbghlyj 2025-1-18 23:46 3220 hbghlyj 2025-1-19 00:01
求解集的维数

矩阵 $A$ 表示射影变换。以下 eqn 表示 $A$ 将 twisted cubic 映射到其自身。 eqn 是 16 个变量的多项式方程组,因為 $A$ 有4行4列。 求解集的维数 $A=0$是一个解, 对角矩阵$A=\pmatrix{1\\&t\\&&t^2\\&&&t^3}$對所有$t$的eqn的解。 所以eqn的解集的维数至少为$1$且小于$16$ 我发到论坛询问

hbghlyj 2025-1-16 16:08 0220 hbghlyj 2025-1-16 16:08
N[...] 可能误差很大

用N[...]得出-0.175781 用FullSimplify得出0

hbghlyj 2024-12-25 09:43 0229 hbghlyj 2024-12-25 09:43
识别您的面部表情

https://blog.wolfram.com/2024/10/30/announcing-the-winners-of-the-2024-one-liner-competition/ Nik Murzin 的一行交互式代码总共只有 140 个字符,使用 CLIP 特征提取器网络的两种变体(文本和图像)将您的面部表情与最相似的表情符号进行匹配: 我的微笑总是被识别为以下表情符号:

hbghlyj 2024-12-19 06:27 1239 hbghlyj 2024-12-23 07:40
由Feuerbach点反构作三角形

给定Feuerbach点,反构作三角形? https://math.stackexchange.com/questions/5011258/given-an-arbitrary-triangle-as-the-feuerbach-triangle-can-we-always-reconstruct 给定三角形顶点坐标,计算Feuerbach点的代码: 绘图代码: 由三边中点反构作三角形的代码: 以单位圆上的随机点$F_A,F_B,F_C$为Feuerbach点,反构

hbghlyj 2024-12-18 20:24 1322 hbghlyj 2024-12-18 20:49
判定四次方程至少有一个实根

$x^4 + qx^2 + rx + s$ 没有实根 $\iff\Delta>0\land(q \geq 0 \lor s > \frac{q^2}{4})$ $x^4 + qx^2 + rx + s$ 有实根 $\iff\Delta \leq 0\lor(q < 0 \land s \leq \frac{q^2}{4})$ $x^4+px^3+qx^2+rx+s$ 有实根 $\iff\Delta \leq 0\lor(8q-3 p^2<0\land -3 p^4+16 p^2 q-16 p r-16 q^2+64 s \leq 0)$

hbghlyj 2024-12-18 09:23 1227 hbghlyj 2024-12-18 18:09
介 绍 复 斜 率 解 析 几 何

假定 A 和 B 是复平面上的两个点。它们的坐标是 (XA, YA) 和 (XB, YB),用复数 a 和 b 来表示 A、B 点的坐标,称为复数坐标或复坐标,可写成:\(a=XA + i YA; b=XB + i YB;\) 假定 A 和 B 共轭点是 \(\overline{A}\) 和 \(\overline{B}\) ,那么它们的共轭复坐标为 \(\overline{a}=XA - i YA\) 和 \(\overline{b}=XB - i

TSC999 2023-11-17 13:42 9731 hbghlyj 2024-12-17 20:40
quadratic interaction Betti vector of the dunce hat

The Cohomology for Wu characteristics The dunce hat and Lusternik-Schnirelmann By oliverknill The dunce hat of Zeeman was introduced in 1964 as an example of a topological space which is homotopic to a point but which is not contractible (I use here contractible as a synonym to collapsible, for r

hbghlyj 2024-12-12 17:51 1325 hbghlyj 2024-12-12 18:41
(i,j)=1时 ((i^2 + j) n - i, (j^2 - i) n - j)=1 几乎是正确的

当(i,j)=1时,对于任何正整数n,((i^2-j)n-i,(j^2-i)n+j)=1几乎是正确的,仅有少数反例. Select[Tuples[{Range[5], Range[25], Range[5]}],!CoprimeQ[(#[[1]]^2 -#[[2]]) #[[3]]- #[[1]], (#[[2]]^2 - #[[1]])#[[3]]+#[[2]]] && CoprimeQ[#[[1]], #[[2]]]&] {{2, 3, 2}, {2, 11, 3}, {3, 8, 3}, {3, 17, 2}, {3, 19, 1}, {4, 1

hbghlyj 2019-7-26 19:16 31029 hbghlyj 2024-12-10 19:11
将多项式表为SOS

n元对称式$f(x_1,x_2,\cdots,x_n)$能表为SOS的必要条件是把$x_3,\cdots,x_n$都替换为$x_2$后能被$(x_1-x_2)^2$整除. 将多项式表为SOS的代码如下(弹出输入框)------- 对于三元情况,我们把代码中间的两行修改为 vars = {a, b, c}; diffsq = {(b - c)^2, (c - a)^2, (a - b)^2}; 检验SOS定理的条件的代码如下: {Sa,Sb,Sc}=gve

hbghlyj 2021-5-15 00:21 21050 hbghlyj 2024-12-9 00:06
Conjugate[...]不等于MatrixFunction[Conjugate, ...]

{{0, 1}, {-1, 0}} {{0, -1}, {1, 0}}

hbghlyj 2024-12-5 22:17 3222 hbghlyj 2024-12-5 22:34
四元数

以下是使用 2×2 复数矩阵$\begin{pmatrix} z & w\\ -\bar{w} & \bar{z}\\ \end{pmatrix} \in M_2(\mathbb{C})$表示四元数$z+wj$的 Mathematica 代码: 执行此操作后,您可以在普通表达式中使用四元数(i、j 和 k 的表达式)与其他数字。只有当四元数可交换时,才会计算四元数的乘法,在其他情况下,使用非交换乘法运算符

hbghlyj 2024-12-5 21:04 0219 hbghlyj 2024-12-5 21:04

Plot3D[11 x Log10[x] Abs[y] (Abs[y] - 1) + Exp[-((25 x - 25/E)^2 + (25 Abs[y] - 25/2)^2)^3]/25, {x, 0, 1}, {y, -1, 1}, Mesh -> None, BoxRatios -> Automatic, ViewPoint -> {1, 1, 1}, ViewVertical -> {1, 0, 0}]

kuing 2015-1-20 19:21 92055 Aluminiumor 2024-11-12 21:38
cell-first projection of the 16-cell

Cell-first Projection

hbghlyj 2024-11-12 20:16 2330 hbghlyj 2024-11-12 20:24
调和四边形

https://resources.wolframcloud.com/FunctionRepository/resources/HarmonicQuadrilaterals/ 任何一个正方形顶点反演以后变成调和四边形。反之亦然。不过反过来的时候那个反演点的位置有要求

hbghlyj 2023-4-3 10:18 2261 hbghlyj 2024-11-3 21:54
给一个小数值,能否找到最接近于它的$a+b\sqrt{c}$的有理数$a,b,c$

RT,有时候用MMA,算最值的时候不一定能够化简,求数值解是会得到一个近似值,现在的问题是:有没有一个函数或算法,能找出固定结构,$a+b\sqrt{c}$的最接近的近似值.

郝酒 2024-10-14 15:24 2234 hbghlyj 2024-10-14 16:03
用MMA画曲线的交点

数值求解交点,加上交点的标签

青青子衿 2024-6-19 01:32 0226 青青子衿 2024-6-19 01:32
今天突然发现MMC是可以当音乐播放器的...

dt = 60/(118*4) right = {SoundNote["F#5", 4 dt], SoundNote["B4", 2 dt], SoundNote["B4", 2 dt], SoundNote["D5", 4 dt], SoundNote["F#5", 4 dt], SoundNote["E5", 2 dt], SoundNote["E5", dt], SoundNote["F#5", dt], SoundNote["E5", 2 dt], SoundNote["D5", 2 dt], SoundNote["E5", 2 dt], SoundNote[

战巡 2013-12-31 14:38 163487 abababa 2024-6-13 17:57
三次方程求根公式的三角函数形式

TrigSolve=((q Sqrt[-4/(3q)]Cos[1/3 ArcCos[-3r/(2q)Sqrt[3/-q]]+2Pi/3{0,1,2}]-b/(3a))/.{q->-(b^2/(3 a^2))+c/a,r->-(b^3/(27 a^3))+b^3/(9 a)-(b c)/3+d/a})/.Thread[{d,c,b,a}->CoefficientList[#1,#2]]&; 示例: g[x_] = x^3 - 3 x + 1; TrigSolve[g[x], x] 输出\[\left\{-2 \cos \left(\frac{\pi }{9}\right),2 \cos

hbghlyj 2021-4-11 22:29 71102 青青子衿 2024-5-21 21:53
Next »

Quick post

You can still enter 80 characters
Advanced Mode
B Color Image Link Quote Code Smilies
You have to log in before you can post Login | 注册

$\LaTeX$ formula tutorial

Mobile version

2025-6-23 02:42 GMT+8

Powered by Discuz!

Processed in 0.013908 seconds, 15 queries