Детали сферические. Метод расчета рабочего профиля штампов с учетом упругой отдачи при листовой штамповке-вытяжке

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 WLAD-PrOC OPTIQNS(MAIN);

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>;

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

> ⁴¹

E2;End;