1 2 З?
1 2 З? 4 5 6 7 8
CALCULATION AND STRENGTH TESTS
Methods for determining dynamic crackgrowth resistance characteristics of metalsunder mode of longitudinal fracture shift at temperature rangefrom minus 196 1 2 3 3.1 3.2 3.3 3.4 3.5 3.6 3.7 3 . 3.9 4 4.1 4,2 4.3
4.4 4.5 5 5.1
5.2
L = 7D; d = (0,6...0,7)D; L-t — D —- D k ~ d — / h — 5.3
S.4 5.S 5.6 5.7 8 6.1 6.2 1 W
7 G — 6.3 6.6 1 7.1 7.2 7.3 7.4 7.5 7.6 7.7 7,8 7.9 7.10 7.11 7.11.1
7.^.2 7.11.3 7.І? —? —? —? 8 8 8.1 8.2 8.3 = (8.1)
/=1 >1
(8.2)
/=1
H(t) —- N — — ^ = 2 co* = 0.2938-1.9471 < ■? // ( =-0.7987 + 3.92454 - 6.4124 2 + 3.4814 3 +(0.046 - 0.32364 + 0.63564 2 -0.3854 3 )
MIIS
—? —? —? —? - —? -
—? —? —? - —? —? —? —? —?
CPU —
0,1
1 — — — 2 —? —? —? ( —? 4 —
USE IMSL
INTEGER N
CHARACTER FFILE*50
PARAMETER (N=61)
REAL SE(N),COEF(N),ST(N),SP(N),TC(N),AK(N),BK(N)
DIMENSION 0(3),E(3),OS(3)
REAL, ALLOCATABLE:: A(:),T(:),T1 (:),A1 (:)
REAL KIS,KA,L,KI,LL,LM
WRITEC,*) ‘WEDiT” KSLKIST EKSPERYMENTALNYCH TOCHOK’
READ(*,*) NN
ALLOCATE (A(NN),T(NN),T1 (NN),A1 (NN))
WRITEC,*) ‘WEDIT NAZVU FAJLU, DE BUDUT REZULTATY ROZRACHUNKU’
READC,*) FFILE
OPEN(10,FILE=FHLE)
DO 51 1=1,NN
WRITEC,52) I
READ(V) A1(I),T1 (I)
52 FORMAT(3X,’WEDIT ZNACHENNA ‘,12,’ - Ol PARY TOCHOK ‘, *’APROKSYMAC)JI ZAPYSU EKSPERYMENTALNOJI KRYVOJI(P - T)’)
51 CONTINUE
WRITEC,*) ‘WEDIT ZNACHENNJA MODULJA JUNGA U PASKALJACN’
READC,*) EE
WRITEC,*) ‘WEDIT ZNACHENNJA HUSTYNY MATERIALU U KG/M3’
READC,*) RO
WRITEC,*) 'WEDIT ZNACHENNJA RADIUSA (W) ZRAZKA U METRACH’
READC,*) W
WRITEC,*) ‘WEDIT ZNACHENNJA GLYBYNY TRISHYNY U METRACH’
READC,*) LM
WRITEC,*) 'WEDIT ZNACHENNJA DOVZYNY ZRAZKA U METRACH’
READC,*) LL
TP=2.*3. 141593/60. E-6
KA=SQRT(EE/RO)/W
KIS=-0.1S8-0.924/G+12.2*L-30.8*L*L+30.*L*L*L
K)S=KIS*LL*SQRT(LM)/(TB*W*W)
OS(1)=-0.336+0.806*L-0.481*L*L-i-(3.01-5.22*L+2.23*L*L)/G
E(1)=0.358+1.36*L-0.654*L*L+(1.78^3.49*1^1,42*L*L)/G
OS(2)=0.0766-0.186*L+(3.08-0.958*L)/G
E(2)=0.131-0.874*L+0.848*L*L+(-0.0147+0.170*L-0.184*L*L)*G
OS(3)=-0.317+5.8/G
E(3)=0.297-0.914*L+0.793*L*L-0.161*L*L*L+
*(-0.198+0.484*L-0.247*L*L)/G
DO 4 l=1,NN
A1(i)=A1 (l)*9.31
4 ST(IX)=0.
DO 14 IJ=1,60
IX=IX+1
TT=FLOAT(IJ)*1 .E-6
SE(IX)=0.
DO15I=2,NN
A(l)=(A1 (l)-A1 (l-1))/(T(l)-T(l-1))
IF (TT.LT.T(M)) HT=0.
IF (TT.GE.T(M)) HT=1.
S 15 ST(IX)=SE(IX)
14 CONTINUE
CALL FFTRF (N, SE, C$EF)
AO=COEF(1)/FLOAT(N)
DO 21 l=2,(N+1)/2
AK(l-1)=2.*COEF(2*l-2)/N
BK(l-1)=-2.*COEF(2*i-1)/N
21 CONTINUE
IR=1
SP(IR)=0.
DO 22 IJ=1,60
IR=IR+1
TT=FLOAT(IJ)*1 .E-6
SP(IR)=A0
DO 23 J=1,30
23 SP(IR)=SP(IR)+AK(J)*COS(J*TT*TP)+BK(J)*SIN(J*TT*TP)
WRITE(80,*) IJ,SP(IR)
22 CONTINUE
DO 3 IJ=1,60
TT=FLOAT(I J)*1 .E-6
KI=0.
DO 1 1=1,NM
O(I)=OS(I)*KA
AJ=-A0
BJ=O.
SU=0.
DO 60 J=1,30
BIK=1 ./(1 .-(FLOAT(J)*TP/O(I))**2)
AJ=AJ-BIK*AK(J)
BJ=BJ-FLOAT(J)*(TP/O(I))*BIK*BK(J)
60 SU=SU+BIK*(AK(J)*COS(FLOAT(J)*TP*TT)+BK(J)*SIN(FLOAT(J)*TP*TT))
R=AJ*COS(O(I)*TT)+BJ*SIN(O(I)*TT)
1 KI=KI+KIS*E(l)*(R+A0+SU)
WRITE(*,*) TT,KI
WRITE(10,*) TT,KI
3 GONTWE
STOP
END