Maximaでメビウスの帯を描画

plot3d(
	[
		cos(s)*(3+t*cos(s/2))
		,sin(s)*(3+t*cos(s/2))
		,t*sin(s/2)
	]
	,[s,0-%pi,%pi]
	,[t,-1,1]
	,[grid, 50, 10]
	,[mesh_lines_color,true]
	,[box, false]
	,[legend, false]
);