ansys / ЛАБА 11 / 1 / SUBMODMY

FINISH
/CLEAR,NOSTART
/FILNAM,SUBMODEL ! DEFINE JOBNAME FOR THE COARSE MODEL
/PREP7
/NOPR
ANTYPE,STATIC ! STATIC ANALYSIS
ET,1,PLANE42
MP,EX,1,1000
MP,NUXY,1,0.3


!Џ®бв஥­ЁҐ ЈагЎ®© ЈҐ®¬ҐваЁЁ
B=4
H=2
RY=0.1
RX=RY/1.5
K,1,0
K,2,B/2 ! KEYPOINTS
K,3,B/2,H
K,4,,H
K,5,,H/2-RY
K,6,,H/2+RY
K,7,RX,H/2
K,8,,H/2
L,1,2 ! LINE SEGMENTS
L,2,3
L,4,3
L,4,6
L,1,5

LESIZE,4,,,6,.25 ! DEFINE NO. OF DIVISONS AND SPACING FOR LINE 3
LESIZE,5,,,6,0.25

BSPLIN,6,7,5,,,,-1,0,,-1,0

LESIZE,6,,,8 ! DEFINE NO. OF DIVISONS FOR LINE 4

LESIZE,3,,,6,4 ! DEFINE NO. OF DIVISONS AND SPACING FOR LINE 5
LESIZE,1,,,6,4

NR=20
AL,1,2,3,4,6,5 ! AREA DEFINED BY 5 BOUNDING LINES
ESIZE,,NR ! 4 DIVISIONS PER LINE
AMESH,ALL
/AUTO,1 ! AUTO SCALE ON WINDOW 1
EPLOT


!*ASK,a,ETO GRUBAYA SETKA
!ѓа ­Ёз­лҐ гб«®ўЁп ЈагЎ®© ¬®¤Ґ«Ё

LSEL,S,LOC,X,0
NSLL,S,1
D,ALL,UX

!LSEL,A,LINE,,1
!LSEL,A,LINE,,3
LSEL,S,LOC,Y,0
LSEL,A,LOC,Y,H
NSLL,S,1
D,ALL,ALL

!NAGRUZKA

ALLS
SFDELE,ALL,ALL
CSYS,0
!NSEL,S,LOC,Y,H
NSEL,S,LOC,X,B/2
CM,NN,NODE

P1=0.2
P2=0.1
P3=0.3

*GET,NP,NODE,0,NUM,MAX
!*GET,NP1,NODE,0,NUM,MIN
*GET,NM,NODE,0,COUNT

*DIM,PP,ARRAY,NP

A=2*(P3+P1-2*P2)/(H*H)
BB=(P3-P1-A*H**2)/H
C=P1
NS=0
ALLS

*DO,I,1,NM
CMSEL,S,NN
NS=NDNEXT(NS)
XX=NY(NS)
!XX=NX(NS)
PP(NS)=A*XX**2+BB*XX+C
!PP(NS)=2*XX
*ENDDO

CMSEL,S,NN
SFFUN,PRES,PP(1)
SF,ALL,PRES,0
/PSF,PRES,NORM,2,0,1
/REP



LSEL,ALL
NSEL,ALL
CSYS,1
FINISH



!ђ бзҐв ЈагЎ®© ¬®¤Ґ«Ё
/SOLU
SOLVE
FINISH
SAVE ! SAVE FILE AS SUBMODEL.DB

*GO,:1

!Џ®бвЇа®жҐббЁ­Ј ЈагЎ®© ¬®¤Ґ«Ё
/POST1
SET,1,1
PLNSOL,S,X
FINISH


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

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

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

CSYS,1

!!!!!!!!!!
RS=1
!!!!!!!1

CYL4,0,H/2,RS,90
CYL4,0,H/2,RS,-90

AADD,1,2

LCOMB,1,7,0
LCOMB,2,8,0

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


EPLOT
!*ASK,a,ETO MELKAYA SETKA

LSEL,S,LINE,,1
!LSEL,S,LINE,,1,7
NSLL,,1 ! 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

!*GO,:1

/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,LINE,,2 ! APPLY REMAINING BOUNDARY CONDITIONS
NSLL,S
D,ALL,UX

FINISH
/SOLU
SOLVE
FINISH
/POST1
!SET,1,1
!PLNSOL,SX


CSYS,1
PATH,KRUG,2,,100
PPATH,1,,0,H/2+RS,0
PPATH,2,,RS,H/2,0
PPATH,3,,0,H/2-RS,0

PDEF,SEQVT,S,EQV


PLPATH,SEQVT

*GET,SS,PATH,0,MAX,SEQVT


FINISH
:1