【溫馨提示】 dwg后綴的文件為CAD圖，可編輯，無水印，高清圖，，壓縮包內(nèi)文檔可直接點開預覽，需要原稿請自助充值下載，請見壓縮包內(nèi)的文件，所見才能所得，下載可得到【資源目錄】下的所有文件哦
程序
本程序的編制是為繪制起升機構減速箱第I軸、第II軸彎矩圖及校核第I軸危險截面強度。依據(jù)軸受力分析，每一軸在XOZ平面，YOZ平面均受力作用，故每一軸在這兩平面內(nèi)都可以畫出彎矩圖。同時，第I軸有三個危險截面，在程序中對這三個截面一一校核。編制程序時，為了避免過多的重復性，只較詳細的寫出第I軸在YOZ平面中的彎矩圖及第I軸第I截面的校核過程，其余均簡略寫出。
程序如下：
10 PRINT “ji suan di yi zhou suo shou zai he”
20 PRINT
30 SM=15.31*10^3:YJ=.99
40 DJ=300:DS=15:D0=DS+DJ:M4=SM*d0/(2*YJ)
50 I3=4.09:YC=.965:M3=M4/I3/YC
60 I2=3.67:M2=M3/I2/YC
70 I1=5.67:M1=M2/I1/YC
80 MM=2.5:ZZ=12:BB=8.100001/180*3.1416:D=MM*ZZ:
D1=D/SQR(1-SIN(BB)^2):P1=2*M1/D1
90 AA=20/180*3.1416:Q1=P1*TAN(AA)/SQR(1-SIN(BB)^2):P1=2*M1/D1
100 N1=P1*TAN(BB)
110 PRINT “d0,d,d1,m1,m2,m3,m4,p1,q1,n1,sm=”;
D0,D,D1,M1,M2,M3,M4,P1,Q1,N1,SM
120 PRINT
130 PRINT “hui chu di yi zhou wan ju tu”
140 PRINT
150 XX=2*(34+418)-310.35:X1=34+418
160 AY=418*P1/X1:BY=P1-AY
170 FOR I=0 T0 10000
180 NEXT I
190 SCREEN 2:CLS:KEY ON
200 PSET(80,80)
210 FOR X=0 T0 X1 STEP 2
220 IF X>34 THEN 260
230 DEF FNA(X)=AY*X
240 Y0=FNA(X)/1000:X0=X
250 GOTO 280
260 DEF FNB(X)=AY*X-P1*(X-34)
270 Y0=FNB(X)/1000:X0=X
280 LINE-(80+X0,80+Y0)
290 NEXT X
300 LINE(80,80)-(80+XX,80)
310 AX=-(Q1*418-N1*D1/2)/X1:BX=-(Q1+AX)
320 FOR X=0 T0 X1 STEP 2
330 IF X>34 THEN 370
340 DEF FNC(X)=AX*X
350 Y0=FNC(X)/1000:X0=X
360 GOTO 390
370 DEF FND(X)=AX*X+Q1*(X-34)-N1*D1/2
380 Y0=FND(X)/1000:X0=X
390 LINE-(80+X0,80+Y0)
400 NEXT X
410 PRINT “ay,by,ax,bx=”;AY,BY,AX,BX
420 FOR I=1 T0 10000
430 NEXT I
440 CLS
450 PRINT “di yi zhou wei xian jie mian jiao he”
460 PRINT
470 PRINT “di yi jie mian”
480 MN=0:M1X=AY*21/2:M1Y= AX*21/2:M11=SQR(M1X^2+M1Y^2)
490 W1=.1*25^3:B1M=M11/W1:N0=2.7
500 F1=52.25*9.8:KB=2.22:EB=.8:N01=BF1/(KB/EB*B1M)
510 IF N01>=N0 THEN 540
520 PRINT “gai jie mian bu he ge”
530 GOTO 560
540 PRINT “gai jie mian he ge”
550 PRINT
560 PRINT “di er jie mian”
570 KB2=1:EB2=.77
580 M2X=AX*34+N1*D1:M2Y= AY*34:M22=SQR(M2X^2+M2Y^2)
590 W2=.1*25.95 3:B1M=M22/W2:
600 BF2=BF1*EB2
610 TF2=25.3*9.8:KT=1:ET=.77:FT=.1
620 T2M=M22/2/W2；NT2=TF2/（KT/ET+FT）/T2M：NB2=BF2/B2M
630 N02=NB2*NT2/SQR（NB2^2+NT2^2）
640 IF N02>=N0 THEN 680
650 PRINT “gai jie mian bu he ge”
660 PRINT
670 GOTO 700
680 PRINT “gai jie mian he ge”
690 PRINT
700 PRINT “di san jie mian”
710 KB3=1:ET3=.8:RT3=.1
720 W3=.2*23^3:T3M=M1/W3:
730 N03=2*TR1/(KT3/ET3+RT3)/T3M
740 IF N03>=N0 THEN 780
750 PRINT “gai jie mian bu he ge”
760 PRINT
770 GOTO 810
780 PRINT “gai jie mian he ge”
790 PRINT
800 PRINT
810 PRINT “di er zhou wan ju tu ”
820 PRINT
830 P2=P1:N2=N1:Q2=Q1
840 D3=48.48:P3=2*M2/D3
850 A0=20/180*3.1416:Q3=2*M2/D3*TAN(A0)/SQR(1-SIN(BB)^2):Q4=Q3
860 N3=P3*TAN(BB):N4=N3
870 Y0=(17+41/60+1/3600)/180*3.1416:P2X=P2*SQR(1-SIN(Y0)^2):
Q2X=Q2*SIN(Y0)
880 D2=171.72:D21=D2/2*SIN(Y0):P2Y=P2*SIN(Y0):Q2Y=Q2*P2X/P2
890 YI=34.5:Y2=46:Y3=38.5:YY=Y1+Y2+Y3
900 CX=(P2X*(Y2+Y3)+N2*D21+Q3*Y3+N3*D3/2-Q2X*(Y2+Y3))/YY
910 DX=P2X+Q3-CX-Q2X
920 PRINT “CX,DX,YY= ”; CX,DX,YY
930 FOR I=1 T0 10000
940 NEXT I
950 SCREEN 2:CLS
960 PSET(80,80)
970 FOR Y=0 T0 YY STEP .5
980 IF Y>Y1 THEN 1020
990 DEF FNP(Y)=-CX*Y
1000 Y0=FNP(Y)/2000:X0=2*Y
1010 GOTO 1080
1020 IF Y>Y1+Y2 THEN 1060
1030 DEF FNQ(Y)=-CX*Y+(P2X-Q2X)*(Y-Y1)+ N2*D21/2
1040 Y0=FNQ(Y)/2000:X0=Y*2
1050 GOTO 1080
1060 DEF FNW(Y)=-CX*Y+(P2X-Q2X)*(Y-Y1)+N3*D3/2+Q3*(Y-Y1-Y2)+N2*D21/2
1070 Y0=FNW(Y)/2000:X0=Y*2
1080 LINE-(80+X0,80+Y0)
1090 NEXT Y
1100 LINE (80,80)-( 80+YY*2,80)
1110 PSET(80,80)
1120 D22=171.72/2*SQR(1-SIN(Y0)^2)
1130 CY=(P3*Y3+(P2Y+Q2Y) *(Y2+Y3)-N2*D22/2)/YY
1140 DY=P3+P2Y+Q2Y-CY
1150 FOR Y=0 T0 YY STEP .5
1160 IF Y>Y1 THEN 1200
1170 DEF FNR(Y)=+CY*Y
1180 Y0=FNR(Y)/2000:X0=Y*2
1190 GOTO 1260
1200 IF Y>Y1+Y2 THEN 1240
1210 DEF FNE(Y)=+CY*Y-(P2Y-Q2Y)*(Y-Y1)+ N2*D22/2
1220 Y0=FNE(Y)/2000:X0=Y*2
1230 GOTO 1260
1240 DEF FNR(Y)=+CY*Y-(P2Y-Q2Y)*(Y-Y1)+ N2*D22/2-P3*(Y-Y1-Y2)
1250 Y0=FNR(Y)/2000:X0=Y*2
1260 LINE-(80+X0,80+Y0)
1270 NEXT Y
1280 END