Физические модели комбинированных державок токарных резцов со вставками из синтеграна: Конструкции и исследование
Диссертация
Составлены и исследованы на ПЭВМ по специально разработанной программе двухфакторные статические модели податливости и логарифмического декремента колебаний в зависимости от факторов: «вылет — процент синтеграна» — «вылет — площадь сцепления стали и синтеграна» — «вылет — относительный момент инерции сечения», позволяющие на этапе проектирования режущего инструмента рассчитывать его статические… Читать ещё >
Список литературы
- Аленицын А.Г., Бутиков Е. И. и Кондратьев A.C. Краткий физико-математический справочник. М, Наука, 1990, с. 364 .
- Амензаде Ю.А. Теория упругости. ML, «Высшая школа», 1976, с. 271.
- Барамбойм Н.К. Механохимия высокомолекулярных соединений. М.: Химия, 1971, с. 364.
- Барт В.Е., Позняк Г. Г., Рогов В. А. Статические и динамические характеристики резцов с державками из композиционного материала. «Полимеры в бетоне». Материалы VIII международного Конгресса по полимерам. М., Изд. ВЕТЕКОМ, 1992, с. 470−477.
- Барт В.Е., Санина Г. С. и др. Исследование составов, технологии изготовления и целесообразной области применения синтеграна в станкостроении. Отчет / ЭНИМС. ГР. 01.82.1 037 248. — М., 1983.
- Барт В.Е., Санина Г. С. и др. Разработка и участие в освоении производства изделий станкостроения из синтеграна. Отчет / ЭНИМС. Гр 01.86.35 862. — М., 1987.
- Барт В.Е., Санина Г. С., Рогов В. А. и др. Разработка полимербетона (синтеграна) для станкостроения и технологии изготовления из него деталей станков в условиях опытного производства. Отчет ЭНИМС. -ГР 01.84.15 411.-М., 1985.
- Барт В.Е., Санина Г. С., Шевчук С. А. Опыт применения синтеграна в машиностроении//станки и инструмент. 1993, № 1.
- Барт В.Е., Санина Г. С., Шевчук С. А. Применение полимербетонов в станкостроении. М.: ВНИИТЭМР, 1987, с. 40.
- Ю.Бартенев Г. М. Зеленев Ю.В. Физика и механика полимеров. М.: Высшая школа., 1983, с. 391.
- П.Бартенев Г. М., Лаврентьев В. В. Трение и износ полимеров. J1.: Химия, 1979, с. 240.
- Беляев Н.М. Сборник задач по сопротивлению материалов. М., Наука, 1965, 348 с.
- Большее Л.Н., Смирнов Н. В. Таблицы математической статистики. -М&bdquo- Наука, 1983, с. 416.
- Булаве Ф.Я., Радиньш И. Г. Упругие свойства слоистых армированных пластиков // Механика композиционных материалов. Рига: Рижский политехнический институт, 1977. с. 3 19.
- Васильев В.В. Композиционные материалы: справочник. М., 1990. с. 510.
- Васильев В.В. Полимерные композиции в горном деле. М.: Наука, 1986, с. 239.
- Гуняев Г. M. Структура и свойства полимерных композитов. М.: Химия. 1981, с. 230.
- Ефимов В.Н., Васильев C.B. Тенденция в развитии станкоинструментальной отрасли. Инструмент, технология, оборудование № 2, 1999, с. 8−13.
- Инструкция по технологии изготовления полимербетона и изделий из него. СИ 525 — 80. — М.: Стройиздат, 1980.
- Карпинос Д.М. и др. Композиционные материалы. Справочник. Киев: Наукова думка, 1984, с. 50.
- Композиционные материалы: Справочник/ В. В. Васильев, В. Д. Протасов, В. В. Болотин и др.- Под общей редакцией В. В. Васильева. М.: Машиностроение, 1990, с. 512.
- Копылов В.В., Позняк Г. Г., Рогов В. А., Нидаль Ахмед М. Сравнительные статические исследования державок токарных резцов, армированных синтеграном. ВНИНИТИ РАН, № 403-В00, 16.02.2000 г., с. 21.
- Косиловой А.Г., Мещерякова Р. К. Справочник технолога машиностроения, том 1, Машиностроение, 1985, 655 с.
- Крутов В.И. и др. Основы научных исследований. М., «Высшая школа», 1989, с. 400.
- Кудинов В.А. Динамика станков. М., Машиностроение, 1967, с. 359.
- Лабунец В.Ф. Износостойкие боридные покрытия. Киев: Техника, 1989, с. 158.
- Ландау Л.Д., Лифшиц Е. М. Теория упругости. М., Наука, 1965, с. 203.
- Маталин A.A. Технология машиностроения. М., Машиностроение, 1985, с. 512.
- Материалы Международной выставки «Машиностроение-99' Москва 1317 сентября 1999 г.
- Нотон Б. Применение композиционных материалов в технике. М., 1990. с. 237.
- Пановко Я.Г. Введение в теорию механических колебаний. М., Наука, 1971, с. 238.
- Пановко Я.Г. Основы прикладной теории колебаний и удара. JL: Машиностроение, 1976, с. 320.
- Патуроев В.В. Технология полимербетонов. М.: Стройиздат, 1977. с. 241.
- Патуроев В.В. Технология полимербетонов. М.: Стройиздат, 1977. с. 228.
- Позняк Г. Г., Рогов В.А., А.Х. Абу-Шокейр Математическая модель державки резца с вставкой из композиционного материала. /У «СТИН», 1996, № 12, с. 18−20.
- Позняк Г. Г., Рогов В. А., Копылов В. В., Нидаль Ахмед М. Экспериментальные исследования динамических характеристик державок резцов, армированных синтеграном. ВНИНИТИ РАН, № 402-В00, 16.02.200 г., с. 13.
- Позняк Г. Г., Рогов В. А. Резец для станка-автомата. Патент России, № 2 016 708, 1994.
- Полевой С.Н., Евдокимов В. Д. Упрочнение машиностроительных материалов. М., Машиностроение, 1994, с. 495.
- Проспекты фирмы GEORG FISCHER., 1999 г.
- Проспекты фирмы SODICK (Япония) на Международной выставке «Машиностроение-99». Москва 13−17 сентября 1999 г.
- Райзберг Б.А. Рыночная экономика. М., 1995, с. 224.
- Резец для чистовой обработки. Авторское свидетельство СССР № 1 648 640, МКИ В23 В 27/00.
- Резец. Авторское свидетельство СССР № 1 750 850, опублик. 30.07.92, бюл. № 28.
- Резец. Авторское свидетельство СССР № 1 779 466, опублик. 7.12.92, бюл. № 45.
- Резец для чистовой обработки. Авторское свидетельство СССР № 1 779 468, опублик. 7.12.92, бюл. № 45.
- Резец для чистовой обработки. Авторское свидетельство СССР № 1 796 349. опублик. 23.02.93, бюл. № 7.
- Реикер Г. Дж. Материалы на каменистой основе для станкостроительной промышленности. / ВЦП. Л 56 361. — Пер. ст.: Renker H.J. из журнала.: Precision Engineering. — 1985. vol. 7, No 3. — p. 161 -164.
- Рогов В.А., Копылов В. В., Нидаль Ахмед М. Исследования сравнительных статических характеристик комбинированных державок резцов. Материалы XXXV НТК ППС инженерного факультета РУДН, апрель 1999 г.
- Рогов В.А. Разработка и исследование конструкций и технология изготовления деталей и сборочных единиц станков из высоконаполненного композиционного материала. Диссертация на соискание ученой степени кандидата технических наук. М., 1996 г.
- Рогов В.А. Разработка комбинированных корпусов режущих инструментов из синтеграна с повышенными демпфирующими свойствами. Диссертация на соискание ученой степени доктора технических наук, М., 1998 г., с. 390.
- Рогов В.А. Расчет державки резца, выполненной из композиционного материала. // «СТИН», 1994 г., № 10, с. 20−21.
- Рогов В.А. Резцы с державками из новых композиционных материалов. /У «СТИН», 1996 г., № 5, с. 20−23.
- Рогов В.А. Токарные резцы с комбинированными державками. Н «СТИН», 1994 г., № 5, с. 13−15.
- Рогов В.А., Соловьев В. В., Нидаль Ахмед М. Конструктивные методы повышения прочности тяжелонагруженных дисковых пил. В сб.: Надежность режущего инструмента и оптимизация технологических систем, т. 1, изд-во ДГМА, Краматорск, 1997 г., с. 138−141.
- Sanina G.S. Effect of chemical composition of epoxy binders upon rheological, physicomechanical and toxicological properties of «sintegran» polymer111inpregnated concrete. VII international congress on polymers in concrete, Moscow, 1992, p. 454−461.
- Свидетельство на товарный знак по классам 7, 19, 28, № 141 823 от 27.10.95 г.
- Силкин Е.И. Статическая и динамическая прочность машин, М., РУДН, 1969 г., с. 323.
- Трилор Л. Введение в науку о полимерах. М.: Мир, 1973 г., с. 238.
- Уорд И. Механические свойства твердых полимеров. М.: Химия, 1975 г., с. 375.
- Урбанов И.И. Разработка и сравнительный анализ характеристик станочных узлов с применением полимербетона. Диссертация на соискание ученой степени кандидата технических наук. М., 1990 г.
- Шенк X. Теория инженерного эксперимента. М.: Мир, 1972 г, с. 381.
- Шульц X., Никлау Р. Бетон на метакриловых смолах альтернативный материал для поверочных плит из природных твердокаменных пород. / ВЦП. У-67 049. — Пер. ст.: Schulz Н., Nicklau R. из журнала: Werdstatt und Betrieb, 1982.
- Яблонский A.A., Норейко С. С. Курс теории колебаний. М.: «Высшая школа», 1966 г., с. 255.
- Якобе Г. Ю., Якоб Э., Кохан Д. Оптимизация резания. М.: Машиностроение, 1981 г., с. 279.1. ПРИЛОЖЕНИИ
- Программы на Quik-Basic для обработки и анализа экспериментальных данныхпо статике и динамике)1. Программа 1
- PRINT «Дисперсионный анализ статических исследований"1. PRINT «nidall"1.L3 вылет державки
- У (2, 1, 1) =. 41: У (2 f 1, d = .378: У (2, 1, 3) =. 405
- У (2, 2, 1) = .488 У (2, 9 г 2) = .57 7 У (2, 2, 3) = .458
- У (2, 3, 1) =. 525 У (2, з, 2) = .556 У 2, 3, 3) =. 542
- У (2, 4, 1) = .6: у (2, 4, ^ = .614: /(2, 4, 3) =. 605yd, 1, 1) =. 367 у (3, 1, 2) =. 44: У (3, 1, 3) = .414
- У (3, 2, 1) =. 628 yd, 2) =. 504 У (3, 2, 3). 608yd, 3, 1) = .552 у (3, 3, 2) =. 594 у (3, 3, 3) = .528
- У (3, 4, 1) = .817 yd, 4, 2) = .7 62 yd, 4, 3) .721
- Расчет средних в одной ячейке PRINT «Средние значения» FOR k = 1 ТО п
- PRINT «skw -выборочная дисперсия"1. FOR к = 1 TO n1. FOR i = 1 TO r: a (к) =0
- FOR j = 1 TO m: a (k) = a (k) + (y (k, i, j) ysr (k, i)) л 2 NEXT j1. PRINT k- i- j- a (k): STOPskw (k, i) = a (k) / (m 1)1. PRINT skw (k, i), 1. NEXT i1. STOP1. PRINT1. NEXT к
- Поверка однородности дисперсий по критерию Кохрена zn = о
- FOR i = 1 ТО n: FOR j = 1 ТО г zn = zn + skw (i, j) NEXT j: NEXT i PRINT zngn = .4 432 / zn: PRINT gn PRINT: PRINT
- Расчет средней дисперсии воспроизводимости skwv s kwv = 0
- FOR i = 1 TO n: FOR j = 1 TO r: skwv = skwv + skw (i, j) NEXT j: NEXT iskwv = skwv / n / r: PRINT skwv ' STOP
- Диспресия изменчивости отклика под влиянием фактора «вылет» -s kwbskwb = 0
- FOR i = 1 TO n: skwb = skwb + (yr (i) yu) л 2 PRINT skwb': STOP NEXT iskwb = skwb * m * r / (n-1)1. PRINT skwb1. STOP
- Диспресия изменчивости отклика под влиянием фактора «процент синтеграна» skwp skwp = О
- FOR i = 1 TO r: skwp = skwp + (yn (i) yu) Л 2 PRINT skwp': STOP NEXT iskwp = skwp * m * n / (r 1) PRINT skwp ' STOP
- Диспресия изменчивости отклика за счет влияния двух факторов -skwbp skwbp = О
- FOR i = 1 TO n: FOR j = 1 TO r: skwbp = skwbp + (ysr (i, j) yr (i) — yn (j) + yu) Л 2 PRINT skwbp: STOP NEXT j: NEXT iskwbp = skwbp * m / (n-1) / (r 1)1. PRINT skwbp1. STOP
- Проверка значимости дисперсий изменчивости по критерию Фишера 'Наблюдаемые значения критерия Фишера Fbn, Fpn, Fbpn Fbn = skwb / skwv: Fpn = skwp / skwv: Fbpn = skwbp / skwv PRINT Fbn, Fpn, Fbpn
- Критическое значение критерия Фишера Fkp при значениях степеней 'свободы: m2=n*u8(m-1)+1, nl (b)=n, nl (p)=r, nl (bp)=(n-1)*(r-1)+11. Программа 2
- PRINT «Регрессионный анализ»
- PRINT «Расчет коэффициентов двухфакторных моделей в виде полиномов»
- PRINT «по результатам статических исследований"1. PRINT «nidal2"1.L3 вылет державки
- DIM у (3, 10, 10), рпг (40), Рп (40), а (9, 10), U (40), v (40), х (1С40)1. Ввод исходных данных
- У (1, 1, 1) = .31: у (1, 1, 2) = .274: у (1, 1,274yd, 2, 1) = .417 yd, 2, 2) = .347 yd, 2, 3) = .34 5y (l, 3, 1) = .464 yd, 3, 2) = .428 yd, 3, 3) = .437yd, 4, 1) = .482 yd, 4, 2) = .409 yd, 4, 3) = .411
- У (2, 1, 1) =. 41: У (2, 1, 2) = .378: У (2, 1, 3) = .405
- У (2, 2, 1) = .488 У (2, 2, 2) = .577 У (2, 2, 3) = .458
- У (2, 3, 1) =. 525 У (2, 3, 2) = .556 У (2, 3, 3) = .542
- У (2, 4, 1) = .6: у (2, 4, 2) = .614: у (2, 4, 3) =. 605
- У (3, 1, 1) = .367 у (3, 1, 2) = .44: у (3, 1, 3) = .414у (3, 2, 1) =. 628 У (3, 2, 2) =. 504 yd, 2, 3) = .608у (3, з, 1) = .552 у (3, з, 2) = .594 yd, 3, 3) = .528у (3, 4, 1) = .817 у (3, 4, 2) = .762 yd, 4, 3) = .721
- FOR i = 1 TO 3: FOR j=lT0 4: Pn ((i-l) * NEXT j: NEXT i
- FOR i = 1 TO 12: PRINT pn (i): NEXT i: STOP FOR i = 1 TO 3: FOR j = 1 TO 4: Pn (12 + (i -i): NEXT j: NEXT i
- FOR i = 13 TO 24: PRINT pn (i): NEXT i: STOP FOR i = 1 TO 3: FOR j = 1 TO 4: Pn (24 + (i -i): NEXT j: NEXT i
- FOR i = 25 TO 36: PRINT pn (i): NEXT i: STOP ' расчет средних значений аргументов и функции
- FOR j = 1 ТО 36: х (1, j) = U (j): х (2, j) = v (j): x (3, j) = U (j) * v (j)x (4, j) = U (j) Л 2: x (5, j) = v (j) Л 2: x (6, j) = U (j) л 3 x (7, j) = v (j) л 3: x (8, j) = U (j) л 2 * v (j): x (9, j) = U (j) * v (j) л 2: NEXT j
- FOR i = 1 TO 9: XSR (i) = 0: FOR j = 1 TO 36 XSR (i) = XSR (i) + x (i, j) NEXT j1. XSR (i) = XSR (i) / 36
- PRINT «XSR (" — i- «)=" — XSR (i), 1. NEXT i1. STOP1. PRINT
- PnS = 0: FOR j = 1 TO 36: PnS = PnS + Pn (j): NEXT j: PnS = PnS / 36: PRINT «pns=" — PnS 1 STOP
- PRINT «pnR (" — j- «)=" — pnr (j) — «pn (" — j- «)=" — Pn (j) — (Pn (j)pnr (j)) / Pn (j) * 100- «процентов"1. j = 12 THEN STOP1. j = 24 THEN STOP1. j = 36 THEN STOP4042 NEXT j1. STOP1. PLAY «abcddcba"1. Программа 3
- PRINT «Регрессионный анализ"|
- PRINT «Расчет коэффициентов двухфакторных моделей в видеполиномов»
- PRINT «по результатам статических исследований»
- PRINT «nidal3» 'L1.L3 вылет державки
- DIM у (3, 10, 10), pnr (40), рп (40), а (9, 10), и (40), v (40), х (10,40., 1 (12), р (12), грп (12, 12) 'Ввод исходных данных
- У 1, 1, 1) = .31: у (1, 1, 2) = .274: У (1, 1, 3) = .274
- У 1, 2, 1) = .417: у (1, 2, 2) = .347: у (1, 2, 3) = .345
- У 1, 3, 1) = .464: у (1, 3, 2) = .428: у (1, 3, 3) = .437
- У 1, 4, 1) = .482: у (1, 4, 2) = .409: у (1, 4, 3) = .411
- У 2, 1, 1) = .41: У (2, 1, 2) = .378: У (2, 1, 3) = .405
- У 2, 2, 1) = .488: У (2, 2, 2) = .577: У (2, 2, 3) = .458
- У (2, 3, 1) =. 525: У (2, 3, 2) = .556: У (2, 3, 3) = .54 2
- PRINT «Подпрограмма формирование матрицы коэффициентовуравненя регрессии If
- FOR i = 1 TO 12: u (i) = 35: NEXT i
- FOR i = 13 TO 24: U (i) = 45: NEXT i
- FOR i = 25 TO 36: u (i) = 55: NEXT iv (i) =42.8: NEXT iv (i) = 4 6.8: NEXT iv (i) = 48: NEXT iv (i) = 60: NEXT i
- FOR i = 1 TO 33 STEP 4 FOR i = 2 TO 34 STEP 4 FOR l = 3 TO 35 STEP 4 FOR i = 4 TO 3 6 STEP 4 'FOR i = 1 TO 36: PRINT u (i), v (i): NEXT i ' STOP
- FOR i = 1 TO 3: FOR j = 1 TO 4: pn ((i 1) * 4 + j) = у (1, j, i): NEXT j: NEXT i
- FOR i = 1 TO 15: PRINT pn (i): NEXT i: STOP
- FOR i = 1 TO 3: FOR j = 1 TO 4: pn (12 + (i 1) * 4 + j) = y (2, j, i): NEXT j: NEXT i
- FOR i = 13 TO 24: PRINT pn (i): NEXT i: STOP
- FOR i = 1 TO 3: FOR j = 1 TO 4: pn (24 + (i 1) * 4 + j) = y (3, j, i): NEXT j: NEXT i
- FOR i = 25 TO 36: PRINT pn (i): NEXT i: STOPрасчет средних значений аргументов и функции
- FOR i = 1 TO 5: XSR (i) = 0: FOR jj = 1 TO 36 XSR (i) = XSR (i) + x (i, jj) NEXT jj1. XSR (i) = XSR (i) / 36
- PRINT «XSR (" — i- «)=" — XSR (i), 1. NEXT i1. STOP1. PRINT
- FOR i = 1 TO 5: FOR s = 1 TO 5a (i, s) =01. FOR jj = 1 TO 36a (i, s) = a (i, s) + (x (i, jj) XSR (i)) * (x (s, jj) — XSR (s)) 'PRINT a (i, s) — ': STOP NEXT jj1. PRINT a (i, s)-1. NEXT s1. PRINT1. NEXT i1. STOP
- PnS = 0: FOR jj = 1 TO 36: PnS = PnS + pn (jj): NEXT jj: PnS = PnS / 36: PRINT «pns=" — PnS ' STOP
- FOR i = 1 TO 5: a (i, 6) =0: FOR jj = 1 TO 3 6a (i, 6) = a (i, 6) + (x (i, jj) XSR (i)) * (pn (jj) — PnS)
- PRINT «pnR (" — jj- «)=" — pnr (jj) — «pn (" — jj- «)=" — pn (jj) — (pn (jj) — pnr (jj)) / pn (jj) * 100- «процентов"1. jj = 12 THEN STOP1. jj = 24 THEN STOP1. jj = 36 THEN STOP4042 NEXT jj1. STOP
- FOR i = 1 TO 11: PRINT INT (p (i) * 100 + .5) —: FOR j = 1 TO 11rpn (i, j) =b0+b (l) * l (j) +b (2) * p (i) +b (3) * l (j) Л 2rpn (i, j) =rpn (i, j) + b (4) * p (i) A 2 + b (5) * l (j) * p (i)
- PRINT INT (rpn (i, j) * 10 000 + .5)-1. NEXT j1. PRINT1. NEXT i1. STOP
- OPEN «d:windowsworknidstal.bas» FOR OUTPUT SHARED AS #11. PRINT #1, 0,1. FOR i = 1 TO 111 (i) = 35 + (i 1) * 2p (i) = 42.8 + 1.72 * (i 1)1. PRINT #1, 1 (i), 1. NEXT i1. STOP1. PRINT #1,
- FOR i = 1 TO 11: PRINT #1, INT (p (i) * 100 + .5),: FOR j = 1 TO 11rpn (i, j) =b0 + b (l) * l (j) + b (2) * p (i) +b (3) * l (j) A 2rpn (l, j) = rpn (i, j) + b (4) * p (i) A 2 + b (5) * 1(d) * P (i)
- PRINT #1, INT (rpn (i, j) * 10 000 + .5), 1. NEXT j1. PRINT #1,1. NEXT i1. CLOSE #11. Программа 4
- PRINT «Регрессионный анализ» ?
- PRINT «Расчет коэффициентов двухфакторньтх моделей в виде полиномов»
- PRINT «по результатам статических исследований"1. PRINT «nidal4"1.L3 вылет державки
- DIM у (3, 10, 10), pnr (40), pn (40), а (9, 10), u (40), v (40), х (10, 40), 1(12), р (12), rpn (12, 12) 'Ввод исходных данных
- У 1, 1, 1) = .31: У (1, 1, 2) = .274: У (1, 1, 3) = .274у 1, 2, 1) = .417 У (1, 2, 2) = .347 yd, 2, 3) = .345у 1, з, 1) = .464 У (1, з, 2) = .428 У (1, 3, 3) = .437у 1, 4, 1) = .482 у (1, 4, 2) = .409 У (1, 4, 3) = .411
- У 1 -2, 1, 1) = .41: у (2, 1, 2) = .378: у (2, 1, 3) = .405
- У 1 ! 2, 2, 1) = .488: у (2, 2, 2) = .577: у (2, 2, 3) = .458
- У1 3, 1) = .525: у (2, 3, 2) = .556: у (2, 3, 3) = .542
- У1 :2, 4, 1) = .6: у (2, 4, 2) = .614: у (2, 4, 3) =. 6051. У (3, 1, 1) = .3671. У1 (3, 2, 1) = .6281. У 1 3, 3, 1) = .5521. У1: з, 4, 1) = .8171. У (3, 1, 2) = .44:у (3, 2, 2) = .504у (3, 3, 2) = .5941. У (3, 4, 2) = .762
- У (3, 1, 3) = .414 у (3, 2, 3) = .608 у (3, 3, 3) = .528 У (3, 4, 3) = .721
- PRINT «Подпрограмма формирование матрицы коэффициентов для уравненя регрессии»
- FOR i = 1 TO 12: u (i) = 35: NEXT i
- FOR i = 13 TO 24: u (i) = 45: NEXT i
- FOR i = 25 TO 36: u (i) = 55: NEXT i
- FOR i = 1 TO 33 STEP 4: v (i) = 72: NEXT i
- FOR i = 2 TO 34 STEP 4: v (i) = 62. 7: NEXT
- FOR i = 3 TO 35 STEP 4: v (i) = 56: NEXT 1
- FOR i = 4 TO 36 STEP 4: v (i) = 40: NEXT i 'FOR i = 1 TO 36: PRINT u (i), v (i): NEXT i ' STOP
- FOR i = 1 TO 3: FOR j = 1 TO 4: pn ((i 1) * 4 + j) = y (l, j, i): NEXT j: NEXT i
- FOR i = 1 TO 15: PRINT pn (i): NEXT i: STOP
- FOR i = 1 TO 3: FOR j = 1 TO 4: pn (12+ (i 1) * 4 + j) = y (2, j, i): NEXT j: NEXT i
- FOR i = 13 TO 24: PRINT pn (i): NEXT i: STOP
- FOR i = 1 TO 3: FOR j = 1 TO 4: pn (24 + (i 1) *4+j) =y (3, j, i): NEXT j: NEXT i
- FOR i = 25 TO 36: PRINT pn (i): NEXT i: STOPрасчет средних значений аргументов и функции
- FOR j = 1 ТО 36: х (1, j) = u (j): х (2, j) = v (j)х (3, j) = U (j) * v (j)x (3, j) = u (j) л 2: x (4, j) = v (j) л 2x (5, j) = u (j) * v (j)x (6, j) = U (j) л 3x (7, j) = v (j) 3: x (8, j) = U (j) л 2 * v (j): x (9, j) = U (j) * v (j) A 2
- PRINT x (l, j), x (2, j), x (3, j), x (4, j), ': STOP NEXT j
- FOR i = 1 TO 5: XSR (i) = 0: FOR jj = 1 TO 3 6 XSR (i) = XSR (i) + x (i, jj) NEXT jj1. XSR (i) = XSR (i) / 36
- PRINT «XSR (" — i- «)=" — XSR (i), 1. NEXT i1. STOP1. PRINT
- FOR i = 1 TO 5: FOR s = 1 TO 5a (i, s) =01. FOR jj = 1 TO 36a (i, s) = a (i, s) + (x (i, jj) XSR (i)) * (x (s, jj) — XSR (s)) 'PRINT a (i, s) — ': STOP NEXT jj1. PRINT a (i, s)-1. NEXT s1. PRINT1. NEXT i1. STOP
- PnS = 0: FOR jj = 1 TO 36: PnS = PnS + pn (jj): NEXT jj: PnS = PnS36: PRINT «pns=" — PnS1. STOP
- FOR i = 1 TO 5: a (i, 6) =0: FOR jj = 1 TO 3 6a (i, 6) = a (i, 6) + (x (i, jj) XSR (i)) * (pn (jj) — PnS)
- PRINT «pnR (" — jj- «)=" — pnr (jj) — «pn (" — jj- «)=" — pn (jj) — (pn (jj) pnr (jj)) / pn (jj) * 100- «процентов» IF jj = 12 THEN STOP IF jj = 24 THEN STOP IF jj = 36 THEN STOP4042 NEXT jj STOP
- FOR i = 1 TO 11: PRINT INT (p (i) * 100 + .5) —: FOR j = 1 TO 11rpn (i, j) = bO + b (l) * l (j) + b (2) * p (i) + b (3) * l (j) Л 2rpn (i, j) = rpn (i, j) + b (4) * p (i) Л 2 + b (5) * l (j) * p (i)
- PRINT INT (rpn (i, j) * 10 000 + .5)-1. NEXT j1. PRINT1. NEXT i1. STOP
- OPEN «d:windowsworknidsta2.bas» FOR OUTPUT SHARED AS #11. PRINT #1, 0,1. FOR i = 1 TO 111(i) = 35 + (i 1} * 2p (i) = 72 3.2 * (i — 1)1. PRINT #1, 1(i), 1. NEXT i1. STOP1. PRINT #1,
- FOR i = 1 TO 11: PRINT #1, INT (p (i) * 100 + .5),: FOR j = 1 TO 11rpn (i, j) = b0 + b (l) * l (j) + b (2) * p (i) + b (3) * l (j) Л 2rpn (i, j) = rpn (i, j) + b (4) * p (1) 2 + b (5) * l (j) * p (i)
- PRINT #1, INT (rpn (i, j) * 10 000 + .5), 1. NEXT j1. PRINT' #1,1. NEXT i1. CLOSE #1
- PRINT «Расчет коэффициентов двухфакторных моделей в виде полиномов»
- PRINT «по результатам статических исследований"1. PRINT «nidal4"1.L3 вылет державки
- У (2, 1, 1) = -41: у (2, 1, 2) = .378: у (2, 1, 3) = .405
- У (2, 2, 1) = .488: у (2, 2, 2) = .577: у (2, 2, 3 = .458
- У (2, з, 1) = .525: у (2, 3, 2) = .556: у (2, 3, 3 = .542
- У (2, 4, 1) = .6: у (2, 4, 2) = .614: у (2, 4, 3) = .605
- У 3, 1, 1) = .367: У 3, 1,
- У 3, 2, 1) = .628: У 3, 2,
- У, 3, 3, 1) = .552: У (3, 3,
- У (3, 4, 1) = .817: У (3, 4,2. = .44: у (3, 1, 3) = .4142. = .504: у (3, 2, 3) = .6082. = .594: у (3, 3, 3) = .5282. = .762: у (3, 4, 3) = .721
- PRINT «Подпрограмма формирование матрицы коэффициентов для уравненя регрессии»
- ТО 12: u (i) 13 ТО 24: u (i) 25 ТО 36: u (i)1 ТО 33 STEP 42 ТО 34 STEP 43 ТО 35 STEP 44 ТО 36 STEP 435: NEXT i45: 55: v (i) v (i) v (i) v (i)
- NEXT i NEXT i = .669: = .57: = .812: = .768:
- FOR FOR FOR FOR FOR FOR i FOR i
- FOR 1 = 1 TO 36: PRINT u (i), v (i): 'STOP
- FOR i = 1 TO 3: NEXT j: NEXT i 'FOR i = 1 TO 15: PRINT FOR i = 1 TO 3: FOR j = i): NEXT j: NEXT i 'FOR i = 13 TO 24: PRINT pn (i) FOR i = 1 TO 3: FOR j = 1 TO 4 i): NEXT j: NEXT i 'FOR i = 25 TO 36: PRINT pn (i)
- NEXT i NEXT i NEXT i NEXT i NEXT i1. FOR j = 1 TO 4: pn ((i 1pn (l) 1 TO1. NEXT i pn (121. STOP1. NEXT i: pn (24 +1. STOP (i4 + j) = у (1, j, i) :i 1- 14 + j) =4 + j) =1. У (2, j, y (3, j, 1. NEXT i: STOPрасчет средних значений аргументов и функции
- FOR i = 1 TO 5: XSR (i) = 0: FOR jj = 1 TO 3 6 XSR (i) = XSR (i) + x (i, jj) NEXT jj1. XSR (i) = XSR (i) / 36
- PRINT «XSR (" — i- «)=" — XSR (i), 1. NEXT i1. STOP1. PRINT
- FOR i = 1 TO 5: FOR s = 1 TO 5a (i, s) = 01. FOR jj = 1 TO 3 6a (i, s) = a (i, s) + (x (i, jj) XSR (i)) * (x (s, jj) — XSR (s)) 'PRINT a (i, s) — ': STOP NEXT jj1. PRINT a (i, s) -1. NEXT s1. PRINT1. NEXT i1. STOP
- PnS = 0: FOR jj = 1 TO 36: PnS = PnS + pn (jj): NEXT jj: PnS = PnS36: PRINT «pns=" — PnS1. STOP
- PRINT «pnR (" — jj- «)=" — pnr (jj) — «pn (" — jj- «)=" — pn (jj) — (pn (jj) — pnr (jj)) / pn (jj) * 100- «процентов"1. jj = 12 THEN STOP1. jj = 24 THEN STOP1. jj = 36 THEN STOP4042 NEXT jj1. STOP
- Расчет остаточной дисперсии Skwoskwo = 01. FOR k = 1 TO 36skwo = skwo + (pnr (k) pn (k)) Л 2 NEXT kskwo = skwo / 6: PRINT «Skwo=" — skwo: STOP 'Наблюдаемый критерий Фишера Fh ff = skwo / .14 874 PRINT ff: STOP1. i l) ¦ .0242 *2 (i1
- PRINT INT (p (b (l) * l (j) j) + b (4)10000 +i) * 100 + b (2) * * P (i) л .5) -1. PLAY «abcddcba 2000
- PRINT 0- FOR i = 1 TO l (i) = 35 + p (i) = .57 + PRINT 1(i) — NEXT i ' STOP PRINT
- FOR i = 1 TO 11 rpn (i, j) = bO rpn (i, j) = rpn (i, PRINT INT (rpn (i, j NEXT j PRINT NEXT i STOP