应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » ANSYS & ABAQUS » 求 大神看一下这段程序什么意思
91/1返回列表
查看: 1749  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

坏脾气磊楚

铜虫 (初入文坛)

[求助] 求 大神看一下这段程序什么意思 已有1人参与

/SOL  
ANTYPE,4  
TRNOPT,FULL
LUMPM,0
*DEL,_FNCNAME   
*DEL,_FNCMTID   
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNCCSYS   
*SET,_FNCNAME,'GAOSI'   
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*SET,_FNC_C1(1),QM  
*SET,_FNC_C2(1),V   
*SET,_FNC_C3(1),R   
*SET,_FNCCSYS,0
! /INPUT,HANJIE.func,,,1      这个地方是要自己手动导入HANJIE.func么？？
*DIM,%_FNCNAME%,TABLE,6,19,1,,,,%_FNCCSYS%  
!   
! Begin of equation: Qm*exp(-3*({X}^2+({Y}-V*{TIME})^2)/R^2)            这个地方又是什么意思？？
*SET,%_FNCNAME%(0,0,1), 0.0, -999   
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), %_FNC_C1(1)%
*SET,%_FNCNAME%(4,0,1), %_FNC_C2(1)%
*SET,%_FNCNAME%(5,0,1), %_FNC_C3(1)%
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, -1, 0, 0, 0, 0, 0  
*SET,%_FNCNAME%(0,2,1), 0.0, -2, 0, 1, 0, 0, -1
*SET,%_FNCNAME%(0,3,1),   0, -3, 0, 1, -1, 2, -2
*SET,%_FNCNAME%(0,4,1), 0.0, -1, 0, 3, 0, 0, -3
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 1, -3, 3, -1
*SET,%_FNCNAME%(0,6,1), 0.0, -1, 0, 2, 0, 0, 2  
*SET,%_FNCNAME%(0,7,1), 0.0, -3, 0, 1, 2, 17, -1
*SET,%_FNCNAME%(0,8,1), 0.0, -1, 0, 1, 18, 3, 1
*SET,%_FNCNAME%(0,9,1), 0.0, -4, 0, 1, 3, 2, -1
*SET,%_FNCNAME%(0,10,1), 0.0, -1, 0, 2, 0, 0, -4
*SET,%_FNCNAME%(0,11,1), 0.0, -5, 0, 1, -4, 17, -1  
*SET,%_FNCNAME%(0,12,1), 0.0, -1, 0, 1, -3, 1, -5   
*SET,%_FNCNAME%(0,13,1), 0.0, -3, 0, 1, -2, 3, -1   
*SET,%_FNCNAME%(0,14,1), 0.0, -1, 0, 2, 0, 0, 19
*SET,%_FNCNAME%(0,15,1), 0.0, -2, 0, 1, 19, 17, -1  
*SET,%_FNCNAME%(0,16,1), 0.0, -1, 0, 1, -3, 4, -2   
*SET,%_FNCNAME%(0,17,1), 0.0, -1, 7, 1, -1, 0, 0
*SET,%_FNCNAME%(0,18,1), 0.0, -2, 0, 1, 17, 3, -1   
*SET,%_FNCNAME%(0,19,1), 0.0, 99, 0, 1, -2, 0, 0
! End of equation: Qm*exp(-3*({X}^2+({Y}-V*{TIME})^2)/R^2)    这里呢？？？
TUNIF,20, !定义初始温度
!定义对流换热边界
SFA,15,1,CONV,30,20
SFA,20,1,CONV,30,20

SFA,9,1,CONV,30,20
SFA,14,1,CONV,30,20
SFA,19,1,CONV,30,20
SFA,24,1,CONV,30,20
SFA,23,1,CONV,30,20

SFA,7,1,CONV,30,20
SFA,12,1,CONV,30,20
SFA,17,1,CONV,30,20
SFA,22,1,CONV,30,20

SFA,1,1,CONV,30,20
SFA,2,1,CONV,30,20
SFA,3,1,CONV,30,20
SFA,4,1,CONV,30,20

!施加高斯热源  
SFA,5,1,HFLUX, %GAOSI%  
SFA,10,1,HFLUX, %GAOSI%  

OUTRES,ALL,ALL,

TIME,L/V !设置求解时间
AUTOTS,-1   
NSUBST,50,50,50
KBC,0   
TSRES,ERASE
LSWRITE,1,  !写入载荷文件为1
TIME,20
AUTOTS,1
NSUBST,20,20,20
KBC,0   
TSRES,ERASE
LSWRITE,2,

TIME,50
AUTOTS,1
NSUBST,30,30,30
KBC,0   
TSRES,ERASE
LSWRITE,3,

TIME,1100
AUTOTS,1
NSUBST,105,105,105
KBC,0     
TSRES,ERASE
LSWRITE,4,
  
LSSOLVE,1,4,1,  !开始求解
  刚开始学习ansys，一头雾水啊。求大神帮帮忙。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2016-02-18 12:56:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shgao20

专家顾问 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
坏脾气磊楚: 金币+10, ★★★★★最佳答案 2016-02-20 14:50:36
命令流太长，不给你详细解释了，只说几句：
1  这段命令流是使用函数加载进行瞬态分析。
2  函数文件名是 gaosi.fuc，已经读入到命令流中，应该是高斯热源：
    从  ! Begin of equation: Qm*exp(-3*({X}^2+({Y}-V*{TIME})^2)/R^2)            这个地方又是什么意思？？
    到  ! End of equation: Qm*exp(-3*({X}^2+({Y}-V*{TIME})^2)/R^2)    这里呢？？？
  之间是函数定义部分。这两句中给出了相应的函数方程，是随时间和 (圆柱) 坐标变化的。
3  载荷条件：
    初始温度 20 度；
    在 15 个面上有对流载荷；
    在面 5 和 10 上有高斯热源。
    然后分为 4 个载荷步进行求解。
更具体的内容，你可以对照帮助文件自己解决。
赞一下(1人) 回复此楼

» 本帖已获得的红花（最新10朵）

坏脾气磊楚
2楼2016-02-19 08:14:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

坏脾气磊楚

铜虫 (初入文坛)
送红花一朵
引用回帖:
2楼: Originally posted by shgao20 at 2016-02-19 08:14:22
命令流太长，不给你详细解释了，只说几句：
1  这段命令流是使用函数加载进行瞬态分析。
2  函数文件名是 gaosi.fuc，已经读入到命令流中，应该是高斯热源：
    从  ! Begin of equation: Qm*exp(-3*({X}^2+({ ...

非常谢谢你。太感谢了

发自小木虫IOS客户端
赞一下 回复此楼
3楼2016-02-20 13:26:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

坏脾气磊楚

铜虫 (初入文坛)
引用回帖:
2楼: Originally posted by shgao20 at 2016-02-19 08:14:22
命令流太长，不给你详细解释了，只说几句：
1  这段命令流是使用函数加载进行瞬态分析。
2  函数文件名是 gaosi.fuc，已经读入到命令流中，应该是高斯热源：
    从  ! Begin of equation: Qm*exp(-3*({X}^2+({ ...

你好，这下边一段我看了帮助文件感觉还是不大懂。能否帮忙分析一下？
L=1E-1
V=0.01

TIME,L/V !设置求解时间
AUTOTS,-1   
NSUBST,50,50,50
KBC,0   
TSRES,ERASE
LSWRITE,1,  !写入载荷文件为1
TIME,20
AUTOTS,1
NSUBST,20,20,20
KBC,0   
TSRES,ERASE
LSWRITE,2,

TIME,50
AUTOTS,1
NSUBST,30,30,30
KBC,0   
TSRES,ERASE
LSWRITE,3,

TIME,1100
AUTOTS,1
NSUBST,105,105,105
KBC,0     
TSRES,ERASE
LSWRITE,4,
  
LSSOLVE,1,4,1,  !开始求解
赞一下 回复此楼
4楼2016-02-20 14:44:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shgao20

专家顾问 (职业作家)

【答案】应助回帖

具体哪个 (些) 命令不明白，请说明。
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

坏脾气磊楚
5楼2016-02-21 08:14:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

坏脾气磊楚

铜虫 (初入文坛)
引用回帖:
5楼: Originally posted by shgao20 at 2016-02-21 08:14:31
具体哪个 (些) 命令不明白，请说明。

不好意思麻烦你了，
NSUBST,50，50，50    类似的这些命令，是什么意思
赞一下 回复此楼
6楼2016-02-21 19:42:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

坏脾气磊楚

铜虫 (初入文坛)
送红花一朵
引用回帖:
5楼: Originally posted by shgao20 at 2016-02-21 08:14:31
具体哪个 (些) 命令不明白，请说明。

具体到，这一段：
TIME,L/V !设置求解时间
AUTOTS,-1   
NSUBST,50,50,50
KBC,0   
TSRES,ERASE
LSWRITE,1,  !写入载荷文件为1
是什么作用？
赞一下 回复此楼
7楼2016-02-21 19:50:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shgao20

专家顾问 (职业作家)

【答案】应助回帖

具体到这一段，是用来定义第一个载荷步的一些参数，并写入载荷步文件：
  TIME,L/V           !设置求解时间     第一个载荷步的计算终止时间： L/V = 1E-1 / 0.01 = 10
  AUTOTS,-1           !设置是否打开自动时间步： -1 表示有程序选择  
  NSUBST,50,50,50          ! 设置第一个载荷步的初始子步数、最大子步数和最小子步数。这里三个参数相等，表示子步数 50 不变。
  KBC,0             !  设置加载方式为 0  - Ranped 方式 - 斜坡方式
  TSRES,ERASE           ! 可以使用数组指定必须输出结构的时间，ERASE 表示不指定
  LSWRITE,1,  !写入载荷文件为1
这些命令帮助文件中都有详细说明，你应该自己看过帮助文件后在提出搞不懂的地方。
这里解释一次，下不为例。
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

坏脾气磊楚
8楼2016-02-22 07:48:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

坏脾气磊楚

铜虫 (初入文坛)
送红花一朵
引用回帖:
8楼: Originally posted by shgao20 at 2016-02-22 07:48:41
具体到这一段，是用来定义第一个载荷步的一些参数，并写入载荷步文件：
  TIME,L/V           !设置求解时间     第一个载荷步的计算终止时间： L/V = 1E-1 / 0.01 = 10
  AUTOTS,-1           !设置是否打开自动 ...

嗯，谢谢你了

发自小木虫IOS客户端
回复此楼
9楼2016-02-22 12:40:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 坏脾气磊楚 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭