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

OCT 92-1158-85

Лист 47

120

І?)

*LFAls2<HATANl)(PR2/5qRT|lBPK2<»*2)|)}

/♦ РАСЧЕТ ПС ФОРМУЛЕ 8 }

Pl'ALFAl/2{

/» ПРОГРАММА РАСЧЕТА ВЫТЯХКИ С ИНТЕНСИВНОМ ПЕРЕМЕТІ ФЛАНЦА

♦/

Ф/

0 0 0 0 0 1 1 9 20000120 £0000121

00000001

J

MACRO

SOURCE? LISTING

•

1’2 )?5 124 P5

P⁶121 125 12 9 l?3 151 P2 155 P« 155 156 157 158 . 15?ї П? Hl i«2 PJ 1*4 1*5 1*6 И’ J4B 1<9 158 15 1 152 ИЗ 154 155 156 157 . 158 159 162 1« 1 l«2 165 164 165 166 І67 168 169 170 П1 1’2 1’5 1’4 1’5 1’6

Е»$ІвАВ8І(Р^шР1)/Ііаг*5|НСИРім_яін М01

CMj,CH2,CH5₽0l

ES«EP$H

CALI A*1 IF FAPel THEN GO TO ALESI ' .

SIGMAsSl /♦' РАСЧЕТ ПО ФОРМУЛЕ 10 1 */

И FL4el|FL5e| THEN Half ELSE M = 5j ПО Is1 TO Ml

ЕРЦРР/Іl=$|GNAHІ/ЕІ

/* РАСЧЕТ ПО ФОРМУЛЕ 15 (ЧАСТИЧ*ьІ{> 1 1 а/

Tl(|)s(ALFAl/SlND(Pl)l<»l|*EPUoR(J)H

ALFА? ЦISPO!SK(T 1 (J)J і

/• РАСЧЕТ ПО ФОРМУЛЕ 16 1 »/

Rl’4l|BRSF*SlNDfPl}/SlND(ALFA2(J)/2H

ENP|

/* РАСЧЕТ ПО ФОРМУЛЕ 17 1

BETTAcALFА/21

/♦ РАСЧЕТ ПО ФОРМУЛЕ 18 J »/

RC^RPfRD*°M1eRM’SJ ND 1 BEТТ*) 1

t* РАСЧЕТ ПС ФОРМУЛЕ 19 J . »/

PRTsRQaRMj

₽R4= 1-CCSD 1BETTA} I

RHsSORT(DC'»*^,2*PR5'«*2’'2^,»|RSF6*21^e₽R44?*(PR5*₽«'RMaBETTA/ia0oRMaPP4}};

/♦ . РАСЧЕТ ПО ФПРмулЕ 20 ♦ ay

E^₽S₽aAB5(!BRH/{2»OC)’»RGR/(2*SRRT(DC**2*RGR«'*2"RH*«2)M I

/♦ РАСЧЕТ ПО ФОРМУЛЕ 211 «/

ES«EPS’R| CALL AN| '

'JGSPsSI

t* РАСЧЕТ ПО ФОРМУЛЕ 2|’ 1 р/

SJGMMAXsABS(SJC02TK‘l*S0*{l/RMf2l_l87«'(l»K2/Kl>/(RO*0,|4A'RMMM

IF 5 JGKHAX>»065 JGК^мA X<«50 THEN

He?,2| ELSE

IF 5!СКМХ>50651СКмдх<«100 THEN

ELSE нвя.бі

IF DO08DD<r500 THEN

v e« 1? , 5 S ELSE

IF OC>5?T4DP<=2000 THEN

Ve«J0i ELSE V0«8|

*51 /* РАСЧЕТ ПО ФОРМУЛЕ 2)8| «/

Rl»KbK2«)L0C(RH/(RO*0,)4»RM))*$0/|2*RM*S«|) I

^₽2el/RM*fl,B7*i|mK2/Kl|/|RD*0_llA*RM)f

(RH**2«<RO*RMI(RM«*21/(*(H*2*RN)H

ETTA5(i?a*6}ftSlGKMAX*h*'R|/(Kl«V0'^,Se«'R2*R3|l

/♦ РАСЧЕТ ПО ФОРМУЛЕ' 241 «/

^PF 2⁸1 • RGR/SORT I 0 З*Ф2«іЧСРеоЗ’ЯНаa 2 H

/* РАСЧЕТ ПО ФОРМУЛЕ 22 J 1 Ф/

IF FL4R||FL5»| Then Mail ELSE M«5|

DQ I« 1 TO M J

SIGRG(n»S|GSR(D*(L&4RH/RGR|*(ETTA»V09(RH**2»'(RO*RM)**?l|/lSIGSR(n H*(lf»o6}*RH⁸S01*S3/(2*RMA50)M

У* РАСЧЕТ ПО ФОРМУЛЕ 25 1 •/ -

00000122 00000125 I0000J24 50000)25 £ 0 0 0 0 1 2 6 00000127 00002)28 00000)29 30000)50 00000)51 .30 000 ) 52 30000)55 30000)54 00000)55 30000)56 30000)57 00000)58 00000)59 00000)40 00000)4) 00000)42 00000145 00000)44 30000)45 00000)46 00000)47 00000)48 00000)49 00000)50 00000)5) 00000)52 30000)55 00000)54 00000)55 00000)56 00000)57 00000)58 00000)59 00000)60 00000)61 00000)62 00000)65 .00000)64 00000)63 00000)66 00000)67 00000)68 00000)69 00000)70 00000)7) 00000)72 00000)75 «00000)74

00000)75 00000)76

*

-

- -

*1

к.

І л

$ &

V і $ 4 J

1

•

: —

. ~ ¹⁷⁷5lCTE(n_sSJGRG(!),S|G5RnM - 00000111

176 /♦ РАСЧЕТ ПО ФРМ'УЛЕ 25 | */ 00002178

179 EPS 1** f I > »rBS ( <-ЄР32 > ♦ <31 GPG ! I ) w51 GTE ( П ? / » «*S I GTE < 1 > 1CRG ( J >■> > > 0 0000 70

|80 /* РАСЧЕТ ПО ФОРМУЛЕ 26 |«/ 00002180

■ ■ !U E’!>r-.|_!R_S1.._U)._8Mll„_|”"’}»«

— - * ⁴’ 00002182

/* ПРОГРАММА РАСЧЕТА 8УТЯ*КИ С ИНТЕНСИВНЫ^ ПЕРЕМЕШ, ФЛДИЦА ф/ 0000000)

MACRO 5OUPCE2 LISTING ’ ’ . ‘ '

|83 /» РАСЧЕТ ПО ФОРМУЛЕ 27 1 •? 0000018*-

. - . |Я4 Е5 = ЕРі SR’* 1 00000 84

1Л5 CALL AN 1 00000185

1®6 5ІС”в5| 00000)86

1Є7 /♦ РАСЧЕТ ПО ФОРМУЛЕ 29 | •/ 00000187

*Е Т.Т А1 аВЕ Т Т А”Р И /• . Р1 я А L F А | / 2 «/ 00000)86 '

189 /о РАСЧЕТ ПО ФОРМУЛЕ 30 | ♦/ 00000189

190 L^s₽*РSFФfigТТА 1/Н0| 0 0000 190

1’1 РАСЧЕТ ПС ФОРМУЛЕ 34 • */ 00000)9)

192 R5sS0RT{nSF«»2„{0Q/2)**2)і 00000(92

. 1’3 ^р6в$С«Т |Р5Р9*2” (90/2) 9“2Н 00000 193

І⁹⁴Hj₈R5_efU| 00000(94

1’5 РАСЧЕТ ПО ФОРМУЛЕ 28-5 ♦/ 00'000)93

196 IF F(,4aJ|FL5»l THEN МаЦ ELSE МчЗ| 20000 196

197 CQ |а 1 ТО М| * ‘20000 (97

1’8 EPUPR-’U )FSIG’”'( !)/Е| 00000 198

199 /Й РАСЧЕТ ПО ФОРМУЛЕ ЗІ 1 “/ 00000’199

200 04TAl,in_eL*EPU^pR”’(I) 1 00000200

24 /9 РАСЧЕТ ПО ФОРМУЛЕ 32 Г ’/ 00000201

Л 2*2 | 00 000202

203 /* РАСЧЕТ ПО.. ФОРМУЛЕ 33 ’) •/ 00000203 • • ^;

204 F I 1 1 ) я 2•R5F^й5IN0(СА ММ А ( J)/2 )/5 JNQ(BEТТА 1«СА МНA I I)) ( 0 0000204

205 , /* РАСЧЕТ ПО ФОРмулЕ 33 1 •/ 00000203

??6 R2* (| )азарТ 1 1 ( |О0*0С)/21 «•<•2* (HPF 1( J)) «*2» * 1 ( (СО*ОС)/2| **2Ф f Н 1 ♦ F И 1} 1*00000206

207 *2) >/(2»<Н1*Г|< И 1 Н ‘ 0000 0207

20С РЄ?(!|»1,7542*Я141)_ЯЧ2’’|ІМ 1 ’ 00000208

2?9 P03(|)«|_|7_?*(2»R(»(|)*h$F|| ' 0000020’

-2U 8NDI 000002 )0

. 211 |F И HD>80,056КHD<»0j09 THEN 0000 02 1 1

212 POJ 00000212

215. . J F M я 3 J H E Я 0 0 ( 0 0 0 0 02-13

214 CALL PEO.OGI CALL 'PEXOGI - 000002 (4

215. EK'P* . 00 00 02)5

216 ELSE 00000216

217 CALL PEOOGI 00000217

218 ENO J 000002 (8

219 E L 3 E ’ 300002)9

220 JF ИНО»В0,йвКнр<80,5 THEN 0000022«

22) PO| 0000022)

222 -!FP>3 THEN 00) ' 00000222

223 CALL PEORSI 00000223

224 CALL PEXRSI 00000224 - .

225 ENO| 00000225

226 ELSE 00000226

227 CALL PEDRS1 00000227

228 ENQI 00000228

229 ELSE 00000229

230 IF МжЗ THEN DOI 00000230

251 CALL ₽EOl 00000231

232 CALL ₽EX| 00000252

233 ENDJ 00000233

^{234 5}*«⁵E ₄00000234

■ I

I

OCT 92-TI58-85 Лист 49

z/z/ZxZ Z/z/Z/V^ '<&?'

C*LL PEOI

00000239

236 237

238 239 24?

Ж 2«2 24>

MACRO

»114 ‘

/• АНАЛИЗ СЧЕТЧИКОВ ПЕРЕД СБРОСОМ 4ЛАГО8 */

IF 01- 1*3 THEN OOI

FL 1«f1 FL5«₽1 ENC|

EISE

IF CH2O THEN FL.2S0I EUK

IF C*3b3 THEN O0> /* ПРОГРАММА РАСЧЕТА ВУТЯ’КИ С ИНТЕНСИВНОМ ПЕРЕМЕУІ, ФЛАНЦА

SOURCE? LISTING

0/

00000230 00000237 00000238 00000239 00000240 00000241 00000242 00000243

00000001

244 245 2«6

247 2«6 249 230

25 1 252

25 3 254 255 256 257 258 259 ?60 2*1 262

263 26 4 265 266 2«7 268 269 27?

27 1 272 273 274 275 276 277 278 279 28?

28 J 282 283 284 285 286 .28 7 2«8 289 29 0

FL3e?| 4

FU4_B0|

ENCJ

И FU1>»4FL2«0|FL3b0 THEN

OOI

PUT EOJTI (|2B| •-«) f$K1P|A 1 I

00 TO ALE5| /

ENOI

ELSE

GO TO M0|

4ESIFAPO0I

PR|

END REOyl

/• ПРОГРАММА РАСЧЕТА сигму ПО 1-Ой АППРОКСИМАЦИИ

SlGllPPOC(ESiS)1

OCL(ESiS) FL0AT||6H

5e0|

5 » A 1 «• 1 E S * * N I 1

ENO S|C||

/• ПРОГРАММА расчета СИГМЫ ПО 2-Ой АППРОКСИМАЦИИ » * /

5JG2 1 PROC(PS і S1 1

OCL 1ЕS 1 3 1 »S<311 FLOAT! 16||

S80|

00 IM TO 31

ЗН)вА2ЦНРЕ5(П*А2І2_І!|*

SQ^RT(SORT ( fS 11)И * A 2{3 i 11*SflRT ( $QRT | SGRTfES(|)|I I| ENC|

ENO <|C?|

/**«И*ННИ*Н«**4*******А******Н*Н*««»»НА*А*«ИИ«Н*^|И**<^|***<>/

/• программа расчета сигмы по з-ей аппроксимации */

S|СЗ1 PROCfES і $)1

OCLIES.Si FLOATfUH ' .

380}

oo IM то Ml

5»S**3UI»IES*MH|) M

ENDI

END S|C3|

/**ННАН********Н*А*МН*И«А«Н«Н«*«*М*ИіИН***НМИ**И**Н/

/• ОПРЕДЕЛЕНИЕ УГЛА ALFA «/

FOJSK1 PROC(КI RETURNS(OEC FL0AT<16|)| ' X

00000244 00000249 00000246 00000247 00000248 00000249 00000250 00000251 00000252 00000253 00000254 00000255 00000256 00000257 00000258 00000259 00000260 0000026 1 00000262 00000263 00000264 00000265 00000266 00003267 00000268 00000269 30000270 00000271 00000272 00003273 00000274 00000279 00000276 00000277 00000278 00000279 00000280 00000261 00000282 00000283 0000028.4 00000285 00000286 00000287 00000288 00000289 00000290

OCT 92-1158-85 Лист 5C~

2’1 DCt К DEC ЧОАТ! 16) |

3’2 ОСІ І -DEC ЧСАТ( |6| І

7’3 DO t=0»ei ТО И» BY 0,011

3’4 р *B5U/SHD!U/?| »к| «р

00000291 0000029? 00000293 00000294

295 296 297 29Є 299 J?0

50 J 302 303

і 0 0 5 о

THEN RETURN 11,1 I

ENO! m pojski

'• ПРОГРАММА АНАЛИЗ* f Л > Г О В /]О А ЛЛ^рОКСИ^МАУИЯM • ♦ /

А N I ₽ Я О С |

JP FUl«l THEN

/* ПРОГРАММА РАСЧЕТА ВУТЯІКИС ИНТЕНСИВНЫМ ПЕРЕМЕН, фЛЛМЧА ’ «/

00000299 00000296 00000297 00000298 00000299 00000)00 0000030 I 00000302 00000303

0000000|

SOURCE2 U1ST1NG

304 305 306 307 306 309 зн ЛІ 312 313 314 3J5 316 ЗП ЛЯ 319 320 321 322 323 324 32 5 326 327 326 329 ззг 33 1 332 333 334 335 336 337 338 339 340 341 3*2 34> 344 3«5 346

DOJ .

'CAU S!G||FS( П ,SI|)|| - CHUCMJMI PV5HI returni EN.0 1 ELSE И PL2«1 THEN 00| C*UU S|C2(ES|SH СН2»СН2*П

RETURN!

ENO 1 EUSE И 43«t THEN ooi .

CALL 5IG3JESU),3(1)11 CH3BCH5HI

FL^e~ll RETURN!

PN0| EUSE ^₽А»пЦ ENO AN}

/« ПЕЧАТЬ ІУА.П^И И НОМЕРА ЛИСТА р/

PESHAJPROO! РЦТ РАОЕІ

U5^BUS*11 '

PUT EDI Т {( |28) f« » ЦА) 5KJPI

PUT $К1₽!2Н

PU^TEDIT! амаТЕРИАЛ’іМТР,»ЛИСТ(ММ) 1,30, ^ОТНОСИТЕЛЬНАЯ ГЛувИНА ’ )^KW0I МИСТ»,US)

<A|8),X!2)>A,XH0),A»X(2),F(7_f2),XH0).A|

X 12) •РМННСоиіИЗНА.ХН) ,F!?)M

PUT 5K|P(3)1

PUT ED|T|| 128) M 4 (A)SK|P|

PUT EOtTj f| РАДИУС I ДИАНбТр | ДИАМЕТР |«,

* РАДИУС І РАДИУС 1 РАДИУС |»,

» КОНТАКТНАЯ 1 ОПТИМАЛЬНАЯ |») «5KJP,3 А))

PUT ED|Tf»J C9EPN 1 ИСХОДНОЙ | НЕЙТРАЛЬНОГО Н,

00000304 00000305 00000306 00000307 03000308 00000309 000003)0 0 0 0 0 0 311 0000031? 000003)3 000003(4 00000315 000003)6 0000031? 000003)8 000093)9 00000320 0000032) 00000322 00000323 00000324 00000329 00000326 00000327 00000328 00000329 00000330 00000331 0000033? 00000333 000003)4 00000)39 ■000003)6 00000357 000003)8 00000339 00000340 00000)41 00000)42 00000)43 00000)44 20000345 00300)46