分步加载接触滑动问题

xiaobai234

大家好，我刚开始接触ansys，最近遇到一个问题，要解决一滑块沿轨道滑动的问题，具体如下，非常感谢大家，我第一次在论坛发帖，希望大家指导下，谢谢！  模型如图所示：上下为导轨，中间为滑块，导轨固定，目的是施加力使滑块在导轨上沿着x方向移动，本人用的是分步施加力的方法，力是一条曲线，请问怎么实现这个目的？
我试着做的时候，总出现约束不足，或者不收敛的情况，请各位指导下，非常感谢~~
最好可以给出命令流，谢谢！
以下是我做的部分命令流，但是加载步不知哪里不正确，得不到我想要的结果，希望大家给予指正！
建立上述模型的命令流为，
finish
/clear
/filname,armature,1
/title,3D model
/SHOW
/PREP7

ET,1,SOLID45

MP,MURX,1,1.000022
MP,RSVX,1,2.9e-8
MP,EX,1,6.8e8
MP,NUXY,1,0.3
MP,MU,1,0.2

MP,MURX,2,0.99990
MP,RSVX,2,1.7e-8
MP,EX,2,1.25e11
MP,NUXY,2,0.3
MP,MU,2,0.2

k,1,0,0,-10
K,2,0,15,-10
K,3,40,15,-10
K,4,40,0,-10

L,1,2 !2
L,2,3 !3
L,3,4 !4
L,4,1 !5

AL,all
arsym,y,1
aadd,1,2

k,100,1000,15,-10
k,101,1000,25,-10
k,102,0,25,-10
k,103,0,15,-10
a,100,101,102,103
arsym,y,1

MAT,1
VEXT,3,,,0,0,30

MAT,2
VEXT,1,,,0,0,030
VEXT,2,,,0,0,30

aadd,8,9

ESIZE,7,0,

MSHAPE,0,3D
MSHKEY,1

TYPE,1

MAT,2
VMESH,2
VMESH,3

ESIZE,5,0,

MSHAPE,0,3D
MSHKEY,1

ESIZE,5,0,

MSHAPE,0,3D
MSHKEY,1

TYPE,1

MAT,1
VSWEEP,1


施加分步加载荷的命令流为：
finish
/solu
TIMINT,ON,ALL
TIME,1
AUTO,ON

NSUBST,10,
OUTRES,ALL,ALL
SFA,21,1,PRES,1000

KBC,1

ALLSEL,ALL

LSWRITE,1,

TIMINT,ON
TIME,1.5
AUTO,ON
NSUBST,10,
OUTRES,ALL,ALL
SFA,21,1,PRES,1000,

KBC,1
ALLSEL,ALL
LSWRITE,2



LSSOLVE,1,2,1
SAVE

xiaobai234

高手给我指导下吧~~非常感谢！