首页 人人文库网 > 图纸下载 > 毕业设计 > 复合形法减速器优化设计(1)带CAD图
复合形法源程序.doc.doc

复合形法减速器优化设计(1)带CAD图

收藏

资源目录
跳过导航链接。
复合形法减速器优化设计1带CAD图.zip
复合形法减速器优化设计(1)
复合形法减速器优化设计
078105206戴晓思
装配图.dwg---(点击预览)
毕业设计（论文）封面.doc---(点击预览)
毕业设计任务书_复合形法_更新.doc---(点击预览)
毕业论文.doc---(点击预览)
机械外文翻译-凸轮.doc---(点击预览)
摘要.doc---(点击预览)
开题报告.doc---(点击预览)
学士学位论文原创性声明.doc---(点击预览)
复合形法源程序.doc.doc---(点击预览)
CAD图
复合形法减速器优化设计
078105206戴晓思
压缩包内文档预览：
预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图
编号：154503093    类型：共享资源    大小：3.13MB    格式：ZIP    上传时间：2021-10-15 上传人：好资料QQ****51605 IP属地：江苏
20
积分
举报
举报 版权申诉
版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载
关 键 词：
复合 减速器 优化 设计 CAD
资源描述：
复合形法减速器优化设计(1)带CAD图,复合,减速器,优化,设计,CAD
内容简介：
单级圆柱齿轮减速器复合形法fortran优化源程序C = PROGRAM COMPLEC = DIMENSION X(25),GX(50),XCOM(1250) COMMON /ONE/ ITE,IXE,ILI,NPE,NFX,NGR READ(*,*) N,KG,K WRITE(*,10001) N,KG,K10001FORMAT(25X,= PRIMARY DATA =/5X, 1 N=,I4,5X,KG=,I4,5X,K=,I4) CALL MAISUB(N,K,KG,X,GX,XCOM) STOP ENDC = SUBROUTINE MAISUB(N,K,KG,X,GX,XCOM)C = DIMENSION X(N),GX(KG),XCOM(N,K),FXK(50),XR(25) DIMENSION XO(25),XH(25),XL(25),BL(25),BU(25) COMMON /ONE/ ITE,IXE,ILI,NPE,NFX,NGR COMMON /TWO/ ISE READ(*,*) (X(I),I=1,N) READ(*,*) EPS READ(*,*) KWR,ISE READ(*,*) (BL(I),I=1,N),(BU(I),I=1,N) WRITE(*,1010) (BL(I),I=1,N) WRITE(*,1015) (BU(I),I=1,N) WRITE(*,1020) EPS1010FORMAT( BL:/(5X,5E15.6)1015FORMAT( BU:/(5X,5E15.6)1020FORMAT(5X,EPS=,E10.2) ITE=0 NFX=0 IXE=0 RM=2657863.01025CALL PRICOM(N,K,KG,X,GX,XCOM,FXK,BL,BU,RM) IF(KWR.LT.0) GOTO 1041 WRITE(*,1030)1030FORMAT(/25X,= PRIMARY COMPLEX =/) WRITE(*,1080) K DO 1031 L=1,K WRITE(*,1085) L,(XCOM(I,L),I=1,N)1031CONTINUE WRITE(*,1035) (FXK(I),I=1,K)1035FORMAT(4X,FXK:/(5X,5E15.6)1041WRITE(*,1042)1042FORMAT(/25X,= ITEATION COMPUTE =/)1045ITE=ITE+1 CALL FXSEGU(N,K,XCOM,FXK) DO 1050 I=1,N1050XL(I)=XCOM(I,K) FXL=FXK(K) SDX=0.0 DO 1055 I=1,K-11055SDX=SDX+(FXL-FXK(I)*2 =SQRT(SDX/FLOAT(K-1) IF(SDX.LE.EPS) GOTO 1210 IF(KWR.GT.0) GOTO 1056 IF(ITE/10*10.NE.ITE) GOTO 10901056WRITE(*,1060) ITE,FXL IF(KWR.LT.0) GOTO 1090 WRITE(*,1065) (XL(I),I=1,N) WRITE(*,1070) FXL WRITE(*,1075) (GX(I),I=1,KG) WRITE(*,1035) (FXK(I),I=1,K)1060FORMAT(/1X,* ITE=,I4,5X,FXL=,E15.7)1065FORMAT( X :/(5X,5E15.6)1070FORMAT( FX:/(5X,5E15.6)1075FORMAT( GX:/(5X,5E15.6)1080FORMAT( XCOM: (K=,I3,)1085FORMAT(2X,I2/(5X,5E15.6)1090LH=11095DO 1100 I=1,N1100XH(I)=XCOM(I,LH) FXH=FXK(LH) CALL XCENTE(N,K,K,LH,XO,XCOM) CALL FFX(N,XO,FXO) CALL GGX(N,KG,XO,GX) DO 1105 J=1,KG IF(GX(J).GE.0.0) GOTO 11701105CONTINUE1140PHI=1.31145DO 1150 I=1,N1150XR(I)=XO(I)+PHI*(XO(I)-XH(I) CALL FFX(N,XR,FXR) CALL GGX(N,KG,XR,GX) DO 1151 J=1,KG IF(GX(J).GE.0.0) GOTO 11521151CONTINUE GOTO 11551152PHI=0.5*PHI GOTO 11451155IF(FXR.LT.FXH) GOTO 1160 IF(PHI.LE.1E-10) GOTO 1195 PHI=0.5*PHI GOTO 11451160DO 1165 I=1,N1165XCOM(I,LH)=XR(I) FXK(LH)=FXR GOTO 10451170DO 1175 I=1,N BL(I)=XL(I) BU(I)=XO(I)1175CONTINUE DO 1180 I=1,N1180X(I)=XL(I) ISE=1 GOTO 10251195LH=LH+1 WRITE(*,1200) LH1200FORMAT(1X,* LH=,I2,*) IF(LH.LE.K/2) GOTO 1095 WRITE(*,1205)1205FORMAT(/25X,* ITERTION ABORTIVE */) GOTO 12201210WRITE(*,1215)1215FORMAT(/25X,= OPTIMUM SOLUTION =/)1220WRITE(*,1225) ITE,NFX,IXE1225FORMAT( ITE=,I5, NFX=,I5 IXE=,I5) WRITE(*,1065) (XL(I),I=1,N) WRITE(*,1070) FXL WRITE(*,1075) (GX(I),I=1,KG) RETURN ENDC = SUBROUTINE PRICOM(N,K,KG,X,GX,XCOM,FXK,BL,BU,RM)C = DIMENSION X(N),XO(25),BL(N),BU(N),GX(KG),XCOM(N,K),FXK(K) COMMON /TWO/ ISE2020IF(ISE) 2025,2050,20752025WRITE(*,2019)2019FORMAT(5X,READ XCOM (FORMAT: * ) READ(*,*) (XCOM(I,J),I=1,N),J=1,K) DO 2045 L=1,K DO 2030 I=1,N2030X(I)=XCOM(I,L) CALL FFX(N,X,FXK(L) CALL GGX(N,KG,X,GX) DO 2031 J=1,KG IF(GX(J).GE.0.0) GOTO 20752031CONTINUE2045CONTINUE RETURN2050CALL FFX(N,X,FXK(1) CALL GGX(N,KG,X,GX) DO 2051 L=1,KG IF(GX(L).GE.0.0) GOTO 20752051CONTINUE GOTO 20952075DO 2080 I=1,N CALL RANDOM(RM,Q)2080X(I)=BL(I)+Q*(BU(I)-BL(I) CALL FFX(N,X,FXK(1) CALL GGX(N,KG,X,GX) DO 2081 L=1,KG IF(GX(L).GE.0.0) GOTO 20752081CONTINUE2095DO 2100 I=1,N2100XCOM(I,1)=X(I) DO 2110 L=2,K DO 2105 I=1,N CALL RANDOM(RM,Q) XCOM(I,L)=BL(I)+Q*(BU(I)-BL(I)2105CONTINUE2110CONTINUE LH=0 DO 2155 LL=1,K-1 LL2=LL CALL XCENTE(N,K,LL2,LH,XO,XCOM) CALL FFX(N,XO,FXO) CALL GGX(N,KG,X,GX) DO 2111 L=1,KG IF(GX(L).GE.0.0) GOTO 20752111CONTINUE2115CONTINUE LL1=LL+1 DO 2120 I=1,N2120X(I)=XCOM(I,LL1)2125CALL FFX(N,X,FXK(LL1) CALL GGX(N,KG,X,GX) DO 2126 L=1,KG IF(GX(L).GE.0.0) GOTO 21452126CONTINUE DO 2140 I=1,N2140XCOM(I,LL1)=X(I)GOTO 21552145DO 2150 I=1,N2150X(I)=XO(I)+0.5*(X(I)-XO(I)GOTO 21252155CONTINUERETURN ENDC =SUBROUTINE FXSEGU(N,K,XCOM,FXK)C =DIMENSION X(25),XCOM(N,K),FXK(K)DO 3010 L=1,K-1KL=K-LDO 3005 LP=1,KLLP1=LP+1IF(FXK(LP).GT.FXK(LP1) GOTO 3005W=FXK(LP)FXK(LP)=FXK(LP1)FXK(LP1)=WDO 3000 I=1,NX(I)=XCOM(I,LP)XCOM(I,LP)=XCOM(I,LP1)3000XCOM(I,LP1)=X(I)3005CONTINUE3010CONTINUERETURNENDC = SUBROUTINE XCENTE(N,K,LL,LH,XO,XCOM)C = DIMENSION XO(N),XCOM(N,K) COMMON /ONE/ ITE,IXE,ILI,NPE,NFX,NGR IXE=IXE+1 DO 4015 I=1,N XS=0.0DO 4000 L=1,LL IF(L.EQ.LH) GOTO 4000XS=XS+XCOM(I,L)4000CONTINUEIF(LH) 4010,4010,40054005XO(I)=XS/FLOAT(LL
温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
提示  人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
关于本文
本文标题：复合形法减速器优化设计(1)带CAD图
链接地址：https://www.renrendoc.com/paper/154503093.html

官方联系方式

网站客服网站客服      侵权投诉侵权投诉
1:下载资料失败解决办法   
2:不支持迅雷下载,请使用浏览器下载   
3:不支持QQ浏览器下载,请用其他浏览器   
4:下载后的文档和图纸-无水印   
5:文档经过压缩，下载后原文更清晰   
点击下载此资源
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

网站客服QQ：2881952447     

copyright@ 2020-2025  renrendoc.com 人人文库版权所有   联系电话：400-852-1180

备案号:蜀ICP备2022000484号-2       经营许可证: 川B2-20220663       公网安备川公网安备: 51019002004831号

本站为文档C2C交易模式，即用户上传的文档直接被用户下载，本站只是中间服务平台，本站所有文档下载所得的收益归上传人(含作者)所有。人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私，请立即通知人人文库网，我们立即给予删除！