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

лойя. Лодп- « ~ЛоЯл- и dam#

1

"1

*•

ENO? *

-

<—

49

... -

•

54

55

56

59

60

62

63

64

65

1 2

2 1

2

2 1

2 2

2 3

2 3

2 2,

WLAD J PROC

POLINOM;PROCJ 00 Js1 To 51| KF1 < J > =0 J END KF1 (1 ) »1 J

DO J = 1 TO SC J

⁴IF I«J THEN DOI DO Kb1 to so;

<F1<52-K)_CKF1(51"K)I

end;

кf1<1>=о;goto ез/Endj OPTIONS(MAIN)•

50

51

52

53

54

55

56

57

58

PAGE

5

STMT

LEVEL-

NEST

68

69 ?0

7 2 73

74

76 77

78 79 a.o

«1 82

83 »4 ^я5 86

87 89 ?0

*»1

92 93

94

95

2 1

2 1

2 2

2 1

2

2 1

2

1

1

1 1

1 1

1 1

1

1 .

1

1

1

1

1

• 1

1 1

1 1

1

1

1

. W L A 0 1 P R 0 C

X=Addr(pl<J));

DO Кй1 To JJ

<F1<J+2-K>₃KFi(J+2~K)-KF1<J*1"K>*NA;ENo;

E 3 5 E N D ;

DO K = 1 TO 50;

kfi(k)bicfi(k*i)JENd;

end;'

PUT EDIT('ПОЛИНОМ СТЕПЕНИ * « S С " 1 > < S К I P , A , F < 2 ) > J

DO 1 = 1 TO 9J

J=5*IJ

PUT EDIT<KF2<J-4),KF2<J-3);К^г<J-^>,KF?<J-1),KF2(J)> <SKIP(2)|F(15,₄),X<8)_rF<l5;₄),X(8>,F(15,4),X(8),F(15,4),X(8), F (1 5,4 > >;

end;

DCL TCK CHAR(5),TCkf FIXED(5,2>;(TCKP,SUM) FL0AT(UH

DISPLAY('УКА^и ТОцКу')REPLY(TCKM

get string<tck>edit<tckf>(f<5;2>>J '

T С К Pa F LO A T ( Т С К F )

tckp=tckp/m$cT;

IF TCKPsQ THEN GOTO L1j

SuMaKF? ( 1 ) )

do 1=1 то sc-1;

SU’Mn S иM * T С К P + К F 2 (I * 1 ) ;

END;

TcKPsTCKP*MSCTI

put editc'b точке •,tckp;t значение Функиии=иsum> (SKlP<2),A,F(5»2),A,FC5;i));

L1 X

end WLAO;

OPTION S(M A I N)J

59 60

61 62

63 64

65 66

67 68

69 70

71 72

73 ^?4 ?5 76

77 78

79 80

81 82 83

84 85 86 87

-

I

PAGE

z

6

I E F 285 I SYS8a118.T0 93 750,SV000,wlAD,R0000001.

SYSOUT

IEF285I VOL SER NOS» 0TD²88,

I EF285 I SYS8A118,T093750.RVOOO.WLAD,IOAdSET

I E F 2 8 5 I VOL S E R NOS» M T S D01 ,

IEF283I SYS8A118.T093750.RV00D.WLAD.SYSUT3

IEF283I VOL SER NOS» V1USER.1.

IEF285I SYS84118.T093750.RVOOO,WLAD.SYSUT1

IEF285I VOL SER NOS» 0TD²88,

I EF2 85 I SYS84118.TD93750,RVOOO,WLAO.S0000002 IEF285I VOL SER NOSs ОТD288, IE F 28 51 SY 58a118.T093750.RV000.WLAD,80000002

IEF285I VOL SER NOSs 0TD²88, IEF373 I STEP /Pl.1L / START 84118.0942

IE F 374 I STEP /P L1L I STOP 84118,0946 C₽U 0MI^N

41

passed

NOT DELETED 8

DELETED

SYS IN

deleted

.48SEC MAIN 100X

»

XXLKED EXEC PGMbIEWL,PARMb'LET, LIST' , CONDs <9; LT ,'

XX REGIO N s 9 6 К

XXSYSLIB DD OSNAMEsSYSI .PL1LIB,DISP=SHR

XXSYSLMOD DO DSNAME = a&GOSET(GO),DISP=(MOD,PASS) ,

XX UNlTaSYS DA,SPACEs<1024*, (50,20,1>y

P L1 L > ,

*00090000 00100000 00110000

*00120000 00130000

XXSYSUT1 DD DSNAME«&8SYSUT1,UN ITвSYSDA,SPA СEя( 1024,

XX DC8=BLKSIZEs1024

XXSYSPRINTDD SYSOUTbA

XXSYSLIN DD DSNAME=8&LOA0SET,dISPbIOlD,DELETE)

XX DD DDNAMEbSYSIN

< 2 0 0 ', 2 0 ) > і

1

*00140000 00I50000 00160000 00І70000 0 q180 000

IEF236I IEF237I IEF237I IEF237I

I EF237 I IEF237 I

ALLOC, FOR W L A 0 132 ALLOCATED TO

.130 ALLOCATED TO

131 ALLOCATED TO

lked SYSLIB SYSLMOD SYSUT1 SYSPRINT SYSLIN

•

132 ALLOCATED

133 ALLOCATED

TO

TO

4 4 к linkage editor

IEW0461 IHEUPAB

IEW0461 IHEUPBB

IEW0461 IHEdNCA

IEW0461 IHE-DNBA

IEW0461 IHEVSAA

IEW0461 IHEVCAA - ■

IEW0461 IHEVOBA

IEW0461 IHEVPCA

IEW0461 iHEyPGA

IEW0461 IHEV.PHA

IEW0461 I HEVFBA

IEW0461 IHEVFDA

IEW0461 IHEVKRA

IEW0461 IHEVKCA

IEW046V IHEVKFA

IEW0461 IHEVKGA

IEW0461 IHEDBNA

IEW0461 IHEVQCA

IEW0461 I HEVS8A

IEW0461 IHEVSEA

IEW0461 JHEVSFA

IEW0461 IHEDDOO

IEW0465 IHEUPAA

IEW0461 ІНЕЦР8А

IEW0461 IHETERA

OPTIONS SPECIFIED LET,*

DEFAULT OPTION($> USED

f

LIST

- S11E=(S734 и;8192>

* * * *GO

DOES NOT

EXIST BUT HA$ BEEN ADDED

TO DATA SET .

IEF285I

SYS1 ,Pl1Li⁰

KEPT

IEF28$ I IEF285I

VOL SER NOS= RV0S60, SYS84118,T093750,RV000.WLAD.GOSeT

PASSED

I E F 2 8 5 I IEF285I

VOL SER NOS= V1USER, SYS84118,TO93 75O.RVOOO.WLAD,.SY$UT1

deleted

IEF285I

IEF285I

VOL SER NOS= 0TD288, SYS84118,T093750.SVOOO.WLAD.R0000003

SYSOUT

IEF285!

I E F 2 8 5 I

VOL SER NOS= RV0S60, SYS84118.T093750.RV000.WLAD.LOAdSET .

deleted

I E F 2 8 5 I IEF373I IEF374I

VOL SER NOS» MTSDqI, STEP /LKED 7 START 84118.0946

STEP /LKED 7 STOP 84118.0948 C₽U

0 MI N 08.94SEC MAIN

дано :

ТОЧКИ

ФУНКЦИИ

МАСШТАБ

1 S 1

«

0,20

910,0

0,55

930.0

1,01

955,0

1 ,66

960,0

2,22

980,0

2,77

985,0

t

4,00

1000.0

5,00

1010,0

7,00

1 035,0

9,00

1060,0

11,00*

1090,0

полином

СТЕПЕНИ 10

0,007₃

-0.3125

5.57U

“54.0167

312.2811

f

-1110,8113

24?0.671 9

-3112,0215

21 61 .9537

«641 , 6 5 о 6

973,2112

0,0000'

0,0000

0,0 0 0 0

0.0000

0,0000

0.0000

0.0000

оо о о о

0.0000

«г

0,0000

0.0000

0.0000

0.0000

0.0000

0.0000

0.0000

0.0000

0.0000

0.00 0 0

0,0000

0.0000

0,0000

’ 0.0 0 0 0 ♦

0.0000

0,0000

0.0000

о .оооо

0 .’ о ООО

0.0000

0,0000

0.0000

0,0000

0.0000

0.0000

IEF2851 *

SYS84118.T093 75 0.RVO00.WLAD,'GOSeT

PASSED

IEF285I

VOLSERNOSsVILISER,

IEF285I

SYS84118.T093750.SVOOO.WLAD.R0000004

S*SOUT

IEF285I

VOL SER N0$z V1USER,

IEF2851

ГЕF285 I

SYS84118.TO93?5O.RVOOO,WL'AD.SOOoOOOS VOL SER NOS= 0TD288,

SYS I N

IEF28SI IЕF285 I

SYS84118,To9375O.RV0O0.WLAD.S0000005 VOL SER NOS= OT0288,

DELETED