声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1578|回复: 1

[电磁场分析] 怎样将这个循环分段加载,把循环拆开

[复制链接]
发表于 2015-12-2 15:01 | 显示全部楼层 |阅读模式

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

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

x
timint,on   
*SET,buffertime,100
*do,tm,buffertime,buffertime*4,buffertime   
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   
*enddo  
回复
分享到:

使用道具 举报

发表于 2015-12-3 16:46 | 显示全部楼层
不知道你为什么要这样做,不过应该不难的,比如修改如下 (没有仔细考虑,只是做个例子):

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   
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

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

GMT+8, 2024-11-25 05:42 , Processed in 0.063280 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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