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

0СТ92--П58-Н:. д_ист 38

<*

ьг

ftES«F/RES;CALL POLINOM;

43

оо j = i то sc;

4

44

К F 1 ( J ) X R Е S * к F 1 < J ) j

45

eno;

46

oo j=.i ,to sc;

4 7

К F 2 < J > » к F 2 < J > * К F 1 (J ) ;-

•

48

eno; . ,

*

49

eno;

50

polinom s proc;

51

00 J=1 TO 51;

52

kfi(j)xo;eno;kfki>_b1;

53

do j»i то sc;

54

IF I=J THEN 0°;

55

00 KB 1 TO 50;

KF1 (52-K)=KFl(51-K);

56

•

-

57

end;

58

KF1 (1 ) = o;GOTO E3;ENor

59

XsAODR<Pl<J>>;

*

60

DO K=1 TO J J

*

wuad;proc оptionsсмаглу;

PAGE

UhS> ri-подл. По йп- и

61 KFl<J + 2-K)sKFiCi*2’K)-KF1(J*1-Kr*NAj,EN6;

бг ЕЗ^Ечо;

63 DO K = 1 то so.;

6 4 KF 1 (K)=KF1 (K*1);ENO J

6s ENO I

66 PUT EOIT<'ПОЛИНОМ СТЕПЕНИ » , S С - 1 ) ( S К I P і A 7 F ( 2 У ) I

67 DO 1=1 TO 9;

⁴68 J=*s*t;

⁶9 PUT EDIT ( KF2 < J-4) , KFs ( J-3) , KF2 < J"2)", KF2 N"1 ) , KF2< J ) ) .

70 <SKIP(2>,F(1₅,₄>,X<8>,F(_t5/4>,X(8),FCt₅;₄)_rX<8)7F(t₅;₄),X(8>;

71 F<1_5r4)); *

72 . eno;

DCL TCK CHAR(5),TC<f F I XE0<5.2>t <TCK₽SU^M> FLCAT<14);

7Д D IS P 1A Y С * У К А*ЧГ I ОЧКУ >•) RE P (_Y <T С* > 1

Г₅GET 5Г??ГЛаСТСК.ГЕ0ГГСГСКГІ CJCs^Znj

76 TCKP=FLOAT CTCKF) Г

77 tckp=tckP/m‘sct;

78. IF TCKPeO THEN GOTO LU

79. SUM-KEgCUr

*■ 80 DO 1 = 1 TO SC-1 ; •

81 SUM=SUM*TCKP^KF2CI*1)»

82 ENO;

83 tckp=tckp*mscT;

8.4 PUT EOITI'B ТОЧКЕ UTCKP',» ЗНАЧЕНИЕ ФУНКЦИИ®, ,SU«>

^я5. <SKJP<2),A_rFC5_<2>_<A,FC₅7t>);

86 11:

87 ENO WLAO;

STMT

level

NEST

1

WLADjPROC OPT IONS(MAfN);

1

2

• 1

-

OCL SYS IN FILE RECORD INPUT;

2

3

1

DCL SC FIXEd(2)INIT(0>,PCHAR(80>,PL(50)CHAR(16)j

3

4

1

OCL FNA FIXEDC5, 2) , FDE FIXF.DiSjD;

4

5

1

DCL KF1 (5i)FLOAT(14),KF2<51)FLOAT<14);

5

6 •

1

DCL 1 KT BASED(X) UnAL,

«

6

2 MA PEC FLOAT<14),

7

2 DE DEC FLOAT! 14) I ..

8

7

1

DCL X PTR;

9

8

1

DCL MS C^WAR(2),MSC F I XE0(2>,MS СT FlOAT<14);

*

1 0

9

1

D C L < F , AR 0 , r e s ) f LO AT < 1 4 ) ;

1 1

Ю

1

DI SPLAY(’УКАжИ МАСШТАБ»)REPLY<MS>J

1 2

1 1

1

GET STRIN G(MS)EdIT<MSC)(F(2)>J

1 3

1 2

1

MSCTcFLOAT(MSC)I

1 4

1 3

1

DO' 1 = 1 TO 51 J

•

1 5

U

1

1.

KF2<I>sO;ENDI

1 6

16

1

OPEN FILF(SYSIN)J

1 7

1 7

1

ONEndFILE<SY$IN)GoTOei;

1 8

1 9

1

L!READ FILE(SYSI N>I N TO<P);

1 9

20

1

sc=sc*i;

20

21

1

XsAddr (PKSC) ) J . .

2 1

22

1

GET S T R I N G ( S U 0 S T R < P , 1 , 5 ) ) E D.I T ( F N A ) ( F ( 5 , 2 ) ) I

22

23

1

GET STRTNG(SUP,STR(P,6,5))EDTT<FdEXFC5,i));

23

24

1

NA=FLOAT(FNA);

24

25

1

NAsNA/MSCT;

2 5

26

1

DEsFLOAT<FDE ) I

26

27

1

GOTO Lj ^z

27

28

1

E1 ;PUT EDIT<»ДД,ч 0;X 'ТОчх^і*/Функции*)(SKIP,AjX<5)jA_#X<5)jA)J

28

29

1

PUT Ed IT(і МАСШТАБ 1 :»t«SC)(S<IP<2),a,F(?));

29 '

30

1

DO 1=1 TO SC;

30

' 31

1

1

x=addr(pl<і));

3 1

32

1

1

PUT EDIT(NA,DE)<SKIP,X<10);f(6'2),X(5),F(6,1>)J

’ 3 2

33

1

1

end;

33

34

1

DO 1=1 TO sc;

34

35

1

1

XsAddr <pl( I > >;

3 5

36

1

1

• F = о E ; A R G _BN A ; R F S = 1 ;

36

’ 39

1

1

do j=i то sc;

37

40

1

2

IF I=J THEN GOTO E2I

38

42

.1

2

X = a d d R < P L ( J ));

39

43

1

2

res=res*(arg-nA);

40

44

1

2

E2IEND; •

*

4 1

45

1

1

RES=F/REs;CALL POLlNOM;

1

•42

47

1

1

DO J = 1 To SC f

43

48

1

2

КF1 (J)=RES*KF1 (J) J

4 4

49

1

2

end;

45

50

1

1

DO J = 1 TO SCJ

46

51

1

2

KF2(j)=<F2(J)+KF1(J);

47

52

1

2

END;