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

htbbzzg的博客

与朋友们分享 CAE 资料和经验

 
 
 

日志

 
 

既有恒载又有活载的屈曲分析 (续 3) - 命令流  

2014-04-22 08:02:35|  分类: ANSYS 非线性 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
fini
/clear
/filn, buckling_test
!*
WPSTYLE,,,,,,,,0
!*  
/PMETH,OFF,0
KEYW,PR_SET,1   
KEYW,PR_STRUC,1 
!*        变量  case_i 用于不同工况,分别选择要施加什么载荷
!  case_i = 1       !  Gravity only  
!  case_i = 2       !  Gravity only and Forces Fz 
case_i = 3          !  Gravity only and Forces Fz formed  Moment 
!*
f_scale2 = 1     !   计算工况 1;活载 - force 的放大因子,将每次的第一个特征值连乘,初始值 1
                 !   最终 f_scale2 = 1*7*1.65
f_scale3 = 1     !   计算工况 2;活载 - force 的放大因子,将每次的第一个特征值连乘,初始值 1
                 !   最终 f_scale3 = 1*7*1.6
!*      f_scale2 用于 case_i=2;           f_scale3 用于 case_i=3;
!*  
/PREP7  
!*  
ET,1,BEAM188
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,201000 
MPDATA,PRXY,1,,0.3  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,7.8e-9*2                !  计算自重需要密度。考虑设备等的重量,将密度值放大 2 倍
!*  
SECTYPE,   1, BEAM, RECT, 50*50, 0  
SECOFFSET, CENT 
SECDATA,30,30,5,5,0,0,0,0,0,0 
!*  
SECTYPE,   2, BEAM, RECT, 10*10, 0  
SECOFFSET, CENT 
SECDATA,10,10,4,4,0,0,0,0,0,0   
!*  
/UI,BEAM,OFF
!*  
k,1, -1000,-1000,0  
k,2, 1000,-1000,
!*  
FLST,3,2,3,ORDE,2   
FITEM,3,1   
FITEM,3,-2  
KGEN,3,P51X, , , , ,2500, ,0
!*
/AUTO,1 
/VIEW,1,,-1 
/ANG,1  
/REP,FAST   
!*  
l,1,3   
l,3,5   
l,2,4   
l,4,6   
l,3,4   
l,5,6   
l,1,4   
l,2,3   
l,3,6   
l,4,5   
!*  
FLST,2,4,4,ORDE,2   
FITEM,2,7   
FITEM,2,-10 
LOVLAP,P51X 
!*  
LPLOT   
numcmp,all      !  以上生成了一片井架
!*  
csys,1                        !  到圆柱坐标系中,准备对一片井架进行拷贝
!*  
FLST,3,14,4,ORDE,2  
FITEM,3,1   
FITEM,3,-14 
LGEN,4, all, , , ,90, , ,0                          !  在圆柱坐标系中,将一片井架沿圆周方向拷贝 4 份,围成一个井架
!*  
NUMMRG,KP, , , ,LOW             !  合并 KP 点 (以及线、面等),生成完整的井架
NUMCMP,ALL  
!*  
/VIEW,1,,,-1
/ANG,1  
lplot
csys,0   
!*  
FLST,5,4,4,ORDE,4   
FITEM,5,3   
FITEM,5,-4  
FITEM,5,15  
FITEM,5,-16 
LSEL, , , ,P51X 
LATT,1, ,1, ,      15, ,1   
!*  
FLST,5,4,4,ORDE,4   
FITEM,5,1   
FITEM,5,-2  
FITEM,5,27  
FITEM,5,-28 
LSEL, , , ,P51X 
LATT,1, ,1, ,      10, ,1
!*  
FLST,5,10,4,ORDE,2  
FITEM,5,29  
FITEM,5,-38 
LSEL, , , ,P51X 
LATT,1, ,1, ,       7, ,2   
!*  
FLST,5,10,4,ORDE,2  
FITEM,5,5   
FITEM,5,-14 
LSEL, , , ,P51X 
LATT,1, ,1, ,      17, ,2   
!*  
FLST,5,10,4,ORDE,2  
FITEM,5,17  
FITEM,5,-26 
LSEL, , , ,P51X 
LATT,1, ,1, ,      19, ,2   
!*  
FLST,5,10,4,ORDE,2  
FITEM,5,39  
FITEM,5,-48 
LSEL, , , ,P51X 
LATT,1, ,1, ,      12, ,2   
!*
allsel,all  
LESIZE,ALL,20, , , ,1, , ,1,
!*  
LMESH, all  
!* 
/VIEW,  1,  0.354987937241    ,  0.874976631778    , -0.329240729948
/ANG,   1,  -60.9629091647  
/auto, 1
/REPLO  
!* 
ALLSEL,ALL  
!*  
/NUMBER,1   
/PNUM,SECT,1
EPLOT 
!*  
FLST,2,4,3,ORDE,4   
FITEM,2,1   
FITEM,2,-2  
FITEM,2,9   
FITEM,2,14  
DK,P51X, , , ,0,ALL, , , , , ,  
!*  
ACEL,0,0,9800,
/title,  Gravity only
/udoc,1,date,0 
!*  
FINISH  
!*  
/SOL
!*  
ANTYPE,0
NCNV,2,0,0,0,0  
PSTRES,1
!*
*if, case_i,eq,2,then               !  自重加压力载荷
  ffz = -1000*f_scale2
  FLST,2,4,3,ORDE,4   
  FITEM,2,5   
  FITEM,2,-6  
  FITEM,2,11  
  FITEM,2,16  
  FK,P51X,FZ, ffz  
  /title,  Gravity add Fz= %ffz%
*endif
!*
*if, case_i,eq,3,then               !  自重加弯矩载荷
  ffz = 1000*f_scale3
  FLST,2,2,3,ORDE,2   
  FITEM,2,6   
  FITEM,2,11  
  FK,P51X,FZ,ffz
!*  
  FLST,2,2,3,ORDE,2   
  FITEM,2,5   
  FITEM,2,16  
  FK,P51X,FZ,-ffz   
!*  
  /title,  Gravity add |Fz| = %ffz%
*endif
!*
!*
SAVE,   
! /STATUS,SOLU
SOLVE   
!*  
FINISH  
/POST1  
!*
/auto,1  
/USER,  1   
/VIEW,  1,  0.534476049069    ,  0.728260463362    , -0.428919631721
/ANG,   1,  -63.9329614215  
/FOC,   1,  -76.4296413144    ,  -127.691104361    ,   2187.76597356
!*
/udoc,1,date,0
/DSCALE,ALL,20   
/EFACET,1   
PLNSOL, U,Z, 0,1.0
/wait,3                     !  显示结果后,等待 3 秒,再继续后续的命令流
!*  
FINISH
save  
!*  
/SOL
!*  
ANTYPE,1
!*  
BUCOPT,LANB,3,0,0,  
!*  
! /STATUS,SOLU
SOLVE   
!*  
FINISH  
!*  
/POST1  
!  SET,LIST
SET,FIRST   
!*  
/VIEW,  1,  0.827064809635    , -0.475814768901    ,  0.299272628817
/ANG,   1,  -94.8821609302  
!*  
/DSCALE,ALL,1500
/EFACET,1   
PLNSOL, U,SUM, 0,1.0
/wait,3
!*  
save
  评论这张
 
阅读(738)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016