!1
/filname,truss
/title,STATIC ANALYSIS OF A Space-Truss
!2ǰ
/prep7 	
!3嵥Ԫ	
et,1,beam188 	!Ԫ
et,2,link8 	!˵Ԫ
!4ʵ
r,1,1900, , 	!˵Ԫʵ
r,2,960.6, , 	!˵Ԫʵ
!5ϲ
mp,ex,1,2.06e5 	!ϵģ
mp,prxy,1,0.3 	!ϲɱ
mp,dens,1,7.85e-9 	!ܶ
!6ûԶļ
sectype,1,beam,mesh, 	!Ԫ漰ID
secoffset,user,0,37.5, 	!ָƫþ
secread,'DLA','sect',' ',mesh 	!
!7ʾûԶ
SECPLOT,   1,1  
!8Ҫ
sectype,2, beam, chan, , 0 	!IDΪ2
secoffset, user, 24, 50 	!ָƫ
!ָ۸ĳߴ
secdata,48,48,100,5.3,5.3,5.3,0,0,0,0 
sectype,3, beam, l, , 0	!ָIDΪ3
secoffset,cent 	!ƫ
secdata,50,50,5,5,0,0,0,0,0,0 	!ָLνĳߴ
!9˵Ĺؼ
k,	!ؼ10
k,33,19200	!ؼ33
!10ؼ
kfill 	!ڱΪ133Ĺؼ֮Ⱦ
!11γҹؼ
kgen,2,all, , , ,500, ,33,0 	!ƹؼ
!12һܼģ͵ֱ
*do,i,1,32 	!ͨѭ߶
l,i,i+1                     
l,i+33,i+34  
*enddo
*do,i,1,31,2                             
l,i,i+34
l,i+2,i+34  
*enddo  
l,1,34 	!ֱ
l,33,66 	!ֱ
!13ռԪķλؼ
k,100,0,1000 	!Ϊ100Ĺؼ
k,101,19500  	!ؼ㣬Ϊ101
!14ָߵĵԪ
lsel,s,length,,600 	!ѡ񳤶Ϊ600߶
latt,1,1,1, ,     100, ,1 	!
allsel 	!ָѡȫ߶
lsel,s,length,,500 	!ѡ񳤶Ϊ500ֱ
latt,1,1,1, ,     101, ,2 	!ѡֱߵ߶
allsel 	!ָѡȫ߶
lsel,s,length,,700,800 	!ѡֱ߳700800ֱ֮
lsel,u,line, ,65,96,31 	!¼вѡΪ6596б
latt,1,2,2, , , ,1 	!ѡֱ߸Ԫ
allsel 	!ָѡȫ߶
lsel,s,line, ,65,96,31 	!ѡб
latt,1,1,2, , , ,1	!б߸
allsel 	!ָѡȫ߶
lesize,all, , ,1, , , , ,0 	!ָ߻ַ
!15߶λֵԪ
lmesh,all 	!߽񻮷
!16ѹڵ
numcmp,all  	!нڵŽѹ
!17һ
ngen,2,132,all, , , , ,500,1,	!нڵ
egen,2,132,all, , , , , , , , , ,500, 	!ƵԪ
!18֮ĺ
type,   1	!ָ㵥ԪΪ1
mat,       1  	!ָϱΪ1
real,       1	!ָʵΪ1
secnum,   3	!ָΪ3
*do,i,5,129,4   	!ֱӷԪ
e,i,i+132 
*enddo  
*do,i,7,127,4   
e,i,i+132   
*enddo  
e,4,136 	!дѭĵԪ
e,1,133 
e,2,134 
!19ʾԪ״
eplot 	!ʾĵԪ
/eshape,1, 	!ʾԪ״
/rep	!»ͼ
!20˳ǰ,ģʹ
Finish
!21
/solu      	!
!22ʩԼ                         
d,1,,,,,,ux,uy,uz,,,  	!Խڵ1ʩλԼ
d,133,,,,,,ux,uy,uz,,, 	!Խڵ133ʩλԼ
d,127,,,,,,uy,uz,,,,  	!Խڵ127ʩԼ
d,259,,,,,,uy,uz,,,,  	!Խڵ259ʩyzԼ
