关于图形的提问

wyxajg

画了一个小插图,编的程序挺烂的,希望高手能帮以简化指点,并提出两个小小的问题,盼解决:
1, 如何在图例说明外加边框!
2,图形线与图形说明线能否对应起来!
菜鸟提问,请多多包涵!
附程序和图形:
c = 42.; r = 20.; h = 20.;
a1 = Text[Style["\[Beta]=30°", Bold, FontSize -> 12]];
a2 = Text[Style["\[Beta]=35°", Bold, FontSize -> 12]];
a3 = Text[Style["\[Beta]=40°", Bold, FontSize -> 12]];
a4 = Text[Style["\[Beta]=45°", Bold, FontSize -> 12]];
a5 = Text[Style["\[Beta]=50°", Bold, FontSize -> 12]];
b1 = Graphics[{Dashing[Tiny], Line[{{0, 0}, {0.3, 0}}]}];
b2 = Graphics[{Dashing[Small], Line[{{0, 0}, {0.3, 0}}]}];
b3 = Graphics[{Dashing[Large], Line[{{0, 0}, {0.3, 0}}]}];
b4 = Graphics[{Dashing[{0.03, 0.03, 0.005, 0.03}],
    Line[{{0, 0}, {0.3, 0}}]}];
b5 = Graphics[{Dashing[Larger], Line[{{0, 0}, {0.3, 0}}]}];
Plot[Evaluate[
  Table[(4 *42 (1 + k - k (Sin)^2) + (1 + k -
       k (Sin))^2 20*20 Tan[17 °])/(
   20*20 (1 - k^2 (1 - (Sin))^2)), {i, 30 °, 50 °, 5 °}]], {k, 0.5,
   1}, PlotStyle ->
  Table[Dashing[
    r], {r, {Tiny, Small, Large, {0.03, 0.03, 0.005, 0.03},
     Larger}}],

Prolog -> {Inset[a1, {0.65, 1.8}, Center],
   Inset[a2, {0.65, 1.7}, Center],
   Inset[a3, {0.65, 1.6}, Center],
   Inset[a4, {0.80, 1.8}, Center],
   Inset[a5, {0.80, 1.7}, Center],
   Inset[b1, {0.60, 1.8}, Center],
   Inset[b2, {0.60, 1.7}, Center],
   Inset[b3, {0.60, 1.6}, Center],
   Inset[b4, {0.75, 1.8}, Center],
   Inset[b5, {0.75, 1.7}, Center]},

AxesOrigin -> {0.5, 0.8},
AxesLabel -> {"\!\(\*SubscriptBox[\"K\", \"0\"]\)",
   "\!\(\*SubscriptBox[\"F\", \"s\"]\)"},
LabelStyle -> Directive[Bold, FontSize -> 12]]

smarten

参照： http://www.simwe.com/forum/thread-834016-1-1.html