Mathematica

Wolfram Mathematica用戶的問答

0
分段循環和一個完整循環的計算時間不同
在模擬大量隨機值時,我偶然發現了一個奇怪的問題, $ 10 ^ 8 $ 。我首先通過以下代碼生成了數字:\[Alpha]=0.2; levytab2 = {}; While[Length[levytab2] < 10^8, Clear[u1, u2]; u1 = RandomVariate[UniformDistribution[{0, 1}]]; u2 = RandomVariate[UniformDistributio...
    

3
解釋DSolve的ODE解決方案
我正在做一個需要解決ODE的項目。 。我嘗試使用DSolve來解決它,但它給了我一個答案,但是我不確定如何解釋它。我正在使用的代碼在這裡:epsilon = .5 tau = 1 DSolve[ y'[t] == (2*Pi*(1 + epsilon*Cos[y[t]])^2)/(tau*(1 - psilon^2)^(3/2)), y[t], t]` ...
  

2
從非線性擬合數據中查找未知參數
我使用以下代碼從圖像中獲得了擬合模型:kguess = 3; nguess = 1; data = {{0.010000000000000004`, 0.`}, {0.029999999999999995`, 0.1835304721030043`}, {0.10000000000000002`, 0.49498712446351933`}, {0.3`, 0.8998025751072961`}, {10.000000000000002`, 0.9641931330472102`}, {100...
   


0
解雙曲函數時遇到問題
我試圖在不同的地方解決Upm / Um,但是沒有任何結果。我的雙曲函數有問題嗎?請幫助我獲得結果。將不勝感激。t = 0.3; Da = 10^-4; ϵ = 0.9; A1 = Da + t^2/2 - Da Sech[((-1 + t) Sqrt[ϵ])/ Sqrt[Da]] - (Sqrt[ Da] t Tanh[((-1 + t) Sqrt[ϵ])/ Sqrt[Da]...
  

2
更改重疊凸包的顏色
P0={0,0}; P1={1,0}; P2={-1,0}; P3={0,1}; P4={1,-1}; P5={-1,-1}; Framed[Show[Region[ConvexHullMesh[{P0,P1,P3},MeshCellStyle -> {2 -> Opacity[0.5, Red]}],PlotRange->{{-1.1,1.1},{-1.1,1.1}},Axes->True,LabelStyle ->{14,Bold}, ImageSize->Medium],Region[ConvexHullMesh[{P0,P3,P4},MeshC...
   


0
替代給我不同的結果
我正在使用Legendre多項式(及相關多項式)。當我進行以下計算時:Table[Integrate[LegendreP[k, 0, Cos[η]] * Sin[η], {η, 0, Pi}], {k, 0, 10}] 我嘗試了k的一個特定值來查看計算時間:Timing[Integrate[LegendreP[k, 0, Cos[η]] * Sin[η], {η, 0, Pi}] /. k -> 0...
  


1
自動化方程組的求解
我檢查了網站,但沒有找到類似的話題,所以我決定問。我解決了幾個最大化問題,並獲得了x,y,z和k的解。我需要做的是在方程組中求解它們。現在,唯一的問題是x,y和k分別有兩個解,所以我有8個可能的方程組。我應該做...
 

2
縮放從PolyhedronData獲得的分析區域的大小
我想知道是否可以找到多邊形的內部區域的等式,該多邊形的內部尺寸已被重新縮放。例如:十二面體的分析區域基於:PolyhedronData [ Dodecahedron , RegionFunction ] [x, y, z] 如果我繪製十二面體方程:With [{r = 5}, RegionPlot3D [PolyhedronData [ ...
  

2
使用Monte Carlo方法計算橢球體的體積
我在Mathematica中有以下代碼:https://pastebin.com/zRB9vEx8 ,我需要使用給定參數計算橢球的體積: $$ \ frac {x ^ 2} {9} + \ frac {y ^ 2} {4} + \ frac {z ^ 2} {4} = 1 $$ 任何人都可以使用以上代碼給我任何建議嗎?...
  

3
ConnectSystemModelComponents和CreateSystemModel的速度較差
我正在嘗試使用SystemModel模擬大型空調系統,但是當我嘗試將自定義模型相互連接時,我的內核有時會崩潰。即使內核沒有崩潰,ConnectSystemModelComponents在我的筆記本電腦上也要花費一個多小時。為了說明問題,這是一個簡單的示...
   

2
FullForm在圖上給出誤導性答案
讓我們定義一個非常簡單的圖 並詢問其FullForm: 太好了。除了不同於其他我嘗試過FullForm的情況,這實際上並不是Mathematica對該圖的內部表示。當然,如果我嘗試MatchQ[g, _Graph],我會得到True。但是如果我嘗試MatchQ[g, Graph[__],我會...
  

0
對稱函數表
我具有F[x][y][z] == F[x][z][y] == F[-x][-y][-z]類型的功能。我正在製作一個包含所有可能值的表格,如Table[F[i][j][k], {i,{±1,±2,±3}, {j,{±1,±2,±3}, {k,{±1,±2,±3}]. 該函數本身需要花費大量時間來計算。我有什麼辦法可以利用這些對稱性?非...
 

0
AbsoluteOptions無法與PlotPoints一起使用嗎?
AbsoluteOptions在PlotPoints上不能很好地工作,例如:AbsoluteOptions[ Plot3D[Sin[x y], {x, 0, 2}, {y, 0, 2}, Mesh -> All, MaxRecursion -> 1], PlotPoints] 已知錯誤?...
  

5
組合破解代碼
我有一組從0到9的數字numbers=Range[0,9,1] 我想確定0到9之間的三個數字的組合。通過以下條件,可以得出正確的組合: 1-在正確位置有一個真實數字 condition1={6,8,2}; Permutations[condition1] {{6,8,2},{6,2,8},{8,6,2},{8,2,6},{2,6,8},{2,8,6}} 2-但是...
 

1
繪製傅立葉級數
首先,我為以下方程式/條件創建了以下傅立葉級數: $$ f(t)= \ begin {cases} 0,&0 ...
    

1
DSolve沒有給出答案
我正在嘗試求解以下微分方程,但是Mathematica似乎沒有給出答案。你們對如何使這項工作有任何線索嗎?DSolve[{y''[x] == Sinh[y[x]]}, y[x], x] 謝謝!...
 

1
消除公共項並分解公共項並提取係數
以下代碼無法將每個方程式乘以dt,因為dt似乎沒有任何作用。它仍然是一個共同的因素,我希望它取消1 / dt項,並將其餘的乘以dt。eqns = {x1'[t] == (\[Mu] - (x1^2 + x2^2)) x1 - x3x2 + Ksin + \[Sigma]dw/dt, x2'[t] == (\[Mu] - (x1^2 + x2^2)) x2 + (x3x1)...
  

Next page