). 10, 阿基米德多面體 ... 
mathematica;教學;pdf mathematica 6教學 mathematica基本教學
下面的函數主要是用來繪製存貨系統的時程圖
接下來，解釋一下函數的內容
Table[{
Plot[I1[i,t]//Evaluate,{t,S[i-1],T[i]},PlotStyle->{Blue,Thickness[.0025]}],
Plot[I2[i,t]//Evaluate,{t,T[i],S[i]},PlotStyle->Blue,Thickness[.0025]}]},
{i,num}]
將各階段的存貨水準繪出，並設定圖形顏色為藍色，線寬度為0.0025，前面的Show是將這些圖形合併
AxesLabel -> {"Time", "Inventory level"}
設定x, y軸分別為Time"以及"Inventory level"
LabelStyle -> {FontFamily -> "Courier", FontSize -> 14}
x, y軸字型為Courier以及字型大小為14
AspectRatio -> 0.5
設定圖形長寬比為2:1
AxesStyle -> Arrowheads[{0, 0.02}]
設定x,y軸的箭頭，箭頭大小為0.02
Ticks->{Round[{S[0],{S[#],T[#]}&/@Range[num]},0.01]//Flatten}
設定x軸刻度，並將最佳解帶入
TicksStyle -> { {FontFamily -> "Courier", FontSize -> 12}, {FontFamily -> "Courier", FontSize -> 12} }
設定刻度格式，x, y軸字型Courier，字型大小為12
mathematica;教學;pdf mathematica 6教學 mathematica基本教學 下面的函數主要是用來繪製存貨系統的時程圖
接下來，解釋一下函數的內容
Table[{
Plot[I1[i,t]//Evaluate,{t,S[i-1],T[i]},PlotStyle->{Blue,Thickness[.0025]}],
Plot[I2[i,t]//Evaluate,{t,T[i],S[i]},PlotStyle->Blue,Thickness[.0025]}]},
{i,num}]
將各階段的存貨水準繪出，並設定圖形顏色為藍色，線寬度為0.0025，前面的Show是將這些圖形合併
AxesLabel -> {"Time", "Inventory level"}
設定x, y軸分別為Time"以及"Inventory level"
LabelStyle -> {FontFamily -> "Courier", FontSize -> 14}
x, y軸字型為Courier以及字型大小為14
AspectRatio -> 0.5
設定圖形長寬比為2:1
AxesStyle -> Arrowheads[{0, 0.02}]
設定x,y軸的箭頭，箭頭大小為0.02
Ticks->{Round[{S[0],{S[#],T[#]}&/@Range[num]},0.01]//Flatten}
設定x軸刻度，並將最佳解帶入
TicksStyle -> { {FontFamily -> "Courier", FontSize -> 12}, {FontFamily -> "Courier", FontSize -> 12} }
設定刻度格式，x, y軸字型Courier，字型大小為12
讀者回應 ( 7 意見 )
訂閱發佈留言 (Atom)
你好!我是剛接觸這套軟體的一位研究生
想請教你一些指令上面的問題
我的問題是當我使用manipulate的指令畫函數圖時Sinc[x]
我有設定X的範圍 所以到最後結果我是可以用manipulate的功能來調節X的範圍 導致圖形上的變動
但是如果今天我想把"變動過程的圖全部都保留下來"
假如我今天把x從1拉到100
圖形會及時呈現Sinc[1] Sinc[2].....Sinc[100]
我該加入哪些指令~
或是怎麼打才能夠"同時"看到Sinc[1] Sinc[2].....Sinc[100]
這些圖
謝謝你
Manipulate[Plot[Sinc[x],{x,0,a},PlotLabel->Style[Sin[a],Large]],{a,1,100,1}]
不知道是不是你要的
或是怎麼打才能夠"同時"看到Sinc[1] Sinc[2].....Sinc[100]這些圖
拍謝～意思有點模糊～～我猜你應該是又畫出這100張圖吧！
Plot[Sinc[x],{x,0,#},PlotLabel->Style[Sinc[#],Large]]&/@Range[100]
先謝謝大哥的回答
不過答案我剛剛試過了 其實可能是我說的有點不太清楚
我主要的問題在於 一樣是要用"拉調"去拉他
但是每當我拉一個數值 她只會呈現該數值的函數圖
譬如 我拉X=5 只會呈現Sinc[5] 當我拉X=6時候圖形會馬上呈現Sinc[6] 但是原本的Sinc[5]會不見
是想問說有甚麼辦法可以讓原本的Sinc[5]還是存在
(和新拉的Sinc[6]同時存在一個介面上 而不是另外呈現一個圖)
不知道Manipulate能不能這樣做
還是謝謝你的回答
我的MSN:warcrift3@yahoo.com.tw
希望可以一起討論 感謝!
雖然不是完全了解你的意思，但你要的應該是你點過的值要繼續留在圖上，試試下面的指令，不是的話，應該修改一下就可以
DynamicModule[{n={}},
{TogglerBar[Dynamic[n],Range[10]],
Dynamic@Plot[Sinc@(n*x),{x,0,10},PlotRange->{-1,1},
ImageSize->400]}//Column
]
不過問一下，Sinc[5]是一個點，你怎麼畫出一張圖？
我看到了!謝謝老師!
這程式的意思完全針對我的意思
只是我想問的是...
是不是只能用Dynamic這功能才可以這樣做
我是在try說可不可以把上面那switch botton
換成manipulate的"拉槓"那樣達到同樣效果
你要有記憶性，那應該只能使用Dynamic。你說的拉槓，在Mathematica中是Slider，但是好像也沒有記憶的功能，如果硬要這麼做，下面這個看看
DynamicModule[{n={}},
ClickPane[Dynamic@Plot[Sinc@(n*x),{x,0,10},
PlotRange->{-1,1}],(AppendTo[n,First@#])&]]
n是x軸的座標
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～