243. Шатохин С.Н., Шахворостов В.И. Оптимальные размеры шпиндельных узлов с аэростатическими подшипниками // Газовая смазка в машинах и приборах. – М.: 1989. – С. 92-93.
244. Шатохин С.Н., Коднянко В.А., Пикалов Ю.А. Функциональные возможности шпиндельных газостатических опор // Трение и смазка в машинах. Часть 1. г. Челябинск. 1983.- С. 140-141.
245. Шатохин С.Н. Универсальная форма записи основных соотношений гидродинамической теории смазки // Опоры скольжения с внешним источников давления. – Красноярск. 1977. С. 5-17.
246. Шатохин С.Н., Шахворостов В.И. Оптимальные размеры шпиндельных узлов с аэростатическими подшипниками // Газовая смазка в машинах и приборах. – М.: 1989. – С. 92-93.
247. Шварцман М., Горез Р. Проектирование аэростатических подшипников с пористыми стенками не на полную длину подшипника / Перевод № Б-12691 (79/74809) статьи, Szwarcman M., Gorez R. “Design of aerostatic journal of machine tool design and research.” / Creat Britain, Pergamon press Ltd., 1978. V.18. № 2. Р. 49-58.
248. Шейнберг С.А. Газовая смазка подшипников скольжения // Трение и износ в машинах. № 8. АН СССР. 1953.
249. Шейнберг С.А. и др. Опоры скольжения с газовой смазкой / С.А. Шейнберг, В.П. Жедь, М.Д. Шишеев, В.С. Баласаньян, Н.Д. Заблоцкий – М.: Машиностроение, 1979.- 336 с.
250. Шейнберг С.А., Табачников Ю.Б. О расчёте плоских аэростатических направляющих / Станки и инструмент. 1967. № 6. С. 9-12.
251. Шейнберг С.А. Экспериментальное исследование аэродинамических опор скольжения // Трение и износ в машинах № 6. АН СССР – 1950.
252. Шенк Х. Теория инженерного эксперимента. – М.: Мир.1972.
253. Шидловский В.П. Принципы динамического расчёта газового подшипника с упруго-деформируемой поверхностью. / Надежность роторных систем с опорами на газовой смазке. М.: 1990. C.79.
254. Шидловская И. И. Шидловский В.П. Исследование неустановившегося процесса запуска газового подшипника / Изв. А.Н. СССР. Механика жидкости и газа. № 5. – 1977. – С. 156-160.
255. Шишкин И.Л. Достижения, перспективы и некоторые направления развития машин, механизмов и приборов на газовых опорах на период до 2000 года. // Газовая смазка в машинах и приборах. – М.: 1989. – C. 202-204.
256. Шишкин И.Л. Турбомашины на газовых опорах. – Владивосток. Изд-во ДВГУ. 1985. - 168 с.
257. Яблонский А.А. Курс теоретической механики. Часть П. – М.: Высшая школа, 1977. – 430 с.
258. Ябэ Х. Вопросы исследования газостатических подшипников / Перевод № Е-04399 (83/44371) “Дзюнкацу”, 1981. V.26 № 12. Р. 793-798.
259. Ябэ Х. Подшипники с газовой смазкой / Перевод №Ц-36861 (75/44334) статьи Ябэ Х. “Дзюнкацу” 1973. V. 18. № 5 Р. 353-358.
260. Ябэ. Х. Способы проектирования аэростатических подшипников скольжения / Перевод № Ц-17305 (74/16911) статьи Ябэ Х. “Дзюнкацу”. 1972. V.17. № 8. Р. 528-535.
261. Ябэ. Х. Тенденции в проектировании и применении статических газовых подшипников / Перевод № Ц-98404 (77/38221) статьи Ябэ Х. “Кикай сэккэй”. 1976. V.20. № 3, Р. 14-18.
262. Яненко Н.Н. Метод дробных шагов решения многомерных задач математической физики. Новосибирск, Наука, 1967.
263. 150 mm Foil Journal Bearing and Hybrid Foil Magnetic Bearing // Mi Ti Developments, Brief, vol. 20, November 2004 – 2 p.
264 Agrawal, G.L., Foil Air/Gas Bearing Technology – An Overview // The American Society of Mechanical Engineers 1 еликов В.В. Осевой газодинамический подшипник с упругой рабочей поверхностью // Актуальные пр, Publication 97 – GT-347, New York – 11 p.
265. Analysis of gas lubricated compliant thrust bearings. Hesmat H.W., Walowit I.A., Pinkus O/Trans. ASME. J. Lubric. Technol. 1983, 105 № 4. P. 638-646.
266. Baker R.E., Hornung K.G. Effects of heat generation in an air hydrostatic journal bearing // Trans. ASME, 1970, F 92, № 4. P. 607-616.
267. Beardmore G. The role of gas lubricated bearings in current and future sensors // Proc. Institution of Mechanical Engineers, V. 79. P. 45-52.
268. Вennet J., Hudson B. G. March H. The Flow Characteristics of Small Orifices Used in Externally Pressurized Gas Bearings // Proc. 7th. International Gas Bearing Symposium – 1976. – E 3-39-E 3-48.
269. Blondeel E. Externally pressurized bearings with variable gap geometrics // Proceedings 7th International Gas Bearing Symposium, Cambridge, England, 1976.- 18 p.
270. Carfagno S.P.,Mc. Cabe J.I. Summary of Investigation of Entrance Effects in Circula Thrust Bearings // University of Southampton, Gas Bearings Symposium. March 1971, 17p.
271. Collins K., Shires G.A., Mech M. The Interaction of Radial and Axial Loads on A Splot Fed Journal Bearing With Bleed Thrust Fau // 6-th International Gas Bearing Symposium. University of Southampton. 1974. P. A 5-61- A 5- 82.
272. Dah- Chen Sun On the stiffness and damping properties of an Externally Pressurized, Gas-Lubricated Porous Thrust Bearing // Proc. 7 th International Gas Bearing Symposium, Cambridge. 1976. P.A5-67-A5-81. 260.
273. Duckworth R. A. An Experimental Study of Externally Pressurized Steam-Lubricated Bearings / Gas Bearing Symposium, University of Southampton, 1971. 18p.
274. Decker O. Where, How and Why Gas Bearings compete with Rolling Contact Bearings / Proc. 6th International Gas Bearing Symposium. University of Southampton -1974.- p.F1-1-F1-20.
275. DellaCorte, C., Valko, M.J. Load Capacity Estimation of foil Air Journal Bearings for Oil-Free Turbomashinery Applications, NASA/TM – 200-209782-15 p.
276. Dudglon E. H., Lowe I. R. C. A Theoretical Analysis of Hydrostatic Gas Journal Bearings / National Research Council of Canada. Report MT-54. 1965.
277. Etsion I. A Cantilever Mounted Resilient Paol Gas Thrust Bearing / Transactions of the ASME. Journal of Lubrication Technology. January 1977. p.95-100.
278. Galinskas A. Externally Pressurized Air Bearings Belt Drives and Vibrators / Proc. 6th International Gas Bearing Symposium, 1974. P.D3-43-D3-50.
279. Gross W.A. A Review of Developments in Externally Pressurized Gas Bearing Technology Since 1959.
280. Guha S.K., Rao N.S., Majumdar B.C. Study of Conical Whirl Instability of Self-Acting Porous Gas Journal Bearings Considering Tangential Velosity Slip//Transactions of the ASME. Journal of Tribology, 1988. V. 110 P. 139-143.
281. Harada M., Ogawa T. Investigations on externally pressurized air journal bearings. Static state bearing without pocket/ J. Mech. Lab. Japan,-1966, №12, №1, p. 10-16.
282. Harrison W.I. The Hydrodynamic Theory of Lubrication with Special Reference to Air Lubricants/ Trans. Camb. Philoi Soc. 1913. - V. 22. - P. 39-54.
283. Hardie C.E. Mac. Ettles C.M. The Analysis of Self- Acting Flexible Foil Slider Bearing // Transactions of the ASME. Journal of Tribology - 1988. - V. 110. - P. 134-138.
284. High-Speed, Oil-Free, Motorized Spindle // Mi Ti Developments, vol. 21, January 2005 – 4 p.
285. Hirn A. Study of principal phenomena shown by friction // Bull soc. induster. Millhouse, 1854. - V.XXVI. - P. 188-277.
286.Hindle J.A., Barnes G.R. A Split Sleeve Aerodynamic Bearing Far Light Load Applications// Proc. 7th International Gas Bearing Symposium. - 1976. P. F 3-37- F 3-54.
287. Ishino Minoru, Air Bearing for Automotive Turbocharger // Toyota Central R @ Dhabs., INC. Technical News, 2006 – 1 p.
288. Kazimiercki Zbysko, Dzieciok Anna, Tpojnarski Janusz. Obliczenia lozysk gazowych zewnetrznie zasilanych i porowanie wynikow z ekspe- rymentem / Arehiwum budowy maszyn tom. XXIV. 1977. P. 459-475.
289. Kazimierski Z., Krysinski J. Caracteristiques non dimensionnelles des paliers a gaz // Revue de metallurgie, 1979. V. 25. № 1. Р. 36-42.
290. Kazimierski Zbyszko, Krysztof Michal. Metoda obliczen lozysk gazowych wzdkoznych zewnetrznie zasilanych i porownanie wynikow z eksperymentem // Zeszyty naukowe politechniki lodzkiej, 1978. P. 27-42. 291. Kazimierski Z., Krysinski J., Caraeteristiques non dimen- sionnells des paliers a qar. “ Revue de metallurdie, 1979 г. V. 25, № 1, р. 36-42.
292. Kazimierski Z., Krysztof M. Podstawy oblicren loozysk garowich wzdlurnych rewnetrznie Zasilanych // Zeszyty navkowe polyitechniki lodzkiej. 1978. № 311. Р. 17-26.
293. Kingsbury A. Experiments with air lubricated bearing. Am. Soc. Nav. Eng. 1897. - V. 9.- P. 267-292.
294. Krysinski J., Karimirski Z. Methode pratique de caleul des paliers alimentes de l exterieur par gaz comprime. “ Revue de metallurgie, 1979. V. 25, № 1, p. 43-48.
295. Krysinski Ian, Kazimierski Zbyszko. Methode de calcul dec paliers alimentes de l exterieur par un gaz comprime// Universite Technique de Lodz (Pologne) 1978. 41 p.
296. Licht L. Air- Hammer Instability in Pressurized- Journal Gas Bearings // Transactions of the ASME. Journal of Basic Engineering. June 1961. P. 235-243.
297. Licht L., Elrod H.G. An Experimental Study of the Stability of on Externally Pressurized, Gas-Lubricated Thrust Bearing // Transactions of the ASME. Journal of Applied Mechanics,-1966. P. 25-30.
298. Licht L., Elrod H. A Study of the Stability of Externally Pressurized Gas Bearings / Transactions of the ASME, Journal of Applied Mechanics, 1966. p- 250-258.
299. Lowe J. R. G. A Study of Flow Phenomena in Externally Pressurized Gas Thrust Bearings// 7th International Gas Bearings Symposium. July 1976, p.e 3.
300. Maday C. J. The One Dimensional Optimum Hydrodynamic Gas Slider Bearing /Transaction of the ASME. Journal of Lubrication Technology, 1968. №1. P. 281-285.
301. Majumdar B. C. Analysis of Externally Pressurized Gas Journal Bearing/Journal of Mechanical Engineering Science, 1970. V.12, №1. P.1-6.
302. Majumdar B. C. Externally Pressurized Air Journal Bearing with Multiple Supply Holes/Applied Scientific Research. 1970. V.22, №3/4, P. 239-250.
303. Majumdar B.C. The Numerical Solution of Aerostatic Journal Bearings with Several Supply Ports/ Wear, 1970. V. 15, P. 331-340.
304. Majumdar B.C. On the General Solution on Externally Pressurized Gas Journal// Труды ASME, сер. F.
305. Majumdar B. C. Theoretical Analysis of Externally Pressurized Air Journal Bearing/ Journal of Mechanical Engineering Science, 1970. V.12, №2. P. 123-129.
306. Majumdar M. C., Majumdar B. C. Study of the Pneumatic Instability of Externally Pressurized Porous Gas Thrust Bearings with Slip Velocity/ Wear, 1988. V. 124. P. 261-277.
307. Mech C. Besse J. P. Externally Pressurized Gas Bearings For High Speed Turbo machines// Proc. 6th International Gas Bearing Symposium, 1974. P. B4-45-B4-55.
308. Mesoscopic Turbojet Simulator Tested at Speeds Above 700, 000 rpm On Air Foil Bearings! // Mi Ti Developments, vol. 17, January 2003- 4 p.
309. Mori H. A Theory of on Externally Pressurized Circular Thrust Gas Bearing With Consideration of the Effects of Lubricant Inertia / Paper ASME,- 1962,-Lub13. P 1-6.
310. Mori H., Yabe H. Analysis of externally pressurized circular thrust gas-bearing with multiple supply holes / Trans ASLE,-1964, №3 P. 269-276.
311. Mullan P. J. Pressurized Fixed-Orifice Gas Journal Bearing in Plane Vibration // Transactions of the ASME. Journal of Basic Engineering.-1965. P. 264-265.
312. Newgard P.M., Kiang R.L. Elastic orifices for pressurized gas bearing / Transactions of the ASLE, 1966. V.9. № 3. P. 311-317.
313. Ohrubo T., Kishigami J. Accurate Measurement of Gas-Lubricated Slider Bearing Separation Using Visible Laser Interferometry// Transactions of the ASME. Journal of Tribology, 1988. V.110, №1. P. 148-155.
314. Pan, Arwas, Finkin, Malanoski. Analysis and Test of Externally-Pressurized Steam Lubricated Bearings/ A status Report., Gas Bearing Simposium, University of Southampton,1971.
315. Pande S.S., Somasundaram S. Analysis of An Aerostatic Journal Bearing With A Position-Sensing Restrictor/ Wear,-1981.-V70 P.141-154.
316. 942 Pounds on a Film of Air! // Mi Ti Developments, vol. 4, winter 1998–2 p.
317. Perry J. A Critical Flow Through Sharp-Edged Orifices. Trans. ASME, vol. 71. 1949. P. 757.
318. Pink E.G. Investigations into design methods for externally pressurized gas journal bearings//Proceeding 6th International Gas Bearing Symposium, Southampton, England, 1974-P. 33-41.
319. Pink E. G. Investigations into design methods for externally pressurized gas journal bearings/Tribology international. December, 1974. P. 265-269.
320. Pink E.G., Stout K. J. Orifice Restrictor Losses in Journal Bearings/ Engineering Synopses, 1978,-V.2, №6.- p. 131-133.
321. Pink E.G., Stout K. J. Orifice Restrictor Losses in Journal Bearings/ Proc. Inst. Mech. Eng. 1979. V. 193. P. 47-52.
322. Samsonov A. Analysis and Design of Self- acting Gas- Lubricated Foil Bearings for High Speed Turbo machineries // Proceedings 3 rd International Marine Engineering Conference, Shanghais, China. 1996.
323. Samsonov A., Batuev B.B. The foil journal bearing with external pressurization and one elastic working surface / Proceedings of 7 international Symposium on Marine Engineering. ISME TOKYO. 2005. 4 p.
324. Samsonov A., Didov V.V. Gas Lubricated Bearings for Turbo Machines -Research and Applications at Far-Eastern National Technical University Russia /Proceedings of 7 international Symposium on Marine Engineering. ISME TOKYO. 2005. 4 p.
325. Samsonov A., Didov V.V. Research of Forced Oscillations of a Rotor of the Ship Turbo Compressor of Pressure Charging Internal Combustion Engine on Cas Lubricated Compliant Bearing. Proceedings of 7 international Symposium on Marine Engineering. ISME TOKYO. 2005. 5 p.
326. Samsonov A., Menzinskeiy I. Pashko Y. Self-acting gas lubricated foil thrust bearings for superchargers of internal combustion engine // Shipbuilding and Ocean Engineering. Problems and Perspectives: Materials international Conference. /Vladivostok, Russia. 2001. p.401-406.
327. Samsonov A., Zelikov V.V. An Experimental study of gas lubricated thrust bearing / Shipbuilding and Ocean Engineering. Problems and Perspectives: Materials international Conference Vladivostok, 2001. p.406-409.
328. Sato Y., Maruta K., Harada M. Dynamic Characteristics of Hydrostatic Thrust Air Bearing With Actively Controlled Restrictor// Transactions of the ASME. Journal of Tribology -1988.-V. 110.-P. 156-161.
329. Schmid C. Gas Bearing Turbo expanders For Cryogenic Plants// Proc. 6th International Gas Bearing Symposium. University of Southampton, 1974. P. B1-1-B1-8.
330. Shires G.L. The design of pressurized gas bearings. Tribology.-1968.-№4- p. 219-229.
331. Stanford, M.K., DellaCorte, C., Friction and Wear characteristics of Cu- 4Al Foil Bearing Coating at 25 and 650 ºC, NASA/TM – 2004- 212972 – 16 p.
332. Stout K.J., Porritt T.E., Rowe W.B. The Performance of externally Pressurized Slot Restricted Journal Bearings// 6th International Gas Bearing Symposium, University of Southampton, 1974. P. A6-83- A6-96.
333. Tully N. A review of the current status of gas lubricated bearing//The South African Mechanical Engineer. 1976. V. 26. P. 512-518.
334. Wapato P., Norman R. H. Long duration cryogenic cooling with the reversed Brayton turbo-refrigerator// Proceedings of Society of Photo-optical instrumentation Engineers. 1980. V. 245. Cryogenically Cooled Sensor Technology. Ed. R.J. Huppi. July 29-30. San-Diego. Calif. US.
335. Yabe H. Current Research on Externally Pressurized Gas - Ludricated Bearings / JSME. International journal. 1987. V. 30, № 267. P. 1369 - 1374.
336. Авторское свидетельство № 675406. СССР, МКИ. G. 05. Д 13/10. Регулятор угловой скорости / Котляр И.В., Виноградов В.С., Самсонов А.И. и др. заявл. 19.01.76, опубл. 25.07.79. Бюл. № 27.
337. Авторское свидетельство № 796499, СССР, МКИ F 16 С 17/ 02; F 16 C 33/ 10. Подшипник с паровой смазкой / Котляр И.В., Самсонов А.И., Рощин О.Г. № 2589325/ 25-27 заявл. 13.03.78. опубл. 15.01.81. Бюл. № 2.
338. Авторское свидетельство № 1700273, СССР. Газотурбинный двигатель / Кончаков Е.И., Самсонов А.И. заявл. 30.12.1982г., зарегистр.22.08.1991. 339. Авторское свидетельство № 1745983, СССР. Пневмодвигатель с подшипниками на воздушной смазке / Самсонов А.И., Лобановский В.В. Заявл. 23.10.1989. Зарегистр. 08.03.1992 г.
340. Патент России № 2064612, МКИ F16 С 27/02 Газодинамический подшипник скольжения / Самсонов А.И., Кононов С.И. заявка № 93044022 от 6.09.199. 3арегистр. 27.07.1996 г.
341. Микротурбина / Манич С. Н., Самсонов А. И. Патент России № 2094635, 1997 по заявке № 94017873/06 от 28.06 1994.
342. Патент № 2204064 Российская федерация, F 16 C 17/04. 32/06 Газодинамический подшипник / Самсонов А.И., патентообладатель Дальневосточный государственный технический университет. - № 2000131251; заявка 13.12.2000; приоритет 13.12.2000.
ПРИЛОЖЕНИЯ
Приложение А
Программа расчёта осевых ЛГП с учетом прогиба лепестков
#include<stdlib. h>
#include<string. h>
#include <stdio. h>
#include <math. h>
#include <conio. h>
/*#define 0 140 вспомогательная переменная*/
#define К 90 /* Angle */
#define I 16 /* Radius */
FILE *ff;
char *name="rez4.c", *ml="w", *m2="a";
double Pa=100000,
H1,
N2=0.000010,
pi=3. 1415926,
R2=0.05,
R1=0.025,
E=0. 00001,
MAX_PROGIB=0.001,
H=0.000100,
m=l.8е-5,
n=60000,
S=0.000100,
VAR=1,
eee=2Ell,
У=l.,
yl=0.6;
const N=6;
double YM[I+1][K+1], hn[I+1][K+1], h [I+1][K+1];
void main(void)
{
int i, j,NI, k,map, flag, Kl, t, voz, o;
double r[I+1],eiz[I+1],gg,z,w,mi;
double P[I+1][K+1],max_prog, hp, Yp;
double MI,a[I+1],b[I+1],c[I+1],d[I+1],ee[I+1],fl[I+1]Qp[I+1]
mk[I+1];
double M,Pl,P2,P3,P4,v,Pl[I+1];
double A, B, C, D, PP, C1, D1, W, W1 „ W2, WB, L, T1, Ra[I+1],Rb[I+1], min;
double h3,r2,Q,Q2,dr,dr2,V,max,e,MTO,MT,NT,MT1,MT2,MTR;
ff=fopen (name, m2);
if (ff==NULL) ff=fopen(name,m1)
w=pi*n/30;
Kl=K/2;
H1=H2+S+H;
L=12. *m*w*R2*R2/S/S/Pa;
сlrscr ();
for (i=0; i<=I; i++)
{
r [ i ] = (R1+i*(R2-R1)/ I)/R2;
for (i=0; i<=I; i++)
for (k=0; k<=K; k++)
{
if (k <K1) h [ i ] = (K1-k)* (H1 – H2-H) /S/K1+ (H+H2)/S;
else h [ i ] [k]= (K-k)*H/(K-K1)/S+H2/S;
if (i= =0:: i= =I:: k= =0:: k= =K)
P [ i ] [k]= 1.0;
else
P [ i ] [k]= 1.5;
hn[i][k]= h [ i ][k];
gotoxy (1,1);
cprintf ("h[%u,%u,]=%le,", i,k,P [ i ] = [k];
}
for (i=0; i<I; i++)
for (k=0; k<=K; k++)
{
if (k <K1) YM [i ][ k] = (h [ i ] [k] – (H +H2)/S;
else YM [ i ] [k] = - ((H2+H)/S –h [ i ] [k];
}
t=0;
voz=l;
clrscr ();
while (voz= =l)
{
max__prog=0;
clrscr ();
t=t+l;
Q=pi/N/K;
Q2=Q*Q;
{
dr=r[2]-r[1];
dr2=dr*dr;
map=l; NI=0;
clrscr (); flag=1;
while (map= =l)
{
max=0;
NI=NI-l; flag=0;v =3./4;
Cl = dr*02/2;
Dl = 6.0*m*w*R2*R2/S/S/Pa*dr2*Q;
for (i=1; i<I; i++)
{
r2= r[i]*r [i];
M = 2.*(r2*Q2+dr2);
A = Q2*r2/M;
В = dr2/M;
С = Cl*r[i]/M;
D = Dl*r2/M;
for (k=1; k<K; k++)
{
h3=h[i][k]*h [i][k]*h[i][k];
if (P[i][k]<000l) gg=0.000l; else gg=P[i][k];
P1 = A* (P[ i + 1][k ]+P[ i-1] [k]) +B* (P[ i ] [k + 1]+P[i][ k -1]) +C* (P[ i + 1] [k]-P[i-1] [k]);
P2 = B*(P[i][k+1] – P[ i] [ k-1]) * (h[ i ] [ k + 1] – h[ i ] [ k-1]);
P3 = A* (P[ i + 1 ] [ k ]- P[ i-1] [ k]) * (h[ i + 1] [ k ] – h [ i-1] [k]);
P4=D* (h[ i ] [ k ] * (P[ i] [ k + 1]-P[ i ] [k-1]) +2. *P[ i ] [k ] * (h[ i ] [k + 1] –h [ i ] [k-1])) /2. /h3/sqrt (gg);
PP = P l + v* P2 / h [i] [k]+ v* P3/h[i][k]- P4;
i f (PP< 0. 0001) PP=0,001;
e=fabs(P[i] [k] -PP);
if (e>max) max=e;
P[ i ] [k ]=y*PP+ (1. -y) *P[ i ] [ k ];
}
}
gotox у (50, 20);
с p r i nt f (" \ n max P= % 1. 6f “ >, rnax);
if (max < E) map = 0;
}
W=0;
for (i=0; i< I; i++)
for (k=0; k<K; k++)
{
W =W+1. 0/8* (sqrt (P[ i ] [ k ] + sqrt (P[ i + 1] [k]) +sqrt (P[ i ] [k + 1]) + sqrt(P[ i+1 ] [k+1 ])) *dr*Q* (r [i]+r[i+1]);
}
Wl=W*Pa*R2*R2;
W2«Wl-pi*(R2*R2 -Rl*Rl) *Pa/N/2.;
W=W2*2.*N;
WB=W2/Pa/pi/ (R2*R2-Rl*Rl) *2. *N;
printf (“\n W = %7. 2f WB=%7.7f NI=%d H1=%1e”,W,WB, NI; Hl;
MTO=0;
MT=0;
for (i=1; i<I; i++)
for (k =1; k<K; k++)
{
MT= MT + (r [ i - 1 ] + r [ i] * (r [ i – 1][k-1] + h [ i – 1] [k] + h[i] [k – 1] +h[i][k])*
((P[i] [k]+P[i-1] [k]) - (P[i] [k-1] +P[i-1] [k-1])) /sqrt ((P[i] [k]+P[i-1] [k ]) + (P[ i ][k-1 ]+P[ i-1 ] [ k-1]));
MTO=MTO+ (r [i – 1] + r [ i ] * (r[ i – 1] + r [ i]) * (r [ i – 1]+ r [ i ]) / (h [ i – 1][k – 1] +h [ i-1][k] + h[ i] [k]+h [i] [k-1]);
}
MT1=2. *N*R2*R2*Pa*S*dr/32. *MT;
MT2=N*R2*R2*R2*R2*m*w*dr*Q/S*MTO;
MTR=MT1+MT2;
NT=MTR*w;
p r i nt f ("\ nMT1 = %.5. 5f MTR=%.5. 5f NT=%.5.1 f ", MT1, MTR, NT);
/*******************************************************************
часть программы, вычисляющая прогиб лепестка подшипника
*******************************************************************/
mi=(R2-Rl) /1;
for (i=0; i<I; i++)
{
mk [i]= (r[i]*R2) *pi / N / K;
PI [i ]=mk [ i] *mi;
for (i=0; i< I; i++)
{
a[i]=0;
Qp[i]=0;
f о r (k = 0; k < К; k + +)
{
а[ i ]+= (sqrt (P[i ][k]) + sqrt (P[i + 1] [k]) +sqrt (P[ i ] [k+l ]) +sqrt (P [i + 1][k+1])) /4 -1) *k;
Qp [i]+= ((sqrt (P[ i] [k]) + sqrt (P[i+1][k]) +sqrt (P[ i] [k + l]) + sqrt (P[ i + 1][k+1])) /4-1);
}
а[ i ]=Pa*P 1[ i ] *a [ i ] *mk [ i ];
Qp[ i ]= Pa*P1 [ i ]*Qp [ i ];
}
For (i=0; i<I; i++)
{
b [i ] =0;
ee [ i ]=0;
f 1 [ i ] =0;
for (k=0; k<Kl; k++)
{
b[ i ] = b[ i ]+ ((sqrt (P[ i ] [k]) +sqrt (P[ i + 1 ] [ k ]) + sqrt (P[ i + 1] [k + l ]) + sqrt (P[ i ][ k + 1])) /4 -1)*k;
ee [ i ]=ее [ i ]+ ((sqrt (P[ i ] [ k ]) + sqrt (P[ i + 1] [ k ]) + sqrt (P[ i ] [ k + 1]) +sqrt (P[i+1][k+l])) /4 -1) * (K1 - k);
f 1[i ]=f 1[i ]+(Kl - k)*(Kl - k)*(Kl - k)*((sqrt (P[ i ][ k ]) + sqrt (P[ i + 1][ k ])+ sqrt (P[ i ] [k+1 ] + sqrt (P[i+1][k+l])) /4 -1);
}
b[i ]= Pa*P1 [ i ] *b [ i ] *m k[ i ];
ee [ i ]= Pa*P1 [ i ] *mk [ i ] *ee [ i ];
f 1[i ]= Pa*P1 [ i ] *mk [ i ] *mk [ i ] *mk [ i ] * mk [ i ] *f1[ i ]/6;
}
for (i=0; i<I; i++)
{
с [ i ]=0;
d [ i ]=0;
for (k=Kl; k<K; k++)
{
с [ i ]=c [ i ] + k* ((sqrt (P[ i ] [ k ]) +sqrt (P[ i + 1] [ k ] +sqrt (P[ i ] [ k + 1]) + sqrt (P[ i + 1][k + 1])) /4-1);
d[ i ] = d[ i ]+ ((sqrt (P[ i ] [k]) +sqrt (P[ i + 1] [ k]) +sqrt (P[ i + 1] [k + l]) +sqrt (P[ i+1 ] [ k + 1])) /4 – 1) *(k – K1);
}
с [ i ]=Pa*P 1 [ i ] *mk [ i ] *c [ i ];
d [ i ]=Pa*Pl [ i ] *mk [ i ] *d [ i ];
}
M I = (R2 - R1)/ I * S * S * S / 1 2;
for (i=0; i < I; i++)
{
Ra [ i ] = (ее [ i ] -d [ i ]) /mk [i ]/ K 1;
Rb[i] = а[ i ] / (K1* mk [i ]);
eiz[ i ]=-fl [i ] /Kl /mk [i]-Ra [i] *K1 *K1 *mk [i] *mk [i] /6;
}
for (i=0; i<I; i++)
{
for (k=0; k<K; k++)
{
z = 0;
for (o=0; o< = k; о++)
{
z = z+ ((sqrt (P[i][o])+sqrt (P[ i + 1] [o])) /2-1) * (k-o) * (k-o) * (k-o);
}
z=Pa*P1 [ i ] *mk [ i ] *mk [ i ] *mk [ i ] /6* z;
if (k >=K1) Yp= (ei z [ i ] *k*mk [ i ]+Ra [ i ]*k*k*k*mk [ i ]*mk [ i ]*mk [ i ]/6-z + Rb[i]*(k-Kl)*(k-Kl)*(k-Kl) * mk [i ]*mk [ i ]*mk [i ]/ 6) /eee / MI/S;
else Yp =(eiz [ i ]*k*mk [ i ]+ Ra[ i ]*k*k*k*mk [i ]*mk [ i ]*mk [i ]/ 6 - z) /eee/MI/S;
i f (f abs (Yp) >f abs (YM [ i ] [ k ])) Yp= YM [ i ] [ k ];
hp=hn [ i ] [k ]-Yp;
if (hp>(Hl/S)) hp=Hl/S;
if (fabs (hp-h [ i ] [k]) >max_prog) {max_prog=f abs (hp-h [ i ] [ k ]); }
h [ i ] [ k ]=y1*hp+ (1.- y1)*h [ i ][ k ];
}
}
for (i=0; i<I; i++)
{ h [ i ] [ K ]= h [ i ][K – 1]; }
for (k=0; k<=K; k++)
h [ I ] [ k ]= h [ I -1 ][k ]; }
/*******************************************************************/
fprintf (f f,"\ n R1=%5. 4f R2=%5. 4f n=%6.1f Pa=%6.1f N=%d”, t =%d'', R1,R2, n, Pa, N, t);
fprintf (ff, “\n W=%5.1f WB=%4.3f NT=%5.0f L=%5.3f E=%1.6f NI=%d",
W, WB, NT, L, E, NI.);
fprintf (ff, "\n K=%d I=%d К1 =%d H2=%1.6f H1 =%1. 6f S=%1. 6f ", К, I, K1, Н2,Н1, S;
qotoxy (10, 20);
сprintf ("\n m a x _p r о g = %1. 6f", m a x _p r о g);
getch ();
if (max_p r og< MAX_PROGIB) voz =0;
}
fprintf (ff,"\nk i 1 3 5 7 9 11 13
for (k=0; k<=K; k+=2)
{
fprintf (ff,"\n%u”,k);
for (i=1; i<=I; i+=2) fprintf (ff," %3. 2g\t”, h[i] [k];
}
printf ("\a");
fclose (ff);
}
Приложение Б
Программа расчёта радиальных подшипников с наддувом газа
real LM, KA, N, LC, LAM, NK, MK, MR, MU; UCK, OMEGA, MRB
DIMENSION P1 (26, 34), P(26, 34), ARP(34), H(34), S(34)
20 FORmat (5F10.2,F10.7)
21 FORmat (6F10.7)
22 FORmat (7F10.7/10x,4F10.6)
24 FORmat (12F10.7)
23 FORmat (50X)
25 FORmat (4F10.7, F10.2)
READ(1,20) PS, RS, PA, RA, KA, MU
READ(1,21) C, CH, CK
READ(1,21) ar,dm,n,lm,r,1c
READ(1,21) e,eh,ek
READ(1,20) uck.,omega
1 WRITE (*,30)PS, RS, PA, RA, KA, MU
WRITE (2,30)PS, RS, PA, RA, KA, MU
WRITE (2,31)AR, DM, N, LM, R, LC
WRITE (*,31)AR, DM, N,LM, R, LC
WRITE (*,32)C, CH, CK, E, EH, EK
WRITE (*.33)UCK,OMEGA
30 FORMAT (10X,3HPS=бF10.2б 3HRS=бF10.2. 3HPA=,F10.2.3HRA=,F10.2. *3HKA=,F10.2. 3HMU=,F10.7)
31 FORMAT(10X,3HAR=,F10.7, 3HDM=,F10.7, 2HN=,F10.7, 3HLM=,F10.7, *2HR=,F10.7,3HLC=,F10.7)
32 FORMAT(10X, 2HC=,F10.7, 3HCH=,F10.7, 3HCK=,F10.7, 2HE=,F10.7, *3HEH=,F10.7, 3HEK=,F10.7)
33 FORMAT(10X, 4HUCK=,Fl0.2, 6HOMEGA=,Fl0.2)
PI=3.14159
DY=2.*PI/32.
DT=DY
DX=1. /24.
LAM=LC/R
WRITE (*,50) PI, DY, DT, DX, LAM
50 FORMAT (7X, 3HPI=,F10.5, 3HDY=,F10.5, 3HDT=,F10.5, 3HDX=,F10.5, *4HLAM=F10.5)
PAB=(PA/PS)
PAB=PAB**2
MK=AR*PI*DM*C*N*SQRT(KA*PS*RS*(2. /(KA+1.))**((KA+1.)/.(KA-1.*)))
WRITE (*,51)MK
WRITE (2,51)MK
51 FORMAT (30X, 3HMK=,F10.5)
A=MU*LAM*MK/ (PI*PS*RS*C**3)
Q=LM*24.+1
WRITE (*,52) PAB,A.Q
WRITE (2.52) PAB,A
52 FORMAT (7X,4HPAB=,Fl0.5, 2HA=,Fl0.5, 2HQ=,Fl0.5)
i2=Q +0.5
WRITE (*,26)I2
WRITE (2,26)12
26 FORMAT(20X,i4)
RD= (3.2/MU)*(PS*RS*KA*(2./(KA+1.))**((KA+1.) / (KA-l.)))**0.5
DO 3 K=1,34
NK= K-1
H (K)=1-E*COS(DT*NK)
S (K)=SIN (DT*NK)
ARP (K)=0.0816*(RD*C*(1.-E*COS (NK*DT)))**0.477*(4*C*(1.- E*
*COS (NK*DT)) / DM)**0.78
IF(ARP(K).LT.AR)GO TO 2
ARP(K)=AR
2 P(I2, K)=12.*A*LM/((l.-E*COS (NK*DT))**2)*(ARP (K) /AR)+PAB
3 IF(P(I2, K).GE.l.) P (I2, K)=0.999
13=12+1
DO 4 K=l,33
DO 4 I=13,25
4 P (I,K)=P(I2,K)
14=12-1
DO 5 K=l,33
DO 5 I=1,14
5 P (I, K)=PAB+(P (I2,K)-PAB)*((I-1)/(Q-1.))
PK = (2./(KA+1.))**(2.*KA/(KA-1.))
NI = 0
RAD =SQRT ((2./(KA-l.))*((KA+1.) /2.)**((KA+1.)/(KA-l.)))
Bl = l./(2. *DY*DY+2. *DX*DX*LAM*LAM)
B2=B1*DY**2
B3=B1*LAM**2*DX**2
B4=B3*DY/2.
B5=OMEGA*R*R*MU/(C*C*PS)
WRITE (*,60)B1, B2, B3, B4, B5
WRITE (*.70) ((P (I, K), 1=1,25), K=1.33)
60 FORMAT (10X, 3HB1=,Fl0.5, 3HB2=,Fl0.5, 3HB3=,Fl0.5, 3HB4=,Fl0.5. *3HB5=,F10.5)
7 NI=NI+1
IF(NI.GT.449) GO TO 34
DO 12 I=1,25
P(I,1)=P(I,33)
12 P(I,34)= P(I,2)
DO 13 K =1,34
13 P(26, K)=P(24,K)
DO 19 K=1,33
DO 19 I=2,25
19 P1(I,K) = P (I, K)
DO 80 K=2,33
DO 80 I=2,25
IF(I.EQ.I2) GO TO 9
P(I,K)=UCK*(B2*(P(I+1, K)+P (I - 1, K)) +B3*(P(I,K+1)+P(I, K - 1))+ *B4*(3./H (K))*(E*S(K))*(P(I, K+1) - P(I.K-1)))
*+(l.-UCK)*P(I,K)
IF(P(I, K).LT. 0.000001) P (I,K)=0.000001