求助怎样划分等边三角形
如题，求助怎样划分等边三角形，谢谢 $ 控制errmod 3 C Warning and error interrupt mode
LSDYNA KEYWORD
Title Tetrahedron
Caption Cap Tetrahedron
meshscal 1 C 各方向同倍数放大单元数，用在开头，Merge Phase显现结果
$ 参数
Parameter
R 1 C 锥底半径
L C Block初始边长
Phi -20;
$ 函数
DEF SPX(rho,theta,phi) = rho*COS(theta)*COS(phi) $ 球坐标转换为直角坐标
DEF SPY(rho,theta,phi) = rho*SIN(theta)*COS(phi)
DEF SPZ(rho,theta,phi) = rho*SIN(phi)
$ Block
block 1 8 15;C i
1 8 15;C j
1 8 15;C k
[-1*%L/2] 0 [%L/2];C x
[-1*%L/2] 0 [%L/2];C y
[-1*%L/2] 0 [%L/2];C z
DEI 2 3; ; 2 3;
DEI 1 2; 2 3; 2 3;
DEI 2 3; 2 3; ;
MTI 1 2; 2 3; 1 2; 1
MTI 1 2; 1 2; 1 2; 2
MTI 2 3; 1 2; 1 2; 3
MTI 1 2; 1 2; 2 3; 4
$ 曲线
Curd1 lp3
; ;
Curd2 lp3
; ;
Curd3 lp3
; ;
Curd4 lp3
; ;
Curd5 lp3
; ;
Curd6 lp3
; ;
Curd7 lp3
; ;
Curd8 lp3
; ;
Curd9 lp3
; ;
Curd 10 lp3
; ;
$ 曲面
SD 1 BLEND3 1 2 4;; C 外表面
SD 2 BLEND3 2 3 6;;
SD 3 BLEND3 5 1 3;;
SD 4 BLEND3 4 5 6;;
SD 5 PL3
SP 0 0 0
SP %R 0 -90
SP %R 60 [-1*%Phi];
SD 6 PL3
SP 0 0 0
SP %R 0 -90
SP %R 180 [-1*%Phi];
SD 7 PL3
SP 0 0 0
SP %R 0 -90
SP %R -60 [-1*%Phi];
SD 8 rule3d 8 9;;
SD 9 rule3d 8 10;;
SD 10 rule3d 9 10;;
$ 投影
SFI 1 2; -3; 1 2;sd1
SFI -3; 1 2; 1 2;sd1
SFI 1 2; 1 2; -3;sd1
SFI -1; ; ;sd2
SFI ; -1; ;sd3
SFI ; ; -1;sd4
SFI 2 3; -2; 1 2;sd5
SFI 1 2; -2; 1 2;sd6
SFI -2; 1 2; 1 2;sd7
SFI 1 2; -2; 2 3;sd8
SFI -2; 1 2; 2 3;sd9
SFI 1 2; 1 2; -2;sd 10
$ 边界
BB 2 1 2 2 2 3 1;;
BB 2 1 2 3 2 2 1;;
BB 1 2 2 2 2 3 2;;
BB 1 2 2 2 3 2 2;;
BB 2 2 1 3 2 2 3;;
BB 2 2 1 2 3 2 3;;
grid on
DISPLAY
endpart
$ Merge
merge
st 0.001
WRITE
Measure Volume
Measure Avolume
Measure Jacobian
Measure Orthogon
Measure Smallest
Measure Pointvol
Measure Aspect
Measure Triangle
Measure Warp
Measure Stiffn
DISP
ANGLE 0
RY 90
GRID ON
SLICE 1.0 0.0 0.0 0.0
TVV
$ The End 四面体，参照下 谢谢，学习了
xiaomingt10 发表于 2012-12-10 22:23 static/image/common/back.gif
标准的例子，但好复杂
页:
[1]