MathEmatics11.3下开发第二讲之：加载wrl模型源码详解

1 新建程序

进入界面，点击新建nb文件。

为自己的笔记本命名一个自己喜欢的名字。

2 源码

在文件中输入如下源码

Off[General::shdw, Unset::norep];

SetDirectory[NotebookDirectory[] <> "Packages"];

<< myFunction.m;

SetDirectory[NotebookDirectory[] <> "MOTOMAN-ES165D"];

frame3D = { {RGBColor[#], Arrowheads[0.03],

Arrow@Tube[{ {0, 0, 0}, #}, 0.01]} & /@ IdentityMatrix[3]};

partsName = {"1.stl", "2.stl", "3.stl", "6.stl", "7.stl", "8.stl",

"9.stl"};

robotPartsGraphics = Import[#, "Graphics3D"] & /@ partsName;

robotParts = robotPartsGraphics[[;; , 1]];

Graphics3D[{frame3D, robotParts}]

n = 6 ; (*自由度*)

nL = Length@partsName;(*机械臂连杆个数*)