个人的代码 ---请指正

dutt

ro 0.5
bl 0 0 0 80 100 80 100 0
crack 0 30 100 30
crack 0 34 100 34
crack 40 30 40 34
crack 44 30 44 34
crack 64 30 64 34
jregion id 1 0 0 0 30 100 30 100 0
jregion id 2 0 34 0 80 100 80 100 34
jregion id 3 0 30 0 34 100 34 100 30

jset 0 0 100 0 4 0 4 0 0 0 range jregion 1
jset 90 0 4 0 4 0 4 0 0 0 range jregion 1
jset 90 0 4 0 4 0 4 0 2 4 range jregion 1
jset 0 0 100 0 3 0 3 0 range jregion 2
jset 90 0 3 0 3 0 3 0 0 34 range jregion 2
jset 90 0 3 0 3 0 3 0 1.5 37 range jregion 2
change cons 3
change mat 1 range jregion 1
change mat 2 range jregion 2
change mat 3 range jregion 3
prop mat 1 d 2200 b 7.3e9 s 6e9 f 32 coh 10e6
prop mat 2 d 2150 b 7e9 s 5.6e9 f 33 coh 6e6
prop mat 3 d 1450 b 2e9 s 1e9 f 35 coh 2e6

change jmat 1 range jregion 1
change jmat 2 range jregion 2
change jmat 3 range jregion 3
prop jmat 1 jkn=15e9 jks=6e9 jfric=30 jcoh=5e6
prop jmat 2 jkn=15e9 jks=6e9 jfric=30 jcoh=5e6
prop jmat 3 jkn 5e9 jks 4e9 jcoh 2e6 jfric=35
set grav 0 -10
insitu stress -10e6 0 -10e6 szz -10e6 range -0.1 0.1 0 80
insitu stress -10e6 0 -10e6 szz -10e6 range 99.9 100.1 0 80
bound stress 0 0 -10e6  range 0 100 79.9 80.1
bound xvel 0 range -0.1 0.1 0 80
bound xvel 0 range 99.9 100.1 0 80
bound yvel 0 range 0 100 -0.1 0.1
delete range bl 889  
delete range bl 118
solve
save c.sav
call tec.txt

yuanlin0916

学习一下，谢谢分享

nodding

学习了，非常感谢！