以不同的時間間隔畫出多種功能（Mathematica）

Question

我需要Mathematica幫助。 我試圖繪製存儲在表像的功能：

列表= {{3倍，1,5}，{2倍^ 2,0,4}}

我需要得到類似的輸出對，如果我輸入：

顯示[劇情[3倍，{X，1,5}]，劇情[2倍^ 2，{X，0,4}]]

但我不太清楚如何這是實現的嗎？

在此先感謝

Answer 1

許多可能的方式來做到這一點，這裏有一個也許是神祕和簡潔的一行，接着解釋：

Show[Plot[#, {x, ##2}] & @@@ list] 

首先，#被Slot和##的運營商表格是SlotSequence的運營商表格，而f @@@ expr是Apply[f,expr,{1}]]的中綴運營商，

Show[Apply[Plot[#, {x, ##2}] &, list, {1}]] 

因此，您list的每個子列表中，元素被作爲參數傳遞給純函數傳遞：所以這可能是更冗長表示。在純函數中，＃是第一個參數（第一個子元素，例如函數3x），##2是其餘參數（從第二個元素開始，作爲Sequence，例如Sequence[0, 4]）。對於第一個元素，則評估的命令是Plot[3x, {x,0,4}]。

如果上面太神祕，你總是可以定義一個函數，並使用Map：

plotter[{func_, interval__}] := Plot[func, {x, interval}] 
Show[plotter /@ list] 

希望幫助！