1)  MSC Patran
MSC Patran
1.
Analysis of Interlayer Structure of Composite Material by MSC Patran/Nastran;
利用MSC Patran/Nastran分析复合材料夹层结构
2.
Application of MSC Patran in Modal Analysis of Buoyant Raft Shock-resistant System;
MSC Patran在浮筏隔振装置模态分析中的应用
3.
System for Response Analysis to Impact of Floating Raft Based on MSC Patran;
基于MSC Patran的浮筏冲击动响应分析计算系统
2)  MSC Patran
MSCPatran
1.
In this paper,global FE analysis of cargo hold structures and refined mesh FE analysis of highly stressed areas as well as fatigue sensitive areas for 32 000 DWT Log/Bulk Carrier were carried out to meet the requirement of Common Structural Rules For Bulk Carriers by using MSC Patran/Nastran and CCS-Tools.
为了满足散货船结构共同规范直接强度分析的要求,利用MSCPatran/Nastran和中国船级社开发的CSR计算软件CCS-Tools,对32 000 DWT运木散货船进行了货舱结构的整体有限元分析、高应力区域细化网格有限元分析和疲劳敏感区域精细网格有限元分析。
3)  MSC/PATRAN
MSC/PATRAN
1.
Development of Test Data Tracking, Analyzing and Processing System for Aircraft Structural Strength Based on MSC/PATRAN Platform;
基于MSC/PATRAN的飞机结构强度静力试验数据实时跟踪与处理系统开发
2.
Use C++ builder language to control MSC/PATRAN;
用C++Builder语言实现对MSC/PATRAN的控制
3.
In this paper,firstly we built a finite element model of the folding wing by MSC/PATRAN and solved the main vibration modes in case of varied folding angles by NASTRAN.
在本文中,首先用MSC/PATRAN建立了折叠翼的有限元模型,然后用NASTRAN求解出折叠翼在各折叠角下的主要振动模态。
4)  MSC/PATRAN
流体边界元
1.
For comparison,the finite element model is built with MSC/PATRAN and the method combining fluid Boundary Element Method and the experimental formula is also carried out with MSC/NASTRAN.
MSC/PATRAN建立有限元模型 ,在MSC/NASTRAN平台上主要对流体边界元法、经验公式法进行结构的流体附加质量计算的对比研究和计算。
5)  Msc patran software
MSCPATRAN软件
6)  MSC·Patran/Nastran
MSC·Patran/Nastran
参考词条
补充资料: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"

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