24小时热门版块排行榜    

查看: 1837  |  回复: 10

XNWYQ

禁虫 (小有名气)

本帖内容被屏蔽

已阅   关注TA 给TA发消息 送TA红花 TA的回帖

小木虫: 金币+0.5, 给个红包,谢谢回帖
使用 APDL 编程可以做到的。大概思路是:
    进入时间历程后处理
    *get, n_set, SET, nset,       !  获取总的结果组数,赋予 n_set
    str1_max = 0                    !  存放第一主应力最大绝对值
    ns1_max = 0                           ! 存放最大主应力  1  的节点号
    str2_max = 0                    !  存放第二主应力最大绝对值
    ns2_max = 0                           ! 存放最大主应力  2  的节点号
    str3_max = 0                    !  存放第三主应力最大绝对值
    ns3_max = 0                           ! 存放最大主应力  3  的节点号
    NSEL,S,ALL
    *get, n_max, NODE, 0, NUM,MAX        !  获取最大节点号,赋予 n_max

    *do, iset, 1, n_set
      set, , , , , , , , iset        !  读取第 iset 组结果
      NSORT,S,1,0,,0,SELECT        !  第一主应力结果按绝对值大小进行排序
      *GET,Ns1,NODE,0,NUM,MAX    !取得第一主应力最大点的节点编号,赋予 ns1
      NUSORT                !恢复缺省的排序方式
      *GET,Str1,NODE,Ns1,S,1    !取得第一主应力最大值,赋予 str1
      
      NSORT,S,2,0,,0,SELECT        !  第二主应力结果按绝对值大小进行排序
      *GET,Ns2,NODE,0,NUM,MAX    !取得第二主应力最大点的节点编号,赋予 ns2
      NUSORT                !恢复缺省的排序方式
      *GET,Str2,NODE,Ns1,S,1    !取得第二主应力最大值,赋予 str2

      NSORT,S,3,0,,0,SELECT        !  第三主应力结果按绝对值大小进行排序
      *GET,Ns3,NODE,0,NUM,MAX    !取得第三主应力最大点的节点编号,赋予 ns3
      NUSORT                !恢复缺省的排序方式
      *GET,Str3,NODE,Ns1,S,3    !取得第二主应力最大值,赋予 str2

      *if, abs(str1), gt, abs(str1_max),then
         str1_max=str1
          ns1_max = ns1
      *endif

      *if, abs(str2), gt, abs(str2_max),then
         str2_max=str2
          ns2_max = ns2
      *endif

      *if, abs(str3), gt, abs(str3_max),then
         str3_max=str3
          ns3_max = ns3
      *endif
    *enddo

  至此,str1_max, str2_max, str3_max 中分别为所以结果中绝对值最大的第一、第二、第三 主应力值, ns1_max, ns2_max, ns3_max 分别为对应的节点编号
  没有验证国,你可以试试,自己修改完善一下。。
10楼2019-01-27 10:17:49
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

XNWYQ

禁虫 (小有名气)

本帖内容被屏蔽

11楼2019-01-27 10:37:22
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
tzynew2楼
2019-01-27 08:33  
XNWYQ(金币+7): 谢谢参与
已获得7个金币 发自小木虫Android客户端
2019-01-27 08:33  
XNWYQ(金币+5): 谢谢参与
已获得5个金币 发自小木虫IOS客户端
cffyau4楼
2019-01-27 08:33  
XNWYQ(金币+8): 谢谢参与
已获得8个金币 发自小木虫Android客户端
2019-01-27 08:34  
XNWYQ(金币+1): 谢谢参与
已获得1个金币 发自小木虫Android客户端
2019-01-27 08:34  
XNWYQ(金币+6): 谢谢参与
已获得6个金币 发自小木虫Android客户端
wxiaona7楼
2019-01-27 08:35  
XNWYQ(金币+7): 谢谢参与
已获得7个金币 发自小木虫IOS客户端
wzlo8楼
2019-01-27 08:36  
XNWYQ(金币+10): 谢谢参与
已获得10个金币 发自小木虫Android客户端
Cherish089楼
2019-01-27 08:37  
XNWYQ(金币+6): 谢谢参与
已获得6个金币 发自小木虫Android客户端
相关版块跳转 我要订阅楼主 XNWYQ 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 6F5UbRU2I5hL 2026-09-14 5/250 2026-09-16 05:11 by LH5NkK5Ud4bh
[博后之家] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 s3fFTmArrBt6 2026-09-14 4/200 2026-09-16 04:27 by DgNGHc3h5tPl
[博后之家] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 s3fFTmArrBt6 2026-09-14 4/200 2026-09-16 04:11 by DgNGHc3h5tPl
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 LwdutQ8HoqWP 2026-09-13 5/250 2026-09-16 03:14 by DgNGHc3h5tPl
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 3n8v2C8RimXI 2026-09-13 5/250 2026-09-16 03:02 by DgNGHc3h5tPl
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +7 QUjhNVAcOSff 2026-09-13 8/400 2026-09-16 02:23 by DgNGHc3h5tPl
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 QUjhNVAcOSff 2026-09-13 5/250 2026-09-16 02:14 by DgNGHc3h5tPl
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +6 QUjhNVAcOSff 2026-09-13 6/300 2026-09-16 02:02 by DgNGHc3h5tPl
[考博] 上海工程技术大学激光智能制造课题组招收博士研究生 +6 两三岁ss 2026-09-14 6/300 2026-09-15 20:17 by 只吃肉葡萄
[考研] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 0pYnUiPDfdnk 2026-09-14 3/150 2026-09-15 19:35 by CgyNCDVNhGVg
[博后之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 40ms4Wlo4umh 2026-09-14 3/150 2026-09-15 19:23 by CgyNCDVNhGVg
[找工作] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 23jxep3nCNZb 2026-09-14 3/150 2026-09-15 18:47 by CgyNCDVNhGVg
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 23jxep3nCNZb 2026-09-14 4/200 2026-09-15 18:11 by CgyNCDVNhGVg
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 s3fFTmArrBt6 2026-09-14 5/250 2026-09-15 16:39 by CgyNCDVNhGVg
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 s3fFTmArrBt6 2026-09-14 5/250 2026-09-15 16:35 by CgyNCDVNhGVg
[找工作] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +6 3n8v2C8RimXI 2026-09-13 6/300 2026-09-15 15:02 by CgyNCDVNhGVg
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +6 QUjhNVAcOSff 2026-09-13 7/350 2026-09-15 14:22 by VMDqgnlKimtZ
[博后之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +6 QUjhNVAcOSff 2026-09-13 7/350 2026-09-15 14:13 by VMDqgnlKimtZ
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +4 6F5UbRU2I5hL 2026-09-14 4/200 2026-09-15 08:02 by C79jjtjAKjEn
[考研] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +5 LwdutQ8HoqWP 2026-09-13 5/250 2026-09-14 22:25 by vZfe6xYu34yj
信息提示
请填处理意见