Simufact.Welding 6.0 热源二次开发初步教程1 主要目的：开始随时间变化的焊接热源，如脉冲热源2 基本要求：1) 脉冲热源频率：8Hz2) 脉宽30ms3) 其它略3 软件安装1) simufact.welding 6.02) VS20103) Intel Visual Fortran Composer XE 20133 基本步骤3.1 软件设置安装完之后需要配置path、Lib 和include 三个环境变量。
以下列出环境变量值作为参考(需要根据VS 和fortran 的安装位置不同进行相应的修改) 。
---注：以下部分为参考网上内容，需要根据具体实际修改，如下面采用的是VS2012，XE2015，根据需要修改Path：C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\ToolsC:\Program Files (x86)\Intel\Composer XE 2015\redist\intel64\mklC:\Program Files (x86)\Intel\Composer XE 2015\bin\intel64C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\IDEC:\Program Files (x86)\Windows Kits\8.1\Windows Performance Toolkit\C:\Program Files (x86)\Microsoft Visual Studio 12.0\VC\bin\amd64C:\Program Files (x86)\Microsoft Visual Studio 12.0\VC\binC:\Program Files (x86)\Microsoft SDKs\Windows\v7.0A\Bin\x64C:\Program Files (x86)\Microsoft SDKs\Windows\v7.1A\BinC:\Program Files (x86)\Intel\MPI\5.0.1.037\intel64\binC:\Program Files (x86)\Intel\Trace Analyzer and Collector\9.0.1.035\binLib：C:\Program Files (x86)\Intel\Composer XE 2015\compiler\lib\intel64C:\Program Files (x86)\Intel\Composer XE 2015\mkl\lib\intel64C:\Program Files (x86)\Microsoft Visual Studio 12.0\VC\lib\amd64C:\Program Files (x86)\Microsoft Visual Studio 12.0\VC\libC:\Program Files (x86)\Microsoft SDKs\Windows\v7.1A\Lib\x64C:\Program Files (x86)\Microsoft SDKs\Windows\v7.1A\Lib图 1 常规工程 主要坐标系为：沿 X 方向宽 50mm ，沿 y 方向板厚 10mm ，沿 z 方向长度 50mm ，焊接沿 着 z 负方向，焊接起始点坐标（ 50,10，-50）【单位 mm 】,建立对称的一半模型。
3.3 建立.f 子函数subroutine uweldflux(f,temflu,mibody,welddim,time) flux value (to be defined) derivative of flux with respect to temperature (to be defined; optional, this might improve the convergence behavior)f(1) f(2) estimated temperature previous volumetric flux temperature at beginning of increment temflu(1) temflu(2) temflu(3) temflu(4,5,6)integration point coordinates mibody(1) mibody(2) mibody(3) mibody(4) mibody(5) mibody(6)element numberflux typeintegration point number flux index - not used if table input not used =1 : heat transfer =2 : joule =3 : bearing =4 : electrostatic =5 : magnetostatic =6 : acousticINCLUDE ：C:\Program Files (x86)\Intel\Composer XE 2015\compiler\include C:\Program Files (x86)\Intel\Composer XE 2015\mkl\include C:\Program Files (x86)\Microsoft Visual Studio 12.0\VC\include C:\Program Files (x86)\Microsoft SDKs\Windows\v7.1A\Includea3.2 常规建立并设置 simufact.welding 工程建立如下常规的 simufact.welding 工程 (常规建立过程省略)c mibody(7) internal element numberc mibody(8) layer number for heat transfer shells elements c and volume flux c mibody(9) Not usedc mibody(10) boundary condition number if table inputc time timecdimension mibody(*),temflu(*),welddim(*)real*8 finteger mibodyreal*8 temflu,time,welddimc* * * * * *c OPEN(UNIT=10,FILE='HELLO.TXT',POSITION='APPEND') a=0.003 b=0.003c=0.003v=0.01T0=0.125 temp=0.03 xis=1zq=ceiling(time/T0) if(abs(MOD(time-temp,T0)).LT.1e-6) then xis=0c write(10,*) time, 111else if(abs(MOD(time,T0)).LT.1e-6) thenxis=1c write(10,*) time,222else if ((time.LT.(zq*T0)).and.(time.GT.((zq-1)*T0+temp))) then xis=0c write(10,*) time, 333elsexis=1c write(10,*) time, 444end ifd=0.05-v*time q=7000*0.7 pi=3.14 x=temflu(4) y=temflu(5) z=temflu(6) mibody(6)=1 y0=0.009 x0=0.05 heat=6*sqrt(3.0)*q/(a*b*c*pi) ex=exp(-3*(z-d)**2/c**2-3*(y-y0)**2/b**2-3*(x-x0)**2/a**2) f=heat*ex*xis c write(10,*) time, xis,fc close(10) return end并存为文件名rey.f33.4 开始子函数运行1）点击常规项目的运行按钮图2 点击运行按钮点击后出现运行对话框，不用管它，直接关闭。
图 3 运行对话框（直接关闭）2）此时找到你常规工程下的_Run_文件夹位置并打开该文件夹图4 该工程的_Run_文件夹会发现该文件夹下面有Process.dat 文件和run.bat 文件。
3）用记事本方式打开并修改Process.dat文件（此步不可少！）找到“ WELD FLUX - Definitions of Motion and Flux Parameters for Weld Heat Source ”这一行，并修改这一行下面的第 5 行第三列的值改为3，如下图中的6改为3图 5 修改前图 6 修改后修改完成后保存。
4）用记事本打开并修改 run.bat 文件图 7 修改前run.bat 中的 call 后面为你的 simufact.welding6.0 安装后 run_sfMarc.bat 的位置 我的上述内容改为：call"E:\software\special\simufact6\simufact\welding\6.0\solver\simufact\sfMarc\sf_tools\run_s fMarc.bat" -nthread_solver 2 -nthread_elem 2 -jF:\study\softwarestudy\software\simufact\marc_link\marc\Process\_Run_\Process.dat -u F:\study\softwarestudy\software\marc\udf_weldtool\rey.f -save yes需要说明的是：-j 后面增加刚才修改的 Process.dat 的位置 -u 后面增加刚才 rey.f 文件的位置 增加-save yes修改完成后并保存退出5）命令运行 run.bat图 8 点击红色框中的黑色小三角并选择“ Open a shell”图9 点击红色框中的黑色小三角并选择“Open a shell”在出现的对话框中输入“ run.bat”并回车运行一段时间后可以看到Results 出现，即可得到想要的结果。
热源的脉冲效果如下：。