版塊導(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)版塊排行榜

返回列表

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

yaojinnan

金蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 0 (幼兒園)
金幣: 588.7
散金: 128
帖子: 323
在線: 65.1小時(shí)
蟲(chóng)號(hào): 1081825
注冊(cè): 2010-08-25
性別: GG
專(zhuān)業(yè): 金屬結(jié)構(gòu)材料

[交流] 【求助】ANSYS 中命令流編程（fortran）已有11人參與

大家好，我是做焊接模擬的，用的是ANSYS軟件。現(xiàn)在想做一段程序，其中想做個(gè)循環(huán)交替加載。
比如：載荷作用時(shí)間總共為10s，有兩個(gè)載荷。
      其中，0-1s 給選定物體加載第一個(gè)載荷，
                  1-3s給選定物體加載第二個(gè)載荷
                  3-4s給選定物體加載第一個(gè)載荷
                  5-7s給選定物體加載第二個(gè)載荷
                  7-8s給選定物體加載第一個(gè)載荷
                  8-10s給選定物體加載第二個(gè)載荷
其實(shí)簡(jiǎn)單的可以這么理解。
但是我的載荷是一個(gè)由ANSYS函數(shù)編輯器定義的一個(gè)表載荷，
并且這兩個(gè)載荷都是移動(dòng)的。所以不清楚應(yīng)該怎么用FORTRAN來(lái)編程。希望大家能給予幫助。定有回報(bào)。
下面就是我的命令流程序：
finish
/clear,start                                  !清除數(shù)據(jù)庫(kù)以開(kāi)始新的分
/filname,reverse-shuang tuo qiu,0
/title,hanhanahanhan
/units,si

/prep7

ET,1,SOLID70
ET,2,SOLID90
!et,2,surf152
!keyopt,2,4,0
!keyopt,2,5,1
!keyopt,2,8,3

MPTEMP,1,20,100,200,300,400,500,
MPTEMP,7,600,700,800,900,1000,1500
MPDATA,KXX,1,1,152,159,164,165,168,196,
MPDATA,KXX,1,7,209,162,162,162,162,162
MPDATA,DENS,1,1,2680,2662,2646,2620,2600,2580,
MPDATA,DENS,1,7,2436,2384,2384,2384,2384,2384
MPDATA,C,1,1,956,963,1047,1130,1224,1308,
MPDATA,C,1,7,1412,1084,1084,1084,1084,1084
MPDATA,HF,1,1,8.22,11.0,13.7,23.2,33.4,46.8,
MPDATA,HF,1,7,58.0,68.5,68.5,68.5,68.5,68.5

lx=0.08
ly=0.2
lz=0.005

r=0.002
D=0.002！焊縫寬度
ah=D/2！雙橢球熱源參數(shù)定義
chf=4*ah
chb=6*ah
bh=0.003
rf=2*chf/(chf+chb)
rb=2*chb/(chf+chb)
K=0.5 功率有效系數(shù)
I=130
U=30
q0=I*U
q=q0*K  !有效功率
pi=acos(-1)
step=0.002
v=0.003
!count=ly/v
count=20
!***********************************
!定義單元類(lèi)型
!***********************************
!建立幾何模型
!***********************************
wpstyle,,,,,,,,0
block,0,0.006,0,ly,0,-lz
block,0,0.012,0,ly,0,-lz
block,0,0.024,0,ly,0,-lz
block,0,lx,0,ly,0,-lz
vovlap,all
/view,1,1,1,1

!定義焊縫區(qū)單元尺寸0.002
lesize,7,0.001
lesize,2,0.001
lesize,12,0.001
lesize,11,0.001
lesize,6,0.001
lesize,3,0.001
lesize,8,0.001
lesize,1,0.001
lesize,4,0.001
lesize,9,0.001
lesize,5,0.001
lesize,10,0.001
!定義過(guò)渡區(qū)的單元尺寸
lesize,15,r
lesize,18,r
!定義遠(yuǎn)離焊縫區(qū)的單元尺寸
lesize,34,1.25*0.001
lesize,35,1.25*0.001
lesize,47,1.25*0.001
lesize,46,1.25*0.001
lesize,39,4*r
lesize,42,4*r
lesize,57,4*r
lesize,60,4*r
lesize,27,4*r
lesize,30,4*r
lesize,58,4*r
lesize,59,4*r
!***********************************
!劃分網(wǎng)格，生生有限元模型
!***********************************
type,1
mshkey,1
mshape,0
vmesh,1
vmesh,7
type,2
mshkey,0
mshape,1
vmesh,5
vmesh,6
numcmp,area
save
!***********************************
!循環(huán)加載、求解
!***********************************
!施加載荷
/solu
*do,i,0,count
disy=i*step
t=(disy+step)/v
antype,4
trnopt,full
tunif,293
outres,basic,last
time,t
nropt,full,,on
autots,1
nsubst,1,,,1
kbc,1
lnsrch,1
tsres,erase
!TINTP,,,,1,,,,,
timint,1,therm
!***********************************
!焊接過(guò)程開(kāi)始
!***********************************
nsel,s,ext,
nsel,u,loc,x,0    !------改
sf,all,conv,200,293 !------改
allsel,all
!***********************************
!***********************************
!雙橢球熱源的加載
!***********************************
!前半球節(jié)點(diǎn)的選取
!***********************************
LOCAL,11,2,0,disy,0.000,,,,chf/ah,bh/ah,
NSEL,S,LOC,X,0,ah
NSEL,R,LOC,Y,0,90
NSEL,R,LOC,Z,-90,0
CM,FRONT,NODE
LOCAL,13,0,0,disy,0.000,,,,1,1,
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNC_C4
*DEL,_FNC_C5
*DEL,_FNCCSYS
*DEL,'TFRONT'
*SET,_FNCNAME,'TFRONT'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*DIM,_FNC_C4,,1
*DIM,_FNC_C5,,1
*SET,_FNC_C1(1),q
*SET,_FNC_C2(1),rf
*SET,_FNC_C3(1),ah
*SET,_FNC_C4(1),chf
*SET,_FNC_C5(1),bh
*SET,_FNCCSYS,13
*DIM,%_FNCNAME%,TABLE,7,38,1,,,,%_FNCCSYS%
%_FNCNAME%(0,0,1)= 0.0, -999
%_FNCNAME%(2,0,1)= 0.0
%_FNCNAME%(3,0,1)= %_FNC_C1(1)%
%_FNCNAME%(4,0,1)= %_FNC_C2(1)%
%_FNCNAME%(5,0,1)= %_FNC_C3(1)%
%_FNCNAME%(6,0,1)= %_FNC_C4(1)%
%_FNCNAME%(7,0,1)= %_FNC_C5(1)%
%_FNCNAME%(0,1,1)= 1.0, -1, 16, 3, 0, 0, 0
%_FNCNAME%(0,2,1)= 0.0, -2, 0, 6, 0, 0, -1
%_FNCNAME%(0,3,1)= 0, -3, 0, 1, -2, 3, -1
%_FNCNAME%(0,4,1)= 0.0, -1, 0, 1, -3, 3, 17
%_FNCNAME%(0,5,1)= 0.0, -2, 0, 1, -1, 3, 18
%_FNCNAME%(0,6,1)= 0.0, -1, 0, 0, 0, 0, 0
%_FNCNAME%(0,7,1)= 0.0, -3, 0, 1, 0, 0, -1
%_FNCNAME%(0,8,1)= 0.0, -4, 0, 1, -1, 2, -3
%_FNCNAME%(0,9,1)= 0.0, -1, 0, 3, 0, 0, -4
%_FNCNAME%(0,10,1)= 0.0, -3, 0, 1, -4, 3, -1
%_FNCNAME%(0,11,1)= 0.0, -1, 0, 2, 0, 0, 2
%_FNCNAME%(0,12,1)= 0.0, -4, 0, 1, 2, 17, -1
%_FNCNAME%(0,13,1)= 0.0, -1, 0, 2, 0, 0, 19
%_FNCNAME%(0,14,1)= 0.0, -5, 0, 1, 19, 17, -1
%_FNCNAME%(0,15,1)= 0.0, -1, 0, 1, -4, 4, -5
%_FNCNAME%(0,16,1)= 0.0, -4, 0, 2, 0, 0, 3
%_FNCNAME%(0,17,1)= 0.0, -5, 0, 1, 3, 17, -4
%_FNCNAME%(0,18,1)= 0.0, -4, 0, 2, 0, 0, 20
%_FNCNAME%(0,19,1)= 0.0, -6, 0, 1, 20, 17, -4
%_FNCNAME%(0,20,1)= 0.0, -4, 0, 1, -5, 4, -6
%_FNCNAME%(0,21,1)= 0.0, -5, 0, 1, -1, 1, -4
%_FNCNAME%(0,22,1)= 0.0, -1, 0, 2, 0, 0, 4
%_FNCNAME%(0,23,1)= 0.0, -4, 0, 1, 4, 17, -1
%_FNCNAME%(0,24,1)= 0.0, -1, 0, 2, 0, 0, 21
%_FNCNAME%(0,25,1)= 0.0, -6, 0, 1, 21, 17, -1
%_FNCNAME%(0,26,1)= 0.0, -1, 0, 1, -4, 4, -6
%_FNCNAME%(0,27,1)= 0.0, -4, 0, 1, -5, 1, -1
%_FNCNAME%(0,28,1)= 0.0, -1, 0, 1, -3, 3, -4
%_FNCNAME%(0,29,1)= 0.0, -1, 7, 1, -1, 0, 0
%_FNCNAME%(0,30,1)= 0.0, -3, 0, 1, -2, 3, -1
%_FNCNAME%(0,31,1)= 0.0, -1, 16, 3.14159265358979310, 0, 0, 0
%_FNCNAME%(0,32,1)= 0.0, -2, 0, 3.14159265358979310, 0, 0, -1
%_FNCNAME%(0,33,1)= 0.0, -4, 0, 1, -2, 3, -1
%_FNCNAME%(0,34,1)= 0.0, -1, 0, 1, -4, 3, 20
%_FNCNAME%(0,35,1)= 0.0, -2, 0, 1, -1, 3, 19
%_FNCNAME%(0,36,1)= 0.0, -1, 0, 1, -2, 3, 21
%_FNCNAME%(0,37,1)= 0.0, -2, 0, 1, -3, 4, -1
%_FNCNAME%(0,38,1)= 0.0, 99, 0, 1, -2, 0, 0
BF,FRONT,HGEN,%TFRONT%
CMDELE,FRONT
ALLSEL,ALL

!!!后半球節(jié)點(diǎn)的選取
LOCAL,12,2,0,disy,0,,,,chb/ah,bh/ah,
NSEL,S,LOC,X,0,ah
NSEL,R,LOC,Y,-90,0
nsel,r,loc,y,-90,0
CM,BEHIND,NODE
!!!
LOCAL,14,0,0,disy,0,,,,1,1,
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNC_C4
*DEL,_FNC_C5
*DEL,_FNCCSYS
*DEL,'TBEHIND'
*SET,_FNCNAME,'TBEHIND'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*DIM,_FNC_C4,,1
*DIM,_FNC_C5,,1
*SET,_FNC_C1(1),q
*SET,_FNC_C2(1),rb
*SET,_FNC_C3(1),ah
*SET,_FNC_C4(1),chb
*SET,_FNC_C5(1),bh
*SET,_FNCCSYS,14
*DIM,%_FNCNAME%,TABLE,7,38,1,,,,%_FNCCSYS%
%_FNCNAME%(0,0,1)= 0.0, -999
%_FNCNAME%(2,0,1)= 0.0
%_FNCNAME%(3,0,1)= %_FNC_C1(1)%
%_FNCNAME%(4,0,1)= %_FNC_C2(1)%
%_FNCNAME%(5,0,1)= %_FNC_C3(1)%
%_FNCNAME%(6,0,1)= %_FNC_C4(1)%
%_FNCNAME%(7,0,1)= %_FNC_C5(1)%
%_FNCNAME%(0,1,1)= 1.0, -1, 16, 3, 0, 0, 0
%_FNCNAME%(0,2,1)= 0.0, -2, 0, 6, 0, 0, -1
%_FNCNAME%(0,3,1)= 0, -3, 0, 1, -2, 3, -1
%_FNCNAME%(0,4,1)= 0.0, -1, 0, 1, -3, 3, 17
%_FNCNAME%(0,5,1)= 0.0, -2, 0, 1, -1, 3, 18
%_FNCNAME%(0,6,1)= 0.0, -1, 0, 0, 0, 0, 0
%_FNCNAME%(0,7,1)= 0.0, -3, 0, 1, 0, 0, -1
%_FNCNAME%(0,8,1)= 0.0, -4, 0, 1, -1, 2, -3
%_FNCNAME%(0,9,1)= 0.0, -1, 0, 3, 0, 0, -4
%_FNCNAME%(0,10,1)= 0.0, -3, 0, 1, -4, 3, -1
%_FNCNAME%(0,11,1)= 0.0, -1, 0, 2, 0, 0, 2
%_FNCNAME%(0,12,1)= 0.0, -4, 0, 1, 2, 17, -1
%_FNCNAME%(0,13,1)= 0.0, -1, 0, 2, 0, 0, 19
%_FNCNAME%(0,14,1)= 0.0, -5, 0, 1, 19, 17, -1
%_FNCNAME%(0,15,1)= 0.0, -1, 0, 1, -4, 4, -5
%_FNCNAME%(0,16,1)= 0.0, -4, 0, 2, 0, 0, 3
%_FNCNAME%(0,17,1)= 0.0, -5, 0, 1, 3, 17, -4
%_FNCNAME%(0,18,1)= 0.0, -4, 0, 2, 0, 0, 20
%_FNCNAME%(0,19,1)= 0.0, -6, 0, 1, 20, 17, -4
%_FNCNAME%(0,20,1)= 0.0, -4, 0, 1, -5, 4, -6
%_FNCNAME%(0,21,1)= 0.0, -5, 0, 1, -1, 1, -4
%_FNCNAME%(0,22,1)= 0.0, -1, 0, 2, 0, 0, 4
%_FNCNAME%(0,23,1)= 0.0, -4, 0, 1, 4, 17, -1
%_FNCNAME%(0,24,1)= 0.0, -1, 0, 2, 0, 0, 21
%_FNCNAME%(0,25,1)= 0.0, -6, 0, 1, 21, 17, -1
%_FNCNAME%(0,26,1)= 0.0, -1, 0, 1, -4, 4, -6
%_FNCNAME%(0,27,1)= 0.0, -4, 0, 1, -5, 1, -1
%_FNCNAME%(0,28,1)= 0.0, -1, 0, 1, -3, 3, -4
%_FNCNAME%(0,29,1)= 0.0, -1, 7, 1, -1, 0, 0
%_FNCNAME%(0,30,1)= 0.0, -3, 0, 1, -2, 3, -1
%_FNCNAME%(0,31,1)= 0.0, -1, 16, 3.14159265358979310, 0, 0, 0
%_FNCNAME%(0,32,1)= 0.0, -2, 0, 3.14159265358979310, 0, 0, -1
%_FNCNAME%(0,33,1)= 0.0, -4, 0, 1, -2, 3, -1
%_FNCNAME%(0,34,1)= 0.0, -1, 0, 1, -4, 3, 20
%_FNCNAME%(0,35,1)= 0.0, -2, 0, 1, -1, 3, 19
%_FNCNAME%(0,36,1)= 0.0, -1, 0, 1, -2, 3, 21
%_FNCNAME%(0,37,1)= 0.0, -2, 0, 1, -3, 4, -1
%_FNCNAME%(0,38,1)= 0.0, 99, 0, 1, -2, 0, 0
BF,BEHIND,HGEN,%TBEHIND%
CMDELE,BEHIND
ALLSEL,ALL
SOLVE
BFDELE,all,HGEN
*ENDDO
SAVE

其中從雙橢球熱源加載到最后就是加載的過(guò)程，這是一個(gè)載荷，還需要另外一個(gè)載荷，這里沒(méi)有加載，就像上面我所說(shuō)的那樣循環(huán)交替那樣應(yīng)該怎么加載，希望大家給予幫助。。應(yīng)該用到怎么樣的語(yǔ)句呢？？

回復(fù)此樓

只有有了優(yōu)秀的對(duì)手，你才會(huì)變得更加優(yōu)秀

1樓 2010-09-09 20:40:33

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

dgh338

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

應(yīng)助: 0 (幼兒園)
金幣: 479
帖子: 19
在線: 5.6小時(shí)
蟲(chóng)號(hào): 1122552
注冊(cè): 2010-10-14
專(zhuān)業(yè): 機(jī)械測(cè)試?yán)碚撆c技術(shù)

這么多的程序，看不懂

贊一下

回復(fù)此樓

3樓2010-10-19 15:45:30

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

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

graduate7303

至尊木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 39 (小學(xué)生)
金幣: 13008.2
紅花: 1
帖子: 1570
在線: 160.4小時(shí)
蟲(chóng)號(hào): 730419
注冊(cè): 2009-03-25
專(zhuān)業(yè): 工程熱物理與能源利用

★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流

學(xué)習(xí)學(xué)習(xí)了。。。

回復(fù)此樓

2樓2010-10-18 14:06:02

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

zyj8119

木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
散金: 1440
紅花: 35
帖子: 2936
在線: 1329.4小時(shí)
蟲(chóng)號(hào): 664177
注冊(cè): 2008-11-29
性別: GG
專(zhuān)業(yè): 理論和計(jì)算化學(xué)

★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流

引用回帖:

Originally posted by yaojinnan at 2010-09-09 20:40:33:
大家好，我是做焊接模擬的，用的是ANSYS軟件�，F(xiàn)在想做一段程序，其中想做個(gè)循環(huán)交替加載。
比如：載荷作用時(shí)間總共為10s，有兩個(gè)載荷。
其中，0-1s 給選定物體加載第一個(gè)載荷，
...

ANSYS怎么打開(kāi)命令流編程？

贊一下(1人)

回復(fù)此樓

好好學(xué)習(xí)，天天向上。

4樓2010-11-12 19:48:42

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

leixiaokuan

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

應(yīng)助: 0 (幼兒園)
金幣: 22.1
帖子: 6
在線: 7.4小時(shí)
蟲(chóng)號(hào): 1349144
注冊(cè): 2011-07-18
性別: GG
專(zhuān)業(yè): 金屬結(jié)構(gòu)材料

★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖
jjdg: 先google一下吧 2011-10-19 06:42:39

我是做焊接的，想學(xué)Ansys模擬焊接過(guò)程，有這方面的教程嗎？若有請(qǐng)傳我一份，郵箱：leixiaokuan_0512@1363.com

贊一下(2人)

回復(fù)此樓

結(jié)交廣大焊接工程師

5樓2011-10-18 13:41:13

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

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

普通表情龍兔虎貓高級(jí)回復(fù) (可上傳附件)

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

[考研] 考研求調(diào)劑 +3	橘頌. 2026-03-17	4/200	2026-03-17 21:43 by 有只貍奴
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考研] 326求調(diào)劑 +5	上岸的小葡 2026-03-15	6/300	2026-03-17 17:26 by ruiyingmiao
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +4	張vvvv 2026-03-15	6/300	2026-03-17 17:15 by ruiyingmiao
[考研] 化學(xué)工程321分求調(diào)劑 +11	大米飯！ 2026-03-15	14/700	2026-03-17 17:11 by ruiyingmiao
[考研] 312求調(diào)劑 +4	陌宸希 2026-03-16	5/250	2026-03-17 17:09 by ruiyingmiao
[考研] 一志愿蘇州大學(xué)材料工程（085601）專(zhuān)碩有科研經(jīng)歷三項(xiàng)國(guó)獎(jiǎng)兩個(gè)實(shí)用型專(zhuān)利一項(xiàng)省級(jí)立項(xiàng) +6	大火山小火山 2026-03-16	8/400	2026-03-17 15:05 by 無(wú)懈可擊111
[考研] 275求調(diào)劑 +4	太陽(yáng)花天天開(kāi)心 2026-03-16	4/200	2026-03-17 10:53 by 功夫瘋狂
[考研] 材料專(zhuān)碩274一志愿陜西師范大學(xué)求調(diào)劑 +5	薛云鵬 2026-03-13	5/250	2026-03-17 10:15 by Sammy2
[考研] 藥學(xué)383 求調(diào)劑 +3	藥學(xué)chy 2026-03-15	4/200	2026-03-16 20:51 by 元子^0^
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏
[考研] 341求調(diào)劑 +3	番茄頭--- 2026-03-10	3/150	2026-03-13 23:07 by JourneyLucky
[考研] 材料工程調(diào)劑 +9	咪咪空空 2026-03-12	9/450	2026-03-13 22:05 by 星空星月
[考研] 329求調(diào)劑 +3	miaodesi 2026-03-12	4/200	2026-03-13 20:53 by 18595523086
[考研] 26調(diào)劑/材料科學(xué)與工程/總分295/求收留 +9	2026調(diào)劑俠 2026-03-12	9/450	2026-03-13 20:46 by 18595523086
[考研] 土木第一志愿276求調(diào)劑，科研和技能十分豐富，求新興方向的導(dǎo)師收留 +3	土木小天才 2026-03-12	3/150	2026-03-13 15:01 by JourneyLucky
[考研] 308求調(diào)劑 +3	是Lupa啊 2026-03-12	3/150	2026-03-13 14:30 by 求調(diào)劑zz
[考研] 0856化學(xué)工程280分求調(diào)劑 +4	shenzxsn 2026-03-11	4/200	2026-03-13 11:55 by ymwdoctor
[考博] 福州大學(xué)楊黃浩課題組招收2026年專(zhuān)業(yè)學(xué)位博士研究生，2026.03.20截止 +3	Xiangyu_ou 2026-03-12	3/150	2026-03-13 09:36 by duanwu655
[考博] 26讀博 +4	Rui135246 2026-03-12	10/500	2026-03-13 07:15 by gaobiao