ANSYS二次开发培训练习题

MoretoEngineerBBS二次开发培训练习题MoretoEngineerBBS使用UIDL在ANSYS主菜单中增加一个菜单项，点击后可以出现一个子菜单或激活一个对话框。APDLE.使用APDL编制一个可以读写有限元模型的小程序，要求读出所有节点号和单元号，节点坐标以及单元节点列表。E.使用DNSOL，DESOL定义计算结果UPFE.使用ANSYS列表命令列出ANSYS某一结果文件的内容；编译并连接ANSYS二进制文件读写程序BINTST.F，读写二进制文件并与列表方式相比较。E.编译并连接ANSYS提供的示例程序USER01.F；在ANSYS命令行中使用/UCMD给用户命令赋新的名称，并运行。E.编译并连接ANSYS提供的示例程序USER03.F，使用动态数组保存有限元模型信息，如节点号、单元号、节点坐标、单元节点列表。使用UPF读写数据库子程序，读写模型中的有限元模型信息和载荷信息，并打印。E.使用ANSYS提供子程序试验矢量与矩阵的操作E.试验用户自定义材料E.试验用户单元E.使用/DEBUG命令调试ANSYS单元矩阵及载荷矢量练习题答案：说明：1.以下练习答案以ANSYS5.5.1UP199810001Windows95/98/NT的UniversityLow版本（产品号为ansysul）为例，其它版本与此类似。2.假定机器中已经安装了DigitalVisualFortran5.0C以上的版本假设ANSYS安装目录为C:\ANSYS553.假设用户工作目录为D:\user4.约定DOS提示D:\userDOS输入copyc:\ansys55\docu\UIFUNC2.GRNANSYS输入框ET,1,42数据文件:NMen_TrainingUUUIIIDDDLLLE.使用UIDL在ANSYS主菜单中增加一个菜单项，点击后可以出现一个子菜单或激活一个对话框。A．1.拷贝文件D:\usercopyc:\ansys55\docu\menulist55.ansD:\usercopyc:\ansys55\docu\UIMENU.GRND:\usercopyc:\ansys55\docu\UIFUNC1.GRNMoretoEngineerBBS:\usercopyc:\ansys55\docu\UIFUNC2.GRN2.在主菜单中加入自定义菜单项D:\usereditUIMENU.GRN在第4780应为:AMainMenu在第4803行插入以下几行：Men_TrainingSep_所得到的结果如下：Men_Aux12Men_RunStatK_LN(BETA)Sep_K_LN(BETA)Fnc_UNDOSep_Men_TrainingSep_Fnc_FINISH将光标移至第4812行，插入以下一段:!:NMen_Training:S413,76,330:TMenu:ATrainingMenu:DANSYSTrainingMENUFnc_Training:EEND:!删除该行:XINDEXADDEDBYANSYS以后的全部行存盘退出3.编辑新的菜单文件D:\usereditnewmenu.grn键入以下文字:FUIMENU.GRN:DModifiedon98/10/01,Revision(SID)=5.181.1.68-ForusewithANSYS5.5:I1,759,809:!:NFnc_Training:S627,449,170:TCommandMoretoEngineerBBS:AANSYSCustomizingTraining:DTrainingExercises:C)*GET,_z1,ACTIVE,,TITLE,,START,1:C)*GET,_z2,ACTIVE,,TITLE,,START,9:C)*GET,_z3,ACTIVE,,TITLE,,START,17:C)*GET,_z4,ACTIVE,,TITLE,,START,25:C)*GET,_z5,ACTIVE,,TITLE,,START,33:C)*GET,_z6,ACTIVE,,TITLE,,START,41:C)*GET,_z7,ACTIVE,,TITLE,,START,49:C)*GET,_z8,ACTIVE,,TITLE,,START,57:C)*GET,_z9,ACTIVE,,TITLE,,START,65Fmt_HInp_NoApplyCmd_)/NOPRCmd_)/TITLEFld_2Prm_[/TITLE]WelcometoANSYSTrainingTyp_Char,72,72Prm_[/TITLE]WelcometoANSYSTrainingCmd_)/Go:EEND:!存盘退出4.修改menulist55.ans文件D:\usereditmenulist55.ans修改文件的前三行，使其指向用户工作目录下的文件d:\user\UIMENU.GRNd:\user\UIFUNC1.GRNd:\user\UIFUNC2.GRNd:\user\newmenu.grnc:\ansys55\DOCU\UICMDS.HLPc:\ansys55\DOCU\UIELEM.HLPc:\ansys55\DOCU\UIGUID.HLPc:\ansys55\DOCU\UITHRY.HLPc:\ansys55\DOCU\UIOTHR.HLP5.启动ANSYS的launcher在WorkingDirectory框中键入d:\user按OK键，启动ANSYS界面AAAPPPDDDLLLE.使用APDL编制一个可以读写有限元模型的小程序，要求读出所有节点号和单元号，节点坐标以MoretoEngineerBBS及单元节点列表。A．1.编辑文件a.datD:\useredita.dat*Get,nnod,NODE,0,COUNT*Dim,xy,array,nnod,2*Dim,nodes,array,nnod*Get,nd,NODE,0,NUM,MIN*Do,I,1,nnod,1nodes(I)=ndxy(I,1)=Nx(nd)xy(I,2)=Ny(nd)nd=Ndnext(nd)*Enddo*Get,nelm,ELEM,0,COUNT*Dim,elems,array,nelm*Dim,ndlst,array,nelm,4*Get,el,ELEM,0,NUM,MIN*Do,I,1,nelm,1elems(I)=el*Do,J,1,4ndlst(I,J)=Nelem(el,J)*Enddoel=Elnext(nd)*Enddo2.启动ANSYS，根据自己所熟悉的领域，建立一个有限元模型3.输入文件a.dat/input,a,dat4.检查分别列出节点数，节点号列表，坐标，单元数，单元号列表，单元节点列表，与nlist,elist等对比。*status,nnod*status,nodes*status,xy*status,nelm*status,elems*status,ndlstE.使用DNSOL，DESOL定义计算结果1．利用前面所建立或新建一个有限元模型MoretoEngineerBBS．进入Post-processor/post26或MainMenu-GeneralPostproc3．定义节点上的结果手工定义-NodalResults按对话框提示输入各点的结果数据程序自动定义/PREP7BLC4,0,0,4,2et,1,42esize,.5amesh,1/POST1dof,temp*Get,nnod,NODE,0,COUNT*Dim,xy,array,nnod,2*Dim,nodes,array,nnod*Get,nd,NODE,0,NUM,MIN*Do,I,1,nnod,1nodes(I)=ndxy(I,1)=Nx(nd)xy(I,2)=Ny(nd)nd=Ndnext(nd)*Enddo*Do,i,1,nnod,1dist=sqrt((xy(i,1)-2)*(xy(i,1)-2)+(xy(i,2)-1)*(xy(i,2)-1))tmp=dist*100Dnsol,nodes(i),temp,,tmp*Enddonsel,allplnsol,tempMoretoEngineerBBS使用ANSYS列表命令列出ANSYS某一结果文件的内容；编译并连接ANSYS二进制文件读写程序BINTST.F，读写二进制文件并与列表方式相比较。1.建立一个自己所熟悉的有限元模型，单元数3~5即可，加载、设置边界条件并求解6.使用ANSYS列表命令UtilityMenu-File-List-BinaryFile7.在弹出的对话框中[DUMP]Recordstobelist中选ALLRecords[FORM]Amtofoutputperrecord中选EntireRecords[FILEAUX2]binaryfiletolist中选择要显示的.rst文件按OK键确认后，可以得到.rst文件的列表窗口使用列表窗口的菜单保存列表窗口中的输出结果到文件list.txtFile-SaveAs8.拷贝以下文件到工作目录D:\usercopyc:\ansys55\custom\misc\intel\bintst.fD:\usercopyc:\ansys55\custom\misc\intel\bintrd.fD:\usercopyc:\ansys55\custom\misc\intel\bintwr.fD:\usercopyc:\ansys55\custom\misc\intel\Custom.batD:\usercopyc:\ansys55\custom\misc\intel\MakefileD:\usercopyc:\ansys55\custom\misc\intel\binlib.a9.运行Custom.bat，编译并连接D:\usercustom在工作目录中可生成一个运行程序bintst.exe10.运行bintst.exeD:\userbintstout.txt将bintst的运行结果转存到文件out.txt中比较out.txt与list.txt文件中的结果，并参考手册GuidetointerfacingtoANSYS中FormatofBinaryDataFiles的FormatoftheResultsFile分析文件结构。E.用户命令：编译并连接ANSYS提供的示例程序USER01.F；在ANSYS命令行中使用/UCMD给用户命令赋新的名称，并运行。1.清理用户工作目录下的文件如果在用户工作目录下存在ANSYS二进制文件读取等程序，请全部删除2.拷贝以下文件到用户工作目录D:\usercopyc:\ansys55\custom\user\intel\user01.FD:\usercopyc:\ansys55\custom\user\intel\Anscust.batD:\usercopyc:\ansys55\custom\user\intel\Makefile1.修改user01.F修改以下几行cc*****user'SCODEISINSERTEDHERE*****write(iott,2000)2000format(//'*****CALLTOANSYS,INCDUMMYUSER01*****'