level 3
要什么名字菜
楼主
我自己的代码如下:
model restore 'ini.f3sav'
fish define mg7
global x= 11
loop while x<40
command
structure cable create by-line (@璐村惂鐢ㄦ埛_00000EM馃惥 2 24) (@x 2 30) id 1 segments 8
structure cable create by-line (@x 3 24) (@x 3 30) id 1 segments 8
structure cable create by-line (@x 4 24) (@x 4 30) id 1 segments 8
endcommand
x=x+2
endloop
global m= 1
global n1 =1 ; mt
global n2 = 1 ;;start_component
global n3 =4 ; free-end
global n4 =5; grout-start
global n5 =8 ; grout-end
loop while m<=45 ;number_mg
command
structure link delete range component-id @N1 ;link_jd
structure link create on-nodeid @n1 target zone ;link_jd
structure cable property cross-section-area=1.75e-3 young=210e9 yield-tension=5e8 yield-compression 5e8...
grout-stiffness=0 grout-cohesion=0 grout-perimeter 0.0875 grout-friction 0 range component-id @n2,@n3 ;zyd component_jd
structure cable property cross-section-area=1.75e-3 young=210e9 yield-tension=5e8 yield-compression 5e8...
grout-stiffness=1.75e7 grout-cohesion=2e7 grout-perimeter 0.0785 grout-friction 30 range component-id @n4,@n5
structure cable apply tension value 60e3 range component-id @n2 @n3;yy
endcommand
m=m+1
n1=n1+9
n2=n2+8
n3=n3+8
n4=n4+8
n5=n5+8
endloop
command
model solve convergence 1
struct cable apply tension active off
zone delete range group 'hd'
model solve
model save 'mg7'
endcommand
end
@mg7
哪位老哥可以解决问题,费用好商量。麻烦各位了
2021年04月28日 09点04分
1
model restore 'ini.f3sav'
fish define mg7
global x= 11
loop while x<40
command
structure cable create by-line (@璐村惂鐢ㄦ埛_00000EM馃惥 2 24) (@x 2 30) id 1 segments 8
structure cable create by-line (@x 3 24) (@x 3 30) id 1 segments 8
structure cable create by-line (@x 4 24) (@x 4 30) id 1 segments 8
endcommand
x=x+2
endloop
global m= 1
global n1 =1 ; mt
global n2 = 1 ;;start_component
global n3 =4 ; free-end
global n4 =5; grout-start
global n5 =8 ; grout-end
loop while m<=45 ;number_mg
command
structure link delete range component-id @N1 ;link_jd
structure link create on-nodeid @n1 target zone ;link_jd
structure cable property cross-section-area=1.75e-3 young=210e9 yield-tension=5e8 yield-compression 5e8...
grout-stiffness=0 grout-cohesion=0 grout-perimeter 0.0875 grout-friction 0 range component-id @n2,@n3 ;zyd component_jd
structure cable property cross-section-area=1.75e-3 young=210e9 yield-tension=5e8 yield-compression 5e8...
grout-stiffness=1.75e7 grout-cohesion=2e7 grout-perimeter 0.0785 grout-friction 30 range component-id @n4,@n5
structure cable apply tension value 60e3 range component-id @n2 @n3;yy
endcommand
m=m+1
n1=n1+9
n2=n2+8
n3=n3+8
n4=n4+8
n5=n5+8
endloop
command
model solve convergence 1
struct cable apply tension active off
zone delete range group 'hd'
model solve
model save 'mg7'
endcommand
end
@mg7
哪位老哥可以解决问题,费用好商量。麻烦各位了