FINI
/CLE
/AUX15  
IGESIN,EX8-1,IGES
/VIEW,1,1,1,1   
/ANG,1
/REP,FAST
FINISH
/FILENAME,EX8-1,1
/TITLE,The Coupled Analysis of Thermal to Structure
/PREP7
ET,1,SHELL57
ET,2,SOLID70
MP,KXX,1,1200
MP,KXX,2,800
R,1,2
R,2,3
!
TYPE,1
MAT,1
REAL,1
ESIZE,8
!DEFINE U COMPONENT
ASEL,S,AREA,,4
ASEL,A,AREA,,8
ASEL,A,AREA,,9
ASEL,A,AREA,,10
ASEL,A,AREA,,24
ASEL,A,AREA,,26
ASEL,A,AREA,,44
ASEL,A,AREA,,45
ASEL,A,AREA,,47
ASEL,A,AREA,,49
ASEL,A,AREA,,52
ASEL,A,AREA,,53
ASEL,A,AREA,,70
ASEL,A,AREA,,87
ASEL,A,AREA,,88
ASEL,A,AREA,,89
ASEL,A,AREA,,90
ASEL,A,AREA,,92
ASEL,A,AREA,,93
ASEL,A,AREA,,95
ASEL,A,AREA,,96
ASEL,A,AREA,,110
ASEL,A,AREA,,130
ASEL,A,AREA,,131
ASEL,A,AREA,,133
ASEL,A,AREA,,135
ASEL,A,AREA,,138
ASEL,A,AREA,,139
ASEL,A,AREA,,166
ASEL,A,AREA,,167
ASEL,A,AREA,,172
ASEL,A,AREA,,175
CM,U_AREA,AREA
!U形管映射網格劃分
MSHKEY,1
MSHAPE,0,2D 
AMESH,ALL
ALLSEL,ALL
!換熱器隔板網格劃分
TYPE,1
MAT,2
REAL,2
ESIZE,8
MSHKEY,0
MSHAPE,0,2D 
AMESH,469,470
!換熱器外殼網格劃分
TYPE,2
ESIZE,15
VSEL,ALL
VSWEEP,ALL
ALLSEL,ALL
SAVE
!定義其他組元
ASEL,S,AREA,,11
ASEL,A,AREA,,12
ASEL,A,AREA,,16
ASEL,A,AREA,,19
ASEL,A,AREA,,20
ASEL,A,AREA,,28
ASEL,A,AREA,,29
ASEL,A,AREA,,34
ASEL,A,AREA,,39
ASEL,A,AREA,,40
ASEL,A,AREA,,51
ASEL,A,AREA,,54
ASEL,A,AREA,,55
ASEL,A,AREA,,59
ASEL,A,AREA,,62
ASEL,A,AREA,,63
ASEL,A,AREA,,71
ASEL,A,AREA,,72
ASEL,A,AREA,,77
ASEL,A,AREA,,82
ASEL,A,AREA,,83
ASEL,A,AREA,,94
ASEL,A,AREA,,97
ASEL,A,AREA,,98
ASEL,A,AREA,,102
ASEL,A,AREA,,105
ASEL,A,AREA,,106
ASEL,A,AREA,,114
ASEL,A,AREA,,115
ASEL,A,AREA,,120
ASEL,A,AREA,,125
ASEL,A,AREA,,126
ASEL,A,AREA,,137
ASEL,A,AREA,,140
ASEL,A,AREA,,141
ASEL,A,AREA,,144
ASEL,A,AREA,,146
ASEL,A,AREA,,147
ASEL,A,AREA,,153
ASEL,A,AREA,,154
ASEL,A,AREA,,158
ASEL,A,AREA,,162
ASEL,A,AREA,,163
ASEL,A,AREA,,171
ASEL,A,AREA,,198
ASEL,A,AREA,,251
ASEL,A,AREA,,272
ASEL,A,AREA,,325
ASEL,A,AREA,,326
ASEL,A,AREA,,333
ASEL,A,AREA,,340
ASEL,A,AREA,,343
ASEL,A,AREA,,347
ASEL,A,AREA,,353
ASEL,A,AREA,,365
ASEL,A,AREA,,367
ASEL,A,AREA,,371
ASEL,A,AREA,,382
ASEL,A,AREA,,384
ASEL,A,AREA,,387
ASEL,A,AREA,,399
ASEL,A,AREA,,401
ASEL,A,AREA,,403
ASEL,A,AREA,,409
ASEL,A,AREA,,413
ASEL,A,AREA,,418
ASEL,A,AREA,,429
ASEL,A,AREA,,431
CM,OUTER_AREA,AREA   !定義換熱器外表面組元
ASEL,S,AREA,,17
ASEL,A,AREA,,22
ASEL,A,AREA,,32
ASEL,A,AREA,,60
ASEL,A,AREA,,65
ASEL,A,AREA,,75
ASEL,A,AREA,,103
ASEL,A,AREA,,108
ASEL,A,AREA,,118
ASEL,A,AREA,,145
ASEL,A,AREA,,149
ASEL,A,AREA,,150
ASEL,A,AREA,,152
ASEL,A,AREA,,157
ASEL,A,AREA,,176
ASEL,A,AREA,,178
ASEL,A,AREA,,186
ASEL,A,AREA,,194
ASEL,A,AREA,,208
ASEL,A,AREA,,318
ASEL,A,AREA,,319
ASEL,A,AREA,,320
ASEL,A,AREA,,323
ASEL,A,AREA,,324
ASEL,A,AREA,,327
ASEL,A,AREA,,329
ASEL,A,AREA,,332
ASEL,A,AREA,,335
ASEL,A,AREA,,337
ASEL,A,AREA,,339
ASEL,A,AREA,,344
ASEL,A,AREA,,346
ASEL,A,AREA,,349
ASEL,A,AREA,,351
ASEL,A,AREA,,352
ASEL,A,AREA,,366
ASEL,A,AREA,,368
ASEL,A,AREA,,369
ASEL,A,AREA,,383
ASEL,A,AREA,,385
ASEL,A,AREA,,452
ASEL,A,AREA,,455
ASEL,A,AREA,,466
ASEL,A,AREA,,467
ASEL,A,AREA,,469
ASEL,A,AREA,,470
CM,LEFT_INNER_AREA,AREA   !定義換熱器左側內表面組元
ASEL,S,AREA,,42
ASEL,A,AREA,,67
ASEL,A,AREA,,69
ASEL,A,AREA,,85
ASEL,A,AREA,,112
ASEL,A,AREA,,128
ASEL,A,AREA,,165
ASEL,A,AREA,,168
ASEL,A,AREA,,170
ASEL,A,AREA,,173
ASEL,A,AREA,,179
ASEL,A,AREA,,206
ASEL,A,AREA,,215
ASEL,A,AREA,,216
ASEL,A,AREA,,225
ASEL,A,AREA,,233
ASEL,A,AREA,,260
ASEL,A,AREA,,262
ASEL,A,AREA,,280
ASEL,A,AREA,,316
ASEL,A,AREA,,350
ASEL,A,AREA,,386
ASEL,A,AREA,,400
ASEL,A,AREA,,402
ASEL,A,AREA,,405
ASEL,A,AREA,,406
ASEL,A,AREA,,410
ASEL,A,AREA,,411
ASEL,A,AREA,,415
ASEL,A,AREA,,416
ASEL,A,AREA,,430
ASEL,A,AREA,,432
ASEL,A,AREA,,433
ASEL,A,AREA,,436
ASEL,A,AREA,,438
ASEL,A,AREA,,440
ASEL,A,AREA,,453
ASEL,A,AREA,,454
ASEL,A,AREA,,465
ASEL,A,AREA,,468
CM,RIGHT_INNER_AREA,AREA   !定義換熱器右側內表面組元
!
ALLSEL,ALL
SAVE
!
/SOLU
ANTYPE,0
TUNIF,25
CMSEL,S,LEFT_INNER_AREA,AREA
APLOT
SFA,ALL,,HFLUX,80
CMSEL,S,U_AREA,AREA
APLOT
SFA,ALL,1,HFLUX,80
SFA,ALL,2,CONV,7,25
CMSEL,S,RIGHT_INNER_AREA,AREA
SFA,ALL,,CONV,7,40
CMSEL,S,OUTER_AREA,AREA
SFA,ALL,,CONV,5,25
ALLSEL,ALL
SAVE
SOLVE
FINISH
/POST1
PLNSOL,TEMP
/CONTOUR,1,9,0,,80
/REPLOT
PLNSOL,TG,SUM
FINISH
/COM,Structural 
/FILENAME,EX8-2,1
/PREP7
ETCHG,TTS
MP,EX,1,1.0E5
MP,PRXY,1,0.3
MP,ALPX,1,1.5E-4
MP,EX,2,2.1E5
MP,PRXY,2,0.3
MP,ALPX,2,1.2E-4
/SOLU
ANTYPE,0
LSCLEAR,ALL
TREF,25
LDREAD,TEMP,,,,,EX8-1,RTH
ASEL,S,AREA,,255
ASEL,A,AREA,,256
ASEL,A,AREA,,265
ASEL,A,AREA,,266
ASEL,A,AREA,,275
ASEL,A,AREA,,276
ASEL,A,AREA,,283
ASEL,A,AREA,,284
ASEL,A,AREA,,289
ASEL,A,AREA,,290
ASEL,A,AREA,,297
ASEL,A,AREA,,298
ASEL,A,AREA,,306
ASEL,A,AREA,,307
ASEL,A,AREA,,313
ASEL,A,AREA,,314
DA,ALL,ALL
ALLSEL,ALL
SAVE
SOLVE
FINISH
/POST1
PLDISP,2
/DSCALE,1,50
/REPLOT 
PLESOL,S,EQV
/CONTOUR,1,9,0,,235
/REPLOT 
FINISH
/EXIT,ALL