Ìú·´óÇÅansys½¨Ä£ÊµÀý

*do,c,1,1*25,1

E,20*25-1+i+c,20*25+i+c *enddo

*do,d,1,1*25,1

E,25*25-1+i+d,25*25+i+d *enddo

*do,e,1,4*25,1

E,27*25-1+i+e,27*25+i+e *enddo

*do,f,1,3*25,1

E,50*25-1+i+f,50*25+i+f *enddo

*do,g,1,1*25,1

E,57*25-1+i+g,57*25+i+g *enddo

*do,h,1,1*25,1

E,60*25-1+i+h,60*25+i+h *enddo

*do,hh,1,1*25,1

E,67*25-1+i+hh,67*25+i+hh *enddo !9½ØÃæ type,1 mat,1

secnum,16

*do,a,1,5*25,1

E,12*25-1+i+a,12*25+i+a *enddo

*do,b,1,1*25,1

E,19*25-1+i+b,19*25+i+b *enddo

*do,c,1,4*25,1

E,21*25-1+i+c,21*25+i+c *enddo

*do,d,1,4*25,1

E,53*25-1+i+d,53*25+i+d *enddo

*do,e,1,1*25,1

E,58*25-1+i+e,58*25+i+e *enddo

*do,g,1,6*25,1

E,61*25-1+i+g,61*25+i+g *enddo

*do,h,1,1*25,1

E,84*25-1+i+h,84*25+i+h *enddo !8½ØÃæ type,1 mat,1 secnum,15 *do,a,1,1*25,1

E,44*25-1+i+a,44*25+i+a *enddo *endif

*SET,j,j+14 *enddo

!********************************************* ! !

!FuGan

! !

!********************************************* /prep7

*SET,j,-14

*do,i,1,(94*25+1)*2,94*25+1 k,i,0,j,0

k,94*25+i,1363.000,j,0 kFILL,i,94*25+i,93,,,,, j=j+14 *enddo

*SET,Nmax1,10000 *SET,j,-14

*do,i,Nmax1+1,Nmax1+(92*25+1)*2,92*25+1 k,i,14.50,j,15.00 k,92*25+i,1348.50,j,15.00 kFILL,i,92*25+i,91,,,,, j=j+14 *enddo

!Á¬½ÓÓÒбÏß1

j=Nmax1+1

*do,n,1,(94*25+1)*2,94*25+1 kk=0

*do,i,n,n-1+20*25,25 lstr,i,j kk=kk+1

*if,kk,eq,1,then latt,1,1,1,,,,21 esize,,25 lmesh,all

*elseif,kk,ge,4,and,kk,le,6,then latt,1,1,1,,,,21 esize,,25 lmesh,all

*elseif,kk,ge,8,and,kk,le,9,then latt,1,1,1,,,,21 esize,,25

lmesh,all

*elseif,kk,eq,7,then latt,1,1,1,,,,23 esize,,25 lmesh,all *else

latt,1,1,1,,,,23 esize,,25 lmesh,all *endif j=j+25

*enddo

j=j+2301-(20-0)*25 *enddo

!Á¬½ÓÓÒбÏß2 j=Nmax1+1+40*25

*do,n,1,(94*25+1)*2,94*25+1 kk=0

*do,i,n+40*25,n-1+60*25,25 lstr,i,j

kk=kk+1

*if,kk,eq,20,then latt,1,1,1,,,,21 esize,,25 lmesh,all

*elseif,kk,ge,3,and,kk,le,9,then latt,1,1,1,,,,21 esize,,25 lmesh,all *else

latt,1,1,1,,,,22 esize,,25 lmesh,all *endif j=j+25

*enddo

j=j+2301-(60-40)*25 *enddo

!Á¬½Ó×óбÏß1 j=Nmax1+19*25+1

*do,n,1,(94*25+1)*2,94*25+1 kk=0

*do,i,n+21*25,n-1+41*25,25 lstr,i,j

kk=kk+1

*if,kk,eq,1,then latt,1,1,1,,,,21 esize,,25 lmesh,all

*elseif,kk,ge,13,and,kk,le,18,then latt,1,1,1,,,,21 esize,,25 lmesh,all *else

latt,1,1,1,,,,22 esize,,25 lmesh,all *endif j=j+25 *enddo

j=j+2301-(41-21)*25 *enddo

!Á¬½Ó×óбÏß2 j=Nmax1+59*25+1

*do,n,1,(94*25+1)*2,94*25+1 kk=0

*do,i,n+61*25,n-1+95*25,25 lstr,i,j kk=kk+1

*if,kk,ge,1,and,kk,le,12,then latt,1,1,1,,,,22

esize,,25 lmesh,all

*elseif,kk,ge,21,and,kk,le,22,then