返回列表 发帖
good good study day day up!

TOP

我干当一块砖,看谁赢礼

TOP

我干当一块砖,看谁赢礼

TOP

我干当一块砖,看谁赢礼

TOP

fini
/clear

/filname,jjj,1
/prep7
factor = 1000
elasfac = 1
vmax = 5
diam = 20.4/factor
radius = diam/2.
thick = 1.8/factor
length = 100./factor
mp,ex,2,3.0E5*elasfac
mp,dens,2,1150
mp,nuxy,2,0.3
et,1,141,,,1,1
et,2,42,,,1
!! Blood volume
rect,0,radius,0,length

lesize,1,,,10,-3
lesize,3,,,10,-3
lesize,4,,,60,2
lesize,2,,,60,1/2
type,1
amesh,1
!! Blood vessel wall
type,2
mat,2
real,2
rect,radius,radius+thick,0,length

lesize,6,,,50
lesize,8,,,50
lesize,5,,,2
lesize,7,,,2
amesh,2
alls
!!! The pressure pulse table
*DIM,pulse,TABLE,5,1,1,time
!*
*SET,PULSE(1,0,1) , 0
*SET,PULSE(2,0,1) , 0.003
*SET,PULSE(2,1,1) , 1666
*SET,PULSE(3,0,1) , .008
*SET,PULSE(3,1,1) , 1666
*SET,PULSE(4,0,1) , .010
*SET,PULSE(4,1,1) , 0.
*SET,PULSE(5,0,1) , 1.00
*SET,PULSE(5,1,1) , 0.
/number,1
/pnum,mat,1

fini
/solu

asel,s,loc,x,0,radius
allsel,below,area
nsla,s,1
cm,fluid,node

asel,s,loc,x,radius,radius+thick
allsel,below,area
nsla,s,1
cm,solid,node

nsel,s,loc,y,0
nsel,a,loc,y,length
cmsel,r,solid
d,all,uy,0

alls
cmsel,s,solid
nsel,r,loc,x,radius
sf,all,fsin,1

alls

cmsel,s,fluid
nsel,r,loc,x,0
d,all,ux,0
d,all,vx,0
alls

cmsel,s,fluid
nsel,r,loc,y,0
d,all,uy,0
d,all,pres,%pulse%
alls

cmsel,s,fluid
nsel,r,loc,y,length
d,all,uy,0
d,all,pres,0

alls
cmsel,s,fluid
nsel,r,loc,x,radius
d,all,vx,0
d,all,vy,0
sf,all,fsin,1

alls

FLDATA1,SOLU,TRAN,1
FLDATA1,SOLU,FLOW,1
FLDATA1,SOLU,TEMP,0
FLDATA1,SOLU,TURB,1
FLDATA1,SOLU,COMP,0
FLDATA1,SOLU,VOF,0  
FLDATA1,SOLU,SFTS,0
FLDATA1,SOLU,IVSH,0
FLDATA1,SOLU,SWRL,0
FLDATA1,SOLU,SPEC,0
FLDATA1,SOLU,ALE,1  
FLDATA1,SOLU,RDSF,1

FLDATA12,PROP,DENS,0
FLDATA13,VARY,DENS,0
FLDATA12,PROP,VISC,0
FLDATA13,VARY,VISC,0
FLDATA12,PROP,COND,0
FLDATA13,VARY,COND,0
FLDATA12,PROP,SPHT,0
FLDATA13,VARY,SPHT,0
FLDATA7,PROT,DENS,CONSTANT  
FLDATA8,NOMI,DENS,1050,
FLDATA9,COF1,DENS,0
FLDATA10,COF2,DENS,0
FLDATA11,COF3,DENS,0
FLDATA7,PROT,VISC,CONSTANT  
FLDATA8,NOMI,VISC,4e-3,
FLDATA9,COF1,VISC,0
FLDATA10,COF2,VISC,0
FLDATA11,COF3,VISC,0
FLDATA12,PROP,IVIS  
FLDATA7,PROT,COND,CONSTANT  
FLDATA8,NOMI,COND,-1,   
FLDATA9,COF1,COND,0
FLDATA10,COF2,COND,0
FLDATA11,COF3,COND,0
FLDATA7,PROT,SPHT,CONSTANT  
FLDATA8,NOMI,SPHT,-1,   
FLDATA9,COF1,SPHT,0
FLDATA10,COF2,SPHT,0
FLDATA11,COF3,SPHT,0
FLDATA15,PRES,REFE,101350,  
FLDATA16,BULK,BETA,36,  
FLDATA17,GAMM,COMP,1.4,
FLDATA14,TEMP,NOMI,293,
FLDATA14,TEMP,TTOT,293,
FLDATA14,TEMP,BULK,293,
TOFFSET,0,  
*SET,_z4,-999   
*SET,_z14,1
FLDATA4,TIME,STEP,0.001,
FLDATA4,TIME,ISTEP,0
FLDATA4,TIME,NUMB,10,   
FLDATA4,TIME,TEND,1.0e06
FLDATA4,TIME,GLOB,15,   
FLDATA4,TIME,VX,0.01,   
FLDATA4,TIME,VY,0.01,   
FLDATA4,TIME,VZ,0.01,   
FLDATA4,TIME,PRES,1e-004,   
FLDATA4,TIME,TEMP,1e-006,   
FLDATA4,TIME,ENKE,0.01,
FLDATA4,TIME,ENDS,0.01,
FLDATA4A,STEP,OVER,0,   
FLDATA4,TIME,OVER,0
FLDATA4A,STEP,APPE,0,   
FLDATA4,TIME,APPE,1.0e6
FLDATA4A,STEP,SUMF,10,  
FLDATA4,TIME,SUMF,1.0e6
FLDATA4,TIME,BC,0   
FLDATA4,TIME,TEND,1000000,  
FSAN,1  
FSOR,FLUID  
FSTR,FLUID,TRAN
FSTR,SOLID,TRAN
FSIN,NONC   
FSTI,0.025,0.001,   
FSDT,0.001,
FSIT,20,
FSCO,ALL,0.01,  
FSOU,0.1E-01
FSCO,ALL,0.01,  
FSOU,1  
FSRE,ALL,0.8,   

solve

TOP

----------------

TOP

"肉价格要上涨50%!"  话音刚落,台下一个工人大叔高声喊道:"没关系。主席,那样的话我们会更加努力的工作!"  胡主席接着说:"同志们,两个月后,我国蔬菜价格也要上涨很大的幅度!"  那个大叔又喊道:"主席,放心,我们会加班工作!"  胡主席又说:"亲爱的同志们,你们让我很感动,但我不得不告诉你们,三个月后,我国粮食价格要翻一番!"  又是那个大叔喊道:"主席,如果真是那样的话我们只能不分昼夜的工作了。"  此时此刻胡主席感动得热泪盈眶,他走下台去,拉住那位大叔的手说:"同志!您真是党的好同志!请问您在哪里工作?"   "主席,火葬厂。"

TOP

我在天津坐面的的时候,一般的司机都喜欢骂天津市的脏乱差。有个司机给我们讲了个笑话,但是他是用非常严肃的口吻说的:“那个拉登本来想来中国捣乱,可是为什么没动静呐?话说他到了上海上空一看,嗯,国际大都市、很繁华,留着让我赚钱,不炸。飞到了北京一看,嗬,那么多的古迹文物,还有清真寺,要留着,不炸。一转身到了天津,机师说,这里没有什么古迹,也不繁华,炸嘛?拉登说:“这不是炸过了嘛,这么破破烂烂的 。” 于是转身走了

TOP

盛气凌人

哈哈

TOP

废物利用 哈哈

TOP

返回列表