function [X,Y,Z] = TubeLike(x,y,z,r)
% 绘制三维管道型立体
% TubeLike(x,y,z) 绘制三维管道型几何体,输入参数x,y,z分别为管道中心线各点处
% 的坐标,x,y和z应为等长的向量,此时管道具有统一的半径1.
%
% TubeLike(x,y,z,r) 输入参数r用来指定管道半径。r可以是标量,也可以是与x,y,z等
% 长的向量。当r是标量时,管道具有统一半径;当r是向量时,管道
% 各截面处可以有不同的半径。
%
% TubeLike(x) 输入参数x为3行或3列的矩阵,用来指定管道中心线各点处的坐标,
% 此时管道具有统一的半径1.
%
% TubeLike(x,r) 输入参数x为3行或3列的矩阵,用来指定管道中心线各点处的坐标,
% 输入参数r(标量或向量)用来指定管道半径。
%
% [X,Y,Z] = TubeLike(...) 输出三维管道型几何体的网格数据X,Y和Z.
%
% CopyRight:xiezhh(谢中华)
% 2011.6.26
%
% Example:
% t = linspace(0,2*pi,50);
% x = sin(t);
% y = cos(t);<