Mathematica 绘制图像实例

{goal,{home},lines}=Import["/home/dabao/robot/data.mat"];

name=Flatten[Import["/home/dabao/robot/name"]];

 map=Line[Partition[#,2]&/@lines];

end=Table[

   {Blend[{Red,Blue},i/10],

    Disk[goal[[i]],400],

    Green,

   Text[Style[i-1,FontSize->Scaled[0.03]],goal[[i]]+{0,0}],

    Blue,

   Text[Style[name[[i]],FontSize->Scaled[0.025]],goal[[i]]+{0,-800}]

    },{i,10}];

 Graphics[{

  map,

  Red,Disk[home,500],

 Blue,Text[Style["h",FontSize->Scaled[0.03]],home],

  end}]

数据下载:数据

原文地址:https://www.cnblogs.com/dabaopku/p/1905155.html