- 博客(7)
- 资源 (3)
- 收藏
- 关注
原创 二次曲面、空间曲线的拟合---mathematica
代码 If[Length[Names["Global`*"]] > 0, Remove["Global`*"]]; r[t_] = {Cos[t], Sin[t], t}; sample = Table[r[i], {i, 0, 2 \[Pi], 0.1}]; xdata = (sample // Transpose)[[1]]; ydata = (sample // Transpose)...
2020-04-12 20:50:02
1853
1
原创 三维空间的贝塞尔曲线、B样条线分段拟合---mathematica
待拟合三维数据 path = {{30, 0, 0}, {30 + 14/Sqrt[249], 20/Sqrt[249], 20/Sqrt[ 249]}, {32.20470703921131`, 1.3906289084343317`, 2.7671279831555884`}, {33.09192098994558`, 2.6580774094832877`, 4....
2020-04-12 20:26:57
4996
6
原创 蒙特卡罗积分法--mathematica
直接上 mathematica代码 "Monte Carlo积分法(蒙特卡罗积分法)" monteCarlo[f_, indvar_, m_, a_, b_, n_] := Module[{g, x, xr, yr, area, lim, areaave, y1, y2}, g = f /. indvar -> x; lim = Length[n]; area = Ta...
2020-02-29 23:02:44
1211
2
原创 复数与线性变换--mathematica
借助mathematicar制作线性变换动画 If[Length[Names["`*"]] > 0, Remove["`*"]]; (*复数与线性变换*) z = E^(I*\[Theta]); f = 2 z; g = 3 z^2; f + g // ExpToTrig "齐次坐标变换--机械臂DH运动链基础" Subscript[T, x][ a_] := {{1, 0, 0, ...
2020-02-29 22:13:18
828
原创 使用mathematica实现prufer编码
If[Length[Names["`*"]] > 0, Remove["`*"]]; (*邻接矩阵*) A = {{0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 1, 1, 1, 0}, {1, 1, 0, 1, 0, 0, 0, 0},...
2020-02-29 21:45:49
179
原创 使用mathematica实现深度优先访问的可视化
运行结果: mathmatica版本11.1 下面为代码 If[Length[Names["`*"]] > 0, Remove["`*"]]; edge1 = {a <-> b, a <-> e, a <-> f, a <-> g, c <-> g, c <-> d, d <-> g, d &l...
2020-02-29 21:19:03
254
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人