不知道你为什么要这样做,不过应该不难的,比如修改如下 (没有仔细考虑,只是做个例子):
timint,on
buffertime = 100
tm=100
time,tm
deltim,10
autots,on
*SET,current,tm/(buffertime*4)
ALLSEL,ALL
!施加接触
FLST,2,3,5,ORDE,3
FITEM,2,18
FITEM,2,88
FITEM,2,97
DA,P51X,VOLT,0 !在选择的面上施加电压为0
ASEL,S, , , 11 !(选择面)
nsla,s,1 !选择与选中面相关的节点
*get,nodenum1,node,0,count !得到的节点有多少个记成nodenum1
F,all,amps,-I_bar*current/nodenum1 !对所有的节点赋以-I_bar/nodenum1安倍的电流
allsel,all
ASEL,S, , , 1
nsla,s,1
*get,nodenum2,node,0,count
F,all,amps,-I_bar*current/nodenum2
allsel,all
outres,all,1
solve
tm=200
time,tm
deltim,10
autots,on
*SET,current,tm/(buffertime*4)
ALLSEL,ALL
!施加接触
FLST,2,3,5,ORDE,3
FITEM,2,18
FITEM,2,88
FITEM,2,97
DA,P51X,VOLT,0 !在选择的面上施加电压为0
ASEL,S, , , 11 !(选择面)
nsla,s,1 !选择与选中面相关的节点
*get,nodenum1,node,0,count !得到的节点有多少个记成nodenum1
F,all,amps,-I_bar*current/nodenum1 !对所有的节点赋以-I_bar/nodenum1安倍的电流
allsel,all
ASEL,S, , , 1
nsla,s,1
*get,nodenum2,node,0,count
F,all,amps,-I_bar*current/nodenum2
allsel,all
outres,all,1
solve
tm=300
time,tm
deltim,10
autots,on
*SET,current,tm/(buffertime*4)
ALLSEL,ALL
!施加接触
FLST,2,3,5,ORDE,3
FITEM,2,18
FITEM,2,88
FITEM,2,97
DA,P51X,VOLT,0 !在选择的面上施加电压为0
ASEL,S, , , 11 !(选择面)
nsla,s,1 !选择与选中面相关的节点
*get,nodenum1,node,0,count !得到的节点有多少个记成nodenum1
F,all,amps,-I_bar*current/nodenum1 !对所有的节点赋以-I_bar/nodenum1安倍的电流
allsel,all
ASEL,S, , , 1
nsla,s,1
*get,nodenum2,node,0,count
F,all,amps,-I_bar*current/nodenum2
allsel,all
outres,all,1
solve
tm=400
time,tm
deltim,10
autots,on
*SET,current,tm/(buffertime*4)
ALLSEL,ALL
!施加接触
FLST,2,3,5,ORDE,3
FITEM,2,18
FITEM,2,88
FITEM,2,97
DA,P51X,VOLT,0 !在选择的面上施加电压为0
ASEL,S, , , 11 !(选择面)
nsla,s,1 !选择与选中面相关的节点
*get,nodenum1,node,0,count !得到的节点有多少个记成nodenum1
F,all,amps,-I_bar*current/nodenum1 !对所有的节点赋以-I_bar/nodenum1安倍的电流
allsel,all
ASEL,S, , , 1
nsla,s,1
*get,nodenum2,node,0,count
F,all,amps,-I_bar*current/nodenum2
allsel,all
outres,all,1
solve
|