Страница 7: ОСТ 92-1158-85. Детали сферические. Метод расчета рабочего профиля штампов с учетом упругой отдачи при листовой штамповке-вытяжке (80246)

і

1

1

1 чЗ

t

$

f

/•ОСТ 82-1158-85 Лист 45

Lfa#, лХ Z^Zґ/- oyZf. С&'

чь

1

*

/« ПРОГРАМНА РАСЧЕТА ЭЫТЯДК'И С ИНТЕНСИВНЫМ П Є Р Є М Є Щ ♦ ОЛАНЦД * ®/

00000001

2

<5 < © <

<9 ® •ft « « '«г О © О е © © о е- <► « «

00000002

5

PR0GV|РР0С ОР Т I QN$ (,4 A t N J |

00300003

4

ОСІ, POISH ENTRYfOEC FL0 А Т ( 1 6 » )

30000004

5

RETURNS(DEC FLOAT( 1611 І

00000003

6 .

ОСІ (SIGMA ІЗ) . ЕPUPR(3) , ? |(3) j ALFА 2 І 31»й 1’(3| ,51GSR І 3) , З JCRG | 3),

00000006

7

5IGTEI5) і^РЗГ’ІЗ) |EP1SR⁴’(3) ,ЕРЦРЯ”(3) jOE^T А(, ( 3) ,GAMHA|3),FJ (?) ,

00000007 .

3

Р2’(3) ,R0? ІЗ) _}SIG”( J) 1 DEC FL0ATI16) |

00000008

9

DOL (PR 1 ,PR2iPR3jPR4,P ! ,Я),R2 , R3 । R4,»3 , P6) PEC FL0AT!)6) I

00000009

ІЗ

OCU (AlA I ALP A J»8ETTAtRGRіRHі 5 IGKMA X іEITА і 8ETTA 1 лL»И 1 fEP52)

009000)0

1 1

ЧСАТЦ6Н

00000011

»2

ОСІ I А Г» A2 1 3 • 3 І іДЗ(J 11 іRfl{51G02і И 1 ,K2іEі MO>00 іS0> FLOAT 1 |6)|

003000)2

1 3

ОСІ HTR OMAR <fl> |

000000)3

1«

OCL (EPSR(3) iEP51 (3)1 DEC FLOAT! )6) |

000000)4

1 5

- OCL ( V0 , P , В t RO і И , RSF I FLOAT! U| J

.000000)5

16

OCL (KHDjKHDTJ FlXED(7|3)l

'000000 )6

17

OCL MR FLOAT!J6),

. 000000)7

18

00 FLOAT I 16)f

000000)8

І?

^₽03(3) FLOATIH),

000000)9

20

!FLl|7L2_lFL3jFL4_tFL5,CMl_lCH2_f0M3) F|XED(1) JN(T|0) ,

00000029

2 1

!ES(3) |5|3) ) FL0AT|!6)_}

0030002!

2?

N DEC FL0ATH6) і

0000002?

2 3

IS DEC F ) XEO(31,

00000023

2А

ST<4) FL0AT|3lj

00000024

25

FAP F|XED( J) IHTI0) і

30000025

26

RSFT FL0ATf6)j

00000024

2 7

1 FIT J ,FLT2 »FLT-3 jFLT I FIXEQI)) INITI0) ,

. 00000027

20-

IQTyjjOTV) CHAP(3),

00000028

29

1

00300029

30

OPEN F |LE I SVSPRJNTI PACtSIZE(7)l 11 Ng«|ZEІ И®>I

00000058

ЗІ

ON EKOPACE(SVSPRINT) CALL PESHAI

0000003 )

32

GET FOITIMTR) (A (8) 1 J

00000032

33

GET L 1 3 T J HR і S I G 0 2 і E і К 112 > 5 0 і Я 5 F , КИ0 і A |,M SKIP

00000033

3 4

1

00000034

35

GET LIST! ( (A2(J, J) Oo IM 70'3) 00 J4 TO 3)) 3K|P

03000039

3 6

1

30000034

3 7

GET LIST! (A3(|) 00 14 TO И) ) SK|P

30000037

ЗО

1

30000038

39

FL 1 ,FL? , FL 3 , FL4«0 1

00000039

40

/* АНАЛИЗ КОЭФФИЦИЕНТОВ АППРОКСИМАЦИЙ »/

30000040

«1

IF А1П0 .THEN fl 1 «3 5 ELSE FUH|

00000041

«2

IF A2(1 і 1)R06A2 I |,2)Ч06А2!І,3)«06

30000042

«3

A2 (2, 1) t> 0 6 A2 ( 2,2 ) e 0 A A2 ( 2 і 3 ) « 0 6

00000043

4 4

. A2 ( 3 і 1) а 06.A2 { 3,2 I 4 0 A A2 { 3 і 3 ) «0

00000044

>

45

THEN FL2S0I ELSE FL231

00000049

4 6

IF АЗ(1)*0ААЗ(2)з04АЗ(3 40

30000046^f

47

THEN FL3«0I ELSE FL3^at|

30000047

«6

Pp3 , 1 4 1 59265358981

30000048

49

FLT)=FLIl FLT?sFL2| 4T3-PL3I

30000049

50

VOPIDISPLAYl’РАСЧЕТ ТА5ЛИЧНЫЙТчйА,ИЕТ•) REPLYfOTV)|

00000030

-

5J

JF ctvb’HFT* THEN ooj

00000051

52

LS«0|

30000052

53

CALL PESHAI

30000053

5 4

CALL REOV|

00000054

55

MV|DI$PLAY( »K0m P Аб 0 T ЫТ я Д A J НЕ T ’) Я E P L V I 0 T V )) I

00000055

56

IF CTV|»lflA» THEN

00000056

57

GO TO M5|

■3 0000037

56

ELSE

30000038

59

GO TO TABI

30000059

_л60

ENOI

*

00000060

'<

*

( /* ПРОГРАММ РАСЧЕТА ВЫТЯЖКИ о ИНТЕНСИВНЫМ ПЕРЕМЕЫ, ФЛАНЦА */ 0000003)1

І MACRO 5OURQE2 LISTING

62 ?*й! 00000061

* °; 00000062

FLT«ll . 00000063

64 СЕТ ИЗТНЗТЦ) ОО IM ТО Ж SKIP 00000064

!! ,’_вяя. 00000063

*$•. 00000066

* . °*’ 00000067

°о K«t то п 00000068

69 50³S Т(КII ’ 00000069

70 |F S0*s0,5«$0<в5 00000070

71 THEN 0в| 0000007}

72 Р5РГ°100І ■ " 00000072

7J GOTO VIXI END| 00000073.

74 EUSE 00000074

75 И S0»54S0*»10 THEN OO| 00800075

76 RSFMs200| GOTO VJXI ENO} ELSE * 00000076

77 |F S0»|MS0«*20 THEN DOI 00000077

78 RSFMs300{ GOTO V |X | ENDIEL3E 00000078

79,RSFMs400| , 00000079

^РгvJ^Xl ' 00000080

61 CAIL PETJTl 0000008}

02? * 00000082

63 DO KHOTb0,05 BY 0,05 TO 0,5} 00000083

KHO^KHDTl 00000084

. ₽5 PUT EOJT| ♦ *><ГР I 7!NENO15*5PRJ NT))}A)} 30000085

^C5j„ , 30000886

^7 DO RSFT^RSFN 8Y 50 TO |000|li»0 SY *J2 JO 2000| 3000008?

Т’ 8 • 7500BY500TO5 300J 30000080

89 R5F=rsrT*SY(И/21 30000089

90 MR 1 Ft 1 = FU T 1 1 FU23FUT2} F 1,5 = F T 3 J 30000090

9} CALL REOV| 00000091

92 ENCC3I * 30000092

_ф93 END C21 00000093

⁹⁶SNO СЦ • ' . • 30000094

95 00000095

96 /■> ПРОГРАММА ЕДИНИМ, ВАРИАНТА РАСЧЕТА ПАРАМЕТРОВ ft/ 20000096

97 / ** <■ * * * * • * * * » в* а* * * W • * » $ * $ » 9 « 9 * а* л *• Y ♦ й $ в* * 9 «9 9 & 9« в * «в о/ 00000097

90 REOYfPPOO} 30000098

99 ^w0⁼( 8 » R 5F а К НО »• 2 1 / I }» 4 ♦ КнО» » 2 1 1 /» ГЛУБИНА ДЕТАЛИ а/ 00000099

|00 30^sf8*КИ0*Р$Г}/ 1 1 *4«КИ0**2Н /•.ДИАМЕТР ДЕТАЛИ а/ 00000100

14 °0«DD/2| • 00000101

10? PRl=RO/PSF| 30000 02

103 * L^FА ³2 » 1 А 7 aNP (P.Rl / S SR Т J 1» PR 1 • » 2 ) | )| 00000J03

1^{ел /й}РАСЧЕТ ПО ФОРМУЛАМ 2»3|4 | ⁴й/ 00800104

1?5 IF ,PD<300 THEN 00} Bs | DO* J001/351 GO T$ Mil . 00000105

106 ENOIEtSE 00000106

И7 IF OD>s300 THgN 00000107

ігв IF OC<₽400 THEN DO 1 В»100*400 1/351 GO TQ Mil - 00000 108

ІЄ9 ENDiEUSE 30000|09

110 IF DO>400 THEN 8= (00*600 J/351 00000 Ц0

11 1 Hl} I 00000 Ц1

112 RMsKR*$0| 00900112

ИЗ /* РАСЧЕТ ПО ФОРМУЛЕ 6 | а/ Э0000 ЦЗ

Ц4 DC³0,565» f SQRT < 2*P*R5F^ftHU* I P/4 ) a ? { 2*RO*2«'RM«290) йа2я 1 2*RD*2*RN) *«2) 30000 1 14’

115 * (P/2 J * |P»2»₽0’RH*2,2&*RM»RHI 1 )} 30000 Ц5

,116 D0»?»OC| ‘ ,00000 116

Ш ^z* РАСЧЕТ 00 ФОРМУЛЕ 7 1 */ 3000011?

‘ • „ -Ив PR2SCC/{-2OP3F)} . ...... 30000 1 18

I

1

1

N Я

!

$

1