1)  Patran/Marc
Patran/Marc
1.
By the application of Patran/Marc software,spur gear of diesel engine in the highest point of the single-tooth meshing is analyzed,the process of FEM is expatiated and distribution of the static stress is accessed.
以柴油发动机传动机构中的直齿轮作为研究对象,应用Patran/Marc软件,在主动齿轮单齿啮合的最高点,对该齿轮进行了应力分析,阐述了齿轮有限元分析的方法,对计算结果进行分析,获得齿轮等效应力分布图。
2)  PA
PA
1.
Analysis of Modulus-strain Curves of PET and PA Industrial Yarns;
工业用PET及PA纤维模量—应变曲线的分析
2.
PPO/PP and PPO/PA Alloys;
PPO/PP及PPO/PA合金
3.
Formulation of high quality EPDM/PA elastomer;
EPDM/PA高性能弹性体配合体系的研究
3)  ~(233)Pa
~(233)Pa
4)  t-PA
t-PA
1.
Hydrophobic interaction chromatography to the purification of t-PA produced by trichodera reesei;
疏水层析在分离纯化里氏木霉重组t-PA中的应用
2.
Clinical analysis of blood plasma levels of uPA,uPAR,t-PA and PAI-1 in patients with ischemic cardio-cerebral-vascular disease;
检测血浆uPA、uPAR、t-PA和PAI-1水平在缺血性心脑血管疾病发病中的意义
3.
Human Recombinant t-PA Mutants Interact with β2GPⅠ in vitro;
人重组t-PA突变体与β2糖蛋白Ⅰ的相互作用
5)  PA value
PA值
6)  HDPE/PA
HDPE/PA
1.
Capillary Rheological Characteristics of HDPE/PA Melts;
HDPE/PA共混物的流变性能
2.
The effect of the content of PA1010 and compatibilizers on the barrier properties of HDPE/PA blends have been investigated.
主要研究TPA1010含量和增容剂对HDPE/PA1010共混合金材料阻隔性能及力学性能的影响。
参考词条
补充资料: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"

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