2010年6月19日 星期六

Re: [其他] mathematica繪圖的問題

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Math
標題: Re: [其他] mathematica繪圖的問題
時間: Tue May 25 22:45:01 2010

※ 引述《shihori (^^)》之銘言:
: http://img263.imageshack.us/i/47660900.jpg/
: 想問一下Mathematica有辦法表現出這種圖形線條註解嗎
: 裡面有四條正弦函數假設分別為 f1 f2 f3 f4
: 如果要一起擺放在同個圖上就要用 Show[f1,f2,f3,f4]
: 但只會出現四條正弦函數而不會出現圖形線條註解
: 這有方法可以做得到嗎?感恩

用內建的package

Needs["PlotLegends`"];
Plot[{Sin[x], Sin[2 x], Sin[3 x], Sin[4 x]}, {x, 0, 2 Pi},
PlotRange -> {-2, 2},
PlotLegend -> {"Three", "Small", "three", "small"},
LegendPosition -> {-0.1, 0.4},
LegendSize -> 0.25,
ShadowBackground -> White,
ShadowBorder -> White,
ImageSize -> 500]


自己寫

LineStylesFromTooltips[plot_Graphics]:=
Cases[plot, Tooltip[{s__,l_Line},tt_]:>
Grid[{{Graphics[ Flatten[{s,Thickness[0.15],Line[{{0,0},{1,0}}]}],
ImageSize->{24,8},AspectRatio->8/24,ImagePadding->0],
tt}}],Infinity]

LineLegendFromTooltips[plot_Graphics]:=
Labeled[plot, Style[Column[LineStylesFromTooltips[plot],Left],"TR",
ShowStringCharacters->False],{{Right,Top}}]

myfun=Apply[Tooltip,#]&/@{{Sin[x],"aaa"},{Sin[2x],
"bbb"},{Sin[3x],"ccc"},{Sin[4x],"ddd"}}

LineLegendFromTooltips[Plot[myfun,{x,0,2Pi},PlotStyle->Thickness[0.01]]]

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.47.225.181
→ shihori :沒圖 http://tinyurl.com/258v3wn  05/25 22:58
→ chungyuandye:喔∼∼那是7.0的語法~  05/25 23:00

沒有留言:

張貼留言