《FLA C/FLA C 3D基础与工程实例》全部命令流1
gen zone bri p0 0 0 0 p1 10 0 0 p2 0 10 0 p3 0 0 10 &
p4 15 15 0 p5 0 15 15 p6 15 0 10 p7 20 20 20 &
size 10 10 10 rat 1.0 0.9 1.1 groupbrick_1
高考语文试卷
gen zone bri p0 20 0 0 p1 add 10 0 0 p2 add 0 20 0 p3 add 0 0 15 & size 10 10 10 rat 1.0 0.9 1.1 groupbrick_2
gen zone bri p0 40 0 0 edge 10 size 10 10 10 rat 1.0 0.9 1.1 groupbrick_3 plot sur
new
gen zon bri size 3 3 3
modelelas
prop bulk 3e8 shear1e8
批准英文ini dens 2000
fix z ran z -.1 .1
fix x ran x -.1 .1
fix x ran x 2.9 3.1
fix y ran y -.1 .1
fix y ran y 2.9 3.1
t grav 0 0 -10
solve
app nstres s -10e4 ran z 3 x 1 2 y 1 2 hist gp vel 0 0 3
hist gp vel 0 3 3
plo hist 1 red
plo add hist 2 blue
solve
;-------------------------------------工程信息
;Projec t Record Tree export
;Title:Simple test
;---------------------------------计算第一步
;... STATE: STATE1 ....
config
grid 10,10
modelelasti c
group'Ur:Soil' notnul l
modelelasti c notnul l group'Ur:Soil'
prop densit y=1500.0 bulk=3E6 shear=1E6 notnul l group'Ur:Soil' fix x y j 1
fix x i 1
fix x i 11
t gravit y=9.81
histor y 999 unbala nced
solve
save state1.sav
;----------------------------------计算第二步波兰语
;... STATE: STATE2 ....
initia l xdisp0 ydisp0
initia l xvel 0 yvel 0
modelnull i 4 7 j 8 10
group'null' i 4 7 j 8 10
groupdelete 'null'
托福考试报名费用histor y 1 xdispi=4, j=11
solve
save state2.sav
;--------------------------------绘图命令sayhello
;*** plot comman ds ****
;plot name: syy
qq的意思plot hold grid syy fill
uncommitted
;plot name: Unbala ncedforce
plot hold histor y 999
;plot name: grid
plot hold grid magnif y 20.0 lred grid displa cemen t
;plot name: Xdis-A
plot hold histor y 1 linethe gossip
new
; ===============================
; 定义球体半径和半径方向上单元网格数
; ===============================
def parm
rad=10.0
rad_si ze=5
end
parm
; ===============================
; 建立八分之一球体外接立方体网格
; ===============================
gen zone pyrami d p0 rad 0 0 p1 rad 0 rad p2 rad rad 0 p3 0 0 0 & p4 rad rad rad size rad_si ze rad_si ze rad_si ze group1not only but also用法
gen zone pyrami d p0 0 rad 0 p1 rad rad 0 p2 0 rad rad p3 0 0 0 & p4 rad rad rad size rad_si ze rad_si ze rad_si ze group2
gen zone pyrami d p0 0 0 rad p1 0 rad rad p2 rad 0 rad p3 0 0 0 & p4 rad rad rad size rad_si ze rad_si ze rad_si ze group3
nirvana什么意思;
==================================
; 利用FISH语言将内部立方体节点调整到球面
; ==================================
def make_s phere
p_gp=gp_hea d
loop whilep_gp#null
; 获取节点点坐标值：P=(px,py,pz)
px=gp_xpo s(p_gp)
py=gp_ypo s(p_gp)
pz=gp_zpo s(p_gp)
dist=sqrt(px*px+py*py+pz*pz)
if dist>0 then
; 节点位置调整
maxp=max(px,max(py,pz))
k=(maxp/rad)*(rad/dist)
gp_xpo s(p_gp)=k*px
gp_ypo s(p_gp)=k*py
gp_zpo s(p_gp)=k*pz
end_if
p_gp=gp_nex t(p_gp)
end_lo op
end
make_s phere
; ===============================
; 利用镜像生成完整球体网格
; =============================== gen zone ref
gen zone ref dip 90
gen zone ref dip 90 dd 90
; =============================== ; 显示球体网格
; =============================== plot surf
pl t back wh
pl bl gr
