24小时热门版块排行榜    

Znn3bq.jpeg
查看: 629  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[高分子] 本人最近太闲了,谁有问题可以提,每天会统一回复 +9 一切都是空工 2026-05-12 20/1000 2026-05-16 19:52 by Equinoxhua
[基金申请] 重磅!青年科学基金项目(C类)资助增幅预计超过50% +6 水和泥不是水泥 2026-05-13 8/400 2026-05-16 19:50 by Equinoxhua
[有机交流] 求助2,4-二氯-5-嘧啶甲醛的合成方法 20+3 光吃不拉 2026-05-14 6/300 2026-05-16 19:46 by Equinoxhua
[基金申请] 精华III评审感受-评审感受-评审感受 +15 ferrarichen 2026-05-11 19/950 2026-05-16 19:44 by Equinoxhua
[博后之家] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-16 19:10 by j6b2pdz07o
[找工作] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 3/150 2026-05-16 18:35 by j6b2pdz07o
[论文投稿] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 v9tggjlwd0 2026-05-15 3/150 2026-05-16 17:30 by j6b2pdz07o
[考博] 光量子物理方向 博士招生 1人(2026.09) +3 sandyworld 2026-05-15 3/150 2026-05-16 17:11 by zznnnj
[有机交流] 求有机合成大神指点三硫酸乙烯酯(CAS:2793408-99-6)的合成路线 30+3 Leekmid 2026-05-13 10/500 2026-05-16 16:37 by czyzsu
[有机交流] 如何实现卤原子转化 10+3 BT20230424 2026-05-15 5/250 2026-05-16 16:20 by czyzsu
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +5 cjf4bx70cj 2026-05-14 6/300 2026-05-16 16:17 by 0i5p09z61n
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-16 13:57 by vcdazktkjx
[硕博家园] 考博自荐 +3 科研狗111 2026-05-13 4/200 2026-05-16 11:45 by 科研狗111
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 6/300 2026-05-16 11:29 by h3oerqvkv9
[硕博家园] 申请博士 +3 呃?呃 2026-05-15 3/150 2026-05-16 11:01 by a4742549
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 5/250 2026-05-16 04:29 by k37jurhrau
[教师之家] 上海大学实验技术岗位非升即走 +5 嘻嘻哈哈乐呵呵 2026-05-15 5/250 2026-05-16 00:17 by caiyun
[文学芳草园] 风把牡丹吹跑了 +5 myrtle 2026-05-12 9/450 2026-05-15 15:27 by myrtle
[教师之家] 教学课件你会给同学吗 +8 硕士研究生吗 2026-05-13 8/400 2026-05-14 22:23 by 常规沥青
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
信息提示
请填处理意见