Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Расчет на ЭВМ




Определение коэффициентов Xi, y, S
Блок-схема программы проектировочного выбора подшипников

 

               
       

 


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 mm2

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

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

 

 

конец

 

 

Выводы

 

Программа выбора подшипников разработано в НИИКЛБООГКБУ в программе использован алгоритм полученный от В3БТ.

Программа написана на языке Бейсик. Программа работает в режиме диалога. Программа позволяет выбрать подшипник из числа, записанных в базе данных, содержащиеся в памяти ЭВМ. В базе данных внесены стандартные подшипники с внутренним диаметром от 20 до 495 мм.

Метод выбора подшипника учитывает воспринимаемую им нагрузку, частоту вращения, а также ограничения его габаритных размеров, позволяет выбрать подшипник с достаточной динамической грузоподъемностью удовлетворяющей требованиям к долговечности.

В проекте «Нефтяного центробежного насоса производительностью 600 м3/час и напором 100 м» предусмотрен подшипник №66414.

В результате расчетов на ЭВМ была подтверждена правильность выбора данного подшипника.




Поделиться с друзьями:


Дата добавления: 2015-07-02; Просмотров: 545; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.012 сек.