Die Forging Design
Die Forging Design
on
to
oo&j~ 0 119/131r
4b by
T D. E. Nichols, H. J. Henning,
and A. M . Sabroff •XO1111O.
1D>&2
01
FIFTH INTERIM TOPICAL REPORT
on
to
by
Contract DAAG46-68-C-0111
This work was administered under the technical direction of Mr. Dennis Green of
the Army Materials and Mechanics Research Center, Watertown, Massachusetts 02172.
This program was carried out under the supervision of Mr. A. M. Sabroff, Chief
of the Metalworking Division, and Mr. H. J. Henning, Associate Chief of the Metal-
working Division. Dr. T. Altan, Senior Scientist, is the principal investigator.
This work was administered under the technical direction of Mr. Dennis Green of
the Army Materials and Mechanics Research Center, Watertown, Massachusetts 02172.
This program was carried out under the supervision of Mr. A. M. Sabroff, Chief
of the Metalworking Division, and Mr. H. J. Henning, Associate Chief of the Metal-
working Division. Dr. T. Altan, Senior Scientist, is the principal investigator.
Page
REFERENCES . .......................................... 24
APPENDIX A
APPENDIX B
APPENDIX C
APPENDIX D
by
INTRODUCTION
The second interim topical report, "Methods for Estimating Flash-Gap Dimensions
,and Flash Weight in Closed-Die Steel Forging", described a shape-difficulty factor for
axisymmetric forgings first introduced by Soviet workers. (1)* At this time, this factor
includes only the geometrical shape of the forging but excludes the effect of forging ma-
terial, die wear, and forging tolerances. The shape-difficulty factor appears to be use-
ful in predicting the difficulty involved in forging a part and in calculating the, flash di-
mensions and flash weight by using statistically derived empirical formulas. These
formulas and the derivation of the shape-difficulty factor were given in the second topical
report, and they are summarized in Appendix A. In the present work, the derivation
and practical use of a FORTRAN computer program is described. This program calcu-
lates, from the dimensions given in the engineering drawing of a particular forging, the
following variables:
The computer program is written for axisymmetric steel forgings forged from a cylin-
drical billet. However, it can be extended easily to analyze intermediate blocker forg-
ings necessary for forging complicated axisymmetric shapes. Practical shop experience
will be necessary to develop the shape-difficulty factor into a characteristic quantity
that indicates, for a given material, the number of necessary blocking operations and
the fabrication cost associated with a specific forging shape.
*References to work described in three papers by Russian authors have been discussed in the second interim report.
In order to calculate the volume of a forging using the dimensions in the engineer-
ing drawing of the forging, the forging is divided into various small components for which
the volumes can be calculated by means of well-established formulas. This procedure is
carried out in practice in most companies by using formulas, charts, or nomograms.
Complete computerization of this procedure is proposed, at least for the axisymmetric
forgings. With the time-sharing computer terminals available today, even a small com-
pany that does not have a computer can acquire a computer terminal at minimal expense
to carry out the calculations described in this report.
In order to use this computer program, the user is not required to know the details
of the mathematics or of the programming involved. He must, however, know how to
prepare the input data for the program. However, the details of the geometrical deriva-
tions and of the computer program are given in this report so that those interested in
research and development can use this information for future expansion of the present
approach.
The practical method for determining the total volume of a forging consists in
dividing the forging into simple basic geometrical shapes and then calculating and adding
the volumes of all components. Figure I illustrates the volume components of a simple
axisymmetric forging. Using well-known formulas, the volumes are easily calculated.
Tables are available for determining the volumes of the small-volume components de-
scribed by the arc and the edges of the corners or fillets of the forging. This procedure
can be computerized along with the determination of the shape-difficulty factor. The
shape-difficulty factor described in the second interim topical report and in Appendix A
is evaluated by determining the following variables for an axisymmetric forging:(I)
(3) The radial distance from the axis to the center of gravity of half of the
cross section, RG.
For determining the forging and the flash weights, it is also necessary to calculate the
volume of the forging.
For this purpose, the forging is divided into basic volume components that are
analyzed below. Throughout this analysis, the computerization of all calculations is
emphasized.
Cylinder
The half cross section of a cylinder is shown in Figure 2a. The radii Ri and Ri_1
describing the cylinder are subscripted in order to facilitate the adaptation of derived
formulas for computer programming. These dimensions are obtained from the engineer-
ing drawings of the forging.
BATTELLE MEMORIAL INSTITUTE- COLUMBUS LABORATORIES
3
_ R4
i• R5
/7r4a
r6 0H
<
R6
RII
FIGURE 1. DIVISION OF A FORGING INTO SIMPLE GEOMETRICAL
VOLUME COMPONENTS
P1 R1
Center of gravity R
Pi-I RI-,I H
a1 (positive)
PP Ri C
Pi- I
A Ri-I B
Using the symbols of Figure 2a, the following variables are easily calculated:
The segment of the perimeter, i.e., the distance between the points Pi and Pi-l1:
Pi Ni-i = H (1)
Si = Ri H (2)
Vi = ?TRi2 H (3)
The radial distance from the center of gravity of the half cross section:
For a half cross section of a cylinder as shown in Figure 2a, Equations (1), (2), (3), and
(4) give the segment of the perimeter, the surface area, the volume, and the radius of
center of gravity, respectively. These four quantities are necessary to calculate the
shape-difficulty factor and the volume of the entire forging.
Truncated Cone
The half cross section of a truncated cone is shown in Figure 2b. The angle of
taper, ci, measured with respect to the centerline, is considered positive if the taper
is above the parting line of the forging.
As in case of the cylinder, the geometrical variables for the half cross section of
the truncated cone seen in Figure 2b, are calculated as follows:
The volume:
2
V 7T(Ri2 + R + RR /3.(7)
Si ii) H/31(-)
The radial distance from the center of gravity of the half cross section seen in Fig-
ure 2b is obtained by considering the triangle PiPi_lA and the rectangle PiABC as the
components of the half cross section. The following relation holds:
RGi x total surface area = surface of triangle x RGT of the triangle + surface
of rectangle x RGR of rectangle,
BATTELLE MEMORIAL INSTITUTE- COLUMBUS LABORATORIES
6
whe re
Thus,
i (Ri_1 - Ri)] (Ri_ 1 - Ri) H RiRi H
RG Si = Ri + 3 J 2 + 2 (8)
Using the value of the surface Si from Equation (6), Equation (8) is solved to give:
For a half cross section of a truncated cone as seen in Figure 2b, Equations (5), (6),
(7), and (9) give the segment of the perimeter, the surface area, the volume, and the
radius of center of gravity, respectively.
The half cross section of a volume component, described by two radii, Ri and Ri-1,
and by fillet radius ri, is illustrated in Figure 3a for positive draft angles (draft angles
are positive for the part of the forging above the parting line) and in Figure 3b for the
negative draft angles. Following Figure 3a, the values which are given in the engineer-
ing drawing are:
In some cases, the value of the edge radius, R, is not explicitly given in the engi-
neering drawing but has to be calculated from other given dimensions. These secondary
calculations are incorporated in the final computer program.
From Figure 3a, the following quantities, which are also valid for the conditions
of Figure 3b, are calculated by using the geometrical relations:
a i ( positive)
rii
______
a. Positive Draft Angles ai and ai.2 (Above the Parting Line)
. Ri-I
(negative) p
2 ( negative) I
b. Negative Draft Angles ai and ai_2 (Below the Parting Line)
and, using
Ri = R - ARi . (16)
where Hi and Hi_1 are given by Equations (13) and (15), respectively.
The surface area of the circular segment defined by the straight line PiPi_ I and by
the arc PiPi-l is
r2
A =--(13 - sinl3) ,(19)
The distance between the center of the arc and the center of gravity of the circular
segment is
3
2 r.3~ sin /3/2
Xs=
3 A (20)
Ax = x( sin (21)
whe re
-/3/2-
P= ai_2 for ci_2 < 0 (Figure 2b) (22b)
The radius for the center of gravity of the circular segment defined by the arc
PiPiI and by the line PiPi_l is given by
Rs = R + Ax (23)
The quantities given by Equations (10) through (23) are calculated by using only the values
of the edge radii R, fillet radii ri and of the angles ci and ai-2, all of which are given in
engineering drawings.
Now, the important geometrical variables for the volume component under consid-
eration can be calculated:
The radius of the center of gravity, obtained from RGi = (RGcSC - A Rs)/Si . (27)
In Equation (27), the radius RGC is the radius of the center of gravity of the half-
truncated cone described by Pi and Pi-l" RGC is calculated by applying Equation (9).
SC is the surface area of the same half cross section of the truncated cone and is calcu-
lated with Equation (6). All other quantities used in Equations (24) through (27) are cal-
culated by using one or more of Equations (10) through (23).
The half cross section of a volume component with a corner is shown in Figure 4 a
for positive draft angles and in Figure 4b for negative draft angles. Again, the edge
radius, R, the corner radius, ri, and the angles ai and ai_2 are given in the engineering
drawing of the forging.
Equations (10) through (21) are still valid for calculating various geometrical quan-
tities shown in Figure 4a.
The radius for the center of gravity of the circular segment is given by
Rs = R - Ax . (29)
AR.C1
RiIR
a1 2 i -.. .. '
R Pi-I
-2(ngtv )
i~
'~~~~~ ~~~ S R S
2 (32)
The volume Vi = 7T(Riz + Ri- 1 + RiRiI)H/3 + 27f Rs A
The radius of the center gravity for the entire volume component is
where RGC, SC, RS, Si and A are obtained from Equations (9), (6), (29), (31), and (19),
respectively.
Thus, Equations (30), (31), (32), and (33) give the necessary geometrical quantities
for the half cross section of a truncated cone with a corner radius, as seen in Figure 4a
and b.
The total perimeter of the axial cross-sectional surface, seen in Figure 5, is ob-
tained by adding all the segments of the perimeters calculated for various cross-
sectional components. Thus, considering the axial symmetry of the forgings, the total
perimeter P is
n
P =2 PiPil 1 (34)
i=l
"R6 17
R 8 ,9
7 8 _
9
6 a9
a 5 o
5
a5
12
I 5/
R3 HC4 5
2R2
R 2 ,3
R 4 15
where
PiPi-l = segment of the perimeter obtained from Equations (1), (5), (24),
or (30) corresponding to the specific volume component
n = number of volume components in the forging.
Equation (34) gives the total perimeter of the axial cross-sectional surface for an axi-
symmetric forging.
where
Si = surface area of a volume component, from Equations (2), (6), (25) or (31)
n = number of volume components in the forging
k = + 1 or - 1.
The factor k has the value +1 if the surface area of that volume component must be added
to the total. If that surface area must be subtracted from the total, as, for instance, for
the volume components within the zone defined by R 8 , 9 and RIO, 11 of Figure 5, then
k= -1.
Equation (35) gives the total surface area of the axial cross-sectional surface for an
axisymmetric forging.
where
For n and k, the same considerations are valid as in Equation (35), which was used for
calculating the area of the cross-sectional surface.
Equation (36) gives the total volume of an axisymmetric forging calculated from the
volume components.
The radial distance from the axis to the center of gravity of half of the cross sec-
tion is calculated by
where
RGi = radius of the center of gravity for a volume component, from Equations
(4), (9), (27), or (37)
Si = surface area of a volume component, from Equations (2), (6), (25),
or (31)
n = number of volume components in the forging
k = +1 if the volume of that component is added to the total
= -1 if the volume of that component is subtracted from the total.
After the radii of centers of gravity are determined for the half cross sections of
all volume components, the radius of center of gravity for the half cross section of the
entire forging is obtained with Equation (37).
In order to use this computer program, the user is not required to know the details
of the mathematics or of the programming involved. He must, however, know how to
prepare the input data for the program. However, the details of the geometrical deriva-
tions and of the computer program are given in this report so that those interested in
research and development can use this information for future expansion of the present
approach.
Program Input
The input data for the computer program are obtained from the engineering drawing
of the forging, in which all the draft angles and the fillet radii, but not necessarily all
the corner radii (or diameters), are given. The unspecified dimensions are calculated
by the computer from the input data. The input data, punched on IBM cards, are given
in Table 1 for the forging shown in Figure 6.
Following Table 1, the first line (or the first IBM card) contains (a) the number of
corners or fillets below the parting line starting with the point at center line and (b) the
number of corners above the parting line starting with the corner at parting line as seen
in Figure 6.
Each line in the main body of Table 1 represents the data for a corner point. All
dimensions are given in inches. As seen in Table 1, the following quantities are
punched on one card and given in one line:
The last card of the input data contains the following information:
The input data given in Table 1 are obtained from the drawing of the example forg-
ing shown in Figure 6 by following the conventions described above.
Using the input data, the program first calculates all the edge radii for the half
cross section. It then divides the forging into volume components and determines for the
cross section of every volume component (1) the segment of the perimeter, (2) the area
of the half cross section, (3) the volume, and (4) the center of gravity.
With these values already calculated, the perimeter, the surface area of the half
cross section, the center of gravity of the half cross section, and the volume are calcu-
lated for the entire forging. These calculations are carried out by using the formulas
developed earlier in this report, and the results are printed out.
At this point, all the variables necessary for calculating the shape-difficulty factor
are known. Using the formulas given in the second interim topical report( 1 ) and in Ap-
pendix A, the value of the shape-difficulty factor is calculated and printed out.
2.757
'- 2.165
1.182 -
0 •0.591
0.O197 R g
0.985
5.70 --
1,575
0.157R 0.787
0.3940
0.0359
0.394
-0.78 7
1.379-
The output of the computer program for the example forging shown in Figure 6 is
given below:
The calculated quantities useful for the design of the forging shape are
Thus, this computer program calculates in very short time some of the useful
variables for the overall design of the forging process.
The computer program developed in the present study is applied to various axi-
symmetric steel forgings. Dimensions for most forgings were obtained from the liter-
ature and some were supplied by the Steel Improvement and Forge Company.
Guha( 2 ) in his dissertation analyzed the forging shown in Figure 6. He studied the
effect of draft angles and fillet radii upon die fill, forging load, and forging energy in
forging 1043 and 1045 steels. He carried out experiments under a mechanical press and
a counterblow hammer. The actual design values used by Guha for the forging seen in
Figure 6 are compared below with the calculated values:
The above comparison clearly shows that the flash dimensions determined by the com-
puter program are close to the actual values used in Guha's experiments. The flash and
scale losses used by Guha are about 30 percent of the actual forging weight, while the
flash losses predicted by the computer program are 12. 0 percent of the forging weight.
The above comparison shows that the theoretical values are within the useful range of the
empirically estimated values used in experiments.
Brill, in his study on modeling of the hot forging process, used the forging shape
seen in Figure 8. (3) He forged model materials such as wax, lead, plasticine and plas-
tics, and 1043 steel in the same die. The actual and the calculated significant parameters
are given below:
The comparison indicates that the flash dimensions predicted by the computer program
are close to the actual values. The flash weight predicted by the computer program is
2Z percent of the forging weight, while the actual flash weight is only 7. 2 percent of the
forging weight. A careful examination of the photographs of forgings given in Brill's
0.09 R
3 0
1.2
L
0.3R
0.09 R
0.35 _3:
0.5
0.35 0.09 R
2.0
0.197/
--- ....___ 0.2755
0.0787-
0.197
0.985
0.06 R
dissertation indicates, however, that the die cavity was not always completely filled.
The top of the spikes on the top and bottom of some forgings do not appear to have the
exact contour of the die cavity at the spike. (3) Consequently, the theoretically predicted
values for flash weight and flash dimensions seem to be more realistic design values than
the ones used by Brill. (3)
The agreement between theoretical and actual values is good. The flash thick-
nesses are nearly identical, while the theoretical flash width is slightly larger. The
flash weight predicted by computer calculations is less than the actual weight used by
Tolkien (22 percent versus 29. 2 percent).
One of the participating companies in this program, Steel Improvement and Forge
Company, supplied the die and forging drawings for the axisymmetric forging seen in
Figure 10. Using the dimensions given in Figure 10, the computer program was used to
calculate the following parameters:
These values appear to be reasonable for forging the shape seen in Figure 10 from
low-alloy steel. In SIFCO's actual forging, the material was 347 stainless steel, with
one blocker die and one finishing die used. It is interesting to observe that SIFCO's forg-
ing (Figure 10) has a shape-difficulty factor of 1. 8, while Guha's forging (Figure 6) has a
shape-difficulty factor of 2. 02. Guha could forge his shape without using a blocker die
because the workpiece material was low-alloy steel. SIFCO's example illustrates the
well-known fact that, in addition to the geometrical shape-difficulty factor, factors de-
scribing the influence of forging material, die wear, and forging tolerances must also be
considered in designing a forging process. Those latter parameters are not included in
the computer program described in this report.
0.788
0.1692
0.05521 ..
0.1692
1004
0.158 R 0. 158
0.158 R
I 295
0.. 06
"2.12
"A--1.685
""0.955"-"
0.38
A0.46
0.45
0.775
0.785 •03
S0.51 03
0.37
1.68
2.14
All draft angles = 70; all fillet radii = 0. 25 in. ; all corner
radii = 0. 12; other dimensions shown in inches.
DISCUSSION
The determination of the number of preforming operations, the design of flash, and
the prediction of flash and scale losses are significant steps in designing a forging pro-
cess. The flash geometry has a marked influence upon die loads and stresses and upon
die filling. The prediction of flash weight, including scale losses, is a very important
factor in the overall cost of large-quantity-production forgings. The blocker shapes are
necessary in forging complex shapes of difficult-to-forge materials, and they add to
forging costs. It normally takes extensive experience to reasonably estimate these vari-
ables and to design the forging process, and they are not included in the current com-
puter program. It may be possible to handle such decisions later as experience and data
accumulate and are introduced into the program.
The difficulty in forging a part depends upon various factors, such as the geomet-
rical shape of the forging, the forging material, the forging tolerances, and the expected
die wear. The "shape-difficulty factor" has been suggested for axisymmetric shapes by
Soviet workers. (1) Using the shape-difficulty factor described in Appendix A and statis-
tically obtained empirical equations given in Appendix B, it appears to be possible to
predict the flash dimensions and the flash weight for axisymmetric low-alloy steel forg-
ings. This procedure is extended to calculate the volume of a forging, also, and it is
programmed for a computer in FORTRAN language. The program uses only information
given in the engineering drawing and calculates the total weight of the forging (forging
weight and flash weight). In order to use this computer program, the user is not re-
quired to know the details of the mathematics or the programming involved. He must
only know how to prepare the input data, as shown in Table 1.
The computer program is applied to various forgings, and results have been com-
pared with actual experimental data. The agreement between theoretical-empirical pre-
dictions and with design data developed experimentally (or suggested by extensive forging
experience) is very good. The developed computer program is now available to inter-
ested forging companies. It could be used for a systematic analysis of existing forging
data, for making cost estimates after incorporating in-house cost factors, or for design-
ing axisnymmetric forgings with a minimum amount of additional effort.
The information presented in this report is not intended to be a ready answer for
design problems of individual forgers. In order to establish a more exact analysis of
the forging process, the concept of shape-difficulty factor must be complemented by
experimental-empirical factors describing the effect of forging material, forging toler-
ances, and die wear. Every company could find and develop this information to suit its
own needs and operations. The concept of a shape-difficulty factor could be further ex-
tended to nonaxisyrmmetric forgings, if there is interest within the industry for this kind
of developmental work.
REFERENCES
(1) Altan, T., Henning, H. J., and Sabroff, A. M. , "Methods for Estimating Flash-Gap
Dimensions and Flash Weight in Closed-Die Steel Forging", Second Interim Topical
Report to AMMRC, Watertown, Massachusetts, January 30, 1969.
(3) Brill, K. , "Modellwerkstoffe fdr die Massivumformung von Metallen" (Model Mate-
rials for Forging of Metals), Dissertation, Hannover, 1963.
BATTELLE
MCT3,ORIES
- STU•PTh,
APPENDIX A
f =-(A-i)
where
Since the shape factor xf is dimensionless, any unit of length can be used for its calcu-
lation. A cross section through a 10-in. -diam x 10-in. -high cylinder, for example,
has a perimeter of 40 inches and a cross-sectional surface area of 100 inchesZ. The
shape factor, xf, would thus be
402
f 0? 16 (dimensionless)
xf-100
2 4
Pc (Hc + Dc)2
xc = F7 H D (A-2)
The shape factors xf and xc in Equation (A-3) are calculated from Equations (A-l)
and (A-2), respectively. If xf = xc, the value for a•c would be 1, expressing the longi-
tudinal shape factor for a simple cylinder.
where
Rg = radial distance from the axis to the center of gravity of half of the
cross section
Rc = maximum radius of the forged piece which equals the radius of the
circumscribing cylinder.
Sf . (A-5)
Continuing the substitution for these components, using Equations (A-i) and (A-2),
2
P
The authors use the subscript 1 to indicate the shape of a forging under study (same as
the shape of the forging-die cavity). Thus,
Si = _ _ . 2Rgl (A-8)
PC 1
If the part is being forged in more than one step, a shape-difficulty factor must
also be defined for the starting shape of the workpiece, i. e.,
(Z 2Rg
so = mogo = " (A-9)
kF
where the subscript o indicates the shape factor for the workpiece before the forging
step under consideration.
S i (A-10)
Sc
then S = S1 (A-Il)
S =S .
so (A-12)
In this case, the values for both S1 and So must be calculated using Equations (A-8) and
(A -9).
APPENDIX B
Flash Dimensions
Empirical formulas for predicting flash dimensions and flash weight were given in
the second topical interim report and are summarized in this Appendix.
1
The flash thickness is obtained with the equation suggested by Wolf( ) and is
given below:
1
weighing less than 1 pound, the equation established by Wolf( ) is
For forgings
suggested:
S= 1. 25 exp (-1. 09 Q/2. 2) + 3 . (B-3)
t
In both formulas,
Flash Weight
5 lb for flash
5 lb for a punch-out
Such estimates usually are checked out by forging a few billets representing a range of
weights that bracket the calculated weight. The results of these "tryout" runs then are
used as a basis for finalizing the cutting weight for the billets.
Hs(B-4)
"ho + hA
whe re
4 -- s
\\ \0\\
"hA= D, \ DI'
hA 0
I - sh ho i
Statistically analyzing data from a sufficiently large number of forgings, the authors
obtained the following expression for calculating the weight of flash:
Qf( 10 2) , (B-5)
where
and
D i 2 (B-8)
whe re
and
NRl = number of corners in a half cross section below the parting line, in-
cluding the corners on the parting line and on the axis.
NR2 = number of corners in a half cross section above the parting line, in-
cluding the corners on the parting line and on the axis.
ALFA(I) = draft angle between the i'th and (i+l)th corners, Figure 5.
TAHZ = minimum distance between flat surfaces upon which stock was resting
when dies are closed.
SURF(I) = surface area of the half cross section of a volume component, from
Equations (2), (6), (25), or (31).
VOL(I) = volume of a volume component, from Equations (3), (7), (26), or (32).
0 0 00000000cl00
aC
0C0000 00 C)Ca 0 c0
4444V44v4444
444444444444
6p bFt. w
aaa6pW, W
Ai
ip.~~~~a 4At A . W.
ta-
V. w tp
ipatp ta t.
ep4 a*
V4~~a t aA
wt
$A tAa~ 4Awwtp* A w
w w1A.W [Link]-
~
AtfA
*A~~~~ ~ ~ 0w6AV#At ORt
a~~to (f wa
wta
[Link]. i 4 I 4
alAal aatAl a
if, 4 ba
aaFaw
Y.
Wa
4F if o... V W 6F -
*~a
aa. Vff ata6a
w 6F tp 0. A 6Fba6a
Ir- I ba EpIdA
EA 6 #A UP to
tp
wa #A w ak aA6 ,. aa
V~a ~
V *FkFVaa a t Va
a .
6b vt v w w to a b,
a.
v ip w 6 * EaE
Vý~~~~ v aab .'
t. W, t a1 ai
tr U' tP- b- aýW
a-a v _w cv aa a
aea. f. a.
ba,a'I
a V.
a.F a Wa v
a F v--v
v-
0 00 000 0pi *0
44A444444o4A4
6A
p op 6p p
p p p p 4A W #4AWA p p pAf
p" p pA pp k"Vp pP
4
fAtA#A# #AP W, WAR
pp #A Aw w 6A
P FAA4A#
fp w I 6
P *A IAP*
(APP
fp wp tp pA fp pA
ppF p p 4P
ip~~~ ~ ~~ ot i pA
A4 p" pA6
bp~ pF p p
ip ~~
wp ~ f pp#
p p p iP
P 6p 6p
PA t.
PA P PP pP
pp ppFW
Wpv pp pp
if t w w b wp *p
ip vpp
V pwVV ~
~ ~ ~ ~ ~ cp ppt
ppp v
pp to .bp p pF
P V. 46
[Link] v w Ib
Pp
pp ppp
F A ýp pF pF pFq P V
w~~~ ~ ~ v p4po.iV4p
te V4 bg ýp p pA pA%
p t&bVp
ppp pp p p. pF
PPpp vVP tp tp
6p p PP pppwp
P. PP P p P W_ pbp
IF~~ #p pf pA
v ývv ~ ~~ ~ ~ ~ ~ ~ vv4~ p .ppv1-9
PEA!. 21,NIP1,NR;,
PRINT 2?,NR1,Np?
NPO(NQ1-1)*?+Npl*
NPDM (NPI.-1)
PRINT86
no 8111,$Npnm,p
PEAD 8?,gMARK(T),P (I) eCH (1) 9FP.(.).,ALFA (1),9PER(I)
PRINTF8i? MARK (I) R I),CHCI) ,FP( I) eALFA(T') ,PER (I)
TFCIE(O.1)GO TO 8_]
pERK(1-1)= APRK( T)
p I-i) =R (I)
rH H1-1) =CH,( )
FR(I-I)=FR (I)
Al A ýFA (1+1_)=ALFA (T) __. . . . .. ..
PE.A!) 8?.-M-A'R-K(-N'n),R(NRD),CH(NRD)qFR(NRfl)+,ALFA(NRD)q0ER(NRD)
pRINIT82,MARK.(NRO)oR(NRD) ,CH(NRD) ,FR(NRO)),_ALFA.(NRO) ,PER (NRD)
NR(pm=Npr3,
nO 8j1=N~r)PqN!Rmq
[Link] .(I.R(I0)__jCH( I) FR( I) ,ALFA(I) ,PER (I)
TFI(T9 [Link]) SO _TO 83
M4RK (j-_])'=MAPK (1)
PfR(T-1 )=PFER(T)
r H (I
1-1) =CH. (J)
FR (II) FR T)
A3 11LF A i+! i=nLF A(T)
READ) 8?,MAPK(NP),q(NR.),CHCNP),FRCN.R).,ALF.A(NR)
PRINT82,oMAPK(NP))R(NR)t
, CH (NQ) FR NR) .ALF4CNR)
NRM.N=NP_-I
n084T=1 ,NRMTN,?
QFCE.1)G-0 Tn, !44
yF(PCI)eNF.A.)C,) TO R4
.ANG3LF=ALFAC,T-P)
ANGLF=ANGLF *PT/iRno
TF(.PER(I). L.T.O.'CO To 85
R CI)=R I-?) -PFP (11*TAN (ANGLE) *CH CI)
p R CJ)
=11
SO To 84
85..ANGLE:ALFA(T)
ANGLE=ANGLF*0T /TR A
(CI)=RC(.T+I)-.PER
(1)*TAN (ANGLE) *CHCI1#1)
p CI-])=R T)
A4 CONTINUE
PRINT229NR
PRI NT24
pPINT239(RCT),y=19NR)
PPRINT 2
PR1NT23, CCH(t) ,T1,NR)
.PRINT?9
PRINT23, (FR(Tl oT=l ,NR)
PRINT27
PRINT23, (ALFA( T)% =1-NR)
PRINT23, (PERCI) ,T~[Link].)
PRINT?], (MARK(T),T=1 NR)
READ ?3,OENS~flTAM,DCYLTAHZTAHAHCYL
PR4IN-T?.2,nENSD)[Link] 'TAHZTAHAHCYL
C** 0 F N5= DEN SITT.Y
t** DIAM=STOCK DIAMETER
C** DCYL=LARGEST DIAMETER OF-FORGING
C** TAHZ=MINIMUM DISTANCE BETWEEN FLATS
C ** TAH=ISAC Y~TEEN JNJERN AL- AJND
C* EXTERNAL PARTING LINES
C** ~~~HCYL=,TOTALHEI~GHT [Link]
TVOL=O.
TPER=Oe
TRGS=O.
TFC(ALFA(T-1).Eo.o.)Go TO 41
C** THIS* CHECKS THE PARTING LINE WHICH IS
C** ~~CONSIDERED ..
AS_.CYLINQER
nIVF=AlFA CI-?) -ALFA CT)
RFTA=AHS (01FF)
EP CT) =RFTA*FR(T)
R2=HFTA/?o
T?=TAN CR?)
FR1FPPCT) *T?_
n)FLRM:FRl*STN([Link] (I-2))
r)ELRP =FRj *tT I AI_FACTI))
C** CORNIER RADIUS WAS ORIGINALLY STORED AT
C ** ROTH R(I) AND RUT-I)
rFLHdI)=F~R1*CO5(ALFA(I).)
0FLH(I)=AR9(CDEIH(I))
nELHCT-I) =FRl*CnS (ALFA (1-?)_)
nFLHCI-1=ARSCDFIH(T-1))
[Link]( T) +r)FIH ( T1-i
sHETA=SIN CAFTA)
TAS=FR (1)*42* (RTA-SRETA) /2.
TAX(S=2**FR CT) **3*5?**3/ (3.*TAS)
PALF?=ARS(ALFA(T-2))
A~AM M rA=82+*0,5~* PT_-PAL F2
c* * mfo IFY H FRPE
rF(ALFA(T-2).LrT.0.)C,AMllMA=O.5*PI-82-PALF2
rsAtMA=ARq (GAMMA) 5
TF(ALFA(T).,GTAtFAC1-?_))GO To 5
r)FLX= (FR(I) /C;?-TAXS) *STN ([Link]).
PS=R (I) *F[_LX
5? CONTTNIIFJ
VOLCT-)=T*TAH14$RIRM1/3*
nEN~cIN(ALFAC!-'>))
[Link]-;?),Eno..)tFN1l.
PERCT-l)=ARS((P(T-1)-P(I-2))/flEN)
PG I-I.)=PTRM1 /(l.*R~l)
TABS=A6S CTAR)_l
7F([Link].0.0OnO0l)Cl) TO 31
PGl(-1) =O.
\/OL Cr-i) =0
GO To-3.
41 rONTTNUE
C** CALCULATIONS FOR CYLTNDER AT PARTING LINE
C** AKII) FOR THE [Link] CONE
PG (1=R (T)/?.
cvOLR (1),IOR (I)*CHCH
(1)
PEIR (.Tf=C-H.(T)
TAH1=CH (I-1 -fFLH(CI-?)
oELH( I)=o.
60 To 43
51 [Link]
PALF2=AI.4(ALFA (I-2))
GFAMM 'A (T~*-2)LT?-P4L AF?* I- AL P+
sklA=~A3ARS (GAMMA)
0*ELx(=FR(
( T)/C?-TAXS)*SIN(GAMmA)
TAS=.TAS
n'O To 52
31 CONT INUJE
TK=I.1
n013pK=1 .3
KK=IK-K
13?, [Link](KK),SURF(KK),VOL(KK),RG(KK)
ORINTl33,IRFTAI)FLH(I),DELH(T..1),TAHR(T).RCI1m1),TAHlGAM
qFT8=8ETA*1R0.,p
PRINT133, I ,IETgRRT2,S2,C2,FR1,DELRDELRM
131 CONTINUE
.SU#F(NR)=0.
VOL (NR)=0,
PG (NR)=0.
PER (NR) =A8 5ý((R (NR.) -.
[Link]-11
TPER=O.
7 SURF = 0
TVOL=Oo
C******CALCUJLATE PEPIMETFRPVOLUMEtSURFACE AND RADe OF CENT. OF
C*****GPAVITvT
n,06l T=2,N
.FMARKI.
TPER=TPER+PER CT)
IF CMAR((T) _,_!I) FMARKZ-1
T SURF TSkJPF +FMAP4K*SUPF (1)
TVOL=TVOL+FMRKVLC)
PGS~pGS+FMARK*PG (I)*SURF (I)
61 CONTINUE
PG T=PG / TStJR F
TSUPF=2.*TSUPP
TPE.4=2.*TPFR
PRINT 911
PRINT67,TPE-Rpe,TSIRF TVOLtRGT
C** STAIRT CALCULATION OF SMAKE FACT-OR
FXF=TPER**2-/TSIJPF
ALFS=EXF/EXC
PCYL=DCYL/2.
PETS =2,*RGT/Pc*YL
SHAPE=ALFS*8ETe,
PRINT 62,,SHAPRE_,[Link]
WEIGH=TvOL*DENS
PRINT 63,[Link].L.
C** FOR FLASH THICKNESS WE USE WOLF-S FORMULA
FTATUO0.89*Tl**6*5uu.O.017*Tl
[Link] c(.1.1,tF. 'lEA)15
C*41 FOR FLASH RATIO WE USE wOLF-S FORmULA IF WEIGHT IS
C** ~~SNIALLE-P.-HAN 1 LJR$.QI.HERAI5_E_.[Link] S FORMULA
[Link].3*)tGO TO 71
rO To 72
71 PARTx-1. 094TI
pATIO=1 .?5*F2XP (PART) .3.
72 .[Link]
FWIDTH*RATTO4&FTHICK
PP I .T. ~
_4,tk FTH KFWDJ A1.
oAMZHCYL/ ([Link])
FTAý=SHAPF*O I A.Mi4*?GAM**R/ Y**2
FLAS`HW=(AK) -AKp2)*WETGH/1OO.
PRINT 65vWFIGH9FLASHW9WTOT
[Link] CYL,2q.*FWjRTH
AREA=PI*fTOT**P/4,
PRINT 66oAREA
9.11. FORMAT (40H PFR.IMFTERSU5RF-A-C-EVLUMER OF C,AR-A-ITY)
62 FORMAT(27H SHAPE DIFFICULTY FACTOR IS93F1505)
63 FORMAT(32H FORGINC9, WFIGHT WTTHOUT FLASH 4_qSgIji5 A 5 Is
64 FORMAT (44H FLASH THICKNESSFL-ASH WIDTHFLASH RATIO ARE,3F15#5)
65 FORMATC4I.HF0L~eTjNG WFIGHTFLASH WEIGHT9+oTAL WEIGHT,3FI5S.),
66 FORMAT (38H THF -PROJECTED AREA INCLUDINr, FLASH ISfF15.5)
67 FORMATC1IH PERTM4ET.ERzFj5,_5,9H SURFACEl!UFA5ff5//,SH
1 VOLUME.,F1595,2.
19H RADIu)5 OF C. OF CRAVITYtF1S,5)
?A FORMAT(19H MATFRIAL OENSITYx AJ.A±.SOKDAEE
,1.,1
IH LARGEST DIAMETER =qF1O.4,/lOH4 HEIGHTS .,oF1Oo4)
27 FORMAT(;?7H ANGLESBETWEEN CORNERS ARE)
29 FORMAT(lRH FILLET RADII ARE
25FORMAT(36H AXTA DSTANCES BETWEEN CORNERS ARE)
?4 FORMAT(25H RAnTT OF THE CORNERS ARE)
22 .FORNIAT(IPH NUMRF-R-OF CORNERSo2l1 s)
86 FORMAT(9?H INPUT DATA92N40 NUMRER CORNER OADIIAXIAL DISTANCE BETWE
lFN.CnRNEPS9F,Flj FT RAnIIDRAFT ANGLES)
23 FORMAT(8FI0,4)
1-33 FORMAT(/T5,RF)P.3)
21 FORMAT(8TIO)
82 FORMAT(II0,[Link],4)
END
'C 0,
CD 0
o C>
o C
o 01
C>C
Q 00
11,
%frr-- P.-% p.-
0
im IL P- u)tr
*m f-. C, m,
a CD 0 0 0:
*MM c-
W cMin P- F- - i . CN
ýcm 0
r-I nM-
COOmmm4w4f-WL o NNM 00 M Q f-Ne N
00 0 c 0z c0= 0 Q0>C 0 000
000
CýCQC'C 'L C C00C ýC "CCC 0aQCC'C ' Da0 0 000C -
z zlL, -
M i I jVIFUN4---WCL
-C 1 Ca ZIC4(I-p.
.- C -. rp- Ctý-*
- r-m ?- I C%,C
cl a, Z C
v- cr
A- IL m ICr , A c ,4 4 m m C " 'N t - C c
Cr L
.cI
c z
IaD _jccN>C J---.-m
mc
4(cc C
c~ (
.
Ct C'- 0ý 0 [Link]. CL Cf- 'rC--.
CC 00.-..-'44cD0
~
-0c0 r(ý0=c V'-4= -C o
f_- Q .0
> _ C--- ILJ t jc c
ui i
2O
LLJ i0 0
C
0
0
C
O 0
0
0
0
0
.
0
0
0
0
o
0 00
o o
0
~ 0 0
00
C O O
0
-r ft
fr. LL
z~L.
W
~M U ~ L) U J.....J U U )...'~L .~ ' U
UL c W. op W,~ >