ansys / ЛАБА 11 / 1 / MELKAYA

!ЏЋ‘’ђЋ…Ќ€… ‘Њ„

/CLEAR, NOSTART ! CLEAR THE DATABASE
/FILNAM,SUBM ! DEFINE JOBNAME FOR THE SUBM

KOP=5

*DO,I,1,KOP

/PREP7

ALLS
ACLEAR,ALL,ALL
ADELE,ALL,,,1
LSEL,ALL
LDELE,ALL,,,1
!DELE,ALL

B=4
H=2
RY=0.1
RX=RY/1.5

DS=(H/4-RY)/KOP
RS=RY+DS*(I)

/NOPR
ANTYPE,STATIC
ET,1,PLANE42
MP,EX,1,1000
MP,NUXY,1,0.3

!CSYS,1


K,100,0,H/2+RS
K,101,RS,H/2,0
K,102,0,H/2-RS

K,105,,H/2-RY
K,106,,H/2+RY
K,107,RX,H/2

BSPLIN,106,107,105,,,,-1,0,,-1,0

L,105,102
L,106,100

LOCAL,12,1,0,H/2
L,100,101
L,101,102


CSYS,0

LSEL,S,LOC,X,0.1,RS
LCOMB,ALL

LSEL,ALL
AL,ALL

ESIZE,,16 ! 12 DIVISIONS
!MSHK,1 ! MAPPED AREA MESH
MSHA,0,2D
ASEL,ALL ! USING QUADS
AMESH,ALL


EPLOT
!*ASK,a,ETO MELKAYA SETKA

LSEL,S,LOC,X,0.1,RS
!LSEL,S,LINE,,1,7
NSLL,,ALL ! SELECT NODES OF CUT BOUNDARY
NWRITE ! WRITE GEOMETRY TO SUBM.NODE
LSEL,ALL
NSEL,ALL
FINISH
SAVE ! SAVE SUBMODEL DATA IN FILE SUBM.DB


/POST1
RESUME,SUBMODEL,db ! RESUME FROM FILE SUBMODEL.DB
FILE,SUBMODEL,rst ! DEFINE RESULTS FILE NAME
CBDOF,,,,,,,0,,0 ! ACTIVATE CUT BOUNDARY INTERPOLATION
FINISH



/PREP7
smrt,off
RESUME ! RESUME SUBMODEL FROM FILE SUBM.DB
/NOPR
/INPUT,,cbdo ! READ IN INTERPOLATED B.C.'S FROM SUBM.CBDO
/GOPR

LSEL,S,LOC,X,0 ! APPLY REMAINING BOUNDARY CONDITIONS
NSLL,S,1
D,ALL,UX

FINISH
/SOLU
SOLVE
FINISH
/POST1


!LOCAL,12,1,0,H/2
PATH,KRUG2,3,,100
PPATH,1,,0,H/2+0.99*RS,0,12
PPATH,2,,0.99*RS,H/2,0,12
PPATH,3,,0,H/2-0.99*RS,0,12
PDEF,SEQVTG,S,EQV
*SET,BLAM%I%
*DIM,BLAM%I%,ARRAY,7,101
PAGET,BLAM%I%,TABLE
*CFOPEN,TOCHPUT%I%,TXT,,
*VWRITE,BLAM%I%(1,5)
(10(E14.7,2X))
PLPATH,SEQVTG
*CFCLOS
!*GET,SS,PATH,0,MAX,SEQVT

!FINISH

*ENDDO