G - относительная меридиональная деформация при калибровке
деталей;
S - относительное удлиннение;
- эффективная (оптимальная) динамическая вязкость смаз
ки, Па* с;
Vz? - средняя скорость деформирования заготовки, мм/сек;
h - толщина смазки, мм;
К/,Кг- коэффициенты, учитывающие отношения меридиональных на
пряжений и среднего сопротивления деформированию за-.
0СТ92-П58-85 Лйст 33
готовки к пределу текучести штампуемого материала;
/Q - отношение вытяжного радиуса матрицы к толщине штампуемого материала;
Є - основание натуральных лагорифмов;
Д П - коэффициенты аппроксимации кривых упрочнения степенной
функции;
Д, АиДігг коэффициенты аппроксимации кривых упрочнения иррацио
нальным четырехчленом восьмой степени;
Ад А/, коэффициенты аппроксимации кривых упрочнения полинома
Лагранжа,
Уор'магп IV
□г
а Е о х»
□
0
UnH. rJncSft ІПодп. и дата взам.цн§.»1 ІМ.Лдибл, Прдп. и дата
CT92-II58-85 Лист 34ПРИЛОЖЕНИЕ 2
■ Справочное
ОПРЕДЕЛЕНИЕ КОЭФФИЦкШНТОВ ПОЛИНОМА ЛАГРАНЫ
Расчет коэффициентов Ад, Ар А£, ... А^д полинома Лагранжа производится на ЕС ЭВМ по исходным данным, взятым из значений аргументов и функций экспериментальной кривой упрочнения.
Дія 'проведения расчетов на ЗЕЛ в качестве исходных данных указывается:
значения аргумента X в пределах до 50 точек;
значения функции в пределах до 50 точек;
Программой расчета (см. справочное приложение 3) предусматривается получение машинограмм с величинами:
исходные данные и масштаб;
(п + /)коэффициентов А/? , Az,./,..., Az> полинома Лагранжа
Ln(^) " 'X +-Дг7-/ X ... + Ao (50)
значение полинома в контрольной точке. ♦
Блок-схема программы ’’Вычисление коэффициентов полинома Ла- грашса” приведена на черт.II
Данными по работе с программой являются:
макет парфорации, табл. 9.;
сообщения оператору: -
"Укажи масштаб’’ ..Д/кт,
где - масштаб представления аргументов
"Укажи точку".......... ЩЦЛЖТ,
где ЩЩ - целая часть аргумента, * ♦
ДД - дробная часть аргумента,
КТ - значение функщйі не подсчитывается (значение функции в контрольной точке).
Значения аргументов: 3 целых 2 дробные
Значения функций: 4 целых I дробная
3. jPCT Формат^ Мостэгтастг ляст-35 БЛОК-СХЕМА ПРОГРАММЫ Вычисление коэффициентов полинома Лагранжа :L Ии» ZA подл КПо*л»0 aeta I В писав к о. Who Nr дуЛ» I Подл'а дата* Начало |
|
І .. _ |
|
Занесение масштаба |
|
і _ |
|
Запрос аргумента, для вычисления функции Єь |
|
1 : ! |
|
Ввод экспериментальных значений |
|
Ї ..... |
|
Занесение в поля: N A tND |
MlM-t - |
|
|
у Конец ввода |
|
Печать значений аргументов в масштабе и функций |
|
.. J < |
|
. л . Вычисление Wj. -П (%1 - Х|) l.ti . |
|
' L1 |
|
Вычисление /у,' / |
|
|
|
Вычисление коэффициентов многочлена для числителя полинома Лагранжа |
- |
І • : |
|
Вычисление коэффициентов . полинома Лагранжа |
|
І |
О |
Вычисление значения полинома для заданного аргумента по схеме Горнера |
|
?. |
|
Печать коэффициентов полинома Лагранжа и полинома в точке с аргументом і |
|
Черт.II
Фор «.а к Д4
0СТ92-П58-85 Лист 36
I
Масштаб подбирают так, чтобы X/ удовлетворяли условию — 3 целые и ■»
2 дробные. Значения (функций выдаются-в масштабе 1:1
' Таблица 9
Макет перфорации
Номер колонки |
„—■ ■ -£ і- Наименование реквизита |
1-3 . t |
Целая часть аргумента х |
4-5 |
Дробная часть аргумента X |
’ 6-9 |
Целая часть функции ffx) |
10 1 |
Дробная часть функции X] |
^U»6.rJncdft. 1'Лодп. и дата Івзан.цн&Л ІЦнб.Лдці&ь ІПодп, и дата
Формат М
ПРОГРАММ РАСЧЕТА КОЭФШЩЕНТОВ ПОЛИНОМ ЛАГРАНЖА НА ЕС ЭШ .0СТ92-П58-85 Лист 37 ПРИЛОЖЕНИЕ 3 ' Справочное PL1 COMPILES OPTIONS "SPECIFIED ART AS FOLLOWS - LOAD,NODECK,SIZE = 88K,NT,M,$2 PAGE 2 compile-тіме macro processor, MACRO SOURCEa LISTING 1/н$. а/ілоЗл. Подо. и Son?cf. 8зв/менш/№ Lfrf8. dz dy&t ЛоЗл. и долму 1 |
иіАО'.РТОС OPTlONStFAlNO? |
||||||
|
|
|
2 |
DCL SYSIN F-I L£ RECORD INPUT; • , |
|
|
|
|
|
|
3 |
DCL SC FI<EO<2>INIT<O>»P CHAR<80>«PL(50>CHAR(l6>; |
|
|
|
|
|
|
4 ‘ |
DCL FNA F I X ED ( 5» 2> » FDE F-I X E 0 ( 5 , 1 ) ; |
|
|
|
|
|
|
5 |
DCL KF-iCSlIFLOATC^J.KFaCSllFLOATCiA); |
|
|
|
|
|
|
6 |
DCL 1 KT BASED(X) UNAl, |
|
|
|
|
|
|
7 |
2 NA DEC F LOAT(14 >, |
|
* |
|
|
|
Ї |
8 |
2' DE DEC F LOAT (14); |
|
• |
|
|
|
|
9 |
DCL X PTr; |
|
|
|
|
|
|
1 0 |
DCL MS CHAR(2>,MSC F I X E D C 2 ) • M S С T F L 0 A T (1 4 ) J; |
|
|
|
|
|
|
11 |
DCL(F,ARG,RES)FLOAT (14>J |
|
|
|
|
|
|
12 |
Di SPLAY('УКАЖИ МАСШТАБ')REPLY<MS); |
z |
|
|
|
|
* |
•13 |
GET STRING(MS>EDIT(MSC)(F(2))-; |
|
|
|
|
|
|
14 |
msct=float(msc>; |
|
|
|
|
|
|
1 5 |
DO 1 = 1 TO 51; . |
|
|
|
|
|
|
16 |
К F 2 (I > a 0 ; E N D ; |
|
|
♦ |
|
|
|
1 7 |
OPEN FILE(SYSIN); |
|
|
|
|
|
|
1 8 |
ON ENOFI LE (SYSIN)GOTO' E1 ; ’ • |
|
|
|
|
|
|
1 9 |
LSREAD FILE(SYSIN)INTOCP); |
|
|
|
|
|
|
20 |
SC=SC*1J |
|
|
|
|
|
|
21 |
x»addr<pl<sc>); |
|
|
|
|
—. |
|
22 |
GET STRING(SUBSTr(Pm,5))EDIT(FNA)<f(5,2)); |
|
|
|
|
|
|
23 |
.GET STRING(SUBSTR(P,6,5>)EDlT<FDE>(F<5il>>; |
|
|
|
|
|
|
24 |
NA=FLOAT<FNA); |
|
|
|
• |
|
|
25 |
na = na/msct ; • |
|
|
|
|
|
|
26 |
DE=FLOAT(FDE>J |
|
|
|
|
|
|
27 |
GOTO l; |
|
|
|
|
|
|
28 |
E1 : PUT EDIT ( 'ДАНО; ТОЧКИ' ' ФУНКЦИИ» ) ($<!Р , А , X С 5 > , А , Х( 5> , А) ; |
|
|
|
|
|
|
29 |
PUT EDIT ( » МАСШТАБ 1 : ' ,MSC> (SkTP<2>,a; F(2>>/‘ |
|
|
- |
|
|
|
30 |
do i=i to sc; |
|
|
|
|
|
|
■ 31 |
X a A D D R ( p L < I ) ) ; PUT EDIT(NA,DE)(SKIp,X<1o),F(6,2),X(5),F(6,1>); |
|
|
|
|
|
|
32 |
|
|
|
|
|
|
|
33 |
end; |
|
|
|
|
|
|
34 |
do 1=1 то sc; |
|
|
|
|
|
|
35 |
X=ADDR(PL<I>>; |
|
|
|
|
|
|
36 |
F = DEJ ARGcNA;RESsl; |
|
|
|
|
|
|
37 |
DO J=1 TO SCI |
|
|
|
|
|
|
38 |
IF IsJ THEN GOTO E2; ' |
|
|
|
|
|
|
3 9 |
•x«addr<pl<j)>? |
|
|
|
|
|
|
40 |
rescres* <arg-na); |
|
|
|
|
|
X |
> 41 |
E2;End; |
|
|
|