РАСЧЕТ НА ЭВМ

HET

Q = 1 Q =0

Cls

10 REM проектировочный выбор подшипников POD.BAS

REM программа НМ-з.о.

11 DIM D$(100),BO(100),GO(100),R(100),R$(100),Z4(100)

12 DIM U(4,3),A$(200),S3$(100),S1$(100),S2$(100)

46 PRINT: PRINT: PRINT “ВВЕДИТЕ:”

150 PRINT “ Исходные данные: ”

151 PRINT

160 P1$=” Необходимая долговечность, млн.об. L=”:PRINT P1$:INPUT L

165 P2$=” Радиальная нагрузка, Н R=”:PRINT P2$:INPUT R

170 P3$=” Осевая нагрузка, Н A=”:PRINTP3$:INPUT A

INPUT” Кол-во подш в опоре ZP=”;ZP

175 P4$=” Коэффициент вращения V=”:PRINT P4$:INPUT V

180 P5$=” Коэффициент безопасности B=”:PRINT P5$:INPUT B

190 P6$=” Рабочая температура подш, град С T1=”:PRINT P6$:INPUT T1

203 IF T1>=125 THEN 206

204 T=1:GOTO 215

206 IF T1>=150 THEN 207 else T=1.05: GOTO 215

207 IF T1>=175 THEN 208 else T=1.1:GOTO 215

208 IF T1>=200 THEN 209 else T=1.17:GOTO 215

209 IF T1>=225 THEN 210 else T=1.25: GOTO 215

210 IF T1>=250 THEN 211 else T=1.33:GOTO 215

211 IF T1>=400 THEN 212 else T=1.4:GOTO 215

212 PRINT “ В ассортименте отсутствуют смазочные материалы с рабочей температурой”

213 PRINT “более 400 град. С. Введите раб.температуру подшипника”

214 INPUT T1 : GOTO 203

215 “Рабочая темп. Подш, град С T1=”; T1

216 P7$=” Температурный коэффициент ”

328 P15$= “Необходимый интервал внутреннего диаметра подш, мм”: PRINT P15$

329 INPUT “Введите D вн min”; D1: INPUT “Введите D вн max”; D2

360 IF D2<=495 THEN 400

370 PRINT “В банке данных содержатся подш с внутренним диаметром 20…495 mm²”

371 INPUT “Введите D BH MIN”; D1

372 INPUT “Введите D BH MAX”; D2 : GOTO 360

400 IF D1<=495 THEN 400

420 IF D2<20 THEN 370

640 P24$=” Максимальная частота вращения подш, об/мин”:PRINT P24$:INPUT N

670 IF W<1 THEN 720

680 IF W>2 THEN 720

710 ON W GOTO 740,750

720 PRINT “Ошибка при вводе кода смазочного материала! ”

721 PRINT “ Ввести: пластичный-1; жидкий-2: INPUT W: GOTO 670”

740 P26$= “смазочный материал пластичный”

745 GOTO 800

750 P28$=” смазочный материал жидкий”

800 INPUT “ Введите код типа подшипника”; К

1000 IF K=5 THEN 1012

1010 IF K>9 THEN 1014

1020 PRINT P9$; U1:GOTO 1024

1021 PRINT P10$:PRINT P11$:PRINT P111$:PRINT P12$:U1:GOTO 1024

1022 PRINT P13$; P131$:PRINT P14$:PRINT P141$:PRINT P142$ ; P143$;U1

1030 PRINT P26$:GOTO 1035

1032 PRINT P28$

1048 KP$=STR$(K)

1049 KP$=RIGHT$(KP$,1)

1051 TP$=TP$+”.DAT”

1055 K9=0

1059 F6=0

1060 OPEN “I”,#4,TP$

1062 IF EDF(4) THEN 1078

1066 F6=F6+1

1067 DO=VAL(MID$(A$,7,8))

1075 K9=K9+1

1076 GOTO 1062

1080 CLOSE #4

1081 Q=0

1083 FOR I=1 TO 4

1084 FOR J=1 TO 3

1086 READ U(I,J)

1087 NEXT J

1088 NEXT I

1090 FOR I=1 TO K9

1100 DO=VAL(MID$(D$(I),7,8))

1140 IF G0<G1 THEN 1339

1150 IF G0>G2 THEN 1339

1160 B0=VAL(MID$(D$(I),17,23))

1190 ON W GOTO 1200,1202 : STOP

1228 IF N>N1 THEN 1339

1229 GOTO 1240

1230 IF N>N1 THEN 1339

1240 GOSUB 1930

1245 U=U(U2,U1)

1250 P=(X*V*R+Y*A)*B*T

IF ZP>1 THEN 1260

L1=U*(C/P)^S: GOTO 1270

1260 L1=U*(C*ZP^0.75/P)^S

1270 IF L1<L THEN 1339

1280 Q=Q+1

1300 R(Q)=L1

1310 GO(Q)=G0

1320 BO(Q)=B0

1339 NEXT I

1350 IF Q>0 THEN 1370

1370 IF Q=1 THEN 1480

1390 FOR I=1 TO Q-1 : M=0

1400 FOR J=1 TO Q-1

1410 IF R(J)<=R(J+1) THEN 1460

1420 T1=R(J) : R(J)=R(J+1) : R(J+1)=T1 : M=1

1460 NEXT J: IF M=0 THEN 1480

1470 NEXT I: REM конец сортировки

1480 REM печать выходной информации

CLS

1481 PRINT “ Подшипники, отвечающие исходным требованиям”

1550 FOR I=0 TO Q

1560 FOR J=1 TO 5

1561 Y$=MID$(R$(I),J,1)

1570 IF Y$<> “0” THEN 1600

1580 A$=MID$(R$(I),J,1):A$=“ ”

1590 NEXT J

1600 S$=MID$(R$(I),1,4)

1610 IF S$<>” 32” THEN 1620

1620 IF S$<>” 8” THEN 1630

1630 IF S$<>”3003” THEN 1650

1650 Z3=Z3+1 : S3$(Z3)=MID$(R$(I),5,8) : Z4(Z3)=2 : GOTO 1670

1670 NEXT I

1690 DATA 0.014,0.019,2.3,0.028,0.22,1.99,0.056,0.26,1.71

1700 FOR J=1 TO 9

1710 FOR I1=1 TO 3

1720 READ M(J,I1)

1730 NEXT I1

1740 NEXT J

1760 FOR J=1 TO 9

1780 IF M(J,1)=K1 THEN 1790

1790 IF M(J,1)>I<1 THEN 1800

1800 IF A/V/R>E THEN 1810

1810 X=1 : Y=0 : RETURN

1820 X=.56: RETURN

1830 S=3:U2=2:REM*************ТИП 1000**************

2170 X=.65: RETURN

2190 S=10/3:U2=2:REM***********ТИП 2000 И 4000********

2200 X=1 : Y=0 : RETURN

2210 S=10/3:U2=4:REM***********ТИП 3000************

2220 FOR J=1 TO 9

2230 IF N(J,1)=K1 THEN 2250

2250 IF N(J,1)>I<1 THEN 2270

2270 NEXT J : E=.54 : Y1=1.16 : Y2=1.61 : GOTO 2280

2290 X=1 : Y=1 :RETURN

3170 X=.36 : Y=.64 : RETURN

3180 IF A/V/R>.99 THEN3200

3200 X=.59 : Y=1.04 : RETURN

3400 END

Исходные данные:

Необходимая долговечность, млн. об L= 1.00

Радиальная нагрузка, Н R= 15200.00

Осевая нагрузка, Н А= 10900.00

Кол-во подш в опоре ZP= 1

Коэффициент вращения V= 1.00

Коэффициент безопасности В= 1.20

Рабочая температура подш, град С T1= 70.00

Вид условий эксплуатации подшипника:

Обычные условия U1= 1

Необходимые интервал внутреннего диаметра подш, мм 70-70

Необходимый интервал наружного диаметра подш, мм 170-190

Необходимый интервал ширины подш, мм 35-50

Максимальная частота вращения подш, об/мин 750

Смазочный материал жидкий

Тип подшипника 6

Подшипники, отвечающие исходным требованиям”

:--------------------------------------------------------------------------------

: Номер : Долговечность, : Наружный : ширина,

: подшипника : млн оборотов : диаметр, мм : мм

:--------------------------------------------------------------------------------

66414 * 3.8 180 42

---------------------------------------------------------------------------------

конец