版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門(mén)版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

當(dāng)前只顯示滿(mǎn)足指定條件的回帖，點(diǎn)擊這里查看本話(huà)題的所有回帖

owen2011

新蟲(chóng) (初入文壇)

應(yīng)助: 7 (幼兒園)
金幣: 102.7
紅花: 1
帖子: 40
在線(xiàn): 13.5小時(shí)
蟲(chóng)號(hào): 1451222
注冊(cè): 2011-10-19
專(zhuān)業(yè): 機(jī)械結(jié)構(gòu)強(qiáng)度學(xué)

[求助] 求助ABAQUS軟件中環(huán)形焊接移動(dòng)熱源FORTRAN程序問(wèn)題已有2人參與

大家好：

最近寫(xiě)了個(gè)程序想算一下環(huán)焊的溫度場(chǎng)，前期是分段加載溫度曲線(xiàn)可以進(jìn)行計(jì)算。

后來(lái)想用FORTRAN寫(xiě)移動(dòng)熱源代入，繞圓周方向一圈。是拿直線(xiàn)焊縫的程序修改的，加了個(gè)平移和旋轉(zhuǎn)矩陣而已，平移是換了旋轉(zhuǎn)的圓心，旋轉(zhuǎn)是繞Y軸的。然后之后調(diào)理了一下焊槍角度又乘了個(gè)旋轉(zhuǎn)矩陣33度。這里繞Z軸的了。

結(jié)果發(fā)現(xiàn)提交的時(shí)候顯示編譯有問(wèn)題，我在VS里面建了IVF工程但是按了BUILD之后毫無(wú)反應(yīng)，0 SUCCESS 0 FAIL 1 UPDATE

回頭又看了下程序可惜實(shí)在看不出問(wèn)題所在，請(qǐng)問(wèn)有沒(méi)有同學(xué)能指導(dǎo)一下我，告訴我可能哪里會(huì)存在問(wèn)題呢？謝謝啦！

附上環(huán)焊的INP和FOR文件。FOR文件沒(méi)傳上……就附在下面啦

   subroutine usdfld(field,statev,pnewdt,direct,t,celent,time,dtime,
   1 cmname,orname,nfield,nstatv,noel,npt,layer,kspt,kstep,kinc,
   1 ndi,nshr,coord,jmac,jmtyp,matlayo,laccfla)
c
   include 'aba_param.inc'
c
   character*80 cmname,orname
   character*3  flgray(15)
   dimension field(nfield),statev(nstatv),direct(3,3),t(3,3),time(2)
   1 ,coord(*),jmac(*),jmtyp(*)
   dimension array(15),jarray(15)
c
   call getvrm('temp',array,jarray,flgray,jrcd,
   1             jmac, jmtyp, matlayo, laccfla)
c
   statev(1)=max(statev(1),array(1))
c
   return
   end
c
   SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,JLTYP,
   1 TEMP,PRESS,SNAME)
c
   INCLUDE 'ABA_PARAM.INC'
c
   DIMENSION FLUX(2),TIME(2),COORDS(3)
   CHARACTER*80 SNAME
c
   v=10
   t=TIME(1)
   FLUX(1)=0
   PI=3.14159
   R=50
   h=0.5
   waittime=0
   angle=(v*TIME(1))/R
   ang0=0
   theta=-angle+ang0
   x=(COORDS(1)-R)*COS(theta)-COORDS(3)*SIN(theta)
   y=COORD(2)+h
   z=(COORDS(1)-R)*SIN(theta)+COORDS(3)*COS(theta)

   X1=(COORDS(1)-R)*COS(ang0)-COORDS(3)*SIN(ang0)
   X2=X2
   X3=(COORDS(1)-R)*SIN(ang0)+COORDS(3)*COS(ang0)

   x=x*COS(-33./180.*PI)+y*SINC(-33./180.*PI)
   y=-x*COS(-33./180.*PI)*+y*COS(-33./180.*PI)
   z=z


c

   ff=0.6
   fr=2-ff
   a=6
   b=2*a
   bf=b*ff*0.5
   br=b*fr*0.5
   c=3
   s=v*t
   depth=1.5
   heat=240*24*0.8*1000

arc1=ATAN(COORDS(2)/COORDS(3))

   d01=exp(-3*(X1**2/(a)**2+X2**2/(bf)**2+X3**2/(c)**2))
   d02=exp(-3*(X1**2/(a)**2+X2**2/(br)**2+X3**2/(c)**2))
d1=exp(-3*(x**2/(a)**2+y**2/(bf)**2+z**2/(c)**2))
d2=exp(-3*(x**2/(a)**2+y**2/(br)**2+z**2/(c)**2))

      if((y.ge.0)
   $    .and.(TIME(2).gt.0).and.(TIME(2).le.waittime)) then
      FLUX(1)=heat*d01*0.6*6.0*sqrt(3.)/(pi*(a*bf*c)*sqrt(pi))
   endif
      if((y.lt.0)
   $    .and.(TIME(2).gt.0).and.(TIME(2).le.waittime)) then
      FLUX(1)=heat*d02*1.4*6.0*sqrt(3.)/(pi*(a*br*c)*sqrt(pi))
   endif

      if((arc1.gt.angle).and.(TIME(2).gt.waittime)
   $    .and.(TIME(2).le.22.5))       then
      FLUX(1)=heat*d1*0.6*6.0*sqrt(3.)/(pi*(a*bf*c)*sqrt(pi))
   endif
      if((arc1.le.angle).and.(TIME(2).gt.waittime)
   $    .and.(TIME(2).le.22.5))       then
      FLUX(1)=heat*d2*1.4*6.0*sqrt(3.)/(pi*(a*br*c)*sqrt(pi))
   endif


c


   RETURN
   END

回復(fù)此樓

» 本帖附件資源列表

歡迎監(jiān)督和反饋：小木蟲(chóng)僅提供交流平臺(tái)，不對(duì)該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶(hù)自主發(fā)布，如果其內(nèi)容涉及到知識(shí)產(chǎn)權(quán)問(wèn)題，其責(zé)任在于用戶(hù)本人，如對(duì)版權(quán)有異議，請(qǐng)聯(lián)系郵箱：xiaomuchong@tal.com
附件 1 : Job-6.inp

2015-11-25 14:07:09, 21.93 M

» 猜你喜歡

一志愿085600中科院寧波所276分求調(diào)劑已經(jīng)有4人回復(fù)
材料專(zhuān)業(yè)申博已經(jīng)有3人回復(fù)
307求調(diào)劑已經(jīng)有20人回復(fù)
285求調(diào)劑已經(jīng)有8人回復(fù)
材料與化工（0856）304求B區(qū)調(diào)劑已經(jīng)有8人回復(fù)
370求調(diào)劑已經(jīng)有3人回復(fù)
070300化學(xué)279求調(diào)劑已經(jīng)有5人回復(fù)
福建理工大學(xué)材料學(xué)院先進(jìn)合金團(tuán)隊(duì)招收考研調(diào)劑學(xué)生已經(jīng)有4人回復(fù)
英一數(shù)一408，總分284，二戰(zhàn)真誠(chéng)求調(diào)劑已經(jīng)有5人回復(fù)
083000環(huán)境科學(xué)與工程調(diào)劑，總分281 已經(jīng)有4人回復(fù)

1樓 2015-11-25 14:08:08

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

luyizong

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 5
帖子: 1
在線(xiàn): 1.3小時(shí)
蟲(chóng)號(hào): 6187900
注冊(cè): 2017-03-29

【答案】應(yīng)助回帖

引用回帖:

3樓: Originally posted by qinglove220 at 2016-01-05 08:45:22
請(qǐng)教一下要是建立軸對(duì)稱(chēng)模型焊接的熱源應(yīng)該如何施加

和整體一樣施加。只有半個(gè)熱源有效作用在半個(gè)體上。所以和原來(lái)一樣

發(fā)自小木蟲(chóng)IOS客戶(hù)端

贊一下

回復(fù)此樓

4樓2017-03-31 07:01:04

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 6 個(gè)回答

owen2011

新蟲(chóng) (初入文壇)

應(yīng)助: 7 (幼兒園)
金幣: 102.7
紅花: 1
帖子: 40
在線(xiàn): 13.5小時(shí)
蟲(chóng)號(hào): 1451222
注冊(cè): 2011-10-19
專(zhuān)業(yè): 機(jī)械結(jié)構(gòu)強(qiáng)度學(xué)

好像發(fā)現(xiàn)了一點(diǎn)問(wèn)題，

判定條件是 arc1=ATAN(COORDS(2)/COORDS(3)) 這里錯(cuò)了，XYZ都搞錯(cuò)了。

這個(gè)還是初始沒(méi)變化過(guò)相對(duì)著（0,0）原點(diǎn)的絕對(duì)角度，是不是也需要進(jìn)行改寫(xiě) arc1=ATAN(COORDS(3)/COORDS(1)-R)

俺再試試看。。

贊一下(3人)

回復(fù)此樓

2樓2015-11-26 08:38:16

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

qinglove220

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 55.8
帖子: 35
在線(xiàn): 13.6小時(shí)
蟲(chóng)號(hào): 4241207
注冊(cè): 2015-11-23
專(zhuān)業(yè): 金屬材料的力學(xué)行為

【答案】應(yīng)助回帖

請(qǐng)教一下要是建立軸對(duì)稱(chēng)模型焊接的熱源應(yīng)該如何施加

贊一下

回復(fù)此樓

3樓2016-01-05 08:45:22

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wanghuanjie

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 80.3
散金: 5
帖子: 28
在線(xiàn): 7.4小時(shí)
蟲(chóng)號(hào): 4154533
注冊(cè): 2015-10-18
性別: GG
專(zhuān)業(yè): 制造系統(tǒng)與自動(dòng)化

樓主，請(qǐng)教下，如何讓熱源沿圓周移動(dòng)呢？能指出具體程序嗎？謝謝。

贊一下(1人)

回復(fù)此樓

5樓2018-04-26 21:40:53

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 6 個(gè)回答

普通表情龍兔虎貓

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 285求調(diào)劑 +5	AZMK 2026-03-30	8/400	2026-03-31 01:14 by Ccclqqq
[考研] 370求調(diào)劑 +3	080700調(diào)劑 2026-03-30	3/150	2026-03-31 01:09 by A_Zhe
[考研] 083000環(huán)境科學(xué)與工程調(diào)劑，總分281 +4	橙子（勝意） 2026-03-30	4/200	2026-03-31 00:44 by Linzejun
[有機(jī)交流] 考研調(diào)劑 +8	watb 2026-03-26	8/400	2026-03-30 18:40 by 544594351
[考研] 317分一志愿南理工材料工程本科湖工大求調(diào)劑 +12	芋泥小鈴鐺 2026-03-28	12/600	2026-03-30 17:06 by wangjy2002
[考研] 材料專(zhuān)碩調(diào)劑 +11	椰椰。 2026-03-29	11/550	2026-03-30 16:21 by wangjy2002
[考研] 070300化學(xué)354求調(diào)劑 +7	101次希望 2026-03-28	7/350	2026-03-30 13:22 by Iveryant
[考研] 0856求調(diào)劑 +8	楒桉 2026-03-28	8/400	2026-03-30 10:00 by wzy-lxz
[考研] 294分080500材料科學(xué)與工程求調(diào)劑 +8	柳溪邊 2026-03-26	8/400	2026-03-29 20:42 by 唐沐兒
[考研] 340求調(diào)劑 +6	Amber00 2026-03-26	6/300	2026-03-29 12:06 by 無(wú)際的草原
[考研] 本科雙非材料，跨考一志愿華電085801電氣，283求調(diào)劑，任何專(zhuān)業(yè)都可以 +6	芝士雪baoo 2026-03-28	8/400	2026-03-29 08:16 by 松花缸1201
[考研] 11408軟件工程求調(diào)劑 +3	Qiu學(xué)ing 2026-03-28	3/150	2026-03-28 21:50 by zhq0425
[考研] 312，生物學(xué)求調(diào)劑 +3	小譯同學(xué)abc 2026-03-28	3/150	2026-03-28 15:32 by 落睿可思
[考研] 292求調(diào)劑 +14	鵝鵝鵝額額額額?/a> 2026-03-25	15/750	2026-03-28 08:45 by WYUMater
[考研] 295求調(diào)劑 +5	1428151015 2026-03-27	6/300	2026-03-28 04:04 by fmesaito
[考研] 279 分求調(diào)劑 +4	睡個(gè)好覺(jué)_16 2026-03-24	4/200	2026-03-27 15:05 by 醉在風(fēng)里
[考研] 復(fù)試調(diào)劑，一志愿南農(nóng)083200食品科學(xué)與工程 +5	XQTJZ 2026-03-26	5/250	2026-03-27 14:49 by 狂炫麥當(dāng)當(dāng)
[考研] 298調(diào)劑 +3	jiyingjie123 2026-03-27	3/150	2026-03-27 11:57 by wxiongid
[考研] 各位老師您好：本人初試372分 +5	jj涌77 2026-03-25	6/300	2026-03-25 14:15 by mapenggao
[考研] 085404電子信息284分求調(diào)劑 +4	13659058978 2026-03-24	4/200	2026-03-24 12:15 by syl20081243