| 查看: 3893 | 回复: 0 | ||
[求助]
ansys 电场仿真
|
|
*DIM,load,CHAR,24,1,1, , , *SET,load(1),'a11','a12','a13','a14','a21','a22','a23','a24','a31','a32','a33','a34','a41','a42','a43','a44','a51','a52','a53','a54','a61','a62','a63','a64' FINISH /PREP7 *set,tij,0.0225 *do,i,1,24!循环求解12次 FINISH /SOL DA,pingbi,VOLT,0 !给屏蔽施加0V电压 allsel,all *do,j,1,24 DA,load(j),VOLT,0 !给12个电极施加0V电压 *enddo DA,load(i),VOLT,5 !给第i个电极施加5V电压 solve!求解 finish /post1!进入后处理 ALLSEL,ALL FLST,5,1,6,ORDE,1 FITEM,5,31 VSEL,S, , ,P51X ALLSEL,BELOW,VOLU EPLOT etable,%load(i)%x,ef,x !提取被测材料的电场强度X值单元表 etable,%load(i)%y,ef,y !提取被测材料的电场强度Y值单元表 etable,%load(i)%z,ef,z !提取被测材料的电场强度Z值单元表 *VGET,%load(i)%x,ELEM, ,ETAB,%load(i)%x, , ,2 !将电场强度表储存为向量 *VGET,%load(i)%y,ELEM, ,ETAB,%load(i)%y, , ,2 *VGET,%load(i)%z,ELEM, ,ETAB,%load(i)%z, , ,2 FINISH /SOL allsel,all DADELE,all,VOLT!删除所施加的电压 *enddo *do,i,1,23!计算S矩阵的66次循环 *do,j,i+1,24 *voper,%load(i)%%load(j)%x,%load(i)%x,mult,%load(j)%x!计算S值 *voper,%load(i)%%load(j)%y,%load(i)%y,mult,%load(j)%y!计算S值 *voper,%load(i)%%load(j)%z,%load(i)%z,mult,%load(j)%z!计算S值 *voper,%load(i)%%load(j)%xy,%load(i)%%load(j)%x,add,%load(i)%%load(j)%y!计算S值 *voper,%load(i)%%load(j)%,%load(i)%%load(j)%xy,add,%load(i)%%load(j)%z!计算S值 *vfact,-tij/25!计算S值 *vfun,%load(i)%%load(j)%,copy,%load(i)%%load(j)%!计算S值 *dim,%load(i)%%load(j)%new,,8192,1 *vfact,1 *vfun,%load(i)%%load(j)%new,copy,%load(i)%%load(j)%!将前5120行复制到新向量名字为load(i)load(j)new *enddo *enddo SAVE /REPLOT,RESIZE write FINISH ! /EXIT 这是24块电容极板循环接5v电压激励求电场线，然后计算灵敏度S的程序，前面程序我省略了，但是运行完求取的灵敏度不完整，下面这段程序是12极板的求取过程，这个没有错，请大家帮我找找错哪里了 *do,i,1,12!循环求解12次 FINISH /SOL DA,pingbi,VOLT,0 !给屏蔽施加0V电压 allsel,all *do,j,1,12 DA,load(j),VOLT,0 !给12个电极施加0V电压 *enddo DA,load(i),VOLT,5 !给第i个电极施加5V电压 solve!求解 finish /post1!进入后处理 ALLSEL,ALL FLST,5,1,6,ORDE,1 FITEM,5,14 VSEL,S, , ,P51X ALLSEL,BELOW,VOLU EPLOT etable,%load(i)%x,ef,x !提取被测材料的电场强度X值单元表 etable,%load(i)%y,ef,y !提取被测材料的电场强度Y值单元表 etable,%load(i)%z,ef,z !提取被测材料的电场强度Z值单元表 *VGET,%load(i)%x,ELEM, ,ETAB,%load(i)%x, , ,2 !将电场强度表储存为向量 *VGET,%load(i)%y,ELEM, ,ETAB,%load(i)%y, , ,2 *VGET,%load(i)%z,ELEM, ,ETAB,%load(i)%z, , ,2 FINISH /SOL allsel,all DADELE,all,VOLT!删除所施加的电压 *enddo *do,i,1,12!计算S矩阵的66次循环 *do,j,i+1,12 *voper,%load(i)%%load(j)%x,%load(i)%x,mult,%load(j)%x!计算S值 *voper,%load(i)%%load(j)%y,%load(i)%y,mult,%load(j)%y!计算S值 *voper,%load(i)%%load(j)%z,%load(i)%z,mult,%load(j)%z!计算S值 *voper,%load(i)%%load(j)%xy,%load(i)%%load(j)%x,add,%load(i)%%load(j)%y!计算S值 *voper,%load(i)%%load(j)%,%load(i)%%load(j)%xy,add,%load(i)%%load(j)%z!计算S值 *vfact,-tij/25!计算S值 *vfun,%load(i)%%load(j)%,copy,%load(i)%%load(j)%!计算S值 *dim,%load(i)%%load(j)%new,,5120,1 *vfact,1 *vfun,%load(i)%%load(j)%new,copy,%load(i)%%load(j)%!将前5120行复制到新向量名字为load(i)load(j)new *enddo *enddo SAVE /REPLOT,RESIZE write FINISH ! /EXIT,ALL |
回复此楼» 猜你喜欢
【修正版】单环用磁约束低速电子实验方案（简化版）
已经有0人回复
-
桂林理工大学物理学专业招收调剂，还有三个名额！！！
已经有22人回复
-
物理学I论文润色/翻译怎么收费?
已经有240人回复
-
考博自荐
已经有4人回复
-
山东大学第二批博士研究生招生
已经有0人回复
-
中国科学院东莞材料科学与技术研究所-2026年博士招生-吴昊研究员-磁学与自旋电子学
已经有0人回复
-
《电磁学》教材推荐
已经有1人回复
-
【急招】合肥工大核聚变材料计算方向2026级工程博士生
已经有4人回复
-
大豆异黄酮分离
已经有0人回复
-
湖南大学材料学院急招2026年博士生，临时增加一名博士联培指标
已经有10人回复
-
天津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生1-2名
已经有0人回复
» 本主题相关商家推荐: (我也要在这里推广)
