搜索利用Fortran读取并修改ANSYS的APDL
2016-08-30 by:CAE仿真在线 来源:互联网
利用Fortran读取并修改ANSYS的APDL
APDL是ANSYS的命令文件,可以执行ANSYS分析。利用Fortran可以实现APDL的参数化修改并且调用ANSYS的批处理bat进行有限元分析。本次采用Fortran对APDL进行读取并执行修改。
原始APDL命令如下:
finish
/clear
/prep7
et,1,beam3
E=2.1e11
nuxy=0.3
mp,ex,1,E
mp,prxy,1,nuxy
h=2
w=0.2
f=1000
a=10
b=15
r,1,w*h,w*h**3/12,h
k,1
k,2,a
k,3,a,-b
*do,i,1,2
l,i,i+1
*enddo
lesize,all,0.5
lmesh,all
dk,3,,,,,all
fk,1,fy,f
fk,2,fx,-f
allsel,all
/solu
Solve
相应的Fortran程序如下:
1.program main
2.implicit none
3.integer counter
4.integer::lines=30
5.character(len=30)::APDLfile(50)
6.character(len=10)::f_force="2000"
7.open(unit=10,file="E:\CAE_Tech\78&
8.&利用Fortran读取并修改ANSYS的APDL\APDL.txt")
9.open(unit=11,file="E:\CAE_Tech\&
10.&78利用Fortran读取并修改ANSYS的APDL\Fortran_APDL.txt")
11.do counter=1,lines,1
12. read(10,"(A30)")APDLfile(counter)
13. if(counter==11) then
14. APDLfile(counter)="f="//f_force
15. write(11,"(1X,A30)")APDLfile(counter)
16. else
17. write(11,"(A30)")APDLfile(counter)
18. end if
19.end do
20.close(10,status="KEEP")
21.close(11,status="KEEP")
22.end program main
第二行:声明变量需要通过声明才能调用
第三行:定义整型变量counter
第四行:定义整型变量并且赋值,表示APDL文件的总行数
第五行:声明字符串变量数组,字符串宽度为30,一共50组
第六行:声明字符变量
第七、八行:打开文件夹下的APDL文件,文件代号为10
第九、十行:打开输出后的文件,如果文件已经存在则覆盖,如果不存在则新建
第十一、十二行:循环读取APDL文件的内容,分别赋值给字符变量数组APDLfile
第十三到十八行:将读取的APDL字符串输出到Fortran_APDL.txt文件中,并且修改其中的第十一行
第二十、二十一行:关闭文件,释放资源
最终生成的Fortran_APDL.txt文件内容如下:
finish
/clear
/prep7
et,1,beam3
E=2.1e11
nuxy=0.3
mp,ex,1,E
mp,prxy,1,nuxy
h=2
w=0.2
f=2000
a=10
b=15
r,1,w*h,w*h**3/12,h
k,1
k,2,a
k,3,a,-b
*do,i,1,2
l,i,i+1
*enddo
lesize,all,0.5
lmesh,all
dk,3,,,,,all
fk,1,fy,f
fk,2,fx,-f
allsel,all
/solu
solve
红色标记部分为可以在Fortran语句中改变变量f_force来改变。
相关标签搜索：利用Fortran读取并修改ANSYS的APDL Ansys有限元培训 Ansys workbench培训 ansys视频教程 ansys workbench教程 ansys APDL经典教程 ansys资料下载 ansys技术咨询 ansys基础知识 ansys代做 Fluent、CFX流体分析 HFSS电磁分析 Abaqus培训
