声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1325|回复: 5

[前后处理] J积分处理程序中的问题!

[复制链接]
发表于 2008-8-20 14:46 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
!**************************  J-INTEGRAL USER FILE  *****************************
!*******************************************************************************
! ****NOTE:- IN GENERAL USAGE, THE USER FILE WOULD BE AVAILABLE IN THE
!            LOCAL DIRECTORY RATHER THAN BEING CREATED IN THE INPUT
!*******************************************************************************
*CREATE,JIN1
STINFC                        ! DATA BLOCK NAME
SEXP,W,SENE,VOLU,1,-1         ! CALCULATE STRAIN ENERGY DENSITY
PATH,JINT,4,50,48             ! DEFINE PATH WITH NAME = "JINT"
请帮忙解释一下其中50和48表示了什么意思,这两个数值与选择的路径是否有关系呢,即与PPATH,1,ARG1这其中的ARG1等路径节点有关系呢?谢谢各位高手啦!!

PPATH,1,ARG1                  ! DEFINE PATH POINTS BY NODE
PPATH,2,ARG2
PPATH,3,ARG3
PPATH,4,ARG4
PDEF,W,ETAB,W                 ! PUT STRAIN ENERGY DENSITY ON THE PATH
PCALC,INTG,J,W,YG             ! INTEGRATE ENERGY W.R.T. GLOBAL Y
*GET,JA,PATH,,LAST,J          ! GET FINAL VALUE OF INTEGRAL FOR 1ST TERM OF J
PDEF,CLEAR                    ! CLEAR OLD PATH VARIABLES
PVECT,NORM,NX,NY,NZ           ! DEFINE THE PATH UNIT NORMAL VECTOR
PDEF,INTR,SX,SX               ! PUT STRESS SX ON THE PATH
PDEF,INTR,SY,SY               ! PUT STRESS SY ON THE PATH
PDEF,INTR,SXY,SXY             ! PUT STRESS SXY ON THE PATH
PCALC,MULT,TX,SX,NX           ! CALCULATE TRACTION TX
PCALC,MULT,C1,SXY,NY          !   TX = SX*NX + SXY*NY
PCALC,ADD,TX,TX,C1
PCALC,MULT,TY,SXY,NX          ! CALCULATE TRACTION TY
PCALC,MULT,C1,SY,NY           !   TY = SXY*NX + SY*NY
PCALC,ADD,TY,TY,C1
*GET,DX,PATH,,LAST,S          ! DEFINE PATH SHIFT AS 1% OF PATH LENGTH
DX=DX/100
PCALC,ADD,XG,XG,,,,-DX/2      ! SHIFT PATH FROM X TO X-DX/2 (GLOBAL X DIR.)
PDEF,INTR,UX1,UX              ! DEFINE UX AT X-DX
PDEF,INTR,UY1,UY              ! DEFINE UY AT X-DX
PCALC,ADD,XG,XG,,,,DX         ! SHIFT PATH FROM X-DX/2 TO X+DX/2
PDEF,INTR,UX2,UX              ! DEFINE UX AT X+DX
PDEF,INTR,UY2,UY              ! DEFINE UY AT X+DX
PCALC,ADD,XG,XG,,,,-DX/2      ! SHIFT PATH BACK TO ORIGINAL POSITION
C=(1/DX)
PCALC,ADD,C1,UX2,UX1,C,-C     ! CALCULATE DERIVATIVE DUX/DX
PCALC,ADD,C2,UY2,UY1,C,-C     ! CALCULATE DERIVATIVE DUY/DX
PCALC,MULT,C1,TX,C1           ! DEFINE INTEGRAND
PCALC,MULT,C2,TY,C2           !   = TX*DUX/DX + TY*DUY/DX
PCALC,ADD,C1,C1,C2
PCALC,INTG,J,C1,S             ! FORM SECOND INTEGRAL (W.R.T. PATH LENGTH S)
*GET,JB,PATH,,LAST,J          ! GET FINAL VALUE OF INTEGRAL FOR 2ND TERM OF J
JINT=2*(JA-JB)                ! ADD BOTH TERMS AND DOUBLE FOR HALF MODELS
PDEF,CLEAR                    ! CLEAR PATH VARIABLES
*END
回复
分享到:

使用道具 举报

发表于 2008-8-22 10:41 | 显示全部楼层
看ANSYS自带的HELP文档,上面讲的很详细
 楼主| 发表于 2008-8-22 16:07 | 显示全部楼层
这就是其中Help提供的程序,我想了解其中的50和48代表的是什么含义,因为在我利用该程序计算时,出现了问题,就和我不知道这两个数字代表的含义是什么有关系。谢谢各位的指导!
发表于 2008-8-25 20:03 | 显示全部楼层
PATH, NAME, nPts, nSets, nDiv
Defines a path name and establishes parameters for the path.



NAME Name for this path (eight characters maximum. If nPts is blank, set the current path to the path with this name. If nPts is greater than zero, create a path of this name. If a path with this name already exists, replace it with a new path. If the NAME value is STATUS, display the status for path settings.

nPts The number of points used to define this path. The minimum number is two, and the maximum is 1000.

nSets The number of sets of data which you can map to this path. You must specify at least four: X, Y, Z, and S. Default is 30.

nDiv The number of divisions between adjacent points. Default is 20. There is no maximum number of divisions.

[ 本帖最后由 kay_chy 于 2008-8-25 20:10 编辑 ]
发表于 2008-8-25 20:08 | 显示全部楼层
我理解的是:你的路径由4个点定义,每两个点之间被分成了48份(这实际是定义了积分步长)。 可以映射到这条路径上的参数可以有50组。
计算有错试试把50改大点? 不然就不是这里出了问题,i guess

评分

1

查看全部评分

 楼主| 发表于 2008-8-27 10:42 | 显示全部楼层
嗯,很有道理哦,我试一试,十分感谢楼上的参与!
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-30 19:17 , Processed in 0.063608 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表