马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
/UNITS, SI
/PREP7
ET, 1, MASS21, , ,4
ET, 2, COMBIN14, , , 2
R, 1, 5 $ R, 2, 1000, 10
N, 1, 0, 0 $ N, 2, 0.05
TYPE, 1 $ REAL, 1 $ E, 2
TYPE, 2 $ REAL, 2 $ E, 1, 2
FINISH
/CONFIG,NRES,5000
/SOLU
ANTYPE, TRANS
TRNOPT, FULL
OUTRES, NSOL, 1
D, 1, ALL
D, 2, UY
TIMINT, OFF
TIME, 0.2
D, 2, UX, 1
SOLVE
TIMINT, ON
TINTP, , 0.25, 0.5
OUTRES, NSOL, 10
DDELE, 2, UX
DELTIM, 0.005
TIME, 0.21
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNCCSYS
*SET,_FNCNAME,'w2'
*SET,_FNCCSYS,0
! /INPUT,ssss.func,,,1
*DIM,%_FNCNAME%,TABLE,6,6,1,,,,%_FNCCSYS%
!
! Begin of equation: 10*cos(9*{TIME})
*SET,%_FNCNAME%(0,0,1), 0.0, -999
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), 0.0
*SET,%_FNCNAME%(4,0,1), 0.0
*SET,%_FNCNAME%(5,0,1), 0.0
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, -1, 0, 9, 0, 0, 1
*SET,%_FNCNAME%(0,2,1), 0.0, -2, 0, 1, -1, 3, 1
*SET,%_FNCNAME%(0,3,1), 0, -1, 10, 1, -2, 0, 0
*SET,%_FNCNAME%(0,4,1), 0.0, -2, 0, 10, 0, 0, -1
*SET,%_FNCNAME%(0,5,1), 0.0, -3, 0, 1, -2, 3, -1
*SET,%_FNCNAME%(0,6,1), 0.0, 99, 0, 1, -3, 0, 0
! End of equation: 10*cos(9*{TIME})
!-->
FLST,2,1,1,ORDE,1
FITEM,2,2
!*
!*
/GO
F,P51X,FX, %W2%
KBC, 1
TIME, 8
SOLVE
!LSSOLVE, 1, 4
FINISH
/POST26
NSOL, 2, 2, U, X, UX2
DERIV, 3, 2, 1, , VelX2
DERIV, 4, 3, 1, , AccX2 |