FINISH
/CLEAR
/FILENAME,FRAME_SHEAR_WALL
/TITLE, FRAME_SHEAR_WALL
/PREP7 

!嵥Ԫ
ET,1,BEAM4
ET,2,SHELL63

!ʵ
R,1,0.25,0.0052,0.0052,0.5,0.5
R,2,0.2025,0.0034,0.0034,0.45,0.45
R,3,0.06,0.0002,0.00045,0.3,0.2
R,4,0.25,0.25,0.25,0.25
R,5,0.1,0.1,0.1,0.1

!ϲ
MP,EX,1,3.0E10
MP,NUXY,1,0.2
MP,DENS,1,2500

!ؼ
*DO,II,1,1
   K,   1+(II-1)*20,      0,     0,      (II-1)*6
   K,   2+(II-1)*20,      6,     0,      (II-1)*6
   K,   3+(II-1)*20,      12,    0,      (II-1)*6
   K,   4+(II-1)*20,      17,    0,      (II-1)*6
   K,   5+(II-1)*20,      0,     5,      (II-1)*6
   K,   6+(II-1)*20,      6,     5,      (II-1)*6
   K,   7+(II-1)*20,      12,    5,      (II-1)*6
   K,   8+(II-1)*20,      17,    5,      (II-1)*6
   K,   9+(II-1)*20,      0,     10,     (II-1)*6
   K,   10+(II-1)*20,     6,     10,     (II-1)*6
   K,   11+(II-1)*20,     12,    10,     (II-1)*6
   K,   12+(II-1)*20,     17,    10,     (II-1)*6
   K,   14+(II-1)*20,     6,     1.875,  (II-1)*6
   K,   16+(II-1)*20,     6,     3.125,  (II-1)*6
   K,   18+(II-1)*20,     6,     1.875,  3.9             
   K,   20+(II-1)*20,     6,     3.125,  3.9
*ENDDO

*DO,II,1,10                                      
   K,   1+II*20,      0,     0,         (II-1)*3+6
   K,   2+II*20,      6,     0,         (II-1)*3+6
   K,   3+II*20,      12,    0,         (II-1)*3+6
   K,   4+II*20,      17,    0,         (II-1)*3+6
   K,   5+II*20,      0,     5,         (II-1)*3+6
   K,   6+II*20,      6,     5,         (II-1)*3+6
   K,   7+II*20,      12,    5,         (II-1)*3+6
   K,   8+II*20,      17,    5,         (II-1)*3+6
   K,   9+II*20,      0,     10,        (II-1)*3+6
   K,   10+II*20,     6,     10,        (II-1)*3+6
   K,   11+II*20,     12,    10,        (II-1)*3+6
   K,   12+II*20,     17,    10,        (II-1)*3+6
   K,   13+II*20,     0,     1.875,     (II-1)*3+6
   K,   14+II*20,     6,     1.875,     (II-1)*3+6
   K,   15+II*20,     0,     3.125,     (II-1)*3+6
   K,   16+II*20,     6,     3.125,     (II-1)*3+6
   K,   17+II*20,     0,     1.875,     (II-1)*3+6+1.5     
   K,   18+II*20,     6,     1.875,     (II-1)*3+6+2     
   K,   19+II*20,     0,     3.125,     (II-1)*3+6+1.5     
   K,   20+II*20,     6,     3.125,     (II-1)*3+6+2     
*ENDDO                                        

*DO,II,11,11                                             
   K,   1+II*20,      0,     0,         (II-1)*3+6      
   K,   2+II*20,      6,     0,         (II-1)*3+6      
   K,   3+II*20,      12,    0,         (II-1)*3+6      
   K,   4+II*20,      17,    0,         (II-1)*3+6      
   K,   5+II*20,      0,     5,         (II-1)*3+6      
   K,   6+II*20,      6,     5,         (II-1)*3+6      
   K,   7+II*20,      12,    5,         (II-1)*3+6      
   K,   8+II*20,      17,    5,         (II-1)*3+6      
   K,   9+II*20,      0,     10,        (II-1)*3+6      
   K,   10+II*20,     6,     10,        (II-1)*3+6      
   K,   11+II*20,     12,    10,        (II-1)*3+6      
   K,   12+II*20,     17,    10,        (II-1)*3+6      
   K,   13+II*20,     0,     1.875,     (II-1)*3+6      
   K,   14+II*20,     6,     1.875,     (II-1)*3+6      
   K,   15+II*20,     0,     3.125,     (II-1)*3+6      
   K,   16+II*20,     6,     3.125,     (II-1)*3+6      
   K,   17+II*20,     0,     1.875,     (II-1)*3+6+1.8    
   K,   18+II*20,     6,     1.875,     (II-1)*3+6+2.5  
   K,   19+II*20,     0,     3.125,     (II-1)*3+6+1.8    
   K,   20+II*20,     6,     3.125,     (II-1)*3+6+2.5  
*ENDDO                                                  

*DO,II,12,12                                
   K,   1+II*20,      0,     0,     39.5
   K,   2+II*20,      6,     0,     39.5
   K,   3+II*20,      12,    0,     39.5
   K,   4+II*20,      17,    0,     39.5
   K,   5+II*20,      0,     5,     39.5
   K,   6+II*20,      6,     5,     39.5
   K,   7+II*20,      12,    5,     39.5
   K,   8+II*20,      17,    5,     39.5
   K,   9+II*20,      0,     10,    39.5
   K,   10+II*20,     6,     10,    39.5
   K,   11+II*20,     12,    10,    39.5
   K,   12+II*20,     17,    10,    39.5
*ENDDO

*DO,II,2,13                         
   L,   (II-1)*20+1,   (II-1)*20+2  
   L,   (II-1)*20+2,   (II-1)*20+3  
   L,   (II-1)*20+3,   (II-1)*20+4  
   L,   (II-1)*20+5,   (II-1)*20+6  
   L,   (II-1)*20+6,   (II-1)*20+7  
   L,   (II-1)*20+7,   (II-1)*20+8  
   L,   (II-1)*20+9,   (II-1)*20+10 
   L,   (II-1)*20+10,  (II-1)*20+11 
   L,   (II-1)*20+11,  (II-1)*20+12 
   L,   (II-1)*20+5,   (II-1)*20+9  
   L,   (II-1)*20+6,   (II-1)*20+10 
   L,   (II-1)*20+3,   (II-1)*20+7  
   L,   (II-1)*20+7,   (II-1)*20+11 
   L,   (II-1)*20+4,   (II-1)*20+8  
   L,   (II-1)*20+8,   (II-1)*20+12 
*ENDDO                              

*DO,II,1,12                     
   L,   (II-1)*20+1,    II*20+1 
   L,   (II-1)*20+2,    II*20+2 
   L,   (II-1)*20+3,    II*20+3 
   L,   (II-1)*20+4,    II*20+4 
   L,   (II-1)*20+5,    II*20+5 
   L,   (II-1)*20+6,    II*20+6 
   L,   (II-1)*20+7,    II*20+7 
   L,   (II-1)*20+8,    II*20+8 
   L,   (II-1)*20+9,    II*20+9 
   L,   (II-1)*20+10,   II*20+10
   L,   (II-1)*20+11,   II*20+11
   L,   (II-1)*20+12,   II*20+12
*ENDDO


*DO,II,1,1                     
   L,   (II-1)*20+14,   (II-1)*20+18
   L,   (II-1)*20+16,   (II-1)*20+20
*ENDDO                          

*DO,II,2,12
   L,   (II-1)*20+13,   (II-1)*20+17
   L,   (II-1)*20+15,   (II-1)*20+19
   L,   (II-1)*20+14,   (II-1)*20+18
   L,   (II-1)*20+16,   (II-1)*20+20
*ENDDO

A, 1, 21, 25, 5

*DO,II,2,12
   A, (II-1)*20+1, II*20+1, II*20+5, (II-1)*20+5, (II-1)*20+15, (II-1)*20+19, (II-1)*20+17, (II-1)*20+13
*ENDDO

*DO,II,1,12                                                                                                  
   A, (II-1)*20+2, II*20+2, II*20+6, (II-1)*20+6, (II-1)*20+16, (II-1)*20+20, (II-1)*20+18, (II-1)*20+14
*ENDDO

*DO,II,1,12
   A, II*20+1, II*20+2, II*20+6, II*20+5
   A, II*20+2, II*20+3, II*20+7, II*20+6
   A, II*20+3, II*20+4, II*20+8, II*20+7
   A, II*20+5, II*20+6, II*20+10,II*20+9
   A, II*20+6, II*20+7, II*20+11,II*20+10
   A, II*20+7, II*20+8, II*20+12,II*20+11
*ENDDO

!񻮷
LSEL,S,,,181,192     !ײ
LATT,1,1,1      
LESIZE,ALL,,,10  
LMESH,ALL       

LSEL,S,,,192,324     !212
LATT,1,2,1
LESIZE,ALL,,,5
LMESH,ALL

!񻮷
LSEL,S,,,1,180
LATT,1,3,1,
LESIZE,ALL,,,8
LMESH,ALL

!ǽ񻮷
LSEL,S,,,372     !ǽˡڼǽ
LSEL,A,,,413
LSEL,A,,,461
LESIZE,ALL,,,8

LSEL,s,,,418     !ڼǽ׶
LSEL,A,,,420
LESIZE,ALL,,,3

LSEL,s,,,325     !ڼǽ׶ڲ
LSEL,A,,,326                  
LESIZE,ALL,,,6                

LSEL,S,,,375     !ǽն
LSEL,A,,,379
LSEL,A,,,383
LSEL,A,,,387
LSEL,A,,,391
LSEL,A,,,395
LSEL,A,,,399
LSEL,A,,,403
LSEL,A,,,407
LSEL,A,,,411
LSEL,A,,,415
LSEL,A,,,419
LSEL,A,,,423
LSEL,A,,,427
LSEL,A,,,431
LSEL,A,,,435
LSEL,A,,,439
LSEL,A,,,443
LSEL,A,,,447
LSEL,A,,,451
LSEL,A,,,455
LSEL,A,,,459
LSEL,A,,,463
LESIZE,ALL,,,2

!ǽ񻮷
ASEL,S,,,1,24
AATT,1,4,2
AMESH,ALL

!¥񻮷
ASEL,S,,,25,96
AATT,1,5,2
AMESH,ALL

NSEL,S,LOC,Z,0	ѡȡģ͵׶˽ڵ
D,ALL,ALL	ʩλԼ
ALLSEL,ALL	ѡȡнڵ
                                                                          
