- 积分
- 0
- 注册时间
- 2008-7-21
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2008-10-13 15:32:28
|
显示全部楼层
来自 河南郑州
不知怎么的 还是没有取得任何进展 ,所以在此把代码贴出来,还请perch88版主和llkg以及各位路过的朋友们帮忙看一下。
/TITLE,2D EMAT Transient Analysis-F
KEYW,MAGNOD,1
/PREP7
!定义参数数值的程序省去
!定义单元类型以及单元属性的程序略去
!建模,包括导线、试块和空气
CSYS,0 !笛卡尔坐标
*DIM,NCOUNT,ARRAY,COIL_N !定义存放节点的数组
*DO,NC,1,COIL_N !获取节点,加载时用
NCOUNT(NC)=NODE(0.002+(NC-1)*(COIL_W+COIL_DIS),SPECI_H+LIFTOFF,0)
*ENDDO
*DO,CPN,1,COIL_N !将每根导线VOLT自由度耦合
ASEL,S,AREA,,CPN+1
ESLA
NSLE
CP,CPN,VOLT,ALL
*ENDDO
ALLSEL,ALL
NSEL,EXT !选最外层边界
D,ALL,AZ,0 !磁力线平行边界条件
ALLSEL,ALL
FINISH
/SOLU
ANTYPE,TRANS !瞬态分析
TRNOPT,FULL !完全瞬态分析
N=100 !时间步数
T=8.625E-6/N
PI=2*ASIN(1)
T_INC=8.625E-6/N
*CREATE,LOAD !创建载荷宏
TIME,T
NSUBST,20,50,10
AUTOTS,ON
I=I0*(COS((4/3*T*PI*FRE+10.5*PI)/11)-1)*COS(4/3*T*PI*FRE+10.5*PI)
*DO,LOADI,1,COIL_N
F,NCOUNT(LOADI),AMPS,I !给导线截面一点加载电流
*ENDDO
ALLSEL,ALL
T=T+T_INC
OUTRES,BASIC,ALL
SOLVE
*END
*DO,LOOP,1,N
*USE,LOAD
*ENDDO
SAVE,Emage_hs_resu-F.db
FINISH
[ 本帖最后由 pipinia 于 2008-10-17 14:30 编辑 ] |
|