锚杆屈服了怎么改参数啊,请高手看下程序。
def y1positionyp1=0
yp2=0.45
ynumber1=34
ynumber2=14
end
y1position
def cablesite1
yy=yp1
loop yi (1,ynumber1)
command
sel cable id 1 begin 18.74 yy-0.42 end 21 yy 0.4 nseg 4;左帮
sel cable id 1 begin 18.6 yy1.3 end 21 yy 1.3 nseg 4;左帮
sel cable id 1 begin 18.6 yy2.2 end 21 yy 2.2 nseg 4;左帮
sel cable id 1 begin 18.74 yy3.92 end 21 yy 3.1 nseg 4;左帮
sel cable id 1 begin 29 yy0.4 end 31.25yy-0.42 nseg 4;右帮
sel cable id 1 begin 29 yy1.3 end 31.4 yy 1.3 nseg 4;右帮
sel cable id 1 begin 29 yy2.2 end 31.4 yy 2.2 nseg 4;右帮
sel cable id 1 begin 29 yy3.1 end 31.25yy 3.92 nseg 4;右帮
sel cable id 1 begin 21.40 yy 3.5 end 20.57 yy 5.75 nseg 4
sel cable id 1 begin 22.20 yy 3.5 end 22.20 yy 5.9nseg 4
sel cable id 1 begin 23.00 yy 3.5 end 23.00 yy 5.9nseg 4
sel cable id 1 begin 23.80 yy 3.5 end 23.80 yy 5.9 nseg 4
sel cable id 1 begin 24.60 yy 3.5 end 24.60yy5.9 nseg 4
sel cable id 1 begin 25.40 yy 3.5 end 25.40yy 5.9 nseg 4
sel cable id 1 begin 26.20 yy 3.5 end 26.20 yy 5.9nseg 4
sel cable id 1 begin 27.00 yy 3.5 end 27.00 yy 5.9nseg 4
sel cable id 1 begin 27.80 yy 3.5 end 27.80 yy 5.9nseg 4
sel cable id 1 begin 28.60 yy 3.5 end 29.42 yy 5.9nseg 4
end_command
yy=yy+0.9
end_loop
;;锚索1
yy=yp2
loop yi (1,ynumber2)
command
sel cable id 2 begin 22.8yy 3.6 end22.8 yy 11.6 nseg 10
sel cable id 2 begin 25.0yy 3.6 end25.0yy 11.6 nseg 10
sel cable id 2 begin 27.2yy 3.6 end27.2yy 11.6 nseg 10
end_command
yy=yy+2.0
end_loop
end
cablesite1
sel cable id 1 pro emod 4.1e11 xcarea 2.54e-4 gr_per 8.8e-2 yten 18.22e4 gr_k 7.5e9 gr_c 3e6 gr_fric 50
sel cable id 1 pretension 15e3
sel cable id 2 pro emod 4.1e11 xcarea 3.14e-4 gr_per 8.8e-2 yten 18.22e4 gr_k 7.5e9 gr_c 3e6 gr_fric 50
sel cable id 2 pretension 20e3
页:
[1]