说明:双击或选中下面任意单词,将显示该词的音标、读音、翻译等;选中中文或多个词,将显示翻译。
您的位置:首页 -> 词典 -> 期刊MARC著录
1)  Periodical MARC Record
期刊MARC著录
2)  periodical description
期刊著录
1.
Nowadays, only a little attention are paid to the periodical description, and along with the coming of the network times, the faults existing in the periodical description are more and more obvious.
期刊著录是当前不被十分重视的一个问题,随着网络时代的来临,期刊著录存在的缺陷越来越明显,如何适应时代的需求,使期刊著录得到进一步的完善,是广大期刊工作者面临的一个新课题。
3)  periodical cataloging
期刊著录
1.
This paper has mainly discussed the main reasons that influence the quality of periodical cataloging and attached great importance to the introduction of ways to enhance the quality of periodical cataloging,such as MARC data downloading,periodical database search,E-mail consultation,Baidu and Google searching,periodical network searching,together with traditional reference books.
指出了影响期刊著录质量的主要原因,着重介绍了在网络环境下通过MARC数据套录、期刊数据库查询、E-mail咨询、Baidu和Google搜索、期刊网站搜索,结合使用传统的参考工具书,多途径实现期刊著录质量的提高。
2.
Then,it has probed into the cataloging methods of different change forms of periodicals,and put forward suggestions of improving periodical cataloging.
阐述了期刊多变性的表现形式及其特点,分析了期刊变化对期刊著录工作的影响,探讨了期刊不同变更形式的著录方法,提出了完善期刊著录工作的几点建议。
4)  MARC catalogue
MARC著录
1.
Brief analysis on MARC catalogue of Chinese renamed periodicals;
浅析中文更名期刊MARC著录问题
5)  CNMARC description of periodical
期刊CNMARC著录
6)  Chinese periodical cataloguing
中文期刊著录
1.
This paper discusses the relationship between MARC fields of Chinese periodical cataloguing; the accordant of related fields in one record and the connection of fields in related records, so as to complete the catalogue record and do better in Chinese periodical cataloguing.
本文讨论了中文期刊著录MARC字段之间的联系:同一记录中相关字段间的对应关系和相关记录中字段间的连接关系,有助于我们在中文期刊著录工作中完善著录项目,提高书目记录质量。
补充资料: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"

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