- 积分
- 0
- 注册时间
- 2004-2-2
- 仿真币
-
- 最后登录
- 1970-1-1
|
包括以下内容：
几何
belongto.f
| 确定一个条目是否属于一个指定的集。
| get_geometry.f
| 使在单元循环中被调用的任何用户子程序得到几何输入数据。
| ufcom_mfd.f
| 从一个有格式的Mentat文件中读单元节点编号。
| ufxfor_mfd.f
| 从一个有格式的Mentat文件中读节点坐标数据。
| variable_composite_
layer_thicknss.f
| 让用户修改复合材料层厚度。
|
边界条件
contact_pr_2d.f
| 计算接触压力。需要在程序中设特定的单元边号，调用子程序 `getdis.f'
来提取变形后的坐标。plotv.f, ufconn.f, ufxord.f
| contact_pr_3d.f
| 上一个子程序的3D版。需要在程序中设一个特定的面号。
plotv.f, ufconn.f, ufxord.f
| contchk.f
| 列出所有接触节点及相应的接触力。也可用于判断节点是retained还是tied。
| cont-flux.f
| 在接触的单元边上施加热流，热流大小由接触压力确定。仅限于2D分析， 但可扩展到3D分析。在耦合分析中，不能用于在刚性热传导物体上施加热流。用法与pr-leak.f类似。
flux.f，uedinc.f
| forcdt_follow_for_
type_1.f
| 在二点上定义跟随载荷，使载荷方向总是沿着二点连线。
| forcdt_follow_for_
type_2.f | 在一个节点上定义跟随载荷，使载荷方向总是指向空间一个固定点
| forcdt_switch_off_
bcs1.f
| 取消运动边界条件。
| forcem_angular_
acceration.f
| 在静力分析中施加一个角加速度作为分布载荷。
| forcem_contact_
edges.f
| 如果单元边相互之间不接触，在边上施加压力。
|
pr-leak.f
| 用于检测接触。当单元接触时，不施加压力；当单元不接触时，施加本模块给定的压力。
本版本采用一个任意大的数来静态分配二个存储数组。 只能检测四节点2D连续单元。例题文件：tseal.dat
forcem.f, plotv.f
| pr-leak2.f
| 用于检测接触。当单元接触时，不施加压力；当单元不接触时，施加本模块给定的压力。
本版本采用一个任意大的数来静态分配二个存储数组。 只能检测四节点2D连续单元。例题文件：test2.mud, test2_adp.mud
ubginc.f, forcem.f, plotv.f
|
材料
hypela-ex1.f
| 采用用户子程序HYPELA 定义材料本构模型的实例。用户用它定义随应变变化的弹性模量和泊松比，用于非线性弹性大应变材料。
| hypela-ex2.f
| HYPELA 定义材料本构模型的实例
| hypela-ex3.f
| HYPELA 定义材料本构模型的实例
| orient.f
| 采用anisotropic选项时，定义材料方向。
orient.f
| orient._cylindrical_
2D.f
| 在2D分析中，在柱坐标系下定义喜欢的方向。
| orient._cylindrical_
3D.f
| 在3D分析中，在柱坐标系下定义喜欢的方向。
| orient._cylindrical_
3D_alpha.f
| 在3D分析中，在带有一个偏置角的柱坐标系下定义喜欢的方向。
| Orient._spherical_
3D.f
| 在3D分析中，在球坐标系下定义喜欢的方向。
|
spf.f
| 在SPF中采用以下用户编制的子程序：
forcem.f….根据材料定律及目标应变控制压力；
plotv.f…...为后处理写出计算的压力；
uedinc.f …当xx % 的节点进入接触后，停止运算（xx 为
用户在程序中设置）；
uinstr.f…..在开始的几个增量步中对膜置予应力；
urpflo.f….材料流动定律；
stress1.f…被urpflo 调用。
| upstrech.f
one.dat
| UPSTRECH用户子程序的实例。与Marc 程序为Ogden 材料类编写的程序相同。文件one.dat 不任有无用户子程序都可运行且结果相同。
|
后处理
cord-angle.f
| 用于计算在变形架构中芯的角度的用户子程序。芯—橡胶复合材料分析是在 架构中进行的，因此只有初始芯角信息。此子程序可用于以下产品：轮胎，空气弹簧，胶皮管，自动捡出器，和夹子（广而言之任意芯—橡胶复合材料结构）。
| cyl-trans.f
pressfit.mud
| 将一个应力或应变张量转换到极坐标下，同时将当前坐标和位移到极坐标下。
| def-nodes.f
| 打印变形后的节点坐标。
| electric_power.f
| 计算电流，功率和阻抗 (K7版使用)。
| electric_inertia_
tensor.f
| 计算3D有限元模型的惯性张量。
| elevar_momentun.f
| 计算两个碰撞物体的冲量及动能。
| nonunif-pr.f
nonunif-pr.mud
| 在选取的单元面上施加线性变化的压力载荷。
| pk2cauchy..f
| 从PK2应力计算柯西应力。
| plotv_crack_
indicator.f
| 在一些至少有一层已有裂纹的高斯点上给定标识。
| plotv_cylindrical_
stress.f
| 将应力张量转换到柱坐标系下。
| plotv_magnetostatic.f
| 在稳态磁场分析时，计算电磁密度，能量和余能。
| plotv_principal_
values.f
| 计算张量主值。
| plotv_spherical_
stress.f
| 将应力张量转换到球坐标系下。
| plotv_tresca.f
| 计算Tresca等效应力。
| plotv_visco.f
| 在粘弹性分析中打印每个Prony 序列项的应力。
| princa.f
| 计算（应力，应变）主值。
计算工程应力和工程应变的主值。
plotv.f
| pthick.f
| 计算2D问题的厚度。
plotv.f
|
res-stress.f
| 从以前的后处理文件中读塑性应变及残余应力。需要一个名为“form”的文件。（与rezoning 一起作用）
uinstr.f, initpl.f, plotv.f
| rezone.f
| 将位移输出到一个文件中。
impd.f
| tot-energy-2d-2.f
| 计算一个单元的面积和总能量（=能量密度*面积）。假定为单位厚度。
plotv.f (利用shp003.f 计算面积)
| tot-energy-3d-2.f
| 计算一个单元的体积和总能量（=能量密度*体积）。
plotv.f (利用shp007.f 计算体积)
| upostv.f
| 为在Mentat中的后处理提取位移修正量（位移余量的计数器）。
| upostv_contact_
status.f
| 如果一个节点与其它物体相接触，给它一个标识值。
| upostv_tying_force.f
| 在后处理文件中存入tying节点的相互作用力。
|
拿来和兄弟们分享，不知道对各位有没有帮助，虽然已经不用MARC好多年。 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？注册
×
评分
-
1
查看全部评分
-
|
IP卡
狗仔卡
发表于 2008-5-3 16:31:13
提升卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
