Document: NRC Regulatory Guide
Document ID: 2704425a-c58a-45c4-93ab-8761721c3e7a
Document Type: regulatory_guide
Title: Evaluation of Reactor Pressure Vessels with Charpy Upper-Shelf Energy Less Than 50 Ft-Lb
Source: NRC Regulatory Guide Division 1
Source URL: https://www.nrc.gov/docs/ML0037/ML003740038.pdf
Revision Date: 2023-06
Chapter: 
Section ID: RG-1.161
CFR Part: 
CFR Title: 

Content:
C Calculate PRESSURE Component of Applied K, PKI, For Each 1-kne Crack Depth OUTRAD=RAD+TH FACTOR = RAD**2.0 / (OUTRAD**2.0 - RAD**2.0) C DO 120 TAM = 1, 10 IT = TMAX*TflvWI0.0 DOI 10 CRACK= 1, 1CMAX X=Z(CRACKYM C CALCULATE INFLUENCE COEFFICIENTS DO 100M= 1,5 IM =ZZ(Kl)+X*ZZOA.2)+(X**2)*ZZ(K3)+(X**3)*72XK4) IC(M) - ZZC(MI) + X*ZZC(K2) + (X**2)*ZZC043) + (X**3)*ZZC(K4) 100 CONTINU13 PRES(TDAE) = CONST(I)+CONST(2)*TT+CONST(3)*TT**2+CONST(4)*TT* I *3+CONST(5)*TT**4 PKI(CRACK.TIME) = PRESCrB4E)*((3.1416*Z(CRACK))**.5)*(10.5238*1(1) I -1.1524*I(-2)*X40.1729*1(3)*(X**2)-0.0230*1(4) 2 *(X**3)+0.0029*1(5)*(X**4)) B-2 PKIC(CRACK,TIMfE) = 5*pREs(TIME)((3. 1416*Z(CRACK))**.5)*1C(I) RATIO = RAD / (1O.0*5 TH) PKI(CRACK.TIME) - RATIO * PKI(CRACKTIME) PKIC(CRACK,TIME) = RATIO * PKIC(CRACK.TIME) c CALCULATE HOOP STRESS SHOOP(CRACKTIE) = FACTORS* PRES(TME) 1 (1.0 + (OUTRAD/CRAD + Z(CRACK)))**2.0) 110 CONTINUE C CALCULATE LONGITUDINAL STRESS SLONCTCITIME) = PRES(TIME) *FACTOR 120 CONTINUE RETUR}N END SUBROUTINE TPOLY C CALCULATE WATER TEMPERATURES USING A POLYNOMIAL' MODEL REAL TEMP(5), CONST(5), S(5). AN(4). Y(4,5). KTEST REAL K, KO, CP(4), SUM(4) INTEGER TIME, CRACK. CONSTK CONSTE INTEGER Q C KPOLYNOMIAL Modeling of The Wate Temperature C Determine Meta Temperature For EACH CRACK DEPTH AND TIME INTERVAL DO 100N= 1,5 TEMP(N) - TDATA(N) - TINT 100 CONTINUE C FIT A 'POLYNOMIAL TO THE WATER TEMERATURE CONST(1) = TEMP(1) CONsT(2) - ((..25)*TEMP(1) + 48*TEMP(2) - 36*TEMP(3) + 1 16*TEMP(4) - 3*TEM[P(5WY(3*TMAI) CONST(3) - (35*TEMOP(1) - 1O4*TEMP(2) +11 4*TEMP(3) I 56*TEMP(4) + I I *TEhe(5))*2/(3*TMAX**2) CONST(4) = ((-5)*TEMP() + 18*TEMP(2) -24*TEMP(3) + 1 14*TEMP(4) - 3*TEMP(5)Y'16/(3*TMAX**3) CONST(5) = (TEMP(1) - 4*TEMP(2) + 6*TEMP(3) - 4*TEMP(4) + I TEIP(5))*32I(3*TMAX**4) DO 150 TIME =1. 10 B-3 "TT = TMAX*TIMFJIO. C EQUATION FOR THE TEMPERATURE OF THE WATER TWATER(TIME) = TINT+CONST(I)+ CONST(2)*TT + CONST(3)*TT**2 + 1 CONST(4)*TT**3 + CONST(5)*TT**4 DO 150 CRACK= 1,5 K=KO I1O X =