Re: [問題] 簡單的繪圖問題
看板Mathematica作者chungyuandye (養花種魚數月亮賞星星)時間13年前 (2012/01/21 11:13)推噓2(2推 0噓 0→)留言2則, 2人參與討論串2/2 (看更多)
※ 引述《Indigoa (小彥oO)》之銘言：
: 標題: [問題] 簡單的繪圖問題
: 時間: Sat Jan 21 00:57:07 2012
:
: 如果嫌這個問題太笨了請鞭小力一點...
:
: 我現在想要畫出一個簡單的圖形,
:
: "一條直線方程式"以及"原點到該直線上某點連成的直線"的圖
:
: 我想用Plot指令+Graph指令,
:
: 推 Rasin:Show[graph1,graph2] 01/21 01:08
: → Rasin:Plot[{eq1,eq2},{x,...},...] 01/21 01:10
其實像這種需要在圖形添加一些點、線、文字或其他元素使用Show這個指令並不適合。
像這種時候可以多利用Epilog這個Option，這Option在Mathematica大部分的
繪圖函數幾乎都適用
Plot[Sin[x], {x, 0, 2 Pi},
Epilog -> {
(*先畫一個紅色的點，大小0.02，座標(0,0)*)
Red, PointSize[0.02], Point[{0, 0}],
(*畫一個綠色的點，座標(t,sin(t))*)
Green,Point[{1, Sin[1]}],
(*畫一條端點為(0,0及(t,sin(t))的連線*)
Line[{{0, 0}, {1, Sin[1]}}]}]
用Manipulate做成一個動畫
Manipulate[
Plot[Sin[x], {x, 0, 2 Pi},
Epilog -> {Red, PointSize[0.02], Point[{0, 0}], Green,
Point[{t, Sin[t]}], Line[{{0, 0}, {t, Sin[t]}}]}], {t, 0, 2 Pi}]
--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.182.186
推
01/21 11:50, , 1F
01/21 11:50, 1F
推
01/25 15:35, , 2F
01/25 15:35, 2F
討論串 (同標題文章)
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
