本文，要绘制如下图所示的网兜：网兜的下底面是半径为1的圆；上面是半径为2的圆；网兜的高度是3.6；直线上下穿插，形成一个直纹面的网兜。下面，我就介绍一下这个网兜的绘制方法。
工具/原料
1
电脑
2
Mathematica
方法/步骤
1
先画出上下两个圆：a={Cos[n],Sin[n],0}b={2*Cos[n],2*Sin[n],3.6}
2
在上下圆圈对应点之间连线，就得到一个简易“网兜”：Table[{a,b},{n,0,2 Pi,2 Pi/100}]
3
然而，我希望，直线不要直上直下的穿插：a={Cos[n],Sin[n],0}b={2*Cos[n+2],2*Sin[n+2],3.6}Table[{a,b},{n,0,2 Pi,2 Pi/100}]中间变细了。
4
中间能达到多细？答案是0，也就是可以无限细。这样的网兜，我不会想要的。
5
细的程度合适的话，曲面还是很漂亮的。而，完整的网兜，需要至少两组线交织而成。
6
我们可以求出这个曲面的方程：a={Cos[n],Sin[n],0}r=2.6;b={2*Cos[n+r],2*Sin[n+r],3.6}c=b+m(a-b)
注意事项
你能绘制出更漂亮的、别的样式的网兜吗？
上一篇：马蜂酒有什么功效？
下一篇：治疗类风湿的药酒制作偏方