Hello:
I want to make a package or module. Not sure. I cant get my head around what to do. I have loads of formulas I would like to be able to use without going back through work sheets. At present just want to keep it simple.
Have loaded a sample work sheet to use
Intend to place package in Maple2016 library folder.

Library Folder
C:\Program Files\Maple 2016\lib





Points
![Point2 := proc (x1, y1) options operator, arrow; [x1, y1] end proc](/view.aspx?sf=218693_question/8b977ccbb168159066b52df8ff6eb3cb.gif)
![proc (x1, y1) options operator, arrow; [x1, y1] end proc](/view.aspx?sf=218693_question/6246f9b8d5124bb7566c6d1bfce57c81.gif)
|
(1) |
![Point3 := proc (x1, y1, z1) options operator, arrow; [x1, y1, z1] end proc](/view.aspx?sf=218693_question/df876d0bc7f99889ff1e8c1af076ad0e.gif)
![proc (x1, y1, z1) options operator, arrow; [x1, y1, z1] end proc](/view.aspx?sf=218693_question/002a2ba38af707065b6eedc9ee429a80.gif)
|
(2) |

![[x1, y1, z1]](/view.aspx?sf=218693_question/c13bbc4486b3b54af97e660e5d1b1514.gif)
|
(3) |

![[x2, y2, z2]](/view.aspx?sf=218693_question/6a86a932692fc1484af8d3bf43fd8e15.gif)
|
(4) |

![[x3, y3, z3]](/view.aspx?sf=218693_question/b06428c891364cc40f2119a88aa1dc94.gif)
|
(5) |
Line through 2 points
![LinePts := proc (p1, p2) options operator, arrow; (p2[2]-p1[2])*x+(p1[1]-p2[1])*y-p2[2]*p1[1]+p1[2]*p2[1] end proc](/view.aspx?sf=218693_question/7a4d5d20a5c6a72e972d22946cc3287e.gif)
![proc (p1, p2) options operator, arrow; (p2[2]-p1[2])*x+(p1[1]-p2[1])*y-p2[2]*p1[1]+p1[2]*p2[1] end proc](/view.aspx?sf=218693_question/69a9cd6eb4b6dc16abd28a90dbaa2f07.gif)
|
(6) |

Line


|
(7) |
Lines s


|
(8) |
Lines t


|
(9) |


Quadrance between 2 points (2D)
![Quadrance := proc (a1, a2) options operator, arrow; (a1[1]-a2[1])^2+(a1[2]-a2[2])^2 end proc](/view.aspx?sf=218693_question/5bdc5a9958d941454b782cf2fbaebcf0.gif)
![proc (a1, a2) options operator, arrow; (a1[1]-a2[1])^2+(a1[2]-a2[2])^2 end proc](/view.aspx?sf=218693_question/05ba99d8d68c7815423d04c919d3138b.gif)
|
(10) |

Quadrance between 2 points (3D)
![Qd3 := proc (a1, a2) options operator, arrow; (a1[1]-a2[1])^2+(a1[2]-a2[2])^2+(a1[3]-a2[3])^2 end proc](/view.aspx?sf=218693_question/4887fd5b2e41a4fa2e70ebbe85f524f6.gif)
![proc (a1, a2) options operator, arrow; (a1[1]-a2[1])^2+(a1[2]-a2[2])^2+(a1[3]-a2[3])^2 end proc](/view.aspx?sf=218693_question/d6ed927ce46db614f4d2067eeeda2729.gif)
|
(11) |
Triple Quad Formula (3 colinear points)


|
(12) |
 


|
(13) |


|
(14) |

|
Download Testpackage.mw