格式化操作輸出以在Mathematica中具有2個單元格

以下輸出代碼從操作語句中輸出數組。我想輸出擬合和繪圖作爲動態更新的兩個單獨的輸出單元。我認爲它應該很簡單，但我遇到了麻煩。我試過使用CellPrint []函數，但沒有得到它的工作。謝謝，塔爾輸出格式化操作輸出以在Mathematica中具有2個單元格

temperatures(*mK*)= {300, 200, 150, 100, 75, 50, 25, 11, 10}; 

F[t_, \[Nu]_] := t^\[Nu]; 

rd (*uOhms*)= {27173.91304, 31250., 42372.88136, 200601.80542, 
    1.05263*10^6, 1.33333*10^7, 1.33333*10^8, 2.*10^8, 2.1*10^8}; 

logRd = Log10[rd]; 

f[\[Nu]0_] := Module[{\[Nu]}, 
    \[Nu] = \[Nu]0; 
    data = Transpose[{F[temperatures, \[Nu]]*10^3, logRd}]; 
    fitToHexatic = LinearModelFit[data[[4 ;; 6]], x, x]; 
    plota = 
    Plot[fitToHexatic["BestFit"], {x, 0, data[[-1]][[1]]}, 
    Axes -> False]; 
    plotb = ListPlot[data, Axes -> False]; 
    {fitToHexatic, Show[{plota, plotb}, Axes -> True]} 
    ] 

Manipulate[ 
f[nu], 
{nu, -0.2, -1} 
]

截圖：

Screenshot of the output

來源

2017-03-03 Tal

你並不需要使用操縱。您可以通過較低級別的功能獲得更多控制權。例如。

Slider[Dynamic[nu, (f[#]; nu = #) &], {-0.2, -1}] 
Dynamic[Normal[fitToHexatic]] 
Dynamic[Show[{plota, plotb}, Axes -> True]]

另請參閱Prototypical Manipulate in lower level functions。

來源

2017-03-04 10:04:30

太棒了。謝謝:)我也通過將每個語句放在一個Row []函數中來實現它。然後，它從Manipulate中輸出它們全部。 – Tal

格式化操作輸出以在Mathematica中具有2個單元格

回答

相關問題