- 积分
- 7
- 注册时间
- 2006-12-14
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2010-7-15 10:33:41
|
显示全部楼层
来自 北京
KingGun版主这招果真相当强大,多谢!!!
%%%%
n = 25;
L=5e3;
alpha=deg2rad(0.5);
omega=2*pi/L;
x=linspace(0,L,n);
y=linspace(0,L,n);
X=repmat(x,size(y'));
Y=repmat(y',size(x));
% surface
S = -X.*tan(alpha);
% base
B = S - 1000 + 500*sin(omega.*X).*sin(omega.*Y);
mimi=min(min(B));
mama=max(max(S));
fs = geomsurf(X,Y,S); % type face3
fb = geomsurf(X,Y,B); % type face3
b1 = block3(x(n),y(n),abs(mimi-mama), ...
'base','corner','pos',[0 0 mimi-mama],...
'axis',[0 0 1],'rot',0)
g = geomcoerce('solid',{fs,b1,fb});
ss=split(g);
geom=ss{2}; % the 3D region (solid3 object)
clear X Y Z S B x y fs fb b1 g ss
%%%%
__._,_.___ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
评分
-
1
查看全部评分
-
|