《SimufactWelding 60 热源二次开发初步教程.docx》由会员分享，可在线阅读，更多相关《SimufactWelding 60 热源二次开发初步教程.docx（9页珍藏版）》请在三一办公上搜索。
1、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,
2、 根据需要修改Path：C:Program Files (x86)Microsoft Visual Studio 12.0Common7ToolsC:Program Files (x86)IntelComposer XE 2015redistintel64mklC:Program Files (x86)IntelComposer XE 2015binintel64C:Program Files (x86)Microsoft Visual Studio 12.0Common7IDEC:Program Files (x86)Windows Kits8.1Windows Performance To
3、olkitC:Program Files (x86)Microsoft Visual Studio 12.0VCbinamd64C:Program Files (x86)Microsoft Visual Studio 12.0VCbinC:Program Files (x86)Microsoft SDKsWindowsv7.0ABinx64C:Program Files (x86)Microsoft SDKsWindowsv7.1ABinC:Program Files (x86)IntelMPI5.0.1.037intel64binC:Program Files (x86)IntelTrace
4、 Analyzer and Collector9.0.1.035binLib：C:Program Files (x86)IntelComposer XE 2015compilerlibintel64C:Program Files (x86)IntelComposer XE 2015mkllibintel64C:Program Files (x86)Microsoft Visual Studio 12.0VClibamd64C:Program Files (x86)Microsoft Visual Studio 12.0VClibC:Program Files (x86)Microsoft SD
5、KsWindowsv7.1ALibx64C:Program Files (x86)Microsoft SDKsWindowsv7.1ALibINCLUDE：C:Program Files (x86)IntelComposer XE 2015compilerincludeC:Program Files (x86)IntelComposer XE 2015mklincludeC:Program Files (x86)Microsoft Visual Studio 12.0VCincludeC:Program Files (x86)Microsoft SDKsWindowsv7.1AIncludea
6、3.2常规建立并设置simufact.welding工程建立如下常规的simufact.welding工程（常规建立过程省略）图1常规工程主要坐标系为：沿X方向宽50mm，沿y方向板厚10mm，沿z方向长度50mm，焊接沿着z 负方向，焊接起始点坐标（50,10，-50）【单位mm】，建立对称的一半模型。3.3建立f子函数subroutine uweldflux(f,temflu,mibody,welddim,time)cfcf(2)ccflux value (to be defined)derivative of flux with respect to temperature(to be
7、defined； optional, this might improve theconvergence behavior)ctemflu(1)estimated temperaturectemflu(2)previous volumetric fluxctemflu(3)temperature at beginning of incrementctemflu(4,5,6)integration point coordinatescmibody(1)element numbercmibody(2)flux typecmibody(3)integration point numbercmibod
8、y(4)flux index not used if table inputcmibody(5)not usedcmibody(6)=1 : heat transferc=2 : joulec=3 : bearingc=4 : electrostaticc=5 : magnetostaticc=6 : acousticcmibody(7)internal element numbercmibody(8)layer number for heat transfer shells elementscand volume fluxcmibody(9)Not usedcmibody(10)bounda
9、ry condition number if table inputctimetimedimension mibody(*),temflu(*),welddim(*)real*8 finteger mibodyreal*8 temflu,time,welddimc* * * * * *cOPEN(UNIT=10,FILE=HELLO.TXT,POSITION=APPEND)a=0.003b=0.003c=0.003v=0.01T0=0.125temp=0.03xis=1zq=ceiling(time/T0)if(abs(MOD(time-temp,T0).LT.1e-6) thenxis=0c
10、 write(10,*) time, 111else if(abs(MOD(time,T0).LT.1e-6) then xis=1c write(10,*) time,222thenelse if (time.LT.(zq*T0).and,(time.GT.(zq-1)*T0+temp) xis=0c write(10,*) time, 333elsexis=1c write(10,*) time, 444end ifd=0.05-v*timeq=7000*0.7pi=3.14x=temflu(4)y=temflu(5)z=temflu(6)mibody(6)=1y0=0.009x0=0.0
11、5heat=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*xiscwrite(10,*) time, xis,fcclose(10)returnend并存为文件名rey.f33.4开始子函数运行1）点击常规项目的运行按钮图2点击运行按钮点击后出现运行对话框，不用管它，直接关闭。图3运行对话框（直接关闭）2）此时找到你常规工程下的Run文件夹位置并打开该文件夹诅in fiasw 中 /共季,斯戒杵衰至急大小l&T%1 ： 316LNSPn-5w.uirrt2019/1/
12、22 52UMT立悴&KB空宵1 PrGC?55ida.2019/L/22 珍猝m KBL pFDcrsslro.janl20L9/JJ22 Ih523 KB图 run.bat2019/1/52 452WindouK批烂理.1KB图4该工程的_Run_文件夹会发现该文件夹下面有Process.dat文件和run.bat文件。3）用记事本方式打开并修改Process.dat文件（此步不可少！）找到“WELD FLUX - Definitions of Motion and Flux Parameters for Weld Heat Source 这一行，并修改这一行下面的第5行第三列的值改为3，
13、如下图中的6改为3$ UELD FLCX - DdkMUfis MMoqai mA Fin& W血$皿定WTLDFLC3C SOW E 0D0颇（MMMOMKMiLa00 lC6&0QMMiJlME-D.DOGMDDIOaE-J（ EOOOHHMHKgmE m 3.B：:CCflOODECCCI-QO OOOMMHIMXXXHJE CG I .OMXMQOQCOOOE OJ LDDDK:-MODOKE-Da 2 MDDnEWOCnDnE-DS 4 OOCKQQtJMOCKOE Oj Q Q a Q 0 Q Q Q 010.5土 ifl：图5修改前g WELD FLUX - Deibuib； o
14、f Maiku. ud Ftex仙 WtH SufctWELD FLUX03 SWO3 +MQ gg心WOEdiiF0 OMOMOMOOMEHB 0 OMXXXXXBMOE+OO 0 OMOMXXBMOE+OO 0 OMMXXBMME+OO O.OOOOOOOOOOOOOaO I .啪1血血曲血血正.CQ00 lOMWMMOMEoonmmmaEtoQqwqq（e-di 3叩叫叩叩q叩ue-叫 l叩qqdqqdq叩叩e弟 i.叩叩qqdqqdq皿e f 】mxwxwxtm 2.0000000000000E Q3 4mmmmoe-D3 00000000 0 Oal_ekxUj!iil5_5H图6修
15、改后修改完成后保存。4）用记事本打开并修改run.bat文件njn-bffi: -A-ffiFi ME)SwiVi WH湖1smuuztSsmudaci 找Idtaie S。&ok窗皿曲HifMBre d_wcNnn_5&lstfrt)Hf -rtJthrEHjtl/mef 2 Khr即Leletn 2 -j Ptocew.曲I图7修改前run.bat 中的 call 后面为你的 simufact.welding6.0 安装后 run_sfMarc.bat 的位置 我的上述容改为：callE:softwarespecialsimufact6simufactwelding6.0solversim
16、ufactsfMarcsf_toolsrun_sfMarc.bat -nthread_solver 2 -nthread_elem 2 -jF:studysoftwarestudysoftwaresimufactmarc_linkmarcProcess_Run_Process.d at -u F:studysoftwarestudysoftwaremarcudf_weldtoolrey.f -save yes需要说明的是：-j后面增加刚才修改的Process.dat的位置-u后面增加刚才rey.f文件的位置增加-save yes修改完成后并保存退出5）命令运行run.bat图8点击红色框中的黑
17、色小三角并选择“Open a shellProcess time 0 0 s Robo: elding Tra|W(.ory|managerSficrw info shetftDpflm settings- menu图9点击红色框中的黑色小三角并选择“Open a shell在出现的对话框中输入“ run.bat ”并回车simufact.welding 6.0.0 (administrator) - Projects mar 手 Mate-riakb 或Temperaturesp 寸 Traj&ctQriA :#： Welding-param&ters Uli stress relieft 照 ets乳 ProcessSolver-班 weld -mesh* 如 Fixing3J Fixing# 杲 Clamping 34 Clminping Rcbot Harticle运行一段时间后可以看到Results出现，即可得到想要的结果。热源的脉冲效果如下:
