注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

火星号

new world,new start,new life

 
 
 

日志

 
 

油缸起竖  

2010-06-09 09:52:21|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
新做的一个,模拟油缸起诉过程的例子
附件,里有动画演示文件

没有什么具体的工程意义,只是做着玩的
当初的本意,是希望用ansys的MULTIBODY ANALYSIS代替ADMAS的运动分析
具体可见普通问题之问题5

现在,看来是泡汤了

不过,命令流里用了很多繁杂的操作,
不为别的,就是为了练练手,所以显得有点多于

在此贴出,望赏析,给予建议!
谢谢!


!两个宏块:托架起竖过程受力分析和起竖过程动画演示
FINISH
/CLEAR,START
/FILENAME,Tub,1
/CONFIG,NRES,5000

!(一)创建宏
!一、宏块1
!宏描述:托架起竖过程受力分析
*CREATE,Tray.mac
/PMACRO
*AFUN,DEG
!1.参数定义与赋值
!1)多参数变量
MULTIPRO,'START',4 !重物
*CSET,61,62,'THE PARAMETER OF Matter:'
*CSET,1,3,Matter_M,'THE MASS OF Matter: T',15
*CSET,4,6,Matter_L0,'THE WHOLE LENGTH OF Matter: M',15.4
*CSET,7,9,Matter_L,'THE LENGTH TO ROTATER-AREA FROM CENTROID: M',5.6
*CSET,10,12,Matter_R,'THE RADUIS OF Matter: M',0.75
MULTIPRO,'END'

MULTIPRO,'START',3 !虚拟/托架
*CSET,61,62,'THE PARAMETER OF Tray:'
*CSET,1,3,Tray_L,'THE LENGTH OF Tray: M',3.457                  !控制起竖上支点
*CSET,4,6,Tray_H,'THE HIGH OF Tray: M',0                        !控制回转支点
*CSET,7,9,Tray_D,'THE DISPLACEMENT OF Tray IN X DIRECTION: M',0 !控制滑动
MULTIPRO,'END'

MULTIPRO,'START',5 !油缸
*CSET,61,62,'THE PARAMETER OF OIL:'
*CSET,1,3,OIL_UX0,'THE X COORDINATE OF OIL UP_SUPPORT IN 0 DEG: M',Tray_L
*CSET,4,6,OIL_UY0,'THE Y COORDINATE OF OIL UP_SUPPORT IN 0 DEG: M',0
*CSET,7,9,OIL_DY0,'THE Y COORDINATE OF OIL DOWN_SUPPORT IN 0 DEG: M',-1.137
*CSET,10,12,OIL_L0,'THE INITIAL LENGTH OF OIL: M',2.7
*CSET,13,15,OIL_N,'THE SECT-NUM OF OIL',3
MULTIPRO,'END'

MULTIPRO,'START',3 !空气/风载
*CSET,61,62,'THE PARAMTER OF AIR:'
*CSET,1,3,K,'THE RESISTANCE COEFFICIENT OF AIR: ',1.2
*CSET,4,6,AIR_Ro,'THE DENSITY OF AIR: KG/M^3',1.47
*CSET,7,9,AIR_V,'THE WIND VELOCITY OF AIR: M/S',21
MULTIPRO,'END'

!2)参数数组
*DIM,Matter_G1,ARRAY,91 !顺风
*DIM,Matter_G2,ARRAY,91 !逆风
*DIM,OIL_ALFA,ARRAY,91 !油缸角度
*DIM,OIL_F0,ARRAY,91   !无风
*DIM,OIL_F0X,ARRAY,91
*DIM,OIL_F0Y,ARRAY,91
*DIM,Tray_RX0,ARRAY,91
*DIM,Tray_RY0,ARRAY,91
*DIM,OIL_F1,ARRAY,91  !起竖载荷:顺风
*DIM,OIL_F1X,ARRAY,91
*DIM,OIL_F1Y,ARRAY,91
*DIM,Tray_RX1,ARRAY,91
*DIM,Tray_RY1,ARRAY,91
*DIM,OIL_F2,ARRAY,91 !逆风
*DIM,OIL_F2X,ARRAY,91
*DIM,OIL_F2Y,ARRAY,91
*DIM,Tray_RX2,ARRAY,91
*DIM,Tray_RY2,ARRAY,91
*DIM,Tray_DX,ARRAY,91 !限位位移:X向

*ABSET,This is a Tray.MAC Process Bar,BOTH
!2.计算程序
!1)油缸长度优化
OIL_UXY=SQRT(OIL_UX0**2+OIL_UY0**2)  !上支点斜距
OIL_UAng0=ATAN(OIL_UY0/OIL_UX0)      !上支点斜距初始水平夹角
OIL_UX90=OIL_UXY*Cos(90+OIL_UAng0)   !上支点90度横坐标  
OIL_UY90=OIL_UXY*Sin(90+OIL_UAng0)  !上支点90度纵坐标
*DO,I,1,1.0E9
OIL_DX0=OIL_UX0-SQRT(OIL_L0**2-(OIL_UY0-OIL_DY0)**2) !0度时油缸下支点X坐标
OIL_DX90=OIL_DX0-Tray_D                              !90度时油缸下支点X坐标
OIL_DY90=OIL_DY0                                     !                Y坐标
OIL_L90=SQRT((OIL_UX90-OIL_DX90)**2+(OIL_UY90-OIL_DY90)**2) !90度时油缸长度
OIL_LMax=OIL_L90-OIL_L0 !最大行程
OIL_LAve=OIL_LMax/OIL_N !平均行程
OIL_LT=OIL_L0-OIL_LAve  !不可用部分/预留长度
*IF,OIL_LT,GE,0.690,AND,OIL_LT,LE,0.691,THEN
  *EXIT
*ENDIF
*IF,OIL_LT,LT,0.690,THEN
  OIL_L0=OIL_L0+1.0E-5
*ENDIF
*IF,OIL_LT,GT,0.691,THEN
  OIL_L0=OIL_L0-1.0E-5
*ENDIF
*ENDDO

!2)载荷计算
*DO,I,1,91
THETA=I-1
Tray_DX(I)=Tray_D/90*(I-1)
!<1>重力和风载
Matter_G0=Matter_M*1000*10  !重力
AIR_P=0.5*AIR_Ro*AIR_V**2 !风压
AREA1=2*Matter_L0*Matter_R*Sin(THETA)+3.14*Matter_R**2*Cos(THETA) $ AREA2=AREA1
Matter_G1(I)=K*AIR_P*AREA1 !顺风
Matter_G2(I)=K*AIR_P*AREA2 !逆风
!<2>油缸
OIL_UX=OIL_UXY*Cos(THETA+OIL_UAng0) $