1)  MSC Dytran
MSC Dytran
1.
Numerical Analysis Based on MSC Dytran Collision Strength of Submarine Structure;
基于MSC Dytran的潜艇结构撞击强度分析
2.
To prove if the safety of high-speed train cab design meets the requirements, the crashworthiness performance is simulated for sandwich panels of a high-speed train cab according to UIC 651 by using MSC Dytran.
为验证高速列车司机室三明治板的被动安全设计是否符合要求,参照UIC651标准运用MSC Dytran软件对某高速列车司机室三明治板的耐碰撞性能进行仿真,分析碰撞后三明治板的变形、应力、能量吸收以及弹头的速度曲线,表明司机室三明治板的耐碰撞结构能满足设计要求。
3.
The crashworthiness is simulated by using MSC Dytran.
为了提高高速轨道列车的安全性,为其头车的主要吸能装置---防撞箱设计较为理想的结构,采用MSC Patran建立防撞箱的有限元分析模型,运用MSC Dytran仿真其耐撞击特性。
2)  MSC-dytran
MSC-Dytran
3)  MSC/DYTRAN
MSC/DYTRAN
1.
The model is calculated by MSC/DYTRAN where the Euler equations are solved with second-order Roe solver, and MSC/PATRAN is used for pre-processing and post pro.
运用动力有限元软件MSC/DYTRAN中的多欧拉—拉格朗日耦合方法,欧拉方程求解时使用具有二阶精度的Roe求解器,用MSC/PATRAN进行前后处理,模拟出了桅杆结构在空中爆炸作用下的变形及破裂。
4)  DYTRAN
DYTRAN
1.
The emulating analysis about cartridge case rupturing based on DYTRAN;
基于DYTRAN的弹壳断裂仿真研究
2.
The FEM using contact between the fragment and shield is built on dytran software as simulation platform,in which the FSP of USA is impacting object and shield the artillery is the bearing object .
以Dytran程序为模拟平台,将美军的碎片模拟弹作为冲击源,地炮防盾为承载体,建立了碎片与防盾接触的有限元模型,并以碎片模拟弹的质量和速度为变量,模拟了不同质量、速度的碎片对防盾的非线性冲击过程,证明了我地面火炮的防盾基本上不具备防美军弹丸碎片冲击的能力。
3.
In this paper, a numerical analysis method in DYTRAN to simulate the dynamic response of a ship subjected to shock waves induced by long distance underwater explosion is proposed.
提出了一个利用 MSC/ DYTRAN数值模拟水面船舶在远距离水下爆炸载荷作用下动力响应的方法。
5)  MSC
MSC
1.
Residual Stress Numerical Simulation of Cold Rolling Board Based on MSC;
基于MSC的板材冷轧残余应力分布的数值仿真
2.
Application of MSC Software in Single Cylinder Engine Design;
MSC软件在单缸柴油机设计中的应用
3.
Research on Formal Description of Component and Composition Pattern Based on MSC;
基于MSC的构件及组装模式形式化描述研究
6)  Patran/Dytran
Patran/Dytran
参考词条
补充资料:ANSYS模型转到MSC.MARC

!ANSYS命令流
! 写单元及节点数据文件
! 作者:陆新征,清华大学土木系
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!选中所有单元
ALLSEL,ALL
! 得到当前模型中的总节点数
*GET,NNode,NODE,,COUNT, , , ,
!输出节点
*CFOPEN,Node,txt
*VWRITE
('coordinates')
*VWRITE,chrval(3),chrval(NNode),chrval(0),chrval(1)
(4A5)
*DO,I,1,NNode
*VWRITE,I,NX(I),NY(I),NZ(I)
(F8.0,3F13.5)
*ENDDO
*CFCLOS


!打开单元文件
*CFOPEN,ELEM,txt
!得到所有单元数
ESEL,S,ENAME,,65
ALLSEL,ALL
*GET,NElem,ELEM,,COUNT, , , ,
*VWRITE,chrval(NElem)
('Number of Element: ', A8)
!对单元集进行循环
*DO,I,1,NElem
!得到当前单元的类型
*GET,ENAME,ELEM,I,ATTR,ENAM
!如果是65号(65号单元)
*IF,ENAME,EQ,65,THEN
!得到该单元的节点编号
*GET,EN1,ELEM,I,NODE,1
*GET,EN2,ELEM,I,NODE,2
*GET,EN3,ELEM,I,NODE,3
*GET,EN4,ELEM,I,NODE,4
*GET,EN5,ELEM,I,NODE,5
*GET,EN6,ELEM,I,NODE,6
*GET,EN7,ELEM,I,NODE,7
*GET,EN8,ELEM,I,NODE,8
*VWRITE,I,EN1,EN2,EN3,EN4,EN5,EN6,EN7,EN8
(F8.0,8F8.0)
*END IF
*ENDDO
*CFCLOS



!Fortran程序,把ansys结果转换为MARC模型文件格式
program main
implicit none;
integer Key;
write(*,*) "Input 1 for node, 2 for element"
read(*,*) Key
if (Key==1) then
call Node_IO()
end if
if (Key==2) then
call Elem_IO()
end if
stop
end program


subroutine Node_IO()
implicit none
integer NNode,I, J
real*8,pointer :: Node(:,:)
real*8 x;
character :: filename*10;
write(*,*) "Please input node filename"
read(*,'(A10)') filename
open(66,file=filename)
read(66,*) NNode
allocate (Node(NNode,3))
do I=1,NNode
read(66,*) x, (Node(I,J), J=1,3)
end do
close (66)
filename=filename//"NEW"
open (66,file=filename)
write(66,'(4I10)') 3, NNode, 0, 1
do I=1, NNode
write(66,'(I10, 3E20.8)') I, (Node(I,J), J=1,3)
end do
close (66)
return
end subroutine Node_IO


subroutine Elem_IO()
implicit none
integer NElem,NumNode,ElemTyp,I, J
integer,pointer :: Elem(:,:)
real*8 x;
real*8,pointer :: y(:)
character :: filename*10, outformat*11,CharEtype;
write(*,*) "Please input node filename"
read(*,'(A10)') filename
write(*,*) "Please input Element type & Number of Nodes per element"

说明:补充资料仅用于学习参考,请勿用于其它任何用途。