哪位大侠有matlab模数和数模变换的源代码，小弟急需

比如：做一个花瓶。（提示：做一个旋转体表面，调入一幅图像对该表面进行彩绘，即用图像的色图索引作为表面体的色图索引）
t=(0:20)/20;
r=sin(2*pi*t)+2;
[x,y,z]=cylinder(r,40); % 产生旋转体表面的三维数据
cx=imread('flowers.tif'); % 读取名为flowers.tif的图象文件
[c,map]=rgb2ind(cx,256); % 真彩色图转换为索引图（若读入的是索引图，不需转换）
c1=double(c)+1; % 把unit8编址图象数据变换为双精度格式
surface(x,y,z,'Cdata',flipud(c1),'FaceColor','texturemap',...
'EdgeColor','none','CDataMapping','direct','Ambient',...
0.6,'diffuse',0.8,'speculars',0.9) %通过属性设置，进行彩绘。
colormap(map) % 使用图象的色图
view(-50,10)
axis off