Simufact.Welding 6.0 热源二次开发初步教程

./Simufact.Welding6.0热源二次开发初步教程1主要目的：开始随时间变化的焊接热源,如脉冲热源2基本要求：1脉冲热源频率：8Hz2脉宽30ms3其它略3软件安装1simufact.welding6.02VS20103IntelVisualFortranComposerXE20133基本步骤3.1软件设置安装完之后需要配置path、Lib和include三个环境变量。以下列出环境变量值作为参考〔需要根据VS和fortran的安装位置不同进行相应的修改。注：以下部分为参考网上容,需要根据具体实际修改,如下面采用的是VS2012,XE2015,根据需要修改Path：C:\ProgramFiles<x86>\MicrosoftVisualStudio12.0\Common7\ToolsC:\ProgramFiles<x86>\Intel\ComposerXE2015\redist\intel64\mklC:\ProgramFiles<x86>\Intel\ComposerXE2015\bin\intel64C:\ProgramFiles<x86>\MicrosoftVisualStudio12.0\Common7\IDEC:\ProgramFiles<x86>\WindowsKits\8.1\WindowsPerformanceToolkit\C:\ProgramFiles<x86>\MicrosoftVisualStudio12.0\VC\bin\amd64C:\ProgramFiles<x86>\MicrosoftVisualStudio12.0\VC\binC:\ProgramFiles<x86>\MicrosoftSDKs\Windows\v7.0A\Bin\x64C:\ProgramFiles<x86>\MicrosoftSDKs\Windows\v7.1A\BinC:\ProgramFiles<x86>\Intel\MPI\5.0.1.037\intel64\bin.035\binLib：C:\ProgramFiles<x86>\Intel\ComposerXE2015\compiler\lib\intel64C:\ProgramFiles<x86>\Intel\ComposerXE2015\mkl\lib\intel64C:\ProgramFiles<x86>\MicrosoftVisualStudio12.0\VC\lib\amd64C:\ProgramFiles<x86>\MicrosoftVisualStudio12.0\VC\libC:\ProgramFiles<x86>\MicrosoftSDKs\Windows\v7.1A\Lib\x64C:\ProgramFiles<x86>\MicrosoftSDKs\Windows\v7.1A\LibINCLUDE：C:\ProgramFiles<x86>\Intel\ComposerXE2015\compiler\includeC:\ProgramFiles<x86>\Intel\ComposerXE2015\mkl\includeC:\ProgramFiles<x86>\MicrosoftVisualStudio12.0\VC\includeC:\ProgramFiles<x86>\MicrosoftSDKs\Windows\v7.1A\Includea3.2常规建立并设置simufact.welding工程建立如下常规的simufact.welding工程〔常规建立过程省略图1常规工程主要坐标系为：沿X方向宽50mm,沿y方向板厚10mm,沿z方向长度50mm,焊接沿着z负方向,焊接起始点坐标〔50,10,-50[单位mm],建立对称的一半模型。3.3建立.f子函数subroutineuweldflux<f,temflu,mibody,welddim,time>cf<1>fluxvalue<tobedefined>cf<2>derivativeoffluxwithrespecttotemperaturec<tobedefined;optional,thismightimprovethecconvergencebehavior>cctemflu<1>estimatedtemperaturectemflu<2>previousvolumetricfluxctemflu<3>temperatureatbeginningofincrementctemflu<4,5,6>integrationpointcoordinatescmibody<1>elementnumbercmibody<2>fluxtypecmibody<3>integrationpointnumbercmibody<4>fluxindex-notusediftableinputcmibody<5>notusedcmibody<6>=1:heattransferc=2:joulec=3:bearingc=4:electrostaticc=5:magnetostaticc=6:acousticcmibody<7>internalelementnumbercmibody<8>layernumberforheattransfershellselementscandvolumefluxcmibody<9>Notusedcmibody<10>boundaryconditionnumberiftableinputctimetimecdimensionmibody<*>,temflu<*>,welddim<*>real*8fintegermibodyreal*8temflu,time,welddimc******cOPEN<UNIT=10,FILE='HELLO.TXT',POSITION='APPEND'>a=0.003b=0.003c=0.003v=0.01 T0=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,111 elseif<abs<MOD<time,T0>>.LT.1e-6>thenxis=1c write<10,*>time,222elseif<<time.LT.<zq*T0>>.and.<time.GT.<<zq-1>*T0+temp>>>thenxis=0cwrite<10,*>time,333elsexis=1c write<10,*>time,444 endifd=0.05-v*timeq=7000*0.7pi=3.14x=temflu<4>y=temflu<5>z=temflu<6>mibody<6>=1y0=0.009x0=0.05heat=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*xisc write<10,*>time,xis,fc close<10>returnend并存为文件名rey.f33.4开始子函数运行1点击常规项目的运行按钮图2点击运行按钮点击后出现运行对话框,不用管它,直接关闭。图3运行对话框〔直接关闭2此时找到你常规工程下的_Run_文件夹位置并打开该文件夹图4该工程的_Run_文件夹会发现该文件夹下面有Process.dat文件和run.bat文件。3用记事本方式打开并修改Process.dat文件<此步不可少！>找到"WELDFLUX-DefinitionsofMotionandFluxParametersforWeldHeatSource"这一行,并修改这一行下面的第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_sfMarc.bat"-nthread_solver2-nthread_elem2-jF:\study\softwarestudy\software\simufact\marc_link\marc\Process\_Run_\Process.dat-uF:\study\softwarestudy\software\marc\udf_weldtool\rey.f-saveye