声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1547|回复: 3

[共享资源] 望砸个砖头引块玉——风扇叶片的三维造型

 关闭 [复制链接]
发表于 2007-4-17 20:40 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
望砸个砖头引块玉——风扇叶片的三维造型
fengshan.jpg

评分

1

查看全部评分

回复
分享到:

使用道具 举报

发表于 2007-5-22 22:09 | 显示全部楼层

请问有没有源码啊?

同题,能否共享,大家参考学习一下?
 楼主| 发表于 2007-5-23 08:26 | 显示全部楼层
function [xd,yd,zd]=rotx_(x,y,z,th)
cosf=cos(th*pi/180);
sinf=sin(th*pi/180);
xd=x;
yd=cosf.*y-sinf.*z;
zd=sinf.*y+cosf.*z;
function [xd,yd,zd]=roty_(x,y,x,th)
cosf=cos(th*pi/180);
sinf=sin(th*pi/180);
yd=y;
xd=cosf.*x+sinf.*z;
zd=-sinf.*x+cosf.*z;
function [xd,yd,zd]=rotz_(x,y,x,th)
cosf=cos(th*pi/180);
sinf=sin(th*pi/180);
xd=cosf.x-sinf.*y;
yd=sinf.*x+cosf.*y
zd=z;
clear,clf
colormap jet
r=0.601:0.1:2;
imax=length(r);
dth=pi/16;
th=-2*dth:dth:2*dth
[th,zb]=b_design;
jmax=length(th);
for i=1:imax
for j=1:jmax;
x(i,j)=r(i)*cos(th(j));
y(i,j)=r(i)*sin(th(j));
z(i,j)=zb(j);
end
end
zc=z
for i=imax-1:imax
for j=1:jmax
x(i,j)=r(imax-2)*cos(th(j));
y(i,j)=r(imax-2)*sin(th(j));
if i==imax
z(i,j)=(zb(j)+zb(jmax+1-j))*0.5;
end
zc(i,j)=1
end
end
hold on
for k=1:6
angl=60*k
[xb,yb,zb]=rotz_(x,y,z,angl)
mesh(xb,yb,zb,zc)
end
axis([-1.5,1.5,-1.5,1.5,-1.5,1.5])
[xc,yc,zc]=cylinder(0.595,80);
xc(2,:)=xc(1,:);
yc(2,:)=yc(1,:);
zc(1,:)=-ones(size(xc(1,:)))*0.7;
zc(2,:)=ones(size(xc(1,:)))*0.7;
colr=0.7*ones9size(zc));
mesh(xc,yc,zc,colr*0.6)
mesh(xc*0.95,yc*0.95,zc,colr*0.99)
view([-100,20])
function [thb,zb]=b_design
minz=-0.5;
maxz=0.1;
minth=-0.4;
maxth=0.4;
r=0.4;
dth=pi/32;
th=0:dth:2*pi;
x=r*cos(th);
y=r*sin(th).*(x+0.5).*(5-x)/15-(x+0.4).*(x-0.4)+(0.6/0.8)*(x)-0.2;
thb=x;
zb=y;

评分

1

查看全部评分

发表于 2007-5-23 11:37 | 显示全部楼层
:lol :@) :loveliness: 谢谢!研究研究,^_^!
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-12-13 15:57 , Processed in 0.083031 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表