24小时热门版块排行榜    

查看: 662  |  回复: 0

yong0119

木虫 (正式写手)

[交流] Ansys导出txt格式应变的程序

*cfopen,strain,ist
*get,nelm,elem,0,count
*dim,ndlst,array,nelm,4
*dim,inistrain,array,nelm,6
*dim,elems,array,nelm
*dim,elp,array,4
elp(1)=1
elp(2)=2
elp(3)=3
elp(4)=4
*get,el,elem,0,num,min
*do,i,1,nelm,1
*vwrite,
(1x,"/dtyp,epel"
*vwrite,
(1x,"/csys,0"
elems(i)=el
*do,j,1,4,1
ndlst(i,j)=nelem(el,j)
*get,inistrain(i,1),node,ndlst(i,j),epel,x
*get,inistrain(i,2),node,ndlst(i,j),epel,y
*get,inistrain(i,3),node,ndlst(i,j),epel,z
*get,inistrain(i,4),node,ndlst(i,j),epel,xy
*get,inistrain(i,5),node,ndlst(i,j),epel,yz
*get,inistrain(i,6),node,ndlst(i,j),epel,xz
a1=inistrain(i,1)
a2=inistrain(i,2)
a3=inistrain(i,3)
a4=inistrain(i,4)
a5=inistrain(i,5)
a6=inistrain(i,6)
a7=elp(j)
*vwrite,el,chrval(a7),'1','1',a1,a2,a3,a4,a5,a6
(9x,f6.0,tl1,',',13x,a1,',',13x,a1,',',13x,a1,',',2x,f14.11,',',2x,f14.11,',',2x,f14.11,',',2x,f14.11,',',2x,f14.11,',',2x,f14.11)
*enddo
el=elnext(el)
*enddo
*cfclos
回复此楼
欢迎失效分析案例咨询
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

相关版块跳转 我要订阅楼主 yong0119 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 EZ67DG6CvcKL 2026-08-31 4/200 2026-09-01 01:30 by o3EMxHUAQDtS
[考博] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 EZ67DG6CvcKL 2026-08-31 4/200 2026-09-01 01:30 by o3EMxHUAQDtS
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 EZ67DG6CvcKL 2026-08-31 3/150 2026-08-31 22:12 by o3EMxHUAQDtS
[基金申请] 基金未中,这种答复是模板吗? +6 zhaosm1982 2026-08-27 7/350 2026-08-31 21:18 by qdxxmc
[基金申请] 面上意见出来了 +12 黄鸟于飞Chao 2026-08-29 23/1150 2026-08-31 18:57 by 黄鸟于飞Chao
[基金申请] 中青基了要发朋友圈吗? +7 349506619 2026-08-28 7/350 2026-08-31 13:39 by 冼亮淀粉酶
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 为什么到现在没收到通知? +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
信息提示
请填处理意见