【推荐】积分鼓励，做弹簧划分网格

77152587

当速度vel随时间变化时所得到的变间距曲线的弹簧；当旋转角速度随时间变化时所得到的半径放大或缩小的曲线的弹簧。
  
fini
/cle
/prep7
  
vel=1
wnat=10
pi=3.14
start_time=0
end_time=6*pi/wnat
step_time=2*pi/wnat/20
  
n_iter=(end_time-start_time)/step_time+1
  
*do,iter,1,n_iter
   x=sin(wnat*(iter-1)*step_time)
   y=cos(wnat*(iter-1)*step_time)
   z=vel*(iter-1)*step_time
   n,iter,x,y,z
*enddo
  
et,1,4
r,1,10
  
*do,iter,1,n_iter-1
   e,iter,iter+1
*enddo

hoby

第一次发帖子，自己试着做了一个，还望各位高手指导指导。

hekie

请给出程序或log文件，并加密显示

David2003

一个比较简单的螺旋弹簧，请指教。
采用了solid45单元，建模后用lesize命令控制一下线上单元尺寸，然后进行sweep网格划分。以下是采用了柱坐标进行建模的命令：
/prep7
*afun,deg
CSYS,1
radl=0.45
rads=0.05
dist=0.15
k,1,radl,0,0
k,2,radl,120,dist
k,3,radl,240,2*dist
k,4,radl,0,3*dist
k,5,radl,120,4*dist
k,6,radl,240,5*dist
k,7,radl,0,6*dist
l,1,2
l,2,3
l,3,4
l,4,5
l,5,6
l,6,7
LCOMB,1,2,0
LCOMB,1,3,0
LCOMB,1,4,0
LCOMB,1,5,0
LCOMB,1,6,0
csys,0
wpro,,-90,
cyl4,radl,0,rads
vdrag,1,,,,,,1
WPSTYLE,,,,,,,,0

David2003

上面的图例

louleming

请问一下你这个变钢丝直径是怎么做出来的？ 通过beam188实现的吗？

hanjingang

那这样的应该怎样分呢？弹簧的地面切平后，就不能用扫略生成网格了！

hanjingang

这个图形应该怎样划分网格呢？

fengfengconnie

没有分析过

fengfengconnie

/prep7  
*do,i,0,200
*set,x,200*cos(i/4)
*set,y,i*3
*set,z,200*sin(i/4)
k,i+1,x,y,z
*enddo  
  
*do,i,1,194,5  
bsplin,i,i+1,i+2,i+3,i+4,i+5  
*enddo  
bsplin,196,197,198,199,200

kwpave,1
pcirc,20,,0,360

*do,j,1,40,1
vdrag,1+(j-1)*5,,,,,,j
*enddo

fengfengconnie

/prep7  
*do,i,0,200
*set,x,200*cos(i/4)
*set,y,i*3
*set,z,200*sin(i/4)
k,i+1,x,y,z
*enddo  
  
*do,i,1,194,5  
bsplin,i,i+1,i+2,i+3,i+4,i+5  
*enddo  
bsplin,196,197,198,199,200

kwpave,1
pcirc,20,,0,360

*do,j,1,40,1
vdrag,1+(j-1)*5,,,,,,j
*enddo

skylarkcrane

好牛啊，我要努力了

sxwenmin

厉害厉害,努力成为高手

suihenry

[ 本帖最后由 suihenry 于 2008-2-15 17:32 编辑 ]