哈工大机械原理连杆机构运动分析作业

机械原理大作业课程名称机械原理设计题目连杆机构运动分析院系能源学院班级设计者学号指导教师设计时间5，源代码RRI级机构运动分析的源代码PUBLICCLASSRR定义输入字段PUBLICRXAASSINGLEPUBLICRYAASSINGLEPUBLICVXAASSINGLEPUBLICVYAASSINGLEPUBLICAXAASSINGLEPUBLICAYAASSINGLEPUBLICPHIIASSINGLEPUBLICOMEGAIASSINGLEPUBLICALPHAIASSINGLEPUBLICLIASSINGLE定义输出参数PRIVATESGL_RXBASSINGLEPRIVATESGL_RYBASSINGLEPRIVATESGL_VXBASSINGLEPRIVATESGL_VYBASSINGLEPRIVATESGL_AXBASSINGLEPRIVATESGL_AYBASSINGLE实例化类并初始化输入字段PUBLICSUBNEWBYVALRADIUSVECTOR_XAASSINGLE,BYVALRADIUSVECTOR_YAASSINGLE,BYVALVELOCITY_XAASSINGLE,BYVALVELOCITY_YAASSINGLE,BYVALACCELERATION_XAASSINGLE,BYVALACCELERATION_YAASSINGLE,BYVALPHI_IASSINGLE,BYVALOMEGA_IASSINGLE,BYVALALPHA_IASSINGLE,BYVALLENGTH_IASSINGLERXARADIUSVECTOR_XARYARADIUSVECTOR_YAVXAVELOCITY_XAVYAVELOCITY_YAAXAACCELERATION_XAAYAACCELERATION_YAPHIIPHI_IOMEGAIOMEGA_IALPHAIALPHA_ILILENGTH_IENDSUB定义输出属性PUBLICREADONLYPROPERTYRXBASSINGLEGETRETURNSGL_RXBENDGETENDPROPERTYPUBLICREADONLYPROPERTYRYBASSINGLEGETRETURNSGL_RYBENDGETENDPROPERTYPUBLICREADONLYPROPERTYVXBASSINGLEGETRETURNSGL_VXBENDGETENDPROPERTYPUBLICREADONLYPROPERTYVYBASSINGLEGETRETURNSGL_VYBENDGETENDPROPERTYPUBLICREADONLYPROPERTYAXBASSINGLEGETRETURNSGL_AXBENDGETENDPROPERTYPUBLICREADONLYPROPERTYAYBASSINGLEGETRETURNSGL_AYBENDGETENDPROPERTY计算输出参数PUBLICSUBCALCULATESGL_RXBRXALIMATHCOSPHIISGL_RYBRYALIMATHSINPHIISGL_VXBVXAOMEGAILIMATHSINPHIISGL_VYBVYAOMEGAILIMATHCOSPHIISGL_AXBAXAOMEGAIOMEGAILIMATHCOSPHIIALPHAILI_MATHSINPHIISGL_AYBAYAOMEGAIOMEGAILIMATHSINPHIIALPHAILI_MATHCOSPHIIENDSUBENDCLASSRPRII级基本组运动分析的源代码PUBLICCLASSRPR定义杆组模式枚举类型PUBLICENUMMODEASINTEGERCLOCKWISE1ANTICLOCKWISE1ENDENUM定义输入字段PUBLICRXBASSINGLEPUBLICRYBASSINGLEPUBLICVXBASSINGLEPUBLICVYBASSINGLEPUBLICAXBASSINGLEPUBLICAYBASSINGLEPUBLICRXDASSINGLEPUBLICRYDASSINGLEPUBLICVXDASSINGLEPUBLICVYDASSINGLEPUBLICAXDASSINGLEPUBLICAYDASSINGLEPUBLICLIASSINGLEPUBLICLJASSINGLEPUBLICLKASSINGLEPUBLICMASMODE定义输出参数PRIVATESGL_RXCASSINGLEPRIVATESGL_RYCASSINGLEPRIVATESGL_VXCASSINGLEPRIVATESGL_VYCASSINGLEPRIVATESGL_AXCASSINGLEPRIVATESGL_AYCASSINGLEPRIVATESGL_RXEASSINGLEPRIVATESGL_RYEASSINGLEPRIVATESGL_VXEASSINGLEPRIVATESGL_VYEASSINGLEPRIVATESGL_AXEASSINGLEPRIVATESGL_AYEASSINGLEPRIVATESGL_PHIJASDOUBLEPRIVATESGL_OMEGAJASDOUBLEPRIVATESGL_ALPHAJASDOUBLE实例化类并初始化输入字段PUBLICSUBNEWBYVALRADIUSVECTOR_XBASSINGLE,BYVALRADIUSVECTOR_YBASSINGLE,BYVALVELOCITY_XBASSINGLE,BYVALVELOCITY_YBASSINGLE,BYVALACCELERATION_XBASSINGLE,BYVALACCELERATION_YBASSINGLE,BYVALRADIUSVECTOR_XDASSINGLE,BYVALRADIUSVECTOR_YDASSINGLE,BYVALVELOCITY_XDASSINGLE,BYVALVELOCITY_YDASSINGLE,BYVALACCELERATION_XDASSINGLE,BYVALACCELERATION_YDASSINGLE,BYVALLENGTH_IASSINGLE,BYVALLENGTH_JASSINGLE,BYVALLENGTH_KASSINGLE,BYVALMODEASMODERXBRADIUSVECTOR_XBRYBRADIUSVECTOR_YBVXBVELOCITY_XBVYBVELOCITY_YBAXBACCELERATION_XBAYBACCELERATION_YBRXDRADIUSVECTOR_XDRYDRADIUSVECTOR_YDVXDVELOCITY_XDVYDVELOCITY_YDAXDACCELERATION_XDAYDACCELERATION_YDLILENGTH_ILJLENGTH_JLKLENGTH_KMMODEENDSUB定义输出属性PUBLICREADONLYPROPERTYRXCASSINGLEGETRETURNSGL_RXCENDGETENDPROPERTYPUBLICREADONLYPROPERTYRYCASSINGLEGETRETURNSGL_RYCENDGETENDPROPERTYPUBLICREADONLYPROPERTYVXCASSINGLEGETRETURNSGL_VXCENDGETENDPROPERTYPUBLICREADONLYPROPERTYVYCASSINGLEGETRETURNSGL_VYCENDGETENDPROPERTYPUBLICREADONLYPROPERTYAXCASSINGLEGETRETURNSGL_AXCENDGETENDPROPERTYPUBLICREADONLYPROPERTYAYCASSINGLEGETRETURNSGL_AYCENDGETENDPROPERTYPUBLICREADONLYPROPERTYRXEASSINGLEGETRETURNSGL_RXEENDGETENDPROPERTYPUBLICREADONLYPROPERTYRYEASSINGLEGETRETURNSGL_RYEENDGETENDPROPERTYPUBLICREADONLYPROPERTYVXEASSINGLEGETRETURNSGL_VXEENDGETENDPROPERTYPUBLICREADONLYPROPERTYVYEASSINGLEGETRETURNSGL_VYEENDGETENDPROPERTYPUBLICREADONLYPROPERTYAXEASSINGLEGETRETURNSGL_AXEENDGETENDPROPERTYPUBLICREADONLYPROPERTYAYEASSINGLEGETRETURNSGL_AYEENDGETENDPROPERTYPUBLICREADONLYPROPERTYPHIJASSINGLEGETRETURNSGL_PHIJENDGETENDPROPERTYPUBLICREADONLYPROPERTYOMEGAJASSINGLEGETRETURNSGL_OMEGAJENDGETENDPROPERTYPUBLICREADONLYPROPERTYALPHAJASSINGLEGETRETURNSGL_ALPHAJENDGETENDPROPERTY计算输出参数PUBLICSUBCALCULATEDIMPHIIASDOUBLEDIMPHIKASDOUBLEDIMSASDOUBLEDIMVASDOUBLEDIMAASDOUBLE计算PHIJDIMKDBASDOUBLEDIMPHIDBASDOUBLEDIMPHIASDOUBLEIFRXBRXDTHENKDBRYBRYD/RXBRXDIFRXBRXDTHENPHIDBMATHATANKDBELSEPHIDBMATHATANKDBMATHPIENDIFELSEIFRYBRYDTHENPHIDBMATHPI/2ELSEPHIDB3MATHPI/2ENDIFENDIFPHIMATHASINLILK/MATHSQRTRXBRXDRXBRXDRYBRYD_RYBRYDSGL_PHIJPHIDBMPHIIFSGL_PHIJ2MATHPITHENPHICDI2MATHPIOMEGACDIBBCOMEGAJALPHACDIBBCALPHAJ计算D点的运动状态CDNEWRR110,0,0,0,0,0,PHICDI,OMEGACDI,ALPHACDI,LCDCDCALCULATERDIXCDRXBRDIYCDRYBVXDICDVXBVYDICDVYBAXDICDAXBAYDICDAYB计算EF杆的运动状态DDENEWRPRRDIX,RDIY,VXDI,VYDI,AXDI,AYDI,110,320,0,0,0,0,0,LEF,0,1DDECALCULATEPHIEFIDDEPHIJOMEGAEFIDDEOMEGAJALPHAEFIDDEALPHAJ计算F点的运动状态EFNEWRR110,320,0,0,0,0,PHIEFI,OMEGAEFI,ALPHAEFI,LEFEFCALCULATERFIXEFRXBRFIYEFRYBVXFIEFVXBVYFIEFVYBAXFIEFAXBAYFIEFAYB计算G点的运动状态FGGNEWRRPRFIX,RFIY,VXFI,VYFI,AXFI,AYFI,0,380,0,0,0,0,0,0,0,500,0,1FGGCALCULATERXGIFGGRXCVXGIFGGVXCAXGIFGGAXCNEXTENDSUBPRIVATESUBBTNANIMATION_CLICKSENDERASOBJECT,EASEVENTARGSHANDLES_BTNANIMATIONCLICKDIMLINKAGEANIMATIONASNEWANIMATIONLINKAGEANIMATIONSHOWENDSUBPRIVATESUBBTNDISPLACEMENT_CLICKSENDERASOBJECT,EASEVENTARGSHANDLES_BTNDISPLACEMENTCLICKDIMLINKAGEIMAGEASNEWIMAGELINKAGEIMAGESHOWENDSUBENDCLASS机构动画的源代码PUBLICCLASSANIMATIONCONSTNASINTEGERLINKAGEN定义绘图字段PRIVATERBNASPOINTFPRIVATERDNASPOINTFPRIVATERFNASPOINTFPRIVATERGNASPOINTFPRIVATERHNASPOINTF定义绘图类PRIVATEGRAPH1ASGRAPHICSPRIVATEPEN1ASNEWPENCOLORBLACK,2PRIVATEKASSINGLE2PRIVATEIASINTEGERPRIVATEISSTARTASBOOLEANPRIVATESUBANIMATION_LOADSENDERASOBJECT,EASEVENTARGSHANDLESMYBASELOADGRAPH1PICTUREBOX1CREATEGRAPHICS坐标变换GRAPH1TRANSLATETRANSFORM400,250GRAPH1SCALETRANSFORM1,1初始化绘图类FORIASINTEGER0TONRBIXLINKAGERBIX/KRBIYLINKAGERBIY/KRDIXLINKAGERDIX/KRDIYLINKAGERDIY/KRFIXLINKAGERFIX/KRFIYLINKAGERFIY/KRGIXLINKAGERXGI/KRGIY380/KRHIXLINKAGERHIX/KRHIYLINKAGERHIY/KNEXTENDSUBPRIVATESUBTIMER1_TICKSENDERASOBJECT,EASEVENTARGSHANDLESTIMER1TICKIFISSTARTTHENGRAPH1CLEARCOLORWHITE绘制机构GRAPH1DRAWLINEPEN1,0,0,RBIX,RBIYGRAPH1DRAWLINEPEN1,110/K,0,RHIX,RHIYGRAPH1DRAWLINEPEN1,110/K,0,RDIX,RDIYGRAPH1DRAWLINEPEN1,110/K,320/K,RFIX,RFIYGRAPH1DRAWLINEPEN1,RFI,RGI循环I10IFI1000THENI1000ENDIFENDIFENDSUBPRIVATESUBBTNSTART_CLICKSENDERASOBJECT,EASEVENTARGSHANDLESBTNSTARTCLICKISSTARTTRUEENDSUBPRIVATESUBBTNSUSPEND_CLICKSENDERASOBJECT,EASEVENTARGSHANDLESBTNSUSPENDCLICKISSTARTFALSEENDSUBENDCLASS位移、速度、加速度线图的源代码PUBLICCLASSIMAGECONSTNASINTEGERLINKAGEN定义坐标点PRIVATERNASPOINTFPRIVATEVNASPOINTFPRIVATEANASPOINTF定义绘图类PRIVATEGRAPHASGRAPHICSPRIVATEPENCOORDINATEASNEWPENCOLORBLACK,3PRIVATEPENNETASNEWPENCOLORGRAYPRIVATEPENCURVEASNEWPENCOLORBLACK,2PRIVATEFONTCOORDINATEASNEWFONT“TIMESNEWROMAN“,8PRIVATENETWIDTHASSINGLEPRIVATENETHEIGHTASSINGLEPRIVATEKY1ASSINGLEPRIVATEKY2ASSINGLEPRIVATEKY3ASSINGLEPRIVATESUBIMAGE_LOADSENDERASOBJECT,EASEVENTARGSHANDLESMYBASELOADDIMKXASSINGLEN1/PICTUREBOX1WIDTH60NETWIDTHPICTUREBOX1WIDTH60/12NETHEIGHT50KY12KY250KY3150计算坐标点FORIASINTEGER0TONRIXI/KXRIYLINKAGERXGI/KY1VIXI/KXVIYLINKAGEVXGI/KY2AIXI/KXAIYLINKAGEAXGI/KY3NEXT设置绘图类GRAPHPICTUREBOX1CREATEGRAPHICSPENNETDASHSTYLEDRAWING2DDASHSTYLEDASHDOTPENCOORDINATEENDCAPDRAWING2DLINECAPARROWANCHORNETWIDTHPICTUREBOX1WIDTH60/12ENDSUBPRIVATESUBBTNRADIUS_CLICKSENDERASOBJECT,EASEVENTARGSHANDLES_BTNRADIUSCLICKGRAPHCLEARCOLORWHITE绘制网格FORIASINTEGER0TO12GRAPHDRAWLINEPENNET,40INETWIDTH,0,40INETWIDTH,_PICTUREBOX1HEIGHT40GRAPHDRAWSTRINGI30,FONTCOORDINATE,BRUSHESBLACK,30INETWIDTH,_PICTUREBOX1HEIGHT35GRAPHDRAWLINEPENNET,40,PICTUREBOX1HEIGHT40INETHEIGHT,_PICTUREBOX1WIDTH20,PICTUREBOX1HEIGHT40INETHEIGHTGRAPHDRAWSTRING250INETHEIGHTKY1,FONTCOORDINATE,BRUSHESBLACK,_16,PICTUREBOX1HEIGHT44INETHEIGHTNEXT绘制坐标轴GRAPHDRAWLINEPENCOORDINATE,40,PICTUREBOX1HEIGHT40,PICTUREBOX1WIDTH_20,PICTUREBOX1HEIGHT40GRAPHDRAWLINEPENCOORDINATE,40,PICTUREBOX1HEIGHT40,40,20坐标变换GRAPHTRANSLATETRANSFORM40,PICTUREBOX1HEIGHT40GRAPHSCALETRANSFORM1,1绘制曲线GRAPHDRAWCURVEPENCURVE,R坐标复原GRAPHTRANSLATETRANSFORM40,PICTUREBOX1HEIGHT40GRAPHSCALETRANSFORM1,1ENDSUBPRIVATESUBBTNVECOTICY_CLICKSENDERASOBJECT,EASEVENTARGSHANDLES_BTNVECOTICYCLICKGRAPHCLEARCOLORWHITE绘制网格FORIASINTEGER0TO12GRAPHDRAWLINEPENNET,40INETWIDTH,0,40INETWIDTH,_PICTUREBOX1HEIGHTGRAPHDRAWSTRINGI30,FONTCOORDINATE,BRUSHESBLACK,30INETWIDTH,_PICTUREBOX1HEIGHT245GRAPHDRAWLINEPENNET,40,PICTUREBOX1HEIGHT250I6NETHEIGHT,_PICTUREBOX1WIDTH20,PICTUREBOX1HEIGHT250I6NETHEIGHTIFI6THENCONTINUEFORGRAPHDRAWSTRINGI6NETHEIGHTKY2,FONTCOORDINATE,BRUSHESBLACK,_10,PICTUREBOX1HEIGHT255I6NETHEIGHTNEXT绘制坐标轴GRAPHDRAWLINEPENCOORDINATE,40,PICTUREBOX1HEIGHT250,PICTUREBOX1WIDTH_20,PICTUREBOX1HEIGHT250GRAPHDRAWLINEPENCOORDINATE,40,PICTUREBOX1HEIGHT20,40,20坐标变换GRAPHTRANSLATETRANSFORM40,PICTUREBOX1HEIGHT250GRAPHSCALETRANSFORM1,