!ֱΪ1015 cm 
!֧Ϊ1300 kN
!ӶΪ150 mm ,l/ 400 = 170 mm 
!ļΪnet
D1=0.03
A1=3.1415926*D1*D1/4
D2=0.02
A2=3.1415926*D2*D2/4
ISTR=0.005
ro=7800
/filname,net
/prep7
et,1,link8
et,2,link10
r,1,A1
r,2,A2,ISTR
SSTIF,ON            
mp,ex,1,2.1e11
mp,prxy,1,0.3
mp,dens,1,ro

!ϲ
n,1
n,2,2
n,3,4
n,4,6
n,5,8
n,6,10
ngen,21,6,1,6,1,,,-2
save
*do,i,1,5,1
e,i,i+1
*enddo
egen,21,6,1,5,1
save
/view,1,1,1,1
eplot

*do,i,1,115,6
e,i,i+6
*enddo
egen,6,1,106,125,1
save



!²
n,1001,1,-2,-1
n,1002,3,-2,-1
n,1003,5,-2,-1
n,1004,7,-2,-1
n,1005,9,-2,-1
ngen,20,6,1001,1005,1,,,-2
*do,i,1001,1004,1
e,i,i+1
*enddo
egen,20,6,226,229,1
save

*do,i,1001,1109,6
e,i,i+6
*enddo
egen,5,1,306,324,1
save

!ײ㲿
n,2001,3,-6,-10
n,2002,7,-6,-10
ngen,3,30,2001,2002,1,,,-10
save

e,2001,2002
egen,3,30,401
e,2001,2031
e,2031,2061
e,2002,2032
e,2032,2062
eplot

!б(ϣ²)
*do,i,1001,1005,1
e,i,i-1000
e,i,i-999
e,i,i-994
e,i,i-993
*enddo
egen,20,6,408,427,1


!бˣ£ײ䣩
e,2001,1019
e,2001,1021
e,2001,1037
e,2001,1039
e,2002,1021
e,2002,1023
e,2002,1039
e,2002,1041
egen,3,30,808,815,1

!
n,3001,3,-6,-10
n,3002,7,-6,-10
ngen,3,30,3001,3002,1,,,-10
type,2
real,2
e,1002,3001
e,3001,3031
e,3031,3061
e,3061,1116
e,1004,3002
e,3002,3032
e,3032,3062
e,3062,1118
!ײڵYλƵԼ
cp,1,uy,2001,3001
cp,2,uy,2002,3002
cp,3,uy,2031,3031
cp,4,uy,2032,3032
cp,5,uy,2061,3061
cp,6,uy,2062,3062
save
finish

/solu
nsel,s,loc,z,-1
nsel,a,loc,z,-39
nplot
d,all,all
allsel
eplot
!ǰĶû
acel,,9.8
f,2031,fy,-500000
f,2032,fy,-500000

time,2
nsub,5
solve


!һ浽net.lgwļ
finish

/post1
pldisp,1
etable,evol,volu
ssum
*get,vtot,ssum,,item,evol
wt=ro*vtot
*GET,uy,NODE,2032,U,Y

*status,parm
!ǰȷ
! LGWRITE,net,lgw,G:\yezi\ANSYSC~1\check\6-1\,COMMENT
finish
/opt                       !Ż
OPANL,'net','lgw',' '             !ָļ
opvar,D1,DV,0.02,0.04    !Ʊ
opvar,D2,DV,0.01,0.02    
opvar,ISTR,DV,0.002,0.006
opvar,uy,SV,-0.17,-0.1       !״̬
opsave,netvar,opt        !洢
opvar,wt,obj,,,0.1,        !Ŀ꺯

optype,subp             !һ׷
opsubp,45                !45ε
opexe                     !ʼŻ

oplist,all                !г






