1)  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求解出折叠翼在各折叠角下的主要振动模态。
2)  MSC/NASTRAN
MSC/PATRAN
1.
In the paper the program of fluid Boundary Element Method in MSC/NASTRAN is developed and applied to the fluid/structure interaction problem.
MSC/PATRAN建立有限元模型 ,在MSC/NASTRAN平台上主要对流体边界元法、经验公式法进行结构的流体附加质量计算的对比研究和计算。
3)  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的浮筏冲击动响应分析计算系统
4)  MSC·Patran/Nastran
MSC·Patran/Nastran
5)  MSC Patran & Nastran
MSC Patran/Nastran
6)  MS
MS
1.
X RAY PHOTOELECTRON SPECTROSCOPY (XPS) AND MASS SPECTRUM (MS) STUDY OF ORGANIC TIN COMPOUNDS Ⅱ;
有机锡化合物的光电子能谱(XPS)和质谱(MS)研究Ⅱ
2.
STUDIES OF NMR AND MS ON 6 - OR 8- ALKYL-7-OXY COUMARINS AND DIHYDROFURANOCOUMARINS;
6─或8─脂代─7─氧香豆素与二氢呋喃香豆素的NMR,MS研究
3.
Determination of adenosine and cordycepin in Cordyceps sinensis and C. militarris with HPLC-ESI-MS;
HPLC-ESI-MS测定冬虫夏草和蚕蛹虫草中腺苷和虫草素含量
参考词条
补充资料: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"

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