资源描述：
《ansys节点位移提取子程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、Ansys节点位移提取子程序*甲板,ResRdDemo用户ansys程序ResRdDemo对ResRcl的测试程序。F*****的例程#ineludeuimpcom・inc"外部ResRclBegin>ResRdSolBeginResRdSolEndResRdEnd,xResRdDispBeginResRdDispResRdDispEnd整数ResRdBeginResRdSolBeginResRdDisp整数MAXDOFSPERNODE参数(MAXDOFSPERNODE二32)!maxdofspernode:允许每个结点的最大自由度数量
2、整数Nunit,Limit单位、NumDof景深(MAXDOFSPERNODE)UserCode,xMaxNodeNumNodeMaxElem>NumElemMaxResultSet,xNumResultSet字符*12帧标题字符*80(5)字符*8JobName字符*106dispname克尔，整数dispunitiSet>ncumitkcmplx,lstep,分步，时间,k,i,j字符*4DofLab(MAXDOFSPERNODE)双精度Disp(MAXDOFSPERNODE)dispunit二20dispname二"Displac
3、ement・rst"打开(单位二dispunit、文件二dispname状态二“未知”)!新建文件单位二kunit=20,文件二kname二^Displacement.rstw,用来存放每个结点的位移信息倒带dispunit!将文件2记录的读写位置定位在文件的起点!开始读取结果文件中的数据Nunit二12Lunit二6帧二’frst'写（*,3000）Nunit,Limit、帧3000格式(**************************✓!%✓!%x'Nunit二’，i3Lunit二'，i3,帧二'，)！/号表示换行的意思克尔二R
4、esRdBegin(Nunit,Lunit帧8、标题(1)JobName,x单位、NumDof景深(1)UserCode,xMaxNode,NumNode,MaxElem,NumElem,xMaxResultSet,NumResultSet)主要功能:打开结果文件并返回全球信息返回通用信息c输入参数:输入参数cNunit(int,sc,in)-Fortran文件的单位号(ANSYS使用12)cLunit(int,sc)——当前打印输出装置(通常6标准输出)!系统默认的输出设备号是6,表示在显示器上输出cFname(ch*
5、(ncFname),sc,in)-文件的名称(扩展名)!带扩展名的文件名!结果文件保存后的文件名，可能被更改过!如果没有更改过则帧二JobNamecncFname(int,sc)一一数量的字符帧文件名包含的字符长度输岀参数:输岀参数c标题(ch*80,ar(2),out)-标题和第一个副标题sccJobName(ch*8日，ThenameofthefilethatisnotchangedbytheJobnamefromfileCUnits(int,sc,out)-0,unknown1,SI2,CSGunitsystem3c,U.S.Cu
6、stomary一foot(feet)4c,U.S.Customary一inch(inches)C6,MPACNumDOF(int,sc,out)-NumberofDOFpernodehastheNumberofdegreesoffreedom!Ifit，saplaneproblem,NumDOF二2!Ifit'saspaceproblem,NumDOF二3CDOF(int,ar(*),out)-TheDOFspernode，sdegreesoffreedom!Ifit'saplaneproblemNumDOF(1)二1,NumDOF(2
7、)二2,whichisx,y!Ifit'saspaceproblemNumDOF(1)二1,NumDOF(2)二2,NumDOF(3)二3,whichisx,y,zCUserCode(int,sc,out)-CodeforthisapplicationCMaxNode(int,sc,out)-maximumnodenumberusednodenumberCNumNode(int,sc,out)-thetotalNumberofnodesusednodesCMaxElem(int,sc,out)-theMaximumelementnumb
8、erusedunitnumberCNumElem(int,sc,out)-thetotalNumberofelementsusedunitsCMaxResultSet(int,sc,out)-Maximum
