1樓:byoshovel
Mathematica也可以的
軌道共振?n=
20;dot[k_,
t_]:=,
0.03
Sqrt[k
]]}gl
=Table
[Graphics
[dot[#
,t]&
/@(Range[n
]/n),
PlotRange
->1.1,
Background
->Black],
];軌道共振=;
=;l[
t_]:=,
}ls=N
@Table[l
[t],];
lls=
Join
[FoldList[,
{},ls
],Reverse
@FoldList[,
{},Reverse@ls
]];gl
=Table
[Graphics
[Line@ll
,PlotRange
->r2+
1,Background
->Black
,BaseStyle
->],];
ListAnimate[gl
]沒啥原理就是好看
span
[p1_
,p2_
,p3_]:=
Polygon
node[n_
,0]:=
With
[,p3-p1
+p2]node[n_
,m_]:=
RotationMatrix[m
Pi/3]
.node[n
,0]node[0
,0]=
N@;node[1
,0]=
N@;node[2
,0]:=
N@Manipulate[a
=Mod[c
,Pi/3
];b=Mod
[Quotient[c
,Pi/3
],5]+
1;Graphics[&
/@Range[Pi
/2,2
Pi+Pi/
2-Pi/
3,Pi/
3]],
Rotate
[Table
[,],#,
]&/@Range[0
,5Pi/
3,Pi/
3]},
PlotRange
->2Sqrt[3
]],,0,
5Pi}]做乙個指定動作
擺線Manipulate
[ParametricPlot[,,
PlotStyle
->Red,
PlotRange
->,},
Epilog
->,1
]},,
}]}}],]
一道看似簡單數學幾何題目,題目如圖,請教(我想過很長時間)
Lyken 第一題 令 0 A B C 容易得 cosA cosB cosC,BC AC AB,EC AF BD 設 DE EF FD m,AD BE FC n,then DF 2 m 2 n 2 AF 2 2AF n cosA DE 2 m 2 n 2 BD 2 2BD n cosB 可得 AF ...
學數學幾何有什麼用?
guodong li 本人學過計算機圖形學 我們每天玩的遊戲 裡面就需要矩陣幾何學曲線曲面積分等知識 乙個遊戲引擎執行起來 其實就是每次計算出遊戲世界裡的幾何物體在視窗上的投影座標渲染一次就是一幀 我們平時說遊戲卡了就是計算機計算的慢在幀和幀之間的計算間隔太長給人卡頓的感覺 遊戲裡的物體全是三維面 ...
為什麼前沿數學沒有純幾何的研究?
其實是有的。你說的純幾何,應該指的是類似笛卡爾座標下,關於多面體的研究吧?這類研究統稱為凸幾何,主要是研究歐式空間中凸多面體的性質。這類研究會用到很多組合的方法,以及有理數無理數的巧妙組合。多面體在各類幾何學中都會很自然地出現,而多面體頂點的有理數點和其中的無理數點都是極為重要的。多面體可以極大地簡...