標題: 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]]]
--
養花種魚數月亮賞星星
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.47.225.181
[1;31m→ [33mshihori [m[33m:沒圖 http://tinyurl.com/258v3wn [m 05/25 22:58
[1;31m→ [33mchungyuandye[m[33m:喔∼∼那是7.0的語法~ [m 05/25 23:00
沒有留言:
張貼留言