Mathematica中的简单编程技巧/技巧用于制作math书籍的graphics？
我试图使用它。 对于一些情节来说真的很不错，但是当我们把三angular形做成一个例子的时候，我发现它非常复杂。 我想出了如何绘制一个三angular形，但如何添加angular度标记，那些曲线？
而且，因为我是初学者，所以写这本书的时候，谁能推荐我这是最好的方法来完成好看的graphics，例如下图所示。 哪些程序最适合使用。 
感谢您的任何build议和意见。
这是一个简单/基本的方法来做第一个：
Graphics[{ (* The dashed circle segment *) { Dashing[{.04, .01}], Darker[Orange], AbsoluteThickness[2], Circle[{0, 0}, 1, {1, 2 \[Pi]}] }, (* The solid circle segment *) { Orange, AbsoluteThickness[2], Circle[{0, 0}, 1, {0, 1}] }, (* The radial lines and the small circle segment *) Line[{{0, 0}, {1, 0}}], Line[{{0, 0}, {Cos[1], Sin[1]}}], Circle[{0, 0}, .2, {0, 1}], (* Various text labels *) { Text[Style["\[Theta]", 24], .3 {Cos[.5], Sin[.5]}], Text[Style["s", 24], 1.1 {Cos[.5], Sin[.5]}], Text[Style["r", 24], {.5, -.1}] } }] 
以下是完全相同的东西，但包装在Manipulate和参数化的angular度alpha ：
Manipulate[ Graphics[{ {Dashing[{.04, .01}], Darker[Orange], AbsoluteThickness[2], Circle[{0, 0}, 1, {\[Alpha], 2 \[Pi]}]}, {Orange, AbsoluteThickness[2], Circle[{0, 0}, 1, {0, \[Alpha]}]}, Line[{{0, 0}, {1, 0}}], Line[{{0, 0}, {Cos[\[Alpha]], Sin[\[Alpha]]}}], Circle[{0, 0}, .2, {0, \[Alpha]}], {Text[Style["\[Theta]", 24], .3 {Cos[\[Alpha]/2], Sin[\[Alpha]/2]}], Text[Style["s", 24], 1.1 {Cos[\[Alpha]/2], Sin[\[Alpha]/2]}], Text[Style["r", 24], {.5, -.1}]} }], {{\[Alpha], 1}, 0, 2 \[Pi]}]
如果您移动滑块，则内容将相应更改：
编辑您也可以从演示项目中获得灵感。 这些是三angular相关的示范。 在仔细观察之后，我想你应该看到Jay Warendorff所做的与几何相关的演示。 他做了很多这些，他们使用一个结构化的几何相关函数，你很可能可以重用。
这里有一个angleArc函数让你开始。 这只是你可以使用的帮助函数的一个小例子，还有很大的改进空间。
angleArc[Polygon[vertices_List, ___], r_, i_] := Module[{a, b, c, phi1, phi2}, {a, b, c} = Take[RotateLeft[vertices, i-2], 3]; {phi1, phi2} = Sort@N[{ArcTan @@ (a - b), ArcTan @@ (c - b)}]; If[phi2 - phi1 > Pi, phi1 += 2 Pi]; Circle[b, r, {phi2, phi1}] ] poly = Polygon[{{0, 0}, {1, 2}, {2, 1}}]; Graphics[{EdgeForm[Thick], FaceForm[None], poly, Table[angleArc[poly, .2, i], {i, Length[poly[[1]]]}]}]
Manipulate[ With[{poly = Polygon[{a, b, c}]}, Graphics[ {EdgeForm[Thick], FaceForm[None], poly, Table[angleArc[poly, .2, i], {i, Length[poly[[1]]]}]}, PlotRange -> 2 {{-1, 1}, {-1, 1}}, Frame -> True ] ], {{a, {0, 0}}, Locator}, {{b, {1, 0}}, Locator}, {{c, {0, 1}}, Locator} ]
一个优秀的，Wolfram支持的产品是Geometrica 。 这不是一个便宜的附加在495美元，但它会产生像你的图表比在原始的MMA Mathematica做更容易。 它基本上是Szabolcs方法在注释中的一个非常大的扩展 – 一个用来绘制东西的函数库。
我很喜欢Mathematica。 但是对于几何绘图有更好的select。
在这里，您可以使用几何expression式 （使用非常低的分辨率）完成五分钟的草图：
几何expression式执行一些很好的平面几何计算，并可以将结果导出到Mma在线。
是的，Mathematica内置的graphics工具在某些地方有点古怪，还有一些令人讨厌的遗漏。 但是有一个很好的基本graphics范围，从好的方面来说，你只需要从math工具中进行几次击键就可以纠正graphics编辑器的一些缺陷。 需要一个弧线？ 只需在下面计算并复制/粘贴即可。无法用Adobe Illustrator做到这一点！ 还有广泛的方程式和希腊字符。 当没有别的事情可以帮忙的时候，这可能会有帮助。
这是第一个 – 这不是完全不可接受的… 🙂
演示文稿是由David Park编写的MMA优秀且低成本（50美元）graphics（以及更多）包。 http://home.comcast.net/~djmpark/DrawGraphicsPage.html
在我们的stackoverflow工具包中，它被称为资源n.2 什么是在你的Mathematica工具包？
