嗯。。。好吧虽然很简单的一个模型而已。。。
公式准备:(维基百科)
  其中 且 .这个方程组可以创造一个边长为1半径为1的莫比乌斯带,所处位置为x-y面,中心为(0,0,0)。参数u在v从一个边移动到另一边的时候环绕整个带子。
效果:
代码:
讲解:6-7行可自行设定参数,所改编的是模型的精度
8-9行定义点组(奇怪为什么不能直接dim,必须要redim一下...总之直接dim会报错)
11-20行,让u取遍0-2π,v取遍0到2
26行以后:被调用的子函数,套用莫比乌斯环标准方程,通过将v变成v-1让v的取值范围回到(-1,1).(不这样处理只生成半环)
|
举报