S Jpt _ Va

NASA
TECHNICAL
NASA TM
MEMORANDU
!
X
--F___
S
....
DESCRIPTION
OF
7
A _AL
,___
COMPUTER
_
k
PROGR_
AIRPLANE
CONFIGUR_N
by Charlotte
B.
Craidon
PLOTS
_;
_
7t_7:
i
Langley
Han
Research
Jpton, Va .
Center
23365
_
__:___
_ _....
i
/
NATt0NAt
AERONAUTiCS
AN0SPACE
AOMJNtSTRA_S,tNGTON,
-:r
=_
=•
D.
C.
SEPTEMBE_
......
].
-
"-:
__ :''E_:_ZZ.:
"-"
.:
.
--
_
......
=.
------z._.,
•
.....
---]--L
_
--
_
-----=:--:7:_- -_ o
_
,]--._.- --
--
__
- .........
_
.:
1
Report
No.
NASA
4
Title
I
TM
and
Accession
No.
Subtitre
DESCRIPTION
OF
AIRPLANE
7.
2. Government
I
X-2074
A DIGITAL
CONFIGURATION
COMPUTER
PROGRAM
Recipient's
5.
Report
FOR
PLOTS
Performing
8.
Performing
B. Craidon
Performing
Organization
NASA
12
Sponsoring
Agency
National
and
Supplementary
16
Abstract
and
No.
Contract
or
13.
Type
Report
-04
Grant
No.
of
and
Space
Period
Covered
Memorandum
Administration
14
20546
Sponsoring
Agency
Code
Notes
to draw
computer
three-view
of an airplane.
Magnetic
Gerber
program
model
These
plotter.
(Suggested
(D2290)
generates
The
the
projections,
plots are useful in checking
flus program
program
necessary
of an airplane configuration.
and oblique orthographic
rope output from
cathode-ray-tube
Words
Report
No.
Technical
and
D.C.
This
Key
Unit
11.
Address
plotting of the numerical
17.
Organization
125-23-04
Center
Aeronautics
15.
Code
23365
Name
Washington,
Work
Address
Research
Va.
1970
Organization
L-7149
Name
Langley
Hampton,
No.
Date
6.
10.
9
Catalog
Septelnber
Author(s)
Charlotte
3.
has been
has also been
instructions
Program
as well as perspective
the accuracy
used
of the numerical
to drive a Ca]Comp
automatic
be used
projections
model
data.
plotter and a
used for online display of a configuration
on a
device.
by Author(s))
18.
Distribution
Statement
Aerodynamic
Unclassified
Computer
for
options may
-
Unlimited
plotting
Orthographic
Perspective
19.
Security
Classif.(ofthisreportl
20.
Unclassified
Security
Classif.
(of
this
page)
21.
Unclassified
'Fo_
sale
Ity the
Clearinghouse
for
Sp, ingfield,
No.
of
84
Federal
Virginia
Scientific
22151
and
Technical
Information
Pages
22.
Price"
$3.00
CONTENTS
SUMMARY
........................................
INTRODUCTION
.....................................
PROBLEM
DESCRIPTION
AND
ORTHOGRAPHIC
PLAN,
AND
PERSPECTIVE
STEREO
VIEWS
AND
2
2
........................
5
..............................
5
5
D2290
Program
START
6
...........................
SUBROUTINES
Program
6
.........................
7
...............................
7
..............................
SURCL
and
9
SURCC
......................
23
Program
PLTCON
.............................
24
Program
OTHPLT
.............................
27
.............................
31
Subroutine
PIADTIT
Subroutines
PTROT
Subroutine
SPPLT
PLTIT3
Subroutine
STERPT
34
.............................
35
37
40
............................
41
.....................................
IDENTIFICATION
PROGRAM
SETUP
DESCRIPTION
OF
FOR
Plot
Cards
45
..........................
A COMPILE
INPUT
Configuration
DATA
AND
CARDS
45
EXECUTE
..............
.....................
MACHINE
SETUP
................................
46
.................................
52
54
.................................
DETAILS
REMARKS
54
............................
55
................................
55
.........................................
.........
45
46
......................................
OPERATIONAL
CONCLUDING
.....................
.............................
PROGRAM
OUTPUT
VECROT
..............................
Subroutine
USE
and
VISTST
Program
FIGURES
...............
................................
Subroutines
TABLES
SOLUTION
.........................
VIEWS
ARRANGEMENT
PROGRAMS
OF
..................................
DESCRIPTION
PROGRAM
METHOD
SIDE
VIEWS
OVERLAY
1
PROJECTIONS
FRONT,
PROGRAM
I
56
"°°'°°°°°°'°°'°
................
.°.
IIi
_0
DESCRIPTION
FOR
OF A DIGITAL
AIRPLANE
COMPUTER
PROGRAM
CONFIGURATION
By Charlotte
Langley
PLOTS
B. Craidon
Research
Center
SUMMARY
A digital
computer
program
instructions
for automatic
may
be used
to draw
tive
projections
numerical
play
plotting
three-view
data.
plotter
and
a Gerber
of a configuration
oblique
plots
tape
output
plotter.
which
numerical
are
The
on a cathode-ray-tube
necessary
Program
options
as well
in checking
this
program
the
projections,
useful
from
generates
model.
orthographic
These
Magnetic
and
is presented
of an airplane
of an airplane.
model
CalComp
(D2290)
program
has
the
has
also
been
as perspec-
accuracy
been
used
of the
used
for
to drive
online
a
dis-
device.
INTRODUCTION
In order
the
to study
aid of a digital
model
able
of the
Checking
of the
task.
A numerical
contain
which
program,
D2290,
automatic
plotting
octal
data.
must
through
The
has
2.0 for
locations
plot requires
and
less
such
been
complicated
be input
correctly
of core
than
numerical
storage
1 minute
Data
are
a very
model.
required
of computer
model
erroneous
complex
the
The
6000
and
time.
program
the
the
necessary
computer
accept-
programs
data
analysis
poses
results.
systems.
may
cards,
and
digital
computer
instructions
was
processing
input
configuration,
data
is to describe
to generate
in a form
computer
mispunched
report
series
for
with
numerical
drag.
to avoid
judgment,
of this
sources,
numerical
particularly
human
developed
Control
as input
as lift and
configuration
an accurate
or other
be used
often
purpose
of an airplane
Version
then
of any aircraft,
occur
which
may
to construct
drawings,
characteristics
All geometry
transcribed
FORTRAN
model
of an airplane
necessary
engineering
voluminous
description
errors
rectly
55000
This
aerodynamic
characteristics
it is first
from
compute
a difficult
aerodynamic
configuration
to the computer.
which
one
the
computer,
written
incor-
for
in
Approximately
of information
for
The graphical representation of
stereo
The
views
has
viewing
angles
program.
are
plots
ures
used
to insure
are
in producing
several
the
presented
method
are
of a single
of all
in tables
in orthographic,
of verifying
the figures
plots
detection
the numerical
specified
as part
configuration
errors.
Sample
I to IV and the
perspective,
from
input
input
data.
of the input
different
listings
corresponding
and
for
plots
to the
viewing
typical
are
angles
configu-
shown
in fig-
1 to 6.
PROBLEM
The
about
numerical
the
fins,
and
of the
XZ-plane
and
may include
canards.
The
wing
or arbitrary
canards
are
The
with
DESCRIPTION
model
circular
and
configuration
to be an effective
In general,
made
ration
proven
the
defined
similar
configuration
the
The
length
coordinate
as illustrated
OF SOLUTION
configuration
is assumed
combination
of components:
up of airfoil
are
to be symmetrical
sections,
defined
the
similar
wing,
body
body,
is defined
to the fuselage,
pods,
by either
and
fins
and
to the wings.
body
system
in the
any
the pods
is usually
of the
airplane
is made
sections,
AND METHOD
positioned
stretching
used
following
for
with
in the
this
its
nose
positive
program
at the
coordinate
system
origin
x-direction.
is a right-handed
Cartesian
system
sketch:
Z
_-y
v
X
Successive
sufficient
points
points
must
in the
be given
plotted
arrays
to approximate
ORTHOGRAPHIC
The orthographic
point
on the
body
surface
are
projections
a desired
by straight
lines;
therefore,
curve.
PROJECTIONS
illustrated
to the desired
connected
viewing
in this
angle
report
are
and then
created
transforming
by rotating
the
each
points
into a coordinate system in the plane of the paper. The body coordinate system is coincident with the fixed system in the plane of the paper when all of the rotation angles are
zero; for example, the configuration X-axis and Y-axis would coincide with the paper for
plots in the XoYo paper plane.
The rotations of the bodyand its coordinate system to give a desired viewing angle
are specified by angles of roll, pitch, and yaw (_b, 0, and _), shown in the following
sketch:
Z o
(
Yaw
\ Me
pitch
Yo
Roll
Xo
The
equations
set of rotation
angles
used
to transform
x o = x(cos
0 cos
+ sin
0 cos
gJ cos
Yo = x(cos
0 sin
_h) + y(cos
+ sin
8 sin
_Pcos
z o = x(-sin
the
($, 0, g_) into the
g_) + y(-sin
O) + y(cos
given
desired
_ cos
points
paper
on the
plane
_ + sin
0 cos
body
(x,y,z)
with a specified
are
g_ sin
_) + z(sin
g_ sin
_b
gJ sin
_b
qS)
gJ cos
_b + sin
0 sin
_)
0 sin
_b) + z(cos
0 cos
_b)
_ sin
_) + z(-cos
For
each
unit normal
set
of four
vectors
are
adjoining
computed
input
data
points
numbered
counterclockwise,
the
as follows:
T1, x = x 3 - Xl
T1,y
= Y3 - Yl
Tl,z
= z3 - zl
T2, x = x 4 - x2
T2,y
= Y4 - Y2
T2,z
= z4 - z2
N x = T2,yT1,
z - TI,yT2,
z
Ny = T1,xT2,z
- T2,xT1,
z
N z = T2,xT1,y
- Tl,xT2,y
S X
nx
--
n z
--
N
S z
N
where
N=
The
YoZo
INx
value
paper
2+Ny
2+Nz
of the
component
of the
unit
may be found
from
the following
plane)
nxo = nx(cos
+
The
components
and
equations
If
points
are
4
for
0 COS
ny o
used
nxo
the
_) + ny(-Sin
_
cos
and
in the
4) + sin
may
be found
the coordinate
and
the viewer.
_ cos
normal
xo
direction
(out
of the
equation:
0 cos
_ sin
4)) + nz(sin
_ sin
4)
4))
nzo
in rotating
is positive
facing
YoZo-Plane.
nzo
sin
0 cos
2.
the
If
In the
same
manner,
XoY o
paper
plane.
specified
nxo
in a similar
These
using
the
same
angles
points.
paper
is negative,
ny o
manner
may
results
plane
is the YoZo-Plane,
the four
be tested
may
for
points
the
be used
face
XoZ o
by the
the
away
paper
program
four
from
plane
data
the
and
to provide
the capability of deleting most elements on the surface of the configuration which would
not be seenby a viewer; thus, manyconfusing elements are removed. No provision is
madein this program for deleting portions of an element or componentshiddenby other
components.
PLAN, FRONT, AND SIDE VIEWS
In addition to the option of single orthographic projections of eachview, another
option to combine the plan, front, and side views is provided. This option provides for a
compact and pleasing-to-the-eye arrangement where the three views are spacedone
abovethe other.
PERSPECTIVEVIEWS
The perspective views represent the projection of a given three-dimensional array.
The two-dimensional view is constructed relative to a viewing point anda focal point
specified by coordinate points in the input data coordinate system. Data are scaled to the
viewer page size automatically by the specification of the viewing field diameter and the
viewing field distance. The viewer pagerepresents the portion of the image seenfrom
the view point relative to the focal point and viewing plane. The coordinates of the
viewing point determine the position from which the data array will be viewed, and the
coordinate values of the focal point control the direction and focus. The size of the projection on the viewing plane will reflect the distance betweenthe viewing point andfocal
point. Data which are within the coneof the viewing plane but not in the immediate range
of the focal point may be distorted.
STEREOVIEWS
The explanation of the perspective views also applies to the stereo views. The use
of the stereo option causesthe program to be executedtwice in setting up two plots for
the left and right frames. These frames are suitable for viewing in a stereoscope.
PROGRAM
DESCRIPTION
OVERLAY
The
overlay
program
ARRANGEMENT
is set up in the overlay
mode
and the following chart illustrates the
arrangement:
Overlay(0,
3zzg0
Overlay(l,
0)
1
0)_
Overlay(2,
0)
[
[START
#
] S_RCL
¼
Overl_y(Z,
_),
i
,
_
Over]ay(2,2)
SPPLT
I
[ PLTIT3
]
OTHPLT
T
PLOTIT
[
SURCC
' t
I
I
-_
STERPT
[
V
The
needed.
data
control
The
to actual
description
eMled
determined
plot
units,
as
a/ter
desired.
program
(0,0)
initialization
a series
the
from
plot
of lines
data.
VISTST
I
in the
(1,0)
the
unit
with
specifications
these
[
calls
overlay
computes
VECROT
The
reads
normM
other
read,
next
overlay
or
as
and
(2,2)
plot
spacing
is
they
converts
temporarily
The
notation
(2,1)
program
model,
and
vectors.
and
of the
numerical
vectors,
associated
are
parts
the
stores
control
for
determined
are
the
the
overlay
the
input
airplane
(2,0)
plots
are
by the
type
is
of
PROGRAMS
AND SUBROUTINES
Program
Program
figuration
description,
they are
follows:
D2290
(overlay
identification
and the
needed.
card,
plot
(0,0))
the
card
specification
The flow
chart
and
D2290
is the control
program.
containing
card.
the
control
Other
numbers
parts
FORTRAN
It reads
of the
statements
Program
Overlay
(0,0)
D2290
p rPogirn::nl
mn]y
_
records
1
i
Input
yes
1st
_no
/Print
1st
Z_
OVERLAY
(1.0)
S
Read
plot
_"_------_
/w.ite oFE
Print
plot
OVERLAy
\
CALL
(2.0)
/
the airplane
for the
con-
configuration
program
are
for this
overlay
called
are
as
as
OVERLAY
PROGRAM
(CBCoOtO)
02290
(INPUT=tOOL
"OUTpUT=tOOl*
tTAPES=INPUToTAPE6=OUTPUTI
2TAPE9=IOOI,TAPEIO=IOOIeTAPE]2=IOOI)
D2290
AIRCRAFT
RROGRAMER
-
CONFIGURATION
CHARLOTTE
B,
I:_..OTS
CRAIDON
ABC(B),JO_JI,JE_J3.JA,JS.J6*
COMWON
INWAFANWAFORoNFUSoNRADX(4)ANFORX(A),NPtNPODORg
2NF,_INOR,NCAN.NCANOP,
3JETEST,NWoHC*
4ABCOEIBI,HORZ,VERT,TESTI,PHI,THETA,PSItXFoYF,ZF'DIST*FMAGe
5PLOTSZtTYPE*KOOEe
6XMIN,XMAX*YMINqyMAX,ZMIN*ZMAXe
7XMID,YMID,ZMID,BIGDIISR
DIMENSION
ABCO(8)
CBC=3LCBC
RECALLw6HRECALL
CALL
CALCOMP
1
WRITE(6,])
FO_MATIIHII?XATHP_OGRAM
2
DO
2
WRITE
l=le6
(12)
FORMAT
READ
IF
?
10
Of
AIRCRAFT
IST
TwO
CARDS
(8AIO)
(5,3)ABC
(EOF*5)25,7
(6,tO)ABE
(EBX25HCONFIGURATION
WRITE
FOf_NAT
READ
(5*3)
WRITE
12
PLOTS
OUM
I NI_UT
3
D2290
OESCRIPTION//IXBAIO/)
ABCD
(6,IEIABC_
FCWI_MAT
DECODE
(ixSAIO/)
I72,14.ABCD)
jO,JI,J2,J3,JA,JS.J6,NWAF,NWAFOR,
INFUS,INRADX(1),NFORX(II.I=I,4I,NP,NPODO
R'
2NF,NFIhK:)R,NCAN,NCANOR
14
EOl=_AT
(2413)
INPUT
CALL
CONFIGURATION
OVERI_AY
PILOT
WRITE
AND
COMClGURATION
(6,20)
20
FORt,_AT
22
READ
I//36XgHI:H..OT
(E,3)
IF
25
DESCRIPTION
(CRCeI,O,O)
CALL
DATA//)
ABCDE
(EOF*S)
25,30
CALP__T
(0,,0*,999)
STOP
30
WRITE
(6,12)
DECODE
ABCDE
(72,3_,A_CDE)HORZ,VERTtTESTI,PHI,THETA,PSIoXF,YFoZF,OIST"
IFMAG,PLOTSZtTYPEeKOOE
3_
FO_AT
(2A2QA3,gFS*O*A3_16X,
CALL
IF
OvERq_AY
WRITE
40
GO
(IHI)
TO
END
END
GO
(6,40I
FORMAT
5
OF
II)
(CRC4210,RECALL)
(KODEoEQeO)
D2290
TO
22
INITIALIZE
CONFIGURATION//)
Program
Program
the
mum
and
gram
input
START
values
to actual
dimensions
uses
is
statements
for
(i,0))
units
of the
intermediate
called
(overlay
where
given
once
this
program
for
for
the
a given
are
the
configuration
necessary,
configuration.
storage
only
reads
START
and
It then
configuration
computes
the
computes
the
description
configuration.
as
description
The
minimum
outward
and
flow
cards,
and
and
normal
vectors.
chart
changes
the
maxivectors
This
pro-
FORTRAN
follows:
O,,,rI_yii0)
Program
START
Rewind
5,
,
_units
from
IZ
and
%_rlt(
on
}
Read
R F2 Fi_
on unit
Vrite
i+°l
outward
9,
R E F J _,____
s kicp rle
z .....
normal
t
,lectors
A
coord,
Arrange
chord
adxA
as pct
lines wing
I
outward
wA_oaq/
t
normal
Compute
vectors
Arrange
TZORD
_
Set
= 0.
wing
coord,
as
I
all
i
Read
_cards
TZORD
+_.IS
....i"_++\_G
h fo,om+
"+d
×']
i
and
ea {, WJ\FOR
_r(l_
and
I)_ -
pri_
= ii,,%+La.....,
9
description
from
Read
copy
[J2TEST=3
___
12,
body_
to 9
]
]
T
l
I
/.o.dXFUsy
I
[
|
cards
and
]
W:_t
:elit:;s
_
Compute
uutward
ZFUS
Set
/Roadz_ \
[cards
=0.
all
normal
vectors
ArranSg
e
coord,
and
[
as
I
$
Write
ad
lines
FUSARD__
::d:itc
tlor
t
/Read a_b.\
Compute
/body
section
I
Compute
outwa
rd
_ur
radius
for
\
cards
and
real
]]
vectors
each
section
Arrange
_in,
and
maxq
Idi..... ioo./
10
body
coord,
longitudinal
lines
as
sJ
©
/_rito fin \
+t:. ,kip...._--_t
description
on
3)
V
o9
!
=
1 nes
Read
pod
,,_d PO I)ORC,,_
Co'repute
POD,
out
and
wa
rd
normal
vectors
I
nlin.
and
_oro_,_._ia<
<.
n/ax.
eadimensions
r(-h
for
Ich°rd_in°_ i
V
Arrange
coord,
pod
as
Iongitudina]
lines
l
i
Compute
Compute
outward
outward
normal
normal
vectors
vectors
V
Arrange
fin
airfoil
as
v
lines
l
Arrange
eoord,
[
coord.
I
as
Search
rain.
for
[ di .....
I
]
and
n_axt_
ions]
l
outward
normal
Compute
vectors
input
Change
actual
V
(li%ritsea
to
fin
units
l
nd
vectors
FIN,
on
INORD
and
]
card_
p_
----------I_
_cte
s c r i P ti°n
on
9,
skip
]
1-
\_ .... d on y
]
-
-\
)
11
/Read .....
d"N
_,_o_°_y_ = _ J_:_
_>
_2 9
/
_
_ea. CANOR_',
t×CAN._d |
\CANORD
cards]
</NcANo_">____(
;...... d. )
5or..... d I
l.p 7
/
t
|
_hang
...... 4
I
t
_
....
h
for
I
RETURN
t
Arrange
tip
)
$
canard
and
root
air
foil
coord.
as
lines
distance
and
I Find midpoint
max.
t
A
/_ewind
outward
9
norlnal
vectors
T
and
on
coord,
Arrange
chord
A
vectors
unit
I
10
as
pct.
lines canard
dc sc
9,
/
/
k__
on
on
recor
iZ
I
__Write
12
ription
skip
line
/
OVERLAy
PROGRAM
(CBC,I,O)
START
C
C
C
INPUTS
COMMON
AND
INITIALIZES
CONFIGURATION
DESCRIPTION
ABC(B|,JOtJI,J2,J3,JAtjStJ6,
INWAFtNWAFO_,NFUS,NRADX(4),NFORXI4),NP,NPODOR.
2NFtNFINOR,NCAN,NCANOR,
3J2TESToNW,NC,
4ABCDE(B),HORZ*VERTITESTI,PHI,THETAtPSIAXF,yFqZFoDIST,FMAGQ
5PLOTSZ,TYPE.KODE,
6XMIN,XMAX,YMIN,yMAXoZMINqZMAX,
7XMID,YMIDtZMID,BIGO,ISP
C
DIMENSION
BLOCK
(?500)
DIMENSION
XAF(3OI,WAFORGI20,4)oWAFORD(2Oo3,30),TZORD(2Oo3O)
C
EQUIVALENCE
(BLOCK,XAFI.IBLOCK(31IeWAFORG),
IIBLOCK(III),WAFORD)*{BLOCK(IgII)eTZORD}
C
DIMENSION
XFUS(3Oo4),ZFUS(30,4)_FUSARD(30_A),FUSRAD(30o4)o
ISFUSI30*30.8)
EQUIVALENCE
(BLOCK,XFUSIoIBLOCK(121)oZFUS)t(BLOCK(241),FUSARD)t
I(BLOCK(361IeFUSRAD),(BLOCKI24II,SFUS)
C
DIMENSION
PODORG(gt3),XPODI9,3OI,PODORD(g.30),XPODII9t30I
EQUIVALENCE
I(BLOCK(56B),XPODI|
(BLOCK,PODORG),IBLOCKI2B),XPOD).(BLOCK(29BI,RODORD),
C
DIMENSION
FINORG(6,2,4I,XFINI6,10)*FINORD(6t2*]O)I
IFINX2{6,E,IOI,FINX3(6,2_IO)
EQUIVALENCE
IBLOCKoFINORG)eIBLOCKI49}IXFINIe(BLOCKIIOQ]eFIN_DIo
IIBLOCK(229)oFINX2)oIBLOCK(349)_FINX3)
C
DIMENSION
CANIORG(2*2,AI,XCANI2_IOI,CANORD(242,10),
|CANORI(2.2tIO)_cANORX(2o2_IO)
EQUIVALENCE
IBLOCK,CANORG)_IBLOCK(I?),XCANIoIBLOCK(3?I,CANORD)o
I(BLOCK(??I.CANORI),(BLOCK(II?],CANORX)
C
DIMENSION
ABCD(B)
DIMENSION
ALRTI31,3_2)tVECRT(30,3)_
IANSIN(3OItANCOSI30)
DATA
NAN2/24/
DATA
P1/3*141_9_65/
REWIND
9
REWIND
tO
REWIND
12
I
FORMAT
(BAIO)
2
FORMAT
(IXBAIOI
4
FORMAT
(|OFT.O)
AREA
REFERENCE
12
IF
(JO,NE,2)
READ
(I2}
REFA
WRITE
REFA
I9)
GO
TO
IF
(JO=EQ,O)
READ
14
TO
12
GO
TO
14
I5
I_,I)
ABCD
WRITE
(6.2)
DECODE
WRITE
(?o4*ABCD)
Igl
REFA
READ
GO
(12)
ABCD
REFA
DUM
WING
15
IF
(JI.NEe2I
GO
TO
18
TO
45
NWAF(_fIABSINWAFOR}
NW=NWAFOR
READ
(12)
WRITE
GO
TO
IB
IF
BLOCK
(9)
306
BLOCK
(JIoEQ*O)
GO
N=IABS(NWAFORI
NREC=(N+9I/IO
Ilffi-9
12=0
DO
20
N_N_ItNREC
READ
(_tl)ABCD
WRITE
(6o2)
ABCO
II=ll+lO
12_12+10
20
DECODE
CONTINUE
DO
READ
24
(7OlA,ABCD)IXAF(I)tI=II,I2)
I=IoNWAF
(5,1I
ABCD
13
WRITE
DECODE
24
(6*2)
ABCD
(28.4,A8C0)
CONTINUE
IF
(JleLToO)
DO
28
(wAFORG(IgJ),J=t*4)
GO
TO
30
NN=IeNWAF
11=-9
12m0
DO
26
N)mloNREC
READ
ASCD
(5*1)
WRITE
(6*2)ABCD
I!=11+10
12=12+10
DECODE
(70tA,ABCD)
26
CONTINUE
28
CONTINUE
30
GO
TO
D0
32
I=IoNWAF
DO
32
Ka|qN
(TZORD(NN_I)tImIIJI2)
35
32
TZORO(I*K)a0e
35
L=l
IF
(NWAFORoLTeO)
DO
40
NN=I*NWAF
DO
40
K=t,L
L=2
I1=-9
I2=0
DO
NI=I_N@:_EC
38
READ
ABCD
4511)
(6o2)
WRITE
ABCO
llmll+lO
12ml2+10
DECODE
38
40
(?0*4,ABCD)
(WAFORD(NN.K*I)eI=ll.12)
CONTINUE
CONTINUE
IF
(NWAFOReLTe01
DO
42
N_I=IeNWAF
DO
42
KmI,N
GO
42
WAFO_DINNo20KI=wAFORD(NNeloK)
A4
CONTINUE
TO
44
NWAFOR=|ABS(NWA_0R)
NWaNWAF(_
J|mIASS(Jl)
CHANGE
DO
275
TO
ACTUAL
UNITS_
COMPUTE
MIN|MUNS
I=I,NWAF
EleOItWAFORG(IQal
E3=WAFO_G(Io3)
O0
2]0
J=I,NWAFO_
WAFORO(IeIoJ)=E_WAFORD(IoloJ)+E3+TZORD(IqJ)
WAFORD(I,2oJ)=-E_WAFORO(Iq2oJ)+E3+TZORD(IqJ)
210
wAFORDiI=3,J)-WAFORGilolI+E*XAF(J)
215
CONTINUE
306
XMIN=XMAX=WAFORG(I_I)
YMAX=WAFOPG(I,2)
ZNIN=ZMAX=WAFORO(I,]ol)
DO
310
N=ItNWAF
XMAX=AMAXI(XMAXoWAFORD(No3,NW))
XM|NmAMINI(XMINeWAFC_D(N,3tl))
YMAXIAMAX](YMAX,WAFORG(N_Z})
DO
308
NN=1eNW
ZMAX=AMAXI(ZMAX_WAFORD(N_I_NN))
ZNINaAMINt(ZMIN*WAFORD(Ne21NN))
308
CONTINUE
310
CONTINUE
WRITE
PLOT
TAPE
NL]=NW-I
SETUP
IST
DO
430
I=1,2
00
405
N=I,NW
LINE
IN
STREAMWISE
ALRTiNeI_2)=WAF01_DiI_3,N)
ALRT(N_2_2I=WAFORG(1o2)
ALRT(N,3e2IaWAFO_D(Io|oN)
a05
CONTINUE
WRITE
(]0)
((ALRT(N_N3_2),N=)_NW)_N3=]*3)
DO
425
NN=2eNWAF
DO
410
N=|eNW
00
410
N3_1,3
ALRT(N,N3_I)=AL_T(N*N3,2)
410
CONTINUE
DO
475
N=I=NW
ALRT(Ne|o2)=WAFCA_D(NN,3oN)
ALRT(N*2_2)=WAFOI_G(NN_2
ALRT(N_3,2)=WAF(:Y_D(NN_IoN)
415
14
CONTINUE
)
DIRECTION
AND
MAxI_tt_AS
GO
TO
(420.421),I
AIO
CALL
SURCC(NWoALRT,VECRT)
GO
TO
422
421
422
CALL
SURCL(NWeALRT,VECRT)
CONTINUE
WRITE
(I0)
((VECRT(N_N3)oN=].NLI}oN3=I.3)
WRITE
CONTINUE
(I0)
((ALPT(NAN3.2I.N=I.NWI.N3=I.3)
425
430
CONTINUE
NLI=NWAF-I
DO
470
l=t,2
DO
435
N=IINWAF
SETL_
IST
LINE
IN
SPANWISE
DIRECTION
ALRTtN,I_2)=WAFORO(N,3oI)
ALRT(N.2i2I=WAFORG(No2)
ALRT(N_3*2I=WAFORD(NoI.I)
435
CONTINUE
WRITE
O0
460
(101
((ALRT(NIN3oII,N=IQNWAFI,N3=I,3)
NNzI_NW
DO
440
N=IeNWAF
O0
440
N3=].3
ALRT(N*N3tlI=ALRT(N*N3o2)
440
CONTINUE
DO
N=ItNWAF
445
ALRT(N_Io2)=WAFORD(NI31NN)
ALRT(N42oI)=WAFORG(N=I)
ALRT(NQ3.2}-WAFORD(N_I.NN)
445
CONTINUE
GO
A50
TO
CALL
45!
452
(450.451)eI
SURCL(NWAF.ALRT.VECRT)
GO
TO
452
CALL
SURCC(NWAF,ALRTiVECRT)
CONTINUE
WRITE
([0)
((VECRT(N,N3)=N=IoNLIIqN3=lo3)
WRITE
CONTINUE
(I0}
((ALRTIN.N3.IIeN=I.NWAFI.N3=I.3)
460
470
CONTINUE
IF
45
(JI.EQ,I)
WRITE
GO
19)
READ
TO
46
BLOCK
(12I
DUM
FUSELAGE
16
IF(JI,NEoII
READ
GO
(12I
WRITE
4?
TO
47
BLOCK
(9)
BLOCK
GO
TO
IF
(JI=EQoO)
315
GO
TO
68
JITEST-3
IF(JI,EQo-IoANDoJAoEO,-I)
J2TESTz[
IF(J2,EQ*-IoANDoJA.EO.O)
IF
J2=!
(J6=EOel)
DO
6?
J2TEST=2
J2TEST=I
NFU=I*NFUS
rW'_AOaNIRADX(NFU)
NFUSO_'=NFORX(NFU)
NaNFUSOR
NI_EC=(N+9)/10
ll=-9
12=0
DO
48
READ
NI=I_NREC
ABCD
(_*II
WRITE
(6o2I
ABCO
II=II+I0
12"I2+10
48
DECODE
CONTINUE
(?0iA_ABCOI
IF
(JITEST*NEoI)
II=-9
(XFUS(IINFU)I|=II*I2)
GO
TO
50
1230
DO
49
READ
NI=I,NREC
I5,1)
ABCO
I6_2)
WRITE
ABCD
II=II+10
12-12+I0
49
DECODE
CONTINUE
(?0,4.ABCD)
GO
TO
52
50
DO
51
I=loN
5|
ZFUS(IINFUII0e
52
IF
(JITEST.NEo3)
(ZFUS(IiNFUIII-II=II)
GO
TO
60
NCARD=fNRAD÷9)/IO
DO
_6
LN=|QN
00
55
Kll,2
KKsK+(NFU-[)t2
lI=10
15
I!=-9
I2-0
DO
_4
IF
IF
r_NNm|qNCARO
(NNeEOeNCARD)
(II,EOoO)
II=MODINRADIIO)
II=lO
II=II+lO
12"12+II
READ
(_,I)
WRITE
DECODE
54
CONTINUE
55
CONTINUE
56
CONTINUE
GO
60
ABCD
(6o2}
ABCD
(?OtAtABCD)ISFUSII.LNtKKI.IsIItI2)
TO
67
lls-9
12=0
DO
62
NIsI,NREC
READ
(_.l)
WRITE
ABCD
(612)
ABCD
I1"11+10
12-12+10
DECODE
62
(7014*ABCD)
DO
64
I-IQN
64
FUSRAD(I.
6?
CONTINUE
NFU)=SORT(FUSARD(I_NFU)/RII
FUSELAGE
31_
(FUSARD(I,NFUItI=II_IZ)
CONTINUE
IF
AND
MIN
(JI.NE.O)
GO
TO
MAX
320
XNINmXFUS(Iol)
xMAXsXFUSIIol]
IF
(J2TEST-EQ,3)GO
TO
317
YMAXIFUSRAOIIel)
ZN1Nm-FusRAD(1tl)+ZFUS(Illl
ZNAXzFUSRAD(Iol)+ZFUS(t,1)
GO
317
TO
320
YMAXwSFUS(III,I}
ZMINBSFUS(I_I,2)
ZMAX-SFUS(I,|t2)
320
DO
330
NmIINFUS
NRAD=I_ADX(N)
NFUSOR=NFORX(N)
XMINmAMINI(XMINIXFUS(ltN))
XMAX.AMAXI(XNAXqXFUS(NFUSOI_QN])
DO
328
IF
(J2TEST,EQ,3I
NN=ItNFUSOR
GO
T0
322
yMAXmAMAXI(YMAXtFUSRAD(NN_N))
ZMAXsAMAXIIZMAXtFUSRAO(NNoN)+ZFUSINNeN))
ZMINIAMIN1(ZMINq-FUSRAD(NNtN)÷ZFUSINNIN}]
GO
322
TO
328
KK=I+(N-1I*2
00
325
NN-IoP,_AO
YMAXIAMAXIIYMAXeSFUS(N_INNeKK))
ZMIN_AM|NI(ZMINeSFUS(NR.NNtKK+|))
325
ZNAXzAMAXI(ZMAXeS
328
CONTINUE
330
CONTINUE
DO
FuS(NR_NNtKK+I)}
WRITE
PLOT
SETUP
IST
496
TA_E
LINE
IN
STREAMWISE
DIRECTION
NFU=|qNFUS
N_ADnNRADX(NFU]
NFUSORmNFORXINFU)
NLI'NFUSOR-I
NANgNRAD
IF
(J2TEST_EQe3)
GO
TO
481
FANG2(NRAO-I)e2
DELE=6e2831853/FANG
DO
480
Nz|ANAN
E=N--I
ANSIN(N)=SIN(EtOELE+Ae?I2389)
480
ANCO_INI=COS(E_D
481
CONTINUE
ELE+Ae?i_389I
KKmI+(NFU--1)t2
DO
_B4
N=toNFUSOR
ALRT(N_I_E)mXFU_IN_NFUI
IF
(J2TEST,EQe31
GO
TO
482
ALRTIN_2t2)BFUSRA0(N_NFUIeANCOS(I)
ALRTINt312I_FUSRAO(NtNFUI_ANSINII)+ZFUS(N*NFU)
GO
4_2
TO
483
ALRT(NI212I=SFU_
(I_N_KK)
ALRTINi3_2I=SFU_II.NIKK+I)
483
A84
CONTINUE
CONTINUE
WRITE
16
(10)
((ALRT(N_N3t
2)_NwI'NFUSOR)iN3_I_3)
488
DO
DO
495
488
_=IoNAN
N=t,NFUSOR
DO
488
N3=It3
ALRT(NoN3,
CONTINUE
I)=ALRT(N,N3t2)
DO
492
IF
(JITEST,EQe3I
NwloNFUSOR
GO
TO
490
ALRT(N,2,2)=FUSRAO(N,NFUI_ANCOB(NN)
ALRT(No3,2)=FUSRAD(N,NFU)_ANSIN(NNI+ZFUS(N,N_U)
GO
TO
491
490
AL_T(N,ItI)=SFU_(NNtN_KK!
ALRT(N,3oI)=SFU_(NNtN,KK+I)
491
CONT(NUE
492
CONTINUE
CALL
SURCL(NFUSOR,AL_TIVECRT}
WRITE
(10)
((VECRT(N,N3),N=I,NLI)oN3=I,3)
WRITE
(10)
((ALRT(N_N3,2)*N=I,NFUSOR)tN3=I_3)
495
CONTINUE
496
CONTINUE
C
C
SETU¢)
IBT
LINE
AROUND
BODY
C
O0
51!
NFU=I,NFUS
NRAD=NRADX(NFU)
NFUSORINFORX(NFU)
NANIN_AD
I_Li=NAN-L
IF
(JITEST,EOo3)
GO
TO
494
GO
TO
497
FANG=(NRAO--I)e2
DELE=6oIB31853/_ANG
DO
493
N=I,NAN
E=N-!
ANSIN(N)=SIN(E_ELE+AoTI2389)
493
494
ANCOS(N)=COS(E_ELE+4,TI23_9)
CONT[NUE
KK=I÷(NFU-_}_2
DO
499
N=[,NAN
AL_T(NA!_2)=XFUS(I,NFU)
IF
(JITESToEQ°3)
ALRT(N,2,2)=FUSRAD(1,N_U)_ANCOS(N)
ALRT(No3_2)=FUS_AD(1,NFU)_ANSIN(N)+ZFUS(I,NFU)
GO
TO
498
497
ALRT(N,It_)=S_U_(NA!AKK]
ALRT(N,3_2)=_FU_(N,IIKK+!)
498
CONTINUE
499
CONTINUE
WRITE
(!0)
((ALRT(N,N3QI)QNJ!,NAN),N3=!_3)
DO
510
NN=2_NFUSOR
00
502
N'I_NAN
DO
502
N3nl,3
AL_T(N,N3,1I=ALRT(N_N3_2)
502
CONTINUE
DO
_08
N=I_NAN
ALRT(N_I,EI=XFU_(NN_NFU)
IF
(JITEST,EQQ3I
GO
TO
504
ALRT(N_2_2)=FUSRAD(NNtNFU)eANCOS(N)
ALRT(N*3QI)=FUS_AD(NNtNFU)_ANSIN(N)÷ZFUS(NN,NFU)
GO
TO
_05
504
ALRT(NtI_)_SFU_(N,NN_KK]
ALRT(N*3,II=SFUS(N,NN_KK+I)
505
CONT[NUE
50B
CONTINUE
CALL
SuRCC(NAN,ALRT,VECRT)
WRITE
I!O)
((VECRT(N,N3ItN=I
WRITE
!!0)
((ALRT(N,N3_2),N=I,NAN)_N3-!,3)
_IO
CONTINUE
511
CONTINUE
_8
!F
(JI,EOo_)
WRITE
(9)
GO
BLOCK
READ
OUM
(12)
TO
_0
TO
72
TO
79
,N;_!
)tN3=!,3)
C
C
C
NACELLES
70
IF
(J3oNE,2)
READ
(12)
WRITE
72
(9)
GO
TO
IF
(J3oEQ.O)
GO
BLOCK
BLOCK
342
GO
N=NPOOOR
N_EC=(N+9)/IO
DO
78
READ
NNuI_NP
(5ol)
WRITE
DECODE
ABCD
(6.2I
ABCD
(21_4*ABCD)
(RODORG(NN,I)II=Lo3)
11=-9
I2sO
DO
READ
74
NI=I_NREC
(5,1)
ABCD
17
WRITE
(6,2I
ABCD
I1=11+10
12-12+I0
DECODE
74
(70,A,ABCDI
(xPOD(NN,
I)*I=II*I2I
CONTINUE
I1=--9
12=0
DO
76
NI=I*N_EC
READ
IS*lt
WRITE
ABCO
(6*2)
ABCO
II=II+10
12=12+10
DECODE
(70,AtABCD)(PODORDINNol)oI=lIl]21
76
CONTINUE
78
CONTINUE
COMPUTE
343
343
ACTUAL
342
DO
DO
343
XPODI(NoNN)=XPOD(NtNN)
IF
XqMINIMUMIMAXIMUM
N=|,NP
ININ=I,NPOOOR
+pOOORG(Nel}
(JIeNEe0IOReJ2.NE=0)
GO
TO
345
XMIN=XPODI(Itl)
XMAX=XPOO1(1,NPOOOR)
yMAX=PODORG(1i2)+POOORD(1,I)
ZMIN=POOOI_G(I*3)--PODOR0(1,1)
ZMAXeP0OORGIIt3I+P0DORD(I*I)
345
DO
350
N=tINIP
XMIN=AM1NI(XNINIXPODI(NtI})
XNAXeAMAXI(XNAXIXP0DI(N,NPODOR))
DO
348
NN=IINPODOR
YNAXEAMAXI(YMAxePODORD[NeNN)+PODORG(Nq2I}
ZNINzANINI(ZMINsPODORG(Nt3)-POOORD(N4NN)]
348
ZMAX=AMAXt(ZMAXI
350
CONTINUE
pODORG(No3)+p0OORD(NqNN))
NANGleNAN2+I
FANG=NAN2
DELE=_o2831853/FANG
DO
518
N=IoNANG1
E=N--I
ANSIN(N)-SINIEIDELE)
518
ANCOS(N)=COS(EIOELE}
II_ITE
PLOT
TAPE
NL1=NII_DOOR-1
SETUP
IST
DO
5aO
NI_I=ItNP
DO
5_2
NelqNI_oooR
LINE
IN
STREAMWISE
ALRT(Ntle2I=XPOD(I',,IP|_N)+PODORG(NPliI)
ALRT(Nt2o2)-P0DORDINPIiN)IANCOS(II÷PODORG(NPI.2)
ALRT(N_3t2)sPODORD(NPI,N}IANSIN(1)+P0OORG(NPI.3)
522
CONTINUE
WRITE
(I0)
((ALRT(NIN3i2)eN=IINPODOR)IN3EIt3)
DO
DO
535
525
NNm2_NANGI
N=IINII_0D0_
DO
525
N3=1,3
ALRT(NIN311)eALRTIN_N312)
525
CONTINUE
DO
530
NeI=NPODOR
ALRT(N_2_2IePOD(:_D(NI_I_N)_ANCOS(NNI+P0DORG(N_Iq2)
ALRT(N,3,2)=PODO_D(N_I_N)IANSIN(NN)÷PODORG(N_I,3)
530
CONTINUE
CALL
SU_CL(_ODORiALRTIVECRT)
WRITE
(10_
((VECRT(NeN3)eN=II_-I)IN3=li3)
IRITE
(10)
((ALRT(N.N3_2)_N=I*_DOR)'N3mI_3)
CONTINUE
540
CONTINUE
C
C
SETUP
IST
LINE
AROUND
PODS
C
h_LllNANGI-I
DO
555
NPt=|_NP
DO
542
N=I=NANG|
M=N
ALRTI_,|i2)=XPODINiDI,II+POOORG(NF>I_I)
ALRT(M,2i2}-PODORD(NPI_II*ANCOSIN)÷P0DORGINPlI2)
ALRT(M,3_2I=P0D0_D(NPI,II*ANSIN(N)+P0OORG(NPl,3)
542
CONTINUE
WRITE
(10)
((ALRT(N,N3$2)_N=I,NANGI)tN3-I,3}
C
00
550
NN=_INPOoOR
DO
5_5
N=ItNANGI
DO
545
N3=1_3
ALRT(N_N3t|)=AL_T(N_N3t2)
545
18
CONTINUE
DIRECTION
O0
M=N
548
N=IoNANGI
ALRT(MoI_2)=XPOD(NPI4NN)÷PODORGINP|=I)
ALRT(M'2,2)IPODORD(NPIINNItANCOS(N)+POOORG(NP|D2|
ALRT(M'3*2)=_OO0_DINPlINNI_ANSIN(N)+PODORG(NPIt3)
CONTINUE
548
CALL
SURCC(NANGIqALRT,VECRTI
WRITE
(10)
_(VECRT(NoN3I_N=I=NLI)tN3=to3)
(10)
({AL_T(NiN3,2ItN=],NANGI)qN3=I_3)
55@
WRITE
CONTINUE
555
CONTINUE
IF
79
(J3,EQ,2}
WR|TE
DEAD
GO
(9)
fla)
TO
80
TO
82
TO
88
8LOCK
DUM
C
C
FINS
C
8O
IF
(J4INEe2)
READ
GO
82
GO
(12)
WRITE
BLOCK
BLOCK
(9)
TO
360
IF
(J4.EO.0)
N=NFINOR
DO
85
READ
GO
NN=|INF
(B,I)
WRITE
ABED
(6,2)
DECODE
DEAD
i5,l}
WRITE
ABED
I56i4,ABCDI
ABED
(6t2)
DECODE
DEAD
(70,4_A8C0)
ABED
(5,1)
WRITE
(XFIN(NNtIItI=IIN)
ABED
(612)
DECODE
CONTINUE
85
((FINOQGINN.I/J)eJ=I,4},I=I/2)
ABCD
(?0,4,ABCO)
(FINORD(NNIIIJ)oJ=I,N)
C
C
CHANGE
T0
ACTUAL
UNITS,
COMPUTE
MINIMUMS
AND
MAXIMUMS
C
O0
225
LQ=IoNF
DO
22B
I=1,2
J=3-1
E=,0I*FINORG(LQeJe4)
E2=F[NORG(LQ.JI_)
D0
220
K=I.NFINO_
EE=FINORD(LQ,|tKI*E
FIN_{:)_DILQ,J,K).F2+EE
FINX2(LO,JeK)=E2-EE
220
225
360
FINX3(LQ*J,K)=FINORG(LQ.JI_I÷E_XF|N(LQ=KI
CONTINUE
IF
(JI,NE,O,OR,J2,NE,OIOI_,J3,NE,OIGO
XMIN=FINO_G(|,I,])
TO
365
XMAX=FINORG(|ili|)
YMAX=FINORG(IeI,2)
ZMIN=FINORG(Illl3I
ZMAXJFINO_G(I.I,3)
365
DO
370
N=ltNF
ZMINIAMINI(ZMINIFINE)_G(N_It3))
ZMAX=AMAXI(ZMAXIFINO_G(NI2o3)I
DO
370
N2=I,2
XMIN=AMINIIXMINIFINORG(NtN2_I))
XMAX=AMAXIIXMAXoFINX3(N,N2oNFINOR))
DO
370
370
NN=IoNFINOR
YNAX=AMAXI(YMAXQFINORD(N4N2eN_I)}
CONTINUE
WRITE
Pl.0T
TAPE
NLI=N_'INOR-I
SETUP
LOWER
DO
580
NFI=IINF
D0
565
N2=I,2
DO
565
N=I,NF|NOR
AND
UPPED
LINES
IN
STREAMWISE
DIRECTION
ALRT(N,I,N_)=FINX3(NFI,N2,N}
ALRT(N,21N2)=FINORD(NFI,N2_N)
AL_T(NI3.N_I=F|NO_G(NF|iN2_3)
565
CONTINUE
SURCL(NFINO_iALRT_VECRT|
CALL
WRITE
(10)
((ALRT(N.N3.I).NaI.NFINOR)_N3=I,3)
W_ITE
(|0)
(tVECRT(N.N3).N=I,NLI).N3=|.3I
WRITE
(10I
CHANGE
{(ALRT(N,N3.2}.N=I,NFINO_).N3=|t3)
Y
DO
B?0
N2il_2
D0
570
N=I,NFINOR
FOB
INSIDE
LINES
19
ALRT(N.2_N2IzFINX2(NFltN2oN)
CONTINUE
570
CALL
WRITE
580
SuRCC(NFINORIALRT*VECRT)
(I01
((ALRT(N,N3*
I)_N'|INFINORI'N32193I
WRITE
(I0)
((VECRT(N,N3I_N'I,NLII,N3_I,3)
WRITE
(10)
((ALRT(N_N3,
2)'N=I'NFINORItN3mI'3)
CONTINUE
SET@
LINES
DO
625
NFI=]tNF
DO
620
NN2=I,2
00
588
N2=112
IN
VERTICAL
DIRECTION
ALRT(N2QIo2)=FINX3(NFIoN2,1)
IF
(NN2oEQ-2)
GO
TO
582
ALRT(N2o2,2)sFINORDINF),N2,1)
GO
TO
585
582
ALRT(N2.2.2)mF1NX2INFI.N2_I)
585
CONTINUE
ALRT(N2,3_2I-FINO_G(NFI.N2*3)
588
CONTINUE
WRITE
(10)
((ALRT(
DO
DO
610
590
NN=2,t_FINOR
N3=1.3
DO
590
N2=1.2
N,N3"ZI'NsI'2I'N3_I*3I
ALRT(N2oN3II)=ALRT(N21N3Q2)
590
CONTINUE
00
598
N2a142
ALRT(N2el,2I-FINX3(NFIeN2,NN)
IF
(NN2eEQ,2)
GO
TO
592
ALRT(N2t2,2I=FINOARO(NF1,N2,NN}
GO
T0
595
592
ALRT(N2_2.2I=FINX2INFIqN2.NN)
595
CONTINUE
ALRT(N2.3t2I=FINORG(NFI.N2o3)
598
CONTINUE
GO
TO
(602,60AI,NN2
602
CALL
604
GO
TO
605
CALL
SURCL
SURCC
605
CONTINUE
RT)
(21ALRT,VECRT)
WRITE
(I0)
(VECRT[IoN3)
WRITE
(10)
((ALRT(N2,N3Q2|,N2BI_2IeN3elQ3)
610
CONTINUE
620
&25
CONTINUE
CONTINUE
IF
88
(2.ALRT.VEC
(JaeEQo2)
WRITE
(9I
READ
(12)
tN3mlI3)
GO
TO
90
GO
TO
94
TO
99
BLOCK
DUM
CANARDS
90
IF
(J5_NEe2)
NCANOR=IABS(NCANOR)
NCcNCANOR
READ
GO
94
BLOCK
(12)
<9)
WRITE
TO
IF
BLOCK
375
IJSeEQoO)
GO
N=IABS(NCANCHRI
DO
98
MNBI,NCAN
READ
(501)
WRITE
DECODE
READ
(6,2)
DECODE
(5,1)
DECODE
(xCAN(NNtlIoI_ltN)
ABCO
16,2)
WRITE
ABCO
(?0i4,ABCDI
IF
(NCANORoLTeOI
00
96
(CAIMO_OINN,I
GO
TO
*J)*JwltN)
97
J'I*N
CANORI(NN,IoJ)eC
GO
TO
READ
ANOROIIN_I°IIJ)
98
(5,1)
ABCD
16e2)
WRITE
DECODE
98
ABCD
IT0_41ABCDI
READ
97
((CANOCtGINNtI.JI,J=I*4).I=I.2)
(5,1)ABCD
WRITE
96
ABCD
(6.2|
ABCO
(56.A.ABCD)
ABeD
(70.4.ABCDt
(CAI_I
(NN.I*JI*JmI'N)
CONTINUE
NCANO_-IABSINCANOR)
NCwNCANO_
C
C
CNANGE
TO
C
DO
2O
250
NNII,NCAN
ACTUAL
UNITS.
COMPUTE
_INENUMS
AND
MAXIMUMS
DO
245
I=3--K
K=],2
E=,01*CANORGINN,I.4)
E3=CANORG(NN.I,3)
00
240
JsI,NCAND_
CANO_D(NN,
IoJ)zE*CANORO(NNqI,J)+E3
CANORI(NN,I_J)=--E*CANORI(NN,I,J)+E3
240
245
CANOI:_X(NNIIIJ)=CANORG{NN,I_I)+E*XCAN(NNqJ)
CONTINUE
25O
CONTINUE
375
IF(JIoNE,O,OR,J2,NE,O*OR*J3.NE,O*Of_,JA,NE_OI
XMIN=CANORX(I,I,I)
GO
TO
377
XMAX=CANORX(I*ItNCANOR)
YMAX=CANORG(I,2_2}
ZMIN=CANORIII,It])
377
ZMAX=CANORD(I,Iol)
DO
390
NCA=I,NCAN
YMAXmAMAXI(yMAXgCANORG(NCAt2t2))
00
388
N2ml,2
XMINmAMINIIXMINtCANOI_X(NCA_N2gI))
XMAXzAMAXI(XMAXtCANORX(NCAAN2.NCANORII
00
385
NN=IoNCANOR
ZMIN=AMINI(ZMINtCANORI(NCA.N21NN))
385
ZMAX=AMAXI(ZMAXACANORD(NCAQN2,NN))
388
CONTINUE
390
CONTINUE
WRITE
PLOT
TAPE
NLI=NC-I
SETUf
:>
TWO
00
00
642
640
NCA=IiNCAN
I=I,2
00
635
N2=I,2
00
635
N=I,NC
LINES
IN
STREAMWlSE
DIRECTION
F01_
UPPER
AND
LOWER
ALRT(N,IqN2)=CANO_X(NCAIN21N)
ALRT(NI2_N2)=CANORG(NCAIN2t2)
IF
(I.EQ_2)
GO
TO
632
ALRT(N_3eN2}'CANORD(NCA,N2_NI
GO
TO
635
632
ALRT{N,3eN2)=CANOI_I(NCAiN2iN)
635
CONTINUE
GO
637
TO
(637,6381t1
CALL
SURCC
GO
TO
(NCeAL_TIV_CRTI
639
638
CALL
639
CONTINUE
SURCL
(NC_ALRToVECRT)
WRITE
(IO)
WRITE
(10)
((VECRT(NiN3)tNEIINLI)tN3=It3)
WRITE
{101
((ALRT(N_N3i2)tN=|,NC)IN3=lt3)
640
CONTINUE
642
CONTINUE
SETUP
((ALRT(NeN3_I)IN=1_NCIIN3=lt3)
LINES
O0
665
00
660
I'I,2
00
648
N2=I,2
IN
SPANWISE
DIRECTION
NCA=I,NCAN
ALRT(N2,1o2I=CANORX(NCAIN211)
ALRT(N2,2,2)=CANORG(NCA,N2,2}
IF
(I,EQ,21
GO
TO
643
ALRT(N2*312)mCANORD(NCAIN_II)
GO
TO
648
643
ALRTIN2,3_2)=CANORI(NCA_N2iI)
648
CONTINUE
WRITE
DO
659
(I0)((ALRT(N2tN3t2I.N2=IeZ)IN3=I.3)
NN=2tNC
DO
650
N3=I,3
00
650
N_=I=2
ALRT(N2,N3,1I=ALRT(N2iN3t_)
650
CONTINUE
00
654
N2=Ii2
ALRT(N2_II2)mCANORX(NCAIN21NN}
ALRT(N2,2_)mCANOi_G(NCAtN2_)
IF
(I*EQ_2)
GO
TO
652
ALRT(N2_3_2)=CANO_D(NCAtN2_NN)
GO
TO
654
652
ALRT(N2,3,2)=CANOC_1(NCA,NZ_NN}
654
CONTINUE
GO
65_
TO
CALL
GO
(656,6571_1
SURCL
TO
657
CALL
658
CONTINUE
(2,ALRT,VECRT)
656
SURCC
(2_ALRT,VECRT)
WRITE
(10)
(VECRT(I,N3),N3=I.3)
WRITE
(101
((ALRT(N2,N3,2IIN2=I*2],N3=I,3)
21
6_9
660
CONTINUE
CONTINUE
665
CONTINUE
IF
(dBoEOo2)
99
WRITE
105
(99
WRITE
REFA
(129
?00
READ
REFA
K=1*5
(99
WRITE
BLOCK
(92)
FIND
BLOCK
MAXIMUM
YMINa--YMAX
XDISmXMAX-XMIN
YDIS=YMAX-YMIN
ZDIS-ZMAX-ZMIN
BIGDsAMAXI(XDISoYDIStZDIS)
XMIDm*5*IXMAX-XMIN)÷XMIN
YMID=O,
ZMIO=eBe(ZMAX-ZMIN)+ZMIN
RETURN
END
END
22
105
DUM
9
12
READ
TO0
TO
BLOCK
(12)
REWIND
REWIND
DO
GO
(91
READ
OF
START
DISTANCE
AND
MIOPOINT
Subroutines
Subroutine
SURCL
computes
points used in a clockwise
vectors
SURCL
the outward
and SURCC
normal
direction and subroutine
with four adjoining input points used
vectors
SURCC
with four adjoining input
computes
in a counterclockwise
the outward
direction.
the input points are numbered
in a counterclockwise
direction, if computing
with Subroutine
yield inward
Subroutine
charts
SURCC
would
and the FORTRAN
statements
normals,
for these subroutines
( sub
out )n
(
[Compute
vectors
clockwise
SUBROUTINE
direction
DO
(
SURFACE
UNIT
SURCC(NPToFLINEtFVEC}
COMPUTES
DIMENSION
N=2,NPT
DO
SURFACE
50
T2X=FLINE(N,I,I)-FLINEIN--Ioll2)
TIY=FLINE(N}2,2I-FL[NE(N-Ii2t|)
TIY=FLINE(N*2,2)-FLINEtN-Io21|)
II21-FLINIE(N-|I|i|}
T2Y=FLINE(N-I,2,2)--FLINEIN,21|)
T2Y=FLINEtN_211)-FLINE(N--II2i_)
TIZ:FLINE(Nt3t2_-FLINE(N-Ii3tl)
T2Z=FLINE(N-lo312)-FLINE(N_3t])
T|Z=FLINE(N_3,2)-FLINE(N-lo3_I)
T2Z=FLINEINI3tI)-FLINE(N-lt3_2)
XNX=T2Y_T|Z-T|YtT2Z
XNX=T2Y_TIZ-TIYtT2Z
YNY=TIXtT2Z-T2XtTIZ
YNY'TIXIT2Z--T2XITIZ
(FNIEQi0o)
ZNZmT2XITIY--T|XIT2y
GO
FN=SQRT(XNX_t2+yNYtt2+ZNZtt_)
TO
40
IF
(FN.EQe0e]
FVEC(N-IiI)=XNX/F'N
FVEC{N-IIII=XNX/FN
FVEC(N-I_2I=YNY/FN
FVEC(N-II2|=yNY/FN
FVEC(N-Ie3)=ZNZ/FN
GO
TO
4O
FVEC(N-II2)=Oo
TO
40
FVECIN--ltl)aO_
FVECtN--]_)_0_
FVEC(N-It3)=O.
FVEC(N-Ie3)=0_
CONTINUE
RETURN
END
GO
FVEC(N-|I3)aZNZ/FN
GO
TO
50
_0
FVEC{N-],I}=0o
END
NORMALS
N=2iNPT
TIXaFLINE(N,
T2X_FLINE(N--IeII2)-FLINE(Ni[ol)
IF
UNIT
FLINE(31o342)oFVEC(3043)
T|X=FL]NE(Hlll2)-FLINE(N-iolI|)
FNmSORTIXNXtt2+yNytt_+ZNZtt_)
50
T
SUBROUTINE
ZNZmT2XtTIY--T|XtT2y
40
I
RETURN?
NORMALS
FL|NE(3|i3,2),FVEC(30e3)
_0
]
vectors
/1
SU_CL(NPTIFLINEtFVEC)
DIMENSION
flow
eounter-clockwiSdirection
RErI'URN_
COMPUTES
The
are as follows:
outward
I normal
T
(
the normals
is used.
t
outward
normal
Although
ubroutine
)
T
Compute
SURCL
normal
50
CONTINUE
RETURN
OF
SU_CL
END
OF
SURCC
END
23
Program
Program
PLTCON
PLTCON
(overlay (2,0))is the control routine for the various plot options
and calls in the other needed parts of the program.
This program
for the plot titlesand origin. The flow chart and the FORTRAN
gram
are
generates instructions
statements for this pro-
as follows:
Overla_Z, PLTCON
o)
Program
)
and
max.
Save
rnin.
dimensions
origin
1
and
Compute
move
yes
I
pen
T
I
Notate
I
T
view
origin
Compute
move
ant
pen plan
t
Notate
cL \
up
side
I
view
origin
Compute
move
I
T
Z inches
]
and
pen
yes
_I
J
OVERLAY
(Z,
,)
T
front
T
view
origin
Compute
move
and
Compute
distance
1
to
pen
move
pen
past
plot
l
distance
OVERLAY
CALL
I Move
1
I
distance
move
pen
"Compute
past
plots
to
new
pen
origin
to
t
saved
l
Inin.
and
max.
Restore
_Eoe
ns ions
T
24
nlove
pen
I Conlpute
past plot
to
OVERLAY
(C8C,2,0)
PROGRAM
PLTCON
CONTROL
OF
ROUTINE
AN
FOR
AIRCRAFT
VARIOUS
TYPES
OF
PLOTS
CONFIGURATION
ABC(B),J_*JI4J21J3,J4_JS_J6o
COMMON
INWAF.NWAFORqNFUS,NRADX(A),NFORX(4)oNPoNPODORe
2NF,NFINOR,NCAN.NCANORI
3J2TEST_NW,NC,
4ABCDE(BI,HORZ,VERT,TEST|0PHI,THETAQPSI,XFeYF.ZFtDISTIFMAG_
5PLOTSZtTYPEIKODE_
6XMIN,XMAXIYMINeYMAXIZ_INIZMAXe
?XMIO.YM|D_ZMIO.BIGDeISP
DIMENSION
O_G(3)
DATA
TYPEO/3HORT/,TYPEP/3HPE_/ITYPES/3HSTE/
IITYPEV/3HVU3/
CBCm3LCBC
RECALLm6H_ECALL
REWIND
10
SAVE
MIN
AN_
MAX
XSAV-XWIN
YSAVmYMIN
ZSAV=ZMIN
XMSAV=XMAX
YMSAV=YMAX
ZMSAV=ZMAX
IF
(TYPEoNEeTYPEV)
GO
TO
49
$CALE=BIGD/_'LOT_Z
ORG(I}=PHI
ORG(2)=THETA
ORG(3)=PSI
PH|sTHETA=PSI=0,
YB|G=ORG(I)
YO_G=FLOATIIFIX(YMAX/SCALE)I÷ORG(|)
IF
(YBIGeGTeO_G(2))GO
TO
5
TO
8
YBIG_ORG(2)
YORG=FLOATIIFIX(ZMAX/SCALEI)+ORG(2)
1F
(YBIGeGTeO_G(3)IGO
YB1G=ORG(3)
YO_GzFLOAT(IFIX(ZMAX/SCALEI)+O_G(3)
CALL
CALPt_T(0_YORGt-3)
NOTATE
ON
3vIEW
PLOTS
NCHAR=IF1X(6o_PLOTSZ)
IF
(NCHARIGToSO)
GO
TO
GO
TO
9
10
CONTINUE
NDIF=(NCNA_-80)/2
XzFLOAT(NOIF)/6e
NCHAR-80
tO
CALL
NOTATE(xtOele2IABCoOe,NCMAR)
XMIN=YMIN=ZMIN=_.
HORZ=IHX
VERT=|HY
YOA_GmOQG(1)-YORG-I
CALL
CALPLT(0etYORG,-3)
CALL
OVEI_LAYICBCI2,I,RECALL)
REWIND
]0
VERT=IHZ
YO_G-O_G(2)-ORG(1)
CALL
CALRLT(OetyORGI-3)
CALL
OVERLAY
REWIND
HORZ=IHY
(CBC,_IIiRECALL)
10
YORG=ORGI3)-ORG(2)
YMIN=FLOAT(IFIxIYSAV/SCALE))_SCALE
CALL
CALPLT
CALL
OVERLAY
(O,,YORG,-3)
(CBCI_I,RECALL)
X=FLOAT(IFIX(_:__OTSZ÷6_)}
Y=I_-ORG(3)
GO
49
TO
60
CONTINUE
IF
(TYPEeEQeTYPFS)
NOTATE
lO
GO
ON
TO
_
PLOT
NCNAR=IFIX(IIetPLOTSZ)+3
IF
(NCHARoLE=80)
GO
TO
_0
NDIF=(NCHAR-80I/2
X=FLOAT(NDIF)/1Io
25
50
52
NCHAR=80
CALL
NOTATE
(Xe0oool,ABC*0t0NCHAR)
CALL
NOTATE
(X,-oS,eI,ABCDE*Oo,NCHAR)
CALPI_T
(01o2o,-3)
CONTINUE
CALL
IF
C
C
(TYPE.EQ,TypEPJORaTYPEeEQJTYPES)
ORT
HOGRAPH
I C
C
CALL
OVERLAY
(CRC_2,1_RECALL)
X=FLOAT(IFIXtPLOTSZ+2o))
¥=-2*
GO
5a
TO
60
ISPtl
IF
(TYPEoEQ_TYPES)
C
C
IS p=2
PERSPECTIVE
OR
STEREO
C
CALL
OVERLAY
{C_CI2*2*RECALL)
X=Pt.OTSZ+2.
IF
{TYPE.EQcTYPES)
X=x+Pl-0TSZ
ym-2,
C
C
END
OF
COMI:>I_ETE
CALC>t-T
{X,Yo-3)
PLOT
C
60
CONTINUE
CALL
C
C
RESTOPE
MIN
C
70
XNIN=XSAV
YMINsYSAV
ZMINeZSAV
XMAXmXNSAV
yMAXsYMSAV
ZMAXsZMSAV
RETURN
C
C
END
C
END
26
OF
Pt.TCO_N
AND
MAX
GO
TO
54
Program
Program
jections.
matrix
lishes
statements
It
and
the
OTHPLT
(overlay
determines
the
the
equation
necessary
for
for
offsets
this
program
(2,1))
specified
OTHPLT
is
axis
the
system
transformation
for
of the
placement
are
as
Prog
control
and
routine
for
paper
plane,
outward
of a plot.
The
the
sets
normal
flow
orthographic
up
vectors,
chart
and
the
pro-
the
rotation
and
estab-
FORTRAN
follows:
Overlay(Z,
ran10TIIPI,T
)
i)
T
_in.
r
and
tllax.
centering
Adjus_
rain.
for
grid
lines
matri_
T
Setup
equation
for
hidden
line
test
Cenh_r
w_rth
within
ally
2g
RETURN
)
inches
midpoint
for
r olaled
Rotate
view
offsets
chord
lines
{
Canard
\
Wing
airfoil
....
/
/
ing
pct,
chord
lines
)
d.
/
A
I
PLOTIT
airfoil
]
coord,
CwALL
/
#
¥
CALL
PLOTYF\
_
/
j/
A
eoord.
/
Fuselage
longitudinal
line
s
I
/CALL PLO'l'n\
_Lines
around
1/2]
pods
\fuselage
/
Pod
longitudinal
lines
/
/
27
OVERLAY
(CBC*2_I)
PROGRAM
0THPLT
CONTROL
COMMON
ROUTINE
FOR
ORTHOGRAPHIC
pROJECTIONS
ABC(8)4J01J|,J2,J3tJ4_JStJ6Q
_NWAFIN_AFORoNFU_IN_ADX(4)QNFORX(4)tNPtN
I_ODORt
2NF_NFINOReNCAN*NCANORt
3J2TEST_NW,NC,
_ABCDE(@)_HORZoVERT_TESTImPHItTHETA,PSItXF_YF'ZF'OIST_FMAGe
5PLOTSZQTYPE_KODF_
6XMINoXMAXoYM]N_yMAXtZMINqZMAX*
7XMI01YMI0,ZM|O,MIGO_ISP
DIMENSION
OATA
A(2,3%QC(31
XSEE/2HX
/IYSEE/2HY
/tZSEE/2HZ
/I
|XINTST/3HOUT/,CONV/oOI?453293/INUM2/2/'NAN2/24/
INITIALIZE
DMAXRBIGD
ITESTI'L
ZTEST211
IF
(XINTSToNE,T_ST|)
IF
(PSleEQ-0-_ANOe
|TESTIz0
THETAaEQD0°°AN0°PHI*EQ°0°)ITEST2_0
SCALEmDMAX/IULOT_Z
PHIzCONVIPHI
THETAsCONVfTHETA
PSlmC0NVtPSl
IF
(TYPEoEQe3HVU3)
GO
TO
12
XDISmX_AX--XMIN
YDiSsYMAX-YMIN
ZDISeZMAX-ZM1N
XFIX_eS_(OMAX-XDIS)
XMINIXMZN-XFtX
XMAXmXMAX÷XFIX
YFIX_*5t(OP4AX-Y_IS)
y_IN_Y_IN--YFIX
YMAXzYMA_÷YF|X
ZF|X_5t(D_X-Z_IS1
ZMIN*Z_IN-ZFIX
Z_AX_ZNAX÷ZFIX
ADJUST
12
NINIeU_S
FOR
GRID
XMINeFLOAT
CIFIX(X_IN/SCALE))ISCALE
YMIN=FLOAT
(IFTx(Y_IN/SCALE)}_SCALE
ZMINIFLOAT
(IFTx(ZMIN/SCALE)ItSCALE
LINES
CONTINUE
SETUP
SIN
AXIS
P'SImSIN(PSI)
SINTHE_SIN(THETA)
SIN_HI=SIN(PHI)
COSPSI_COS(PSI)
COSTHE_COS(TNETA)
COSPHI_COS(PNI1
2020
IF
(xSEEoNE_HORT)
IF
{ITEST2eEQe0)
USE
X
FOR
GO
TO
HOIRIZONTAL
GO
2030
VARIABLE
TO
2025
A(|ol)=COSTHE_COSPSI
A(I_2)=-SINPSItCOSPHI+SINTHEiCOSPSItSINPHI
A(|_3)_SINPSItS_NPHI+SINTHEtCOSPS|ICOSI_H|
2025
HMIN=XMIN
HMAXiXMAX
HMIDmX_IO
IHOI_Z-I
2030
GO
T0
IF
(YSEE_NE,HORZ)
C
C
2050
USE
Y
FOR
GO
TO
HORIZONTAL
2040
VARIABLE
C
IF
(ITEST2_EO_0)
GO
TO
A(|,|)_COSTHEIS|NRSI
A[|e2I=COSPS|_COSPHI+S|NTHEeS|NPSIISINPH|
A(|_3)=-COSRS|t_INPHI+SINTHEtSIN_S|tCOSPHI
2035
H_IN-YMIN
HMAX=YMAX
HM|D=YMID
IHORZ_2
28
2035
GO
TO
2050
C
C
USE
Z
FOR
HORIZONTAL
VARIABLE
C
2040
CONTINUE
IF
(ITEST2,EQ,0I
GO
TO
2045
A(IiI)_-SINTHE
A(ItE)aCOSTHEtSINPHI
A(I,3)mCOSTHEtCOSPHI
2045
HMIN-ZMIN
HMAXaZMAX
HMIDzZMID
IHORZz3
2050
IF
(XSEEtNEeVERT)
GO
rO
2060
C
C
C
USE
IF
X
FOR
VERTICAL
(ITEST26EQeO}
VARIABLE
GO
TO
2055
A(2,I)=COSTHE_COSPSI
A(212)=-SINPSI_COSPHI+SINTHEtCOSOSI_SINPHI
A(E03)=SINPSIISINPHI÷SINTHEiCOSPSI_COSRHI
2055
VMIN=XMIN
VMAX=XMAX
VMIOBXMIO
]VERT-I
2060
GO
TO
IF
IYSEEeNEoVERT)
2080
IF
(ITESTEoEQ,0)
GO
TO
2070
C
C
USE
Y
FOR
VERTICAL
VARIABLE
C
GO
TO
2065
A(EoI)mCOSTHE_SINPS]
A(2,2I'COSPSI_COSPHI+SINTHEISINPSI_SINPHI
2065
A(2,3Iz-COSPSII_INPHI+SINTHEISINPSIICOSPHI
VMIN=YMIN
VMAX=YMAX
VMIO-YMID
IVERT-2
GO
TO
2080
C
C
C
USE
2070
Z
FOR
VERTICAL
VARIABLE
CONTINUE
IF
(ITESTEeEQ.O)
GO
TO
EO?_
A(2,1Iz-SrNTHE
AIE,EIICOSTHEISTNPHI
2075
A(2_3IICOSTHEiCOSPHI
VMIN=ZM[N
VMAXzZMAX
VMID=ZMID
IVERT_3
C
C
C
CHECK
2080
IF
PAPER
PLANE
(,NOTo((IHORZeEQellAN0eIVERTIEQe2)eORe
I(IVERTeEQoLeANDelHORZeEQoE)))
ITEST=3
GO
TO
2083
C(I)=-SINTHE
C(2)wCOSTHEISIN_HI
C(3)'C0STHEtCOSDH1
2083
GO
TO
IF
{,NOTo((IHORZ,EQ,I,ANO*IVERTeEQo3Ie0Re
2088
IIIVERT,EQoIIANDoIHORZoEQI3)I)G0
ITEST=2
TO
2086
EII)ICOSTHEtSINPSI
C(2)=COSPSItCOSDHI+SINTHEtSIh_oSItSINPHI
C{3)_-COSPSItSINPHI+SINTHE_SINPSItCOSPHI
GO
2086
TO
2088
ITEST-!
CII)_COSTHEeCOSPS[
C(2)=-SINPSIIC0_PHI+SINTHEICOSPSI_SINPHI
2088
C(3)mSIN_SIiSINPHI+SINTHEICOSPSIiCOSPHI
CONTINUE
C
C
C
CENTER
IF
WITHIN
PAGE
SIZE
IF
SIZE
(PLOTSZ-GT_2_eoANDoTYPEeNE,3HVU3)
GREATER
THAN
28
INCHES
VMINa-13_tSCALE
I+FLOAT(IFIX(VMID/SCALEIItSCALE
C
C
C
ROTATE
IF
MIDPOINT
(ITEST2,EQ*O)
GO
TO
PLACE
TO
2095
ROTATED
VIEW
CORRECTLY
AMIDI=A(I,I)_XMID+AII,2)_YMID+A(I,3I_ZMID
AMID2=A(_,I)IXMID+A(_2)IYMID+A(2_3)_Z_ID
HMIN©HMIN--HMID+AMIOI
VMIN=VMIN--VMID+AMID2
2095
CONTINUE
C
29
C
BEGIN
RLOTTING
LINES
C
C
WING
C
2100
IF
(JtoEQe0)
DO
2120
CALL
GO
TO
2200
I_I*Z
PLOTIT
(NVAF,NW,
ITESTIITESTI,ITESTR,IHO_ZoIVE_T,
1HMIN_VNIN,SCALEIA_C}
2120
CONTINUE
DO
2140
l=le2
CALL
I__OTIT
(NWoNWAFqITEST,
ITESTL,ITEST2olHOIRZ,IVERT_
IHMIN*VNINoSCALEIAoCI
2140
CONTINUE
2200
IF
(J2eEOe0)
DO
2210
C
C
FUSELAGE
C
GO
TO
2300
NFU=ItNFUS
NANGIzNRADXINFU)
NFUS0_INFORX(NFU)
CALL
I_L.OTIT
(NANGIqNFUSORqlTEST_ITESTI,ITEST2,IHORZ_IVERTt
IHMINtVMIN,SCALE,AAC}
22L0
CONTINUE
DO
2220
NFU-LtNFUS
NANGIwNRADX(NFU)
NFUSORaNFORXINFU)
CALL
Pl..OTIT
(NFUSORoNANG141TEST,ITESTI_ITEST2,1HORZ*IVERTt
1HMINtVM1N,SCALEoAtC)
2220
CONTINUE
C
C
NACELLES
C
2300
IF
(J3oEQo_l
GO
TO
2400
NANGI=NAN2+I
DO
2340
NPIIImNP
CALL
I_LOTIT
(NANGI,NPODOR,
ITEST_ITESTI_ITEST2,1HO_ZolVERT,
IHMIN,VMINtSCALE,AoC)
2340
CONTINUE
00
2360
NPImleNI_
CALL
PLOTIT
(NP0DORqNANGI,ITEST,ITESTI.ITEST2,IHORZ,
IVERT*
IHMIN_VMINtSCALEIAAC)
2360
CONTINUE
2400
IF
00
C
C
FINS
C
(JaoEQe0)
2420
GO
CALL
I::_OTIT
IHMINoVMIN,SCALEIAtC)
CALL
TO
2_00
NFI=IiNF
I_OTIT
(NUM2tNFINO_tlTEST_ITESTIoITEST2,1HORZ,
IVERTt
(NUM2tNFINOR,ITEST_ITESTI.ITEST2,1HO_Z,
IVE
IHMIN_VMINISCALE_AIC)
2420
CONTINUE
DO
_AA0
NFI=I_NF
CALL
PLOTIT
(NF|NOR.NUM2,1TEST_ITESTI,ITEST2tIHORZtlVERT_
INMIN_VMINeSCALEIAIC)
CALL
PLOTIT
(NFINORtNU_2,1TEST_ITESTI,ITEST2*IHORZ*IVERTI
IHMIN_V_IN_SCALE_AIC)
2440
CONTINUE
2500
IF
(JS,EO*0)
00
2525
NCA=I,NCAN
DO
2520
I=I,2
C
CANARD
C
C
CALL
GO
F__OTI_
TO
2600
(2,NC,ITEST,ITESTI,ITEST_,IHO_Z_IVERT,
INMIN,V_INtSCALE,A_C)
2520
CONTINUE
2525
CONTINUE
DO
2545
DO
2540
CALL
NCA_I.NC
PLOTIT
(NC_Z,ITEST_ITESTItITEST2ilHORZilVERTt
IHMIN,VMINtSCALEtAtC)
2_1-0
CONTINUE
2545
CONTINUE
2600
CONTINUE
_ETURN
C
C
END
C
END
3O
AN
I-!i2
OF
0THI_T
RTo
PLOTIT
Subroutine
Subroutine
storage
and
driving
automatic
the
FORTRAN
PLOTIT
calls
for
reads
lines
of points
transformation
equipment
statements
of the
to plot
for
this
the
and
points
desired
PLOTIT
are
as
vectors
vectors.
orthographic
subroutine
Subroutine
associated
and
from
It writes
lines.
The
intermediate
instructions
flow
chart
for
and
follows:
)
T
of vectors
to be
iest((ll_
J
Y
Read
_and
lines
vectors
_:°r_;fT:itd°:5
Change
y
sign
of
line
Store
points
to be
plotted
'
I
I
VECROT
CALL
/
Y
[
Change
ny
_-_
n
yes
sign
I
_< RETu::
)
VISTST
Change
/ cAL
/
LINE
ny
sign
yes
visible
points
31
SUBROUTINE
PLOTIT
(NL_NPT,
ITESToITESTI,ITEST2QIHORZtlVERTi
IHMINIVMIN,SCALEIAIC)
READS
LINES
MANIPULATES
DIMENSION
OF
IN
POINTS
SPECIFIED
DEFINING
MANNERo
A
SURFACE
FROM
AND
PLOTS
VECRT(30o3t2),VECLF(30o3i2)qALINE(3[t3}QRLINE(3I_2)I
|RVEC(3012)lXLINE(33Q2)INNUMI4)I_LINE(3It2},A(2i3)_C(3)
NVEC=NPT-I
DO
500
IF
(N*GT,I)
N=ItNL
GO
TO
10
KODE=3
Kl=2
K2=2
GO
IO
TO
50
KODE=I
KI=I
K2=2
DO
30
NVaI
DO
25
N3_I,3
oNVEC
VECRT(NViN3tI}=vECRT(NV,N312)
VECLF(NVIN31|)=vECLFINVtN312)
25
CONTINUE
30
CONTINUE
50
READ
IF
((ALINE
(10)
(NoNEeNL)
(NNIN3)'NN=I°NPTIIN3=I'3)
GO
TO
60
KODE=2
KII|
K2=I
60
GO
TO
70
_EAD
(10)
DO
65
((VECR
T(NNtN3'2IeNN=I'NvEC|IN3=|°3)
NN=IINVEC
VECLF(NNIII2}=v_C_T(_$|$2)
VECLF(NN_2,2)=-vEERT(NN,2_2)
65
VECLF(NNo312I=vECRT(NN4312)
LOOP
70
O0
490
FOR
RIGHT
(NN2,EQ,I)
75
GO
ALINE(NN_2I=-ALINE(NN*2I
80
IF
(ITESTIeE0.11
IF
(ITEST2eEO.
NO
I)
ROTATION
TO
B0
GO
TO
290
GO
TO
200
110
OR
VISIBILITY
TO
CALL
DO
TEST
IHORZ)
)=ALINE(NNQIVERT)
250
ROTATE
200
OF
NJlMIIINI_T
XLINE(NNtl)=ALINEINN,
XLINE(NA_Ie2
GO
SIDE
NN=IIN_T
T5
II0
LEFT
NN2=I,2
IF
DO
00
AND
BUT
PTROT
225
NO
VISIBILITY
TEST
(NPT_AtALINEeRLINE)
NNB14NPT
DO
225
N2zli2
XLINE(N_I,N2)=RLINE(NN,N2)
225
CONTINUE
250
XLINE(N
SCALE
AND
I:_LOT
PT÷IIII=HMIN
XLINE(NPT+Ig2)evMIN
XLINE(NPT÷_iII=SCALE
XLINE(NPT+2.2)'sCALE
CALL
LINE
(XLINE(IoII,XLINEII,2)tNPTltl0o0oO)
GO
290
TO
a9o
]FIITEST2.EQel)
GO
CHECK
VISIBILITY
TO
a00
BUT
DO
310
NN=ItNII°T
RLINE(NN,I}=ALINE(NN,IHDQZ)
RLINE(NN,2)-ALINE(NN,
310
IVERT)
CONTINUE
DO
3{0
N_.I,NVEC
DO
330
N2=I,2
IF
(NN2_EQ,2)
GO
TO
320
RVECINN,N2)=VEC_T(NN_ITEST'N2)
GO
330
320
RVECfNN_N2)=VECL
330
CONTINUE
340
CONTINUE
GO
32
TO
TO
AS0
F(NN'ITEST_N2)
NO
_OTATION
AIRCRAFT
TApEq
_OTATE
400
CALL
IF
DO
(NN2,E0=2)
410
CALL
4]0
420
VISIBILITY
GO
420
TO
N2=KI,K2
VECROT
GO
TO
(NVEC,CtVECRT(IIItN2}IRVEC(IoN2)}
DO
430
450
N2mK|*K2
VECROT
(NVEC.CoVECLF(III*N2It_VECI1tN2))
CONTINUE
FIND
450
CHECK
CONTINUE
CALL
430
AND
PTROT(N_'TIAIALINEtRLINE)
VISIBLE
IF
(ITESToNEo2}
DO
452
N2mKItK2
DO
452
M=I,NVEC
GO
452
RVEC(M,N2)=-RVEC(M,N2)
455
CALL
IF
VISTST
GO
457
N2=KI,K2
O0
457
M=I,NVEC
457
RVEC(M,N2)=-RVEC(M,N2)
a60
CONTINUE
(NSETeEQeO)
SCALE
TO
455
(KODE,hlPT,NSET,NNUM,RLINEtRVEC,P'L.
(ITEST,NE,_)
DO
IF
LINES
GO
ANO
TO
TO
INE)
a60
490
PI_OT
NIT=0
DO
4B0
NI=IeNSET
NN=NNUM(N1)
DO
470
NNI=IINN
NIT=NIT+!
XLINEINNIAII=PLINE(NITll)
XLINEINNI,2I=PLINE(NITI2)
AT0
CONTINUE
XLINEINN+III)=HM1N
XLINE(NN÷I42)_VMIN
XL[NE(NN+21I)=SCALE
XLINE(NN+242)ISCALE
CALL
LINE
aeo
CONTINUE
490
CONTINUE
500
CONTINUE
_ETURN
END
(XLINE{IIII,XLINEII,2),NN,I,0,0t0I
OF
PLOTIT
END
33
Subroutines
Subroutine
VECROT
PTROT
transforms
FORTRAN
rotates
a set
statements
and projects
of outward
for
these
PTROT
normal
subroutines
and
VECRDT
a line
of space
vectors.
are
points,
The
and
flow charts
subroutine
and the
as follows:
VECROT
Subroutine
(
Subroutine
PTROT
T
project
a
line
of
Rotate
points
SUBROUTINE
PTROT
ROTATES
ANO
DIMENSION
A(2t31
normal
Transform
desired
space
and
(NPT,AqALINE4RI-INE|
PROJECTS
A
SET
vectors
SUBROUTINE
OF
3D
_ALINE(3t*3)eRLINE(31*2)
_OINTS
C
C
VECROT
TRANSFORMS
I_L
10
INE
N=1
( N,
RLINE(N,21=0=
D0
5
I=l
DO
5
_LINE
(No
10
CONT
] NUE
I )=0=
D0
C(3)¢FVEC(30*3)_RVFC(30)
40
N=I4NVEC
I ) =RLINE
(N*
1 )+A
( I,
J )_AL
[NE(N,J)
20
DO
20
NN=It3
SUNaSUM÷C(NN)IFVEC(NiNN)
40
RVEC(N)=SUM
RETURN
END
END
34
vECT0_S
SUM=0*
,2
RETUI_N
END
(NVEC*CoFVECoRVEC)
* Nc_T
J=I.3
5
OF
1
C
C
DIMENSION
DO
for
paper outward
plane
PTI_OT
END
OF
VECROT
Subroutine
Subroutine
FORTRAN
VISTST
statements
tests
for
this
a line
VISTST
of points
subroutine
for
are
_._
visibility.
as
The
flow
chart
and
the
follows:
Subroutine
v_Ts_L____J
for
visible
points
and
visible
Initialize
se_rnents
line
counts
1
Y
for
mlrnber
position
Set
subscriptsof
to be
tested
no
and
vectors
no
pmnts
ave
visible
line
visible
s< gment
point
l
count
visible
i
for
visible
points
point
(;aunt
L
se_lent
J
I
35
SUBROUTINE
VISTST
TESTS
A
DIWENSION
(KODEQNPToNSET.NNuNoRLZNE.RVEC.PLINE)
LINE
OF
POINTS
FOR
VISIBILITY
NNt.,ff4(4)IRLINE(31o2)oRVEC(30.2)ePLINE(31_2)
NVEC=NPT-I
Nf:>LT=0
NSET=0
ICOUNT=0
GO
5
TO
(5.10*I5).KOOE
TO
20
TO
20
?5
N=tl
NI=!
N2=2
GO
10
NI=]
N2=]
GO
15
NI=2
N2=2
20
DO
IF
IF
00
IF
25
30
35
40
TO
30
GO
TO
40
25
N_=NIoN2
((RVEC(N--1INN}IGT.0e)eORt(RVEC(N_NN)eGT°0iI)
GO
TO
60
00
35
NN=NItN2
IF
(RVEC(tlNNIoGTo0e)
GO
GO
TO
60
00
45
NN=NI.N2
(RVEC(NVEC,NNI,GTo0*)
CONTINUE
IF
NOT
vISIBLE
(ICOUNToLE,I}
GO
TO
65
NSETsNSET+1
NNUMiNSET)=ICOUNT
55
ICOUNT=0
GO
TO
75
POINT
?0
lS
VISIBLE
NI:>LT=NC)LT+]
ICOUNT=ICOIPNT+I
I:M_INE(NPLTIII=RLINE(N,t}
i__INE(NPLTi2IBRLINEiNI2)
75
CONTINUE
IF
(ICOUNT,LEeII
GO
NSET=NSET+|
N_iUM(NSETI'ICOUNT
85
RETLI_N
END
END
36
GO
TO
70
GO
TO
CONTINUE
POINT
60
GO
CONTINUE
IF
45
NpT
(NeEO.I)
(N_EQeNPT)
OF
VIST_T
TO
85
70
TO
?0
Program
Program
views.
The
SPPLT
flow
chart
(overlay
and
(2,2))
SPPLT
is the
the FORTRAN
control
statements
routine
for the
for this
perspective
program
are
and
stereo
as follows:
O,-er..y(2.2)
)
SPPLT
ProRram
cALL\
Wing
\
airfoil
/
.... d.
\
chord
lines
/
/
longltudinal
Fuselage
linis
ines
around
l/
fuselage
\
2/
/
RETURN
Pod
longitudinal
)
)
-oe_ /
1
ALL
PLTIT3_
_ines
around]
pods
/CALL
,/
\
PLTIT3
.... d.
\
/
A
/_
II--{
_T_T_\
Fin
pct.
\ _.o.._e_/
37
OVERLAY
(CBC,2,2)
PROGRAM
SP_>LT
CONTROL
COMMON
ROUTINE
FOR
PERSPECTIVE
AND
ABC(8)wJ_oJl,J2tJ3,JA_JStJ6Q
|NWAFgNWAFORoNFUR_NRADX(A)INFORX(4)ANPtNPOOORt
2NFoN_INOReNCANeNCANO_'
3J2TESTeNWtNCI
AABCOE(8)mHORZ,VERTqTEST[,PHI,THETA,PS|_XFjyF'ZF_OIST_FMAG*
5PLOTSZ,TYPEQKODEe
6XMINoXMAXIYNIN_yMAX_ZM[N,ZMAX'
?XNID*YMID,ZMID*_IGOAISP
DIMENSION
DATA
XINIT(2),YINITf2},Z|NIT(2)
NAN2/24/
XIN|T(I)gPH[
XIN|T(2)JXF
YINIT(I)RTNETA
YINIT(2)zYF
ZINITi|)=PS|
ZINIT(2)=ZF
CALL
STEI_T(XINIT,YINIT,Z[N[T,0_II0131PLOTSZID|STiFMAG!
LOOP
DO
99
FOR
SIGHT
AND
LEFT
F_AMES
IC=t=ISP
_EWINO
I0
NCI=-IC
BEGIN
F=LOTTING
LINES
WING
L0
IF
(JIeEQ*0)
DO
CALL
15
15
00
20
20
CALL
22
IF
GO
TO
22
I=l,2
pI.TIT3INWAFANW_PHI,THETA,PSIiXF*YF,ZF,PLOTSZiOISTIFMAG'NC[)
I=1,2
PLTIT3INW,NWAFoPHI_THETA,PSlwXFoYF,ZF_Pt-0TSZ,DISTtFMAG*NCI)
FUSELAGE
(J2_EQo0)
GO
TO
30
DO
2A
NFU=IeNFU_
NANGIiNRADX(NFU)
NFUSOR=NFORX(NFU)
CALL
RLTIT3(N_NG1,NFUSORi
1PHI_THETA,PSItXF,YF,ZF,PLOTSZ,D1STIFMAG,NCI)
24
CONTINUE
DO
26
NFU=IeNFU_
NANGI=NRADX(NFU)
NFUS0_mNIFORX(NFLI)
CALL
I=q-TIT3{N_U_CCR*NANG|I
IPHI_THETAIPSI,XF,YF_ZF,_LOTSZ,D|STIFMAG'NCll
2_
CONTINUE
NACELLES
30
IF
(J3_EQe0)
NANG|=NAN2+I
DO
34
GO
TO
40
N_I=IINP
CALL
RLTIT3INANGI_NP0DORi
|pHI=THETAePSI_XFIYF*ZF_LOTSZ_DISTeFM&GeNC|)
34
CONTINUE
DO
3_
CALL
NPI_IIN_
RLTIT3(NPOOOR,NANGI,
IPHI,THETA_PSI,XFeYFIZFIPLOTSZ,DIST,FNAGINCI}
36
CONTINUE
40
IF
(JAeEQ_0)
00
42
FINS
GO
TO
50
NFI=IINF
CALL
PL.TIT3(2_NF|NORt
IpHI,THETAIPSIiXF,YFIZFiPLOTSZiOIST_FMAGINCI)
42
CALL
RLT1T3(_,NFINIO_
IPHIITHETA,PSI,XF,YF*ZF,PLOTSZ,DISToFMAG'NCI)
DO
46
NFI=|iNF
CALL
F__TIT3(NFINOR,2,
IPHI,TNETA,PS|,XF=YF_ZF,Pt-OTSZ,DISTIF_AG=NCI)
46
CALL
Pt.TIT3(NFINOR=2,
IPH|_THETAI_SI,XF,YF_ZF,PLOTSZ,DISTtFHAG_NCI}
CANARD
50
38
IF
(JS_EOeO)
DO
5_
NCA=|,NCAN
GO
TO
60
STEREO
54
DO
54
CALL
I=1,2
PLTIT3(2,NC,
lPHIQTHETA_PSI.X_,YF4ZF_PLOTSZqDISTIFMAG,NC|)
_6
CONTINUE
DO
59
DO
5e
NCAmI,NCAN
58
CALL
I-I,2
PLT]T3(NCQ21
[PHI,THETA_PSIIXFtYFtZFQPLOTSZ,D|SToFMAGtNCI)
_9
CONTINUE
60
CONTINUE
99
CONTINUE
RETURN
END
OF
SPDLT
END
39
Subroutine
Subroutine
routine
statements
STERPT
for
PLTIT3
for
this
the
reads
lines
of points
perspective
subroutine
and
are
PLTIT3
from
stereo
intermediate
views.
The
flow
storage
chart
as follows:
PLTIT3
Subroutine
unit
10
Change
y
sign
CALL
yes
SUBROUTINE
PLTIT3(NL,NPTqPH|tTHETAIPSItXFeYF+ZFe
I Pt.OTSZ+OIST+FMAGgNC1)
C
C
READS
C
AND
LINES
OF
POINTS
PERSPECTIVE
PLOTS
DEFINING
VIEWS
A
OR
SURFACE
STEREO
C
DIMENSION
ALINE(33+3I
C
ALINE(NPT+I+I)=pHI
ALINE(NPT+2*I)mxF
ALINE(I_OT+I,2)=THETA
ALINEIN_T+2_2_mYF
ALINEINPT+I_3t=PSI
ALINE(NPT+ZI3I=ZF
DO
500
N=IcNL
READ
{10}((ALINE
IF
(NN'N31'NN=I+NpT3+N3=I'3I
(NoEQeNL)
GO
TO
70
C
C
SKIP
VECTORS
C
READ
C
C
(10)VEC
LOOP
FOR
RIGHT
AND
LEFT
SIDE
OF
C
70
75
80
DO
IF
490
NN2=I,2
(NN2eEQ+I)
DO
75
GO
ALINE(NNI2)=-ALINE(NNI2)
CALL
STERpTIALIN
]3,PI_OTSZ,DIST+FMAGI
490
500
CONTINUE
CONTINUE
RETURN
END
END
4O
TO
80
NN=|INPT
OF
I=q-TIT3
E(I+t)'ALINE(1+2)+ALINE(I'3|'NPT°ItNCIt
AIRCRAFT
FI_OM
FRAMES
TAPE
and
and
the
calls
sub-
FORTRAN
Subroutine
STERPT
By George
C. Salley
Langley
Subroutine
the
STERPT
perspective
through
this
FORTRAN
generates
projection
for
a given
will generate
statements
for this
SUBROUTINE
for
are
driving
automatic
three-dimensional
instructions
subroutine
STE_PT
Center
instructions
of data
subroutine
Research
for
a pair
array.
of stereo
equipment
to plot
Two passes
frames.
The
as follows:
(XoY_Z*NtKANCAIP*PAGqPLA,XP_)
C
C
C
I:_OGRAME_
DIMENSION
VP(3)i
GEORGE
Ce
TRAN{3)_
SALLEY
SANG(3)t
CANG(3),
ADJ(3)I
PT(4It
XLP(_)g
IZLP(2I
DIMENSION
X(1),
Y(1)*
Z(I)
DIMENSION
PLXIA),
PLY(4)4
PLZ(2)
DIMENSION
PIXIA),
PLY(4).
PIZ(2)
DIMENSION
ILP(4),
IP1_(4)
DATA
PI,PI2,PI32,_142/3.1415926,1,5707963*AoT12388g,6*283|952/
DATA
PAR/I,125/
DATA
NPG/O/
DATA
NPT/I/
DATA
FRAME/9o80/
DATA
NO-I
TU_N/]I.OI/
KK©K
II=lP
IF
(NC)
C
*
5
NR=NeK+I
80,5.110
N_=NP+K
PLIM=OAG/2o
SF=X_
VI3t.=PLA
DO
10
I=1.4
PLX(I)=O*
PLY(I)=Oo
PIX(I}-O.
PIY(1)=Oo
IPL(1)-O
I0
ILP(1)=O
DO
15
PLZ(I)=Oe
15
I=I,2
PIZ(1)-Oo
VPX=XfNP)
VRY=Y(NP)
VPZ=Z(N;:')
FPX=XfNR)
FPY=Y(NR)
FPZ=Z[NR)
VX=V_X-FPX
VY=VPY-FPy
41
VZ=VDZ-FDZ
Vp(2)mSQRT((VXtt2)÷(VYlt2))
VP(3)_SQ_T((VZ*t_)+(VD(2)_t2)}
T_AN(I)sVPX-(V_L_(VX/VP(2)))
T_AN(2)sVPY--(VPLt(VY/VP(2)I)
T_AN(31mvPZ-(VPL_(VZ/VP(3)))
VANGzATAN((PA_/VP(3)))
IF
(VX)
55,20_3_
20
IF
(VY|
30,300.25
25
PANG=Pl2
GO
30
TO
75
PANGzPI32
GO
TO
7_
3_
IF
(VY)
40
PANG=Oe
GO
50_40,4_
TO
?_
45
PANG_ATAN((VY/VX)}
50
GO
TO
75
PANG=PI42-ATAN(((ABS(VY))/VX))
GO
TO
55
IF
(VY)
7_
60
PANG_P!
6_
GO
TO
75
PANGs_|--ATAN((VY/(ABS(VX)}))
?0
GO
TO
75
PANG_PI+ATAN((_ABS(VY))/(ABS(VX))))
75
PANGIPI32-PANG
?0_60,6_
UANG=PANG-VANG
_ANGmUANG+(21_VANG)
SANG(I)gSIN(UANG)
SANG{2)ISIN(RANG)
CANG(I}'COS(UANG)
CANG(2)ICOS(RANG)
SANG(3)_VZ/VP(3}
CANG(3)_VP(2)/V_(3)
VP(3)sVPL
XLP(I)sOI
ZL_(1)lOo
XLP(2)tF_A_E
ZLP(2)_Oo
AOJ(1)IPLIM
AOJ(2)_-IM
ADJ(3)mAOJ(_)÷FDA_E
IF
(N)
_IABS(NC)
LIM
80
8_
IF
IF
9O
N_G=2
9_
GO
TO
N_GI
I O0
CONT
DO
(N_G+NC)
(_+NC)
100
105
I'1
,L
CALPLT
(TU_NIO_-3)
CALPLT
(XLP(_)_ZLPfM)_3)
CONTINUE
CALL
GO
II0
11_.8_.I1_
300t9_90
! NUE
CALL
105
300,300t110
TO
115
M=1
L=2
115
120
DO
29_
IF
(NPG}
I-M_L
IF
(NC)
IF
(NPT+NC)
300,120_150
125_1_5_14_
1_0_130_150
130
135
NPTz2
GO
|40
TO
14_
NPT=!
CONTINUE
CALL
I_0
O0
CALPLT
290
(XLP(I}_ZL_(|)_3)
J-I_N
PT(I)_((X(NO)-T_AN(I))_CANG(1))-((Y(NO}
PT(4)_((X(NO)-T_AN(I)I_SANG(1))
-T_AN(2})_SANG(I))
+((¥(NO)-T_AN(2))_CANG(|I)
pT(2)I((_T(4)_CANG(3))-((Z(NO|-T_AN(3)}_SANG(3)})
PT(3)I((_T(4)_SANG(3)}+((Z(NO)_TRAN(3))
IF
(PT(2))
IF
(ILP(1))
160
IF
(II-3)
165
VXlPLX(1)--PT(I)
VY-__Y(I_-PT(2)
155_180_180
300,160_17_
16_,1709300
VZ-_LZ(I_-_T(3)
V_LI_LY(|)/(VY/VP_I))
PT(_)I_LX(I)-((VX/VP(1))_VPL}
PLX(1)mPT(I}
PT(I)=PT(_)
PLY(1)iPT{2)
PT(_)=OQ
42
_CANG(3)I)
PT(4)=PLZII)-((VZ/VPI2))_VPL)
PLZ(I)=PT(3)
PTI3}=PT(4)
]LP(1)'!
GO
TO
205
170
ILPI|)=I
175
Pi.-X(1)-P7(I)
PLYIII=PT(2)
PLZ(|I=PT(3)
GO
TO
180
IF
(ILP(1))
270
185
190
IF
Ilz3
(I[-3)
300_200,185
I90,195,300
IPL(1)=I
PIX(I)=P?[I)
PIY(I)mPT(2)
PlZIII=PTI3)
VX=PT(|)-PLX(I)
VY=PT(2)-PLY(1)
VZ=PT(3I-PLZ(I)
VP(|I=SOI_TIfVX**2)+IVY_2I)
VPI2)=SQRTIIVZI*2I÷(VP(I)_12))
VPL=PT(2)/IVY/Vp(I))
PT[2]:O=
PTII)mPTI])-((VX/VPII)I_VPL)
PT(3)=PT(3)-(IVZ/VP(2))*VPL)
195
ILP(1)=O
200
PLX(II-PT(II
PI-Y(II=PT(2)
PLZ(1)=PT(3)
205
XP'(PT(|)+(PT(2I*(-PTII)I/(PTI2)+VP(3))))tSF
ZP=(PTI3)+(PTI21*(-PT(3))/(PTI2)+VP(3))))*SF
VPL=SQRTItXP_)+IZP_2))
IF
(VPL-I:_IM)
210
IF
([LP(I÷2))
215
IF
(II--3)
394
2|1
235,235.2]0
3_0o215,230
394,2p5,300
IF(Pt-X(I÷H)-XP)_I2,2II,21a
I:)LXI|+2)=XP
PI..YII+2I=ZP
XP=Pt_IM_(XP/VPL)
ZP=IE_LIM_(ZP/VPL)
GO
_12
213
337
?0
R=
(PLY(I÷2)-ZP)/
PLXX=PLX(|+2)
B-
ZP
$
(PLXII÷2)-XP
PLYY=PLY(I+Z)
)
-_tXP
XXP=XP
$
ZZP=ZP
XA=
(-RIB
YAI_tXA÷B
IIIIMMM=O
--SO_T(
--BII_+(RI_)II_L_IMII_)+_LIMI}_})/(_II_
÷I
)
IPLXX=PLXX*|O_*3
[PLYY=PLYY*IO**3
IXXP=XXP*IO**3
IZZP-ZZP*IO**3
PLXX=IPLXX/(IO**3*I,)
PLYY-IPLYY/(IO_*3*|,)
XXP=IXXP/(]O_3*I,)
316
ZZP=IZZP/(IO_3*I,)
CONTINUE
IXA=XAIIOI_3
IYA=YA*]O**3
[F(PLYY301
302
303,30Z,301
TO
,ANO.YY,LEIZZP)
IF(Pl-XX-XXP)
305
IF(XX.GE,XXP,AND.XX,LE,Pl_XX)
GO
T0320
307
IFIXX.GE.mLXX
IFIllI,EQ,O)
STO_
321
304
GO
TO
304
307,220,305
GO
,ANO,XX,LE.XXP)
GO
TO
TO
GO
TO
220
220
321
3333
II1=1
XA=
(-_*B
YA=R_X&+8
GO
220
TO
304
IF(yY.GE,PLyY
GO
TO
3_0
304
320
GO
YY=ZZP
GO
303
ZZP)
IF(YY,GE,ZZP,AND,YY,LE,Pt.yy)
GO
TO
320
TO
+SQ_T[
-B**2
+
_**2*PLI_**2
+PLIM**2)}
2(_*'2
+I)
316
PLXII+2I=XP
PLY(I+2i=ZP
XP=XX
ZP=yY
llI=O
337
ILPII+Z)=I
GO
TO
225
ILP(I+2)=I
230
PLX(I+2)=xP
265
43
pLYII+2IsZP
GO
TO
235
IF
(ILP(I+_)I
24O
IF
(II-3)
270
245
11-3
300,255,240
245,2_0,300
IPL(I+2)'I
PIX(I+2)'XP
PIY(I+2)=ZP
IFIPLX(I+2)tNE,X
p )
GO
TO
400
VPL=SQRT((PLX(I+2}II2)+(PLY(I+2)tt2))
PIXII+2)=XP
pIZ(I+2I_ZP
GO
TO
4OO
R=
(PLY(|+2)-ZP)/
4_5
RLXX=mLX(I+2)
B"
250
ZP
(PLX(I+2)-XP
$
PLY
)
Y'pLY(|+2)
--RIxP
XXP=XP
XA=
(-RIB
$
ZZP=ZP
-SORT(
_B**2+(R/e2).[PLIMee2)+PL]Mt*2))/(RIe2
+1
)
yA=ReXA+B
]I]=MMM=0
IPLXX=PLXXeIOI*4
|pLyy=RLYY*IOei4
IXXP=XXP*]OI#4
|ZZp=ZZPIIOI_4
PLXX=IPL.XX/(IO//4eIo)
pLYyIIPLYY/(|OIe4*|*)
XXP.
IXXP/(|O*_4Ile]
ZZpmIZZP/(lOei4*Io|
416
IXA-XA*IOe*4
IYAtYA_tO_4
XX=IXA/((IOeI4)el.)
yy=lYA/((lO--*4)i[.)
401
IF(RLYYZZP)
403,402,40!
[F(YY,GE,ZZP,AND,YY,LE,PLYY)
GO
A02
TO
TO
404
404
|F(YY,GEoPLYY
GO
TO
,AND,YY,LEoZZP)
IF(I=_XX--XX
405
IF(XXeGE,XXR,AN_eX×,LEJPLXX)
GO
GO
TO
404
420
404
407
TO
YYsZZ_
GO
403
GO
420
p}
407t246_405
GO
TO
246
70420
lF(XXe
GEeI_LXX
420
IF(III,EQ,O)
421
STOP
lllsl
XAI
e_ND,XXeLEeXXP)
GO
TO
GO
TO
246
421
6666
(-R_B
+SORT(
-Bee2
+
R_*2_I='L|
M_e2
÷pt_|M_t2)
)
/(R_e2
yAzRVXA+B
GO
246
TO
416
XPsXX
ZPmYY
III-O
25O
255
ILP(I+2)'O
GO
TO
260
IF
((SQRT(((PLX(I+2))*_2)+((I=_'-Y(I+2)}_))I-_L|M)
260
PLX(]+2)
_X_
PLYII+2)_ZP
265
XPTeXP+ADJ(I+I)
ypT=ZP+ADJ(1)
CALL
270
275
CALPLT
II-2
IF
(IPL(I+2)}
(XPT,YPT.II)
300,2B0,275
IPL(I+2)=O
XP=PIX(I+2)
ZP=PIY(I÷2)
GO
TO
280
IF
285
IPL(I)
255
(IPL(I))
=0
pT(1)=PIX(1)
pT(_}sPIY(1)
PT(3)-PIZ(1)
GO
_90
TO
NO'NO
_00
+KK
XLP(1)=XPT
ZLP(I)'YPT
NO=|
295
ll'lP
300
CONTINUE
RETURN
ENO
44
300,290_285
_60,_60e_0
+l)
PROGRAM
PROGRAM
This
program
is
for
airplane
PROGRAM
This
card
figure
section
formats.
Samples
the
of the
IDENTIFICATION
configuration
SETUP
describes
USE
FOR
input
input
A COMPILE
data
data
plots
and
AND
requirements,
sheets
for
is identified
as
program
D2290.
EXECUTE
limitations,
preparation
by
and
the
the
user
are
punched
shown
in
7.
The
input
data
cards
are
assembled
with
the
program
decks
in the
order
illustrated
below:
EOF
IDATA
S
DE___CK
EOR
___
Overlay
(2,2)
j
0>
f/O v_erlay (0,0"_
_R_
Calcornp
Request
Cards
GO.
N(S)
;jou
card
45
DESCRIPTION
OF INPUT
DATA
CARDS
Configuration
Since
the
airplane
plane
need
data
is that
the half
The
program
then
be described
of input
cards
whether
a component
describe
Card
fied
2 -
01 to 03
this
on the
has
positive
used
Y-side
the
in presenting
of the
XZ-plane
complete
to describe
previously,
and
the amount
1 contains
is by FORTRAN
any
desired
the
input
is presented.
airplane.
used
of input
of the air-
The
number
the configuration,
of detail
"READ"
used
to
statements.
identifying
information
in
7(a).)
integers.-
field.
of each
convention
only half
of components
method
Card
the XZ-plane,
to construct
described
The
(See fig.
Control
on the
number
been
about
The
information
(See
An identification
and a description
Columns
uses
1 - Identification.-
in a 3-column
manner.
computer.
of the airplane
component.
1 to 80.
Card
to be symmetrical
to the
depends
each
columns
has
Card
fig.
of the
integer
2 contains
7(a).)
card
Columns
columns,
is given
24 integers,
73 to 80 may
the
in the
name
used
following
punched
be used
by the
right
in any
source
justi-
desired
program,
table:
FORTRAN
Name
J0
each
De sc ription
If
J0 = 0, no reference
area
If
J0 = 1, reference
area
to be read
If
J0 = 2, reference
area
same
as previously
read
04 to 06
07 to 09
Jl
J2
If
J1 = 0, no wing
data
If
J1 = 1, cambered
If
J1 = -1, uncambered
If
J1 = 2, wing
If
J2 = 0, no fuselage
If
J2 = 1, data
wing
data
for
data
wing
same
to be read
data
to be read
as previously
read
data
arbitrarily
shaped
fuselage
to be read
If
J2 = -1,
data
for
circular
(with
J6 = 0, fuselage
bered;
with
with
will
J2 = 2, fuselage
read
46
will
be camwill
with XY-plane;
J6 = 1, entire
be symmetrical
data
to be read
J6 = -1, fuselage
be symmetrical
If
fuselage
same
configuration
with XY-plane)
as previously
Columns
FORTRAN
Name
10 to 12
J3
Description
If J3 = 0, no pod data
If J3 = I, pod data to be read
If J3 = 2, pod data same as previously read
13 to 15
J4
If J4 = 0, no fin data
If J4 = I, fin data to be read
If J4 = 2, fin data same as previously read
16 to 18
J5
If J5 = 0, no canard data
If J5 = i, canard data to be read
If
19to 21
J6
J5 = 2, canard
Simplification
If
data
same
a cambered
J6 = -1, indicates
NWAFOR
Number
of airfoil
2 < NWAF
Number
of ordinates
airfoil
section;
NFUS
Number
of fuselage
31 to 33
NRADX(1)
Number
of points
of first
lar,
the
y- and
34 to 36
NFORX(1)
Number
NRADX(2)
43 to 45
46 to 48
NRADX(3)
NFORX(2)
NFORX(3)
Same
to describe
to define
the
first
wing
1 s NFUS
indicated
fuselage
< 4
half-section
if fuselage
3 -< NRADX(1)
for
each
<- 30
to represent
computes
of stations
is circunumber
of
-< 30
segment;
< 30
as NRADX(1)
and
NFORX(1),
but for
sec-
NFORX(1),
but for
third
segment
as NRADX(1)
fuselage
used
segments;
z-ordinates;
ond fuselage
Same
used
segment;
program
circular
-< 20
used
fuselage
4 -< NFORX(1)
37 to 39
40 to 42
is a fuselage
3 -< NWAFOR
28 to 30
circular
J2 _ 0
sections
wing;
is symmetto XY-plane,
uncambered
with
or
J2 _ 0
uncambered
if there
fuselage
25 to 27
respect
implies
fuselage
NWAF
if
configuration
with
which
22 to 24
circular
fuselage
J6 = 1, complete
rical
If
read
code:
J6 = 0, indicates
arbitrary
If
as previously
and
segment
47
FORTRAN
Name
Columns
Description
Same
as
NRADX(1)
49 to 51
NRADX(4)
52 to 54
NFORX(4)
55 to 57
NP
Number
of pods
58 to 60
NPODOR
Number
of stations
fourth
fuselage
specified;
61 to 63
NFORX(1),
but
for
segment
described;
at
which
4 -< NPODOR
Number
NF
and
of fins
NP
-< 9
pod
radii
are
to be
< 30
(vertical
tails)
described;
NF_<6
64 to 66
NFINOR
of ordinates
Number
used
airfoil section;
67 to 69
NCAN
NCANOR
< 10
(horizontal
tails)
of ordinates
Number
used
airfoil section;
expect to read
contain a detailed description
card
contains
may
be identified in columns
reference
area, wing
Reference
may
area
card:
Wing
data cards:
at which
be exactly NWAFOR
columns
The
The
first wing
chord
card
The
which
48
is identified as XAF
next wing
data cards
give the origin and chord
will
also; otherwise,
to be symmetrical
remaining
data input cards
field with a decimal
are arranged
in the following
Each
and
order:
pod (or nacelle) data cards,
area
value is punched
data card
in columns
chord
where
For
(or cards)
fin
1 to 7 and
given.
j
Each
denotes
example,
10 and the second
contains the locations in per-
airfoils are to be specified.
if
NWAFOR
as XAF
(there will be NWAF
card
There
will
be identified in
of the last location
= 16, there are
will be required.
The
16 ordifirst
16.
cards)
length of each of the wing
may
the number
nates to be specified for every airfoil, and two data cards
XAF
ordinates
73 to 80.
locations in percent
given on that card.
-<i0; if NCANOR
in a 7-column
cards
of all the wing
XAF]
canard
(See fig. 7(a).)
data cards,
reference
the ordinates
The
each
(or horizontal tail) data cards.
in columns
73 to 80 by the symbol
in percent
The
fuselage
and canard
be identified as REFA
cent chord
73 to 80.
define
of the airplane.
each value punched
data cards,
(vertical tail) data cards,
data input cards.-
of each component
up to 10 values,
described;
sign, the program
lower
airfoil is assumed
3, 4, . . . - remaining
to
3 -<NCANOR
is given a negative
Cards
fin
---2
NCAN
70 to 72
each
3 <- NFINOR
of canards
Number
to define
each contain four numbers
airfoils that is to be specified.
The
cards
representing
successive
the
airfoils.
The
most
inboard
information
airfoil
are
is arranged
given
first,
followed
on each
card
as follows:
Columns
by the
cards
for
Description
1 to 7
x-ordinate
of airfoil
leading
edge
8 to 14
y-ordinate
of airfoil
leading
edge
15 to 21
z-ordinate
of airfoil
leading
edge
22 to 28
airfoil
73 to 80
card
streamwise
chord
identification,
airfoil;
for
length
WAFORGj
example,
where
WAFORG
j
denotes
1 denotes
first
the
particular
(most
inboard)
airfoil
If a cambered
camber
line
to the
z-ordinate
for the
wing
(TZORD)
first
cards.
airfoil.
values),
airfoils
are
new
and the
cards
TZORDj,
to the
where
Next
are
the
remaining
ordinates
in the
the
most
columns
inboard
stations
identified
last
data
If the
fuselage
of the
center
may be identified
of the
last
fuselage
edge,
for
each
segment.
in columns
station
to the
of chord
airfoil
airfoil
the
most
in columns
j
cards.
(there
(there
cards.
The
starting
on a
inboard
airfoil
73 to 80 as
The
will
card
the
order
card
may
be NFORX(1)
the
values
j
the
airfoils
which
than
are
each
begins
with
be identified
in
airfoil.
specifies
XFUS j where
up to
If more
values),
remaining
particular
contains
chord.
in the
Each
(or cards)
symbol
first
as percent
cards.
denotes
card
The
will be NWAFOR
outboard.
x
values
and the
denotes
the
of the
cards
number
fuse-
may
be
of the
card.
sections.
on that
the next
There
73 to 80 by the
given
each
mean
referenced
percents
each
with
be identified
is the
on successive
for
are arranged
and cambered,
of the circular
begins
expressed
cards
There
on that
is circular
which
cards
values,
for
continued
data
airfoil
where
73 to 80 by the
Az
specified
manner,
on successive
first
up to 10
data
airfoil.
airfoil
proceeds
of wing
to be specified
(WAFORD)
and the
The
given
may
ordinate
continued
cards:
order
set
of the
are
same
particular
manner,
and
are
values
card
next
at each
10 values
of the first
of the first
station
card
in the
the
airfoil
are
in columns
fuselage
tions
denotes
airfoil
contains
Each
73 to 80 as WAFORDj,
Fuselage
lage
arranged
same
first
in the
to be specified
described
the
remaining
described
ordinates
are
than
the
wing
specified,
leading
outboard.
j
10 half-thickness
10 ordinates
The
If more
remaining
and proceeds
been
of the airfoil
will be NWAFOR
card,
has
symbol
set of cards
specifies
will be NFORX(1)
ZFUSj
where
values
_
denotes
the
and the
z
locacards
the number
card.
49
If the fuselage is circular, the next card
sectional
areas,
where
lage
and
j
and
denotes
may
the
is of arbitrary
identified
these
are
the
in columns
of Y and
be identified
number
shape,
in columns
of the last
73 to 80 as Yi
corresponding
z-ordinates
Z cards,
and
Zi where
the
station
where
is the
convention
the fuselage
given
for a half-section
i
is the
(NRADX(1)
i
gives
73 to 80 by the
fuselage
the y-ordinates
in columns
73 to 80 as
(or cards)
station
the
card.
given
station
values)
FUSARDj
on that
are
station
from
values)
Following
half-section
Each
ordinates
If the fuse-
(NRADX(1)
number.
for the
number.
of ordering
symbol
cross-
identified
will
bottom
have
a set
to top is
observed.
For
segment
each
fuselage
segment
descriptions
Pod data
origin
of the
should
cards:
first
be given
The
pod.
a new
first
The
set
of cards
in order
data
7
of first
pod
8 to 14
y-ordinate
of origin
of first
pod
15 to 21
z-ordinate
of origin
of first
pod
73 to 80
card
The
pod origin,
next
first
may
be idenfied
x-value
The
next
where
j
For
each
single
zero
an exact
y-ordinate
Fin
information
are
data
cards:
presented
cards
will
of
x.
the
location
The
of the
as follows:
symbol
cards
first
the
may
denotes
j
pod number
the x-ordinates,
be NPODOR
x-value
the
give
where
contains
the last
1 represents
of them)
is the length
XPODj
referenced
are
to be specified.
of the
where
j
to the
pod.
These
denotes
the
cards
pod num-
pod.
pod radii
corresponding
be identified
in columns
to the
pod stations
73 to 80 as
PODRj
pod number.
pod,
new
described
duplicate
of zero
and
These
additional
pods
(or cards)
73 to 80 by the
data
specified.
PODORGj
(there
be zero,
XPOD
the
card
pod radii
pod input
denotes
Only
data
in columns
example,
been
the
must
For
have
identification,
pod input
at which
The
50
card
be provided.
Description
of origin
that
specifies
on the
x-ordinate
ber.
must
values
card
is arranged
Columns
lto
of increasing
pod or nacelle
information
as described
symmetrically
a single
Exactly
XPOD,
but the program
is located
implies
PODORG,
assumes
with
PODR
that
respect
cards
if the
to the
must
be provided.
y-ordinate
is not
XZ-plane;
a
pod.
three
on the first
and
fin
data
data
input
input
cards
card
are
used
to describe
is as follows:
a fin.
The
Columns
Description
ito
7
x-ordinate
of lower
airfoil
leading
edge
8 to
14
y-ordinate
of lower
airfoil
leading
edge
15 to 21
z-ordinate
of lower
airfoil
leading
edge
22 to 28
chord
29 to 35
x-ordinate
of upper
airfoil
leading
edge
36 to 42
y-ordinate
of upper
airfoil
leading
edge
43 to 49
z-ordinate
of upper
airfoil
leading
edge
50 to 56
chord
73 to
card
80
The
second
NFINOR
of them)
identified
third
expressed
on the
positive
may
For
each
Only
zero
an
y-ordinate
be
given
three
manner
as
for
value
lower
ordinates.
follows:
the
fin
are
73 to 80,
is
fin.
but
located
a single
used
If,
information
number
in percent
to be
chord
specified.
The
card
the
fin
airfoil
half-thickness
ordinates
symmetrical,
only
must
be
are
specified.
where
j
denotes
card
the
must
assumes
with
may
be
number.
The
cards
program
fin
(exactly
that
respect
ordinates
identification,
fin
be
the
number.
provided.
if the
to the
y-ordinate
is
XZ-plane;
a
fin.
canard
(or
a canard,
the
a fourth
horizontal
canard
canard
and
airfoil
data
presented
tail)
on
the
the
is
input
first
airfoil
input
not
is
is
symmetrical,
given
in the
symmetrical
card
canard
will
be
data
same
(indicated
required
input
to give
card
by
the
is as
Description
ito7
x-ordinate
of inboard
airfoil
leading
edge
14
y-ordinate
of inboard
airfoil
leading
edge
15 to 21
z-ordinate
of inboard
airfoil
leading
edge
22 to 28
chord
8 to
fin
denotes
FINORD
the
to describe
of NCANOR),
I0 locations
symmetrically
however,
Columns
and
denotes
j
airfoil
plane
j
are
the
fin
XFIN,
If the
are
The
the
described
to
ordinates
where
chord
FINORG,
where
up
contains
in columns
cards:
cards
airfoil
XFINj
card
of the
implies
data
contains
Since
duplicate
of zero
exactly
input
new
fins
exact
Canard
a negative
side
single
fin
chord.
y
fin,
the
airfoil
FINORGj
card
to 80 as
data
in percent
FINORDj,
input
73
airfoil
of upper
identification,
at which
fin
of lower
length
data
in columns
The
not
fin
length
length
of inboard
airfoil
51
Description
Columns
29 to 35
x-ordinate
of outboard
airfoil
leading
edge
36 to 42
y-ordinate
of outboard
airfoil
leading
edge
43 to 49
z-ordinate
of outboard
airfoil
leading
edge
50 to 56
chord
73 to 80
card
The
second
of them)
expressed
third canard
in percent
73 to 80 as CANORDj
symmetrical,
For
where
the canard
chord,
denotes
ordinates
and lower
canard,
new
CANORG,
j where
airfoil.
j
the
canard
number
half-thickness
ordinates,
may
CANORD
number.
cards
airfoil is not
card.
as positive values
and CANORD
The
be identified in columns
If the canard
on a second
XCAN,
are to be specified.
the canard
number.
to be punched
chord
denotes
This card
the canard
are presented
ordinates
denotes
airfoil ordinates
contains the upper
of the canard
j
j
up to I0 locations in percent
73 to 80 as XCAN
data input card
the lower
another
CANORGj
at which
where
both upper
airfoil
data input card contains
be identified in columns
The
expects
of outboard
identification,
canard
(exactly NCANOR
card may
length
The
in percent
must
program
chord.
be provided.
Plot Cards
A
single card
contains all the necessary
options and the necessary
Orthographic
as
follows
Columns
(see
fig.
information
input for each are described
projections.-
For
orthographic
for one plot.
in the succeeding
projections,
the card
The
available
sections.
should
be set up
7Co)):
FORTRAN
Name
Description
1
HORZ
"X",
"Y", or "Z"
3
VERT
"X", "Y", or "Z" for vertical axis
5 to 7
TEST1
Word
"OUT"
for horizontal
axis
for deletion of hidden
lines; other-
wise, leave blank
PHI
Roll angle, degrees
13 to 17
THETA
Pitch angle, degrees
18 to 22
PSI
Yaw
48 to 52
PLOTSZ
PLOTSZ
8 to 12
angle, degrees
determines
is computed
dimension
52
using
the size of plot (scale factor
PLOTSZ
of configuration)
and maximum
Columns
FORTRAN
Name
Description
53 to 55
TYPE
Word
72
KODE
If
KODE
= 0, continue
If
KODE
= 1, after
"ORT"
the
desired
is made
plot
size
care
must
be taken
lines
with
no rotation
the
plotter
space
pen
Plan,
should
is greater
angles
front,
always
side
configuration
view.
Minimum
with
grid
exactly
of heavy
lines
(see
grid
(stacked).fig.
are
from
at the
start
plan,
front,
within
28 inches
so that
side
of the
of plotting.
and
side
views,
the
of plan
view,
inches
13 to 17
THETA
y-origin
on paper
of side
view,
inches
18 to 22
PSI
y-origin
on paper
of front
48 to 52
PLOTSZ
PLOTSZ
determines
is computed
dimension
size
using
view,
inches
of plot
PLOTSZ
(a scale
and
TYPE
Word
72
KODE
If
KODE
= 0, continue
If
KODE
= 1, after
maximum
"VU3"
reading
processing
plot cards
this
new configuration
fig.
Columns
8 to 12
perspective
factor
of configuration)
53 to 55
(see
card
Description
on paper
For
axis
plotting
y-origin
views.-
so
Therefore,
PHI
Perspective
body
If
7(b)):
FORTRAN
Name
8 to 12
field.
paper.
the
read
specified
adjusted
on the plotter
1 inch
For
the
plot,
description
is attempted
values
lines
this
configuration
within
centering
be positioned
views
be set up as follows
Columns
the
given
28 inches,
coincide
intersection
and
the
than
in choosing
should
and on the
to center
plot cards
processing
new
An attempt
reading
views,
the
card
should
be set
plot,
read
description
up as follows
7(b)):
FORTRAN
Name
PHI
Description
x
of view
coordinate
point
(location
of viewer)
in data
system
13 to 17
THETA
y
of view
point
in data
coordinate
system
18 to 22
PSI
z
of view
point
in data
coordinate
system
53
FORTRAN
Name
Columns
Description
x
XF
23 to 27
of focal point (determines direction and focus)
in data coordinate system
28 to 32
YF
y
of focal point in data coordinate system
33 to 37
ZF
z
of focal point in data coordinate system
38 to 42
DIST
Distance from eye to viewing plane, inches
43 to 47
FMAG
Viewing-plane magnification factor; it controls
size of projected image
48 to 52
Diameter of viewing plane, inches; DIST and
PLOTSZ
PLOTSZ
together determine a cone which is
field of vision; PLOTSZ
value is also relative
to type of viewer which is to be used.
53 to 55
TYPE
Word
"PER"
72
KODE
If KODE
= 0, continue reading plot cards
If KODE
= 1, after processing this plot,read
new configuration description.
Stereo
frames
suitable
for viewing
in a stereoscope,
except
the word
that
for viewing
the input
"STE"
is used
in a stereoscope.is identical
in columns
For
to that
for
stereo
the
frames
perspective
suitable
views
53 to 55.
OUTPUT
The
are
card
printed.
written
The
on a scratch
This
computer
used
images
program
systems
for
input,
unit
imately
55000
octal
tion for
one
The
during
54
of all the
necessary
job execution;
data
instructions
for
configuration
driving
description
automatic
plotting
and
plot cards
equipment
-
are
file.
was
written
with the
6 for
MACHINE
SETUP
in FORTRAN
Version
Scope
output,
locations
plot is less
decoupled
input
than
version
therefore,
3 operating
and
units
of core
this
are
of computer
plotting
file
system
has
Control
and library
9, 10, and
storage
1 minute
of the
system
2.0 for
12 for
required
tape.
intermediate
and the
Data
Tape
series
unit
storage.
processing
6000
5 is
Approx-
of informa-
time.
routes
to be copied
plotter
to a tape
output
file
to a scratch
at job completion
file
for off-line plotting on a CalCompdigital incremental plotter. The plotter pen should
always be positioned at least 1 inch in the positive y-direction at the beginningof plotti_g.
If grid paper is used, the starting pen location should be exactly at an x of zero and
a y of linch.
OPERATIONAL DETAILS
SubroutinesCALCOMP,
used
from
the
CalComp
parameters
and linkage
incremental
plotter.
tion
with pen
annotation
either
and
cessive
data
the data
arrays.
CALPLT,
software
package.
labeling.
CALPLT
where
the
a file
causes
Subroutine
Subroutine
LINE
minimum
instructions
be used
to draw
three-view
of an airplane.
model
data.
Magnetic
CalComp
plotter
of a configuration
Langley
program
for automatic
projections
ical
computer
draws
values
and
oblique
These
tape
output
are
from
the basic
CALCOMP
in suitable
causes
form
the
factors
information
through
are
digital
to a new loca-
alphanumeric
line
necessary
for a CalComp
pen to move
draws
scale
subroutines
a set
stored
for
of suc-
at the
end of
REMARKS
is presented
numerical
generates
model.
projections,
useful
this
which
in checking
program
The program
device.
has
the
Program
as well
necessary
options
may
as perspective
the accuracy
of the
has
been
used
to drive
also
been
used
for
online
numera
display
Center,
Aeronautics
Hampton,
and
orthographic
plots
are
a continuous
of an airplane
and a Gerber
plotter.
on a cathode-ray-tube
Research
National
(D2290)
plotting
LINE
the plotter
NOTATE
CONCLUDING
A digital
and
Subroutine
to be set up to output
Subroutine
up or down.
points
NOTATE,
Va.,
and
May
Space
Administration,
13, 1970.
55
TABLE
I.- INPUT
CONFIGURATION
ORTHOGRAPHIC
SST
1
94940
0
8000
1
-1
1
1
DATA
PRESENTATIONS
CONFIGURATION
12
13
1
17
WITH
26
AND
PLOT
SHOWN
CAMBERED
SPECIFICATIONS
IN FIGURES
CIRCULAR
BODY
10
2
1 TO
3
FOR
THE
3
I0
REFA
oi
90,0
06
I0000
I000
5005
00
1800100
1660201
142.351
2000
3000
4000
5000
6000
7000
xAF
xAF
10
13
wAFORG
wAFORG
I
2
wAFCW_G
wAFCH_G
wAFORG
3
4
5
WAFORG
WAFO_G
6
?
470819
360719
wAFORG
WAFORG
8
9
--3,75
_5.35
wAFORGIO
-4030
-4040
150670
70400
wAFORGI!
wAFORGI2
3070
--9010
3090
-9,40
3075
• I0
050
1 o75
2-00
2.10
1,20
-,05
--1,85
--6030
O,
--7070
,35
-8080
,90
1-20
1.35
070
-020
-4055
O.
-5075
0165
-6,80
072
093
l.O
06875
--3.07
-3,9375
00
-I,15
010
-10685
,45
-20173
,60
,72
00
-0345
005
-,6175
,285
-0898W
042
00
004
01935
02765
00915
O-
-o0390
00225
-01820
01085
o160
,249
.2980
03135
03040
o185
O,
01235
,02
00568
,I055
01580
0248
02858
0305
• 2845
00
02635
00085
02385
0049
00695
01175
.144
01545
00
,148
-,003
01398
-o014
-0023
-,043
-o061
-01155
00
-01190
-,0025
-01224
-o010
--,II15
--.1220
--01324
000
0304
10162
000
,678
,265
10028
0.0
•886
,593
,226
,506
000
,338
000
0635
,889
10079
1,204
1,272
00
.204
,274
0596
• 870
10074
1.200
10250
82030
93080
6060
11401999090
1300629
13020
00
-045
-I.AO
157,98
181029
202041
19,80
26040
33,00
-I,85
-1o15
--035
980570
780510
610241
221.63
239018
39060
46020
--I-60
--2,80
255000
52,80
269023
282000
59040
66000
3060
-8020
56
1240870
--6080
TZORD
1
--3025
--4070
TZORD
TZORD
1
2
--1020
--2035
--3045
TZORD
TZORD
2
3
,15
--,56
--1035
--2.205
TZORD
TZORD
3
4
TZORO
4
,695
040
00875
--0295
--,7825
TZORD
TZORD
5
5
05925
0625
o47
• 3125
012
-.I0
TZORD
TZORD
6
6
03950
04395
04330
,3860
,3085
02075
TZORD
7
02780
02380
TZORD
TZORD
7
8
o311
0308
02995
TZORD
TZO4WD
TZORD
8
9
9
,155
oi58
oi595
01585
TZORD
TZORD
10
10
-0077
-0090
--01005
-,llO
TZORD
11
TZORD
11
12
12
2.75
,95
--1o35
--3045
--5030
-4080!
-o017
-00325
-0047
-0062
-0075
-0088
-o100
TZORD
TZORD
0491
,803
1.069
1.280
1.430
10518
10_50
10451
000
0423
wAFORD
wAFORD
I
1
0710
0962
10156
10296
10373
1o396
1.294
wAFORD
2
10263
10136
wAFORD
wAFORD
2
3
10234
10083
wAFORO
WAFORD
3
4
TABLE
I.- INPUT
CONFIGURATION
ORTHOGRAPHIC
• 832
,472
O,
0.0
o144
,175
• 828
0466
000
O,
.066
,09
,852
,48
O,
0,0
,006
,033
,880
,495
0,0
000
,006
,033
,880
,495
0,0
0,0
0006
,033
,880
,495
0,0
0,0
,006
0033
,880
,495
0,0
0,0
,006
,033
,880
,495
000
000
,006
,033
0880
,495
000
O,
20.
40,
130o
140,
150,
260,
2700
7,4
1o25
-I0-2
DATA
PRESENTATIONS
AND
SHOWN
PLOT
SPECIFICATIONS
IN FIGURES
1 TO
FOR
THE
3 - Concluded
WAFOi_D
0559
,522
,495
,495
,495
,886
,886
,880
,880
0880
10111
1,145
10155
10155
10155
10246
10294
1.289
10242
1,341
1,320
10285
1,375
1,320
1,375
10320
1.375
1,320
1,320
1.320
10087
1,125
I ,155
10155
1.155
4
wAFORD
5
wAFORD
5
WAFORD
6
wAFORD
6
wAFORD
7
wAFORD
7
wAFORD
8
wAFORD
8
wAFORD
9
WAFORD
9
,495
,880
10155
1.320
1.375
1,320
10155
,495
,880
10155
1,320
1,375
10320
10155
,495
,880
10155
10320
10375
1,320
10155
500
60,
70,
80,
900
I00,
120,
XFUS
160.
180,
200,
220.
230-
240,
250,
XFUS
20
2800
290,
300,
312,
XFUS
26
7e4
7,4
7,4
704
704
70
6015
5-
2,5
ZFUS
10
O,
-103
--2,5
-5,
-7045
-902
-9075
-I00
-I0,15
ZFuS
20
-I0,2
ZFUS
26
wAFORDIO
wAFORDIO
wAFORDI1
WAFORD11
wAFORDI2
wAFORDI2
tO
-I002
-I0,2
-I002
-I002
O,
18,5
480
65o
83,
960
9505
92,2
9205
960
AFUS
10
98,
100,7
101,
98,
89,5
79,
70,
6805
6805
67,3
AFUS
20
62,
50,5
37,
24,
11,5
O,
AFUS
26
236.8
7050
-11055
000
4,0
800
12,0
16,0
2000
2400
28,0
32,0
2.292
2,277
2,644
_.791
2,9t5
3,012
3,076
3,097
3,100
2al.O
31,75
--3,60
000
4.0
8,0
12,0
16,0
20,0
2400
28,0
32,0
2,292
2,477
2.644
20791
2,915
30012
3,076
30097
3,100
252,0
27,0
--2095
35,3
285,36
47,0
6,31
4,77
0,0
I000
2000
30,0
4000
5000
60.0
70,0
90,0
0,0
0,311
0,564
0,759
0,897
00977
0,999
0,927
0,427
277,9
90
-6,77
3503
31103
O,
2,49
4,77
I0.0
2000
3000
40,0
50,0
60,0
70,0
90,0
0,0
0.311
0,564
00759
0,897
0.977
00999
00927
00427
312,
O,
-10,2
O,
27709
O,
-6,77
35,3
I0,0
20,0
30,0
40,0
50,0
60,0
70,0
90.0
I0000
XFIN
3
0,311
0,564
00759
0,897
00977
0,999
0,927
0,427
000
FINORD
3
000
000
0,0
X
Y
X
Z
Y
Z
x
Z
Y
Z
X
Z
ORT
O,
18,
ORT
O,
42.
ORT
I00
-30.
18o
O_T
OUT-45,
10.
-20,
18o
O_T
OUT-60,
-200
-40,
18o
OI_T
O,
O,
O,
00
O,
O,
-45,
1
3405
XPOD
1
3,100
PODR
1
PODORG
2
3405
XPOD
2
3,I00
PODR
2
FINORG
2
I0000
XFIN
2
0,0
FINORD
2
FINORG
3
I0000
XFIN
3
0,0
FINORD
3
FINORG3A
18,
O,
PODO_G
57
TABLE
II.-
INPUT
DATA
SPECIFICATIONS
SIMI:'I_IFIEO
1 -I
-1
3207,0
0,0
10,0
42,8
5,2
FOR
FOR
AIRCRAFT
1
1
1
A
SIMPLIFIED
THE
CONFIGURATION
-1
4
10
1
20,0
0,0
30,0
89,2
THREE-VIEW
13
40,0
AIRPLANE
CONFIGURATION
PRESENTATION
OF
18
2
50,0
60o0
70,0
5
80,0
AND
FIGURE
3
lO
I00,0
PLOT
4
1
10
_EFA
xAF
wAFORG
I0
1
56,2
8,0
0,0
66.0
wAFORG
2
141,5
156,4
31.7
36,0
0.0
0.0
19,7
0,0
wAFORG
wAFOIWG
3
4
0,0
0,0
1,66
1,62
2,19
2,14
2,45
2.39
0,0
1,17
1,54
0,0
0,0
1,17
I0.0
1,54
20.0
100.0
0.0
110.0
18.1
75,2
141,0
0,0
1,890
94,0
9,4
--6,3
0,0
1.890
97,0
4,0
a.050
9,4
0,0
2,49
2,43
2,33
2,27
2,00
I ,96
1,56
1,53
1,05
1,02
0,0
0,0
wAFORD
WAFOI_O
1
2
1,73
1,75
1,64
1,42
1,10
0,96
0,0
wAFORD
3
1,73
30.0
1,75
aO.O
1,64
50.0
1,42
60,0
1,10
70.0
0,96
80.0
OeO
90.0
wAFORO
XFUS
4
10
121.0
44.0
131.0
59.3
141.0
70.5
151.0
75.2
161.0
75.2
170.0
75.2
75.a
XFUS
FuSARDIO
18
75.2
75,2
74,0
64,4
50-2
28,4
10,7
OoO
4,6
4,0
2,050
8,0
8eO
2.205
10,75
2,325
2904
2,325
8,0
2.205
-3-7
10,75
2.325
24,0
29,4
_.325
94,0
9,4
-I,7
24,0
I0,0
20,0
30,0
40*0
50,0
60,0
70,0
80,0
0,0
144o0
0,0
0,558
4o6
10,0
0,992
3,7
20,0
1,302
24o0
30.0
1,488
141,0
40,0
1,550
4,6
50.0
1,488
5,7
60,0
1,302
24,0
70,0
0,992
80,0
I00,0
0.0
134,2
0.558
0,0
0,992
3,2
1,302
28,2
1,488
160,8
1,550
0,0
1,488
23,6
1,302
6,6
0,992
0,0
10,0
20,0
30,0
40,0
50,0
60,0
70,0
0,0
147,6
0.558
2,4
0.992
0,0
1-302
19,6
1.488
167,8
1.550
14,3
1.488
0,0
1,302
5,I
OeO
I0,0
aO,O
90,0
40,0
50,0
SO,O
70,0
0,0
0,54
9,
0,96
1.26
1,44
1,50
1.44
1.26
58
3,
6,
17,
FuSARD18
VU3
POOOC_G
xmOD
PODR
1
1
1
PODO_G
2
xPOD
mODR
FINO4WG
2
a
I
I00,0
xFIN
I
0,0
FINORD
FINORG
XFIN
I
2
2
0,0
FINORD
FINORG
2
3
80,0
100,0
xFIN
3
0,992
0,0
FINORO
CANOI_G
3
80,0
10000
XCAN
0,96
0,0
CANORD
TABLE
IH.- INPUT
CONFIGURATION
FIGHTER-TYPE
DATA
CONFIGURATION
VIEWS
FIGHTER
1
I
1
1
!
1
TYPE
0
7
OF
AND
SHOWN
FIGURE
CONFIGURATION
13
4
21
13
24
30
SPECIFICATIONS
IN THE
FOR
A
PERSPECTIVE
5
WITH
10
PLOT
21
ARBITRARY
25
2
BODY
2
9
6
lO
2
10
REFA
131,184
O,
cO1
5,
80,
90,
I00,
lle8
I ,4
2,00
13,6
wORG
1
16,25
3,0
1,83
11,625
WORG
2
10,
20,
30,
40e
50,
60,
70,
xAF
10
XAF
t3
18,975
4cO
I.763
10,460
wORG
3
22,150
5,0
1,719
8,856
wORG
4
25,332
6,0
1,709
7,250
WORG
5
26,688
6,43
Ie695
6,550
WORG
6
WORG
7
32e140
8,120
1,670
O,
Oe
O,
,01
,02
-,05
,05
,19
O,
O,
,02
,02
,04
O,
O,
• 022
,020
,018
O,
O-
eOO2
,070
,073
,074
Oe
Oe
--cO04
• 087
,093
e099
O,
O,
,003
o104
o114
el20
O,
Oe
Oe
O,
O,
O,
O,
O,
I,_9
2,21
1,18
O,
Oe
O,
1,125
-,17
-,20
-,14
,02
,01
-,02
-,01
,01
O,
-,001
-cO03
cO03
,010
,013
,017
,019
,660
Oe
Ie363
1,267
,660
Oe
O.
O.
leaa5
I,248
e638
Oe
Oe
O,
1,297
1,193
.600
O,
Oe
Oe
1e306
.580
O,
1e306
Ie153
0580
Oe
10,292
cO05
,012
,024
eOaI
,029
O,
,040
e034
,Oa3
Oe
-Oa5
e047
e057
O,
,051
e056
,068
Oe
,057
,064
e078
Oe
,063
e076
,090
Oe
1,71
2,63
3,22
3,65
3e90
3e68
3,08
le800
2,810
3,380
3,300
2,405
2,190
l ,821
1,855
2.199
2,314
2,423
2,405
2,190
Ie821
Ie604
1,682
|e703
2,078
2,138
2,153
2,366
2,393
2e390
2e484
2,476
2e489
2,422
2,407
2,397
2,197
2,159
2et38
Ie813
Ie738
I,718
O,
Oe
1,542
,012
TZORD
1
TZORD
I
TZORD
2
TZORD
2
TZORD
3
TZORD
3
TZORD
4
TZORD
4
TZORD
5
TZORD
5
TZORD
6
TZORD
6
TZORD
7
TZORD
Oe
9,458
-,09
cO3
Oe
Ie267
0.000
-,02
,02
-,002
Oe
1,153
,02
2,375
|e703
3,208
2,153
4e042
2,390
4e875
2e489
50708
2e397
6,542
2e138
7e375
1e718
8,6a5
11,t25
WORD
7
1
wORD
I
wORD
2
WORD
2
WORD
3
WORD
3
wORD
4
WORD
4
WORD
5
wORD
5
WORD
6
wORD
6
WORD
7
WORD
7
XFUS
I0
xFUS
13
0,000
0,000
0,000
OeO00
0,000
O,OOO
0,000
O,OOO
0,000
O,OOO
Y
1
0.000
0,000
0,000
OeO00
0,000
0,000
OeOOO
0,000
0,000
OeO00
Y
I
59
TABLE
IH.-
INPUT
CONFIGURATION
FIGHTER-TYPE
CONFIGURATION
VIEWS
00000
0,000
00000
0,000
0,000
0533
00000
-0482
• 001
0435
0,000
o721
0,000
-0675
,003
.602
00000
0879
0,000
--*755
e028
0756
0,000
10002
00000
-0825
• 035
,904
0,000
1,091
0,000
--,845
o103
10063
00000
10174
00000
--0831
,126
10217
00000
10238
00000
-,796
60
00000
0,000
0oQO0
0,000
DATA
00000
0,000
OF
00000
00000
AND
SHOWN
PLOT
IN THE
FIGURE
5 - Continued
0,000
0,000
00000
0,000
e064
,516
,142
0486
o216
,442
0290
,389
e366
,329
,428
,267
--e480
0088
-,475
e155
-,455
,224
-0425
,285
--,376
,333
--o321
,370
o102
o701
0207
0659
0306
0592
0405
0525
*505
,450
,585
e361
-0665
o116
-,642
,213
-o612
0314
-,570
0390
-e511
e455
o123
0854
024a
0809
,372
,740
0494
0656
--,750
o165
--e733
0285
--,700
0406
e138
,985
0268
.940
-,818
0187
--0436
0509
SPECIFICATIONS
00000
0,000
,479
,195
FOR
PERSPECTIVE
00000
00000
00000
0.000
,516
,130
o531
0068
--0252
0400
--o175
0419
--,093
0428
0654
.275
0700
,180
0718
0089
-0339
,546
-,227
,577
-,lib
e595
,851
0225
0877
o111
,611
0561
,713
0455
,799
0338
--e652
0503
--e581
0584
--0494
0646
--0378
e696
0409
,868
0539
o779
0675
0673
.790
0537
-0801
0338
--,764
,478
-,715
0594
-0636
0694
-,545
0779
--0425
0837
--,279
0874
--e128
0896
o153
10074
0299
],025
0454
0949
0599
0853
0747
0733
0876
0592
0980
0455
1,052
2308
10089
o153
--0839
0267
--0822
0429
--0787
o581
--0733
,709
--0645
,824
--0542
o921
--0412
0981
--0250
1-026
--0075
10052
0156
10155
,310
10107
,466
1,032
,623
0933
0775
0805
10035
0506
10118
0333
10164
0163
--0826
0300
-.809
,482
--,779
0648
--,729
0792
--1654
0944
--1548
10044
--1410
1o12_
--1244
10177
--0067
10206
e158
1,230
e312
10194
0472
1,124
,636
1,015
0790
0886
e937
e729
10070
0563
10159
e377
1-215
,188
--0794
-0782
-0755
--0707
-0636
-0385
--,225
--,041
o912
e666
-0532
,890
e404
A
--o252
,728
--oi09
o748
0957
,272
.993
e136
Y
Z
Z
Z
Y
Y
7
Z
Z
Z
Y
Y
Y
Z
Z
Z
Y
Y
Y
Z
Z
Z
Y
Y
Y
Z
Z
Z
Y
Y
Y
Z
Z
Z
Y
Y
Y
Z
Z
Z
Y
Y
Y
Z
1
1
1
1
2
2
2
2
2
2
3
3
3
3
3
3
4
4
4
4
4
4
5
5
5
5
5
5
6
6
6
6
6
6
7
7
7
7
7
7
8
8
8
8
TABLE
III.-
INPUT
CONFIGURATION
FIGHTER-TYPE
CONFIGURATION
VIEWS
• 162
.352
.542
DATA
.719
OF
.899
FIGURE
1.044
AND
SHOWN
5 -
1 ,165
PLOT
SPECIFICATIONS
IN THE
FOR
PERSPECTIVE
Continued
1.258
1.324
1.359
Z
8
Z
8
Y
9
Y
9
Y
9
Z
9
Z
9
1,374
0,000
1,274
,166
1,266
,342
1.225
,522
1,147
.68a
.867
1.040
.908
1.008
.750
1-126
.584
1,21V
1.261
.400
*203
0.000
--,760
• 277
--.760
--,753
,464
,664
-.725
,860
-.672
-.581
--.463
--,310
--.I
1,024
1.174
1,301
1.394
1,467
13
,079
1,514
Z
9
Y
I0
Y
I0
Y
10
Z
10
Z
I0
Z
10
1,531
00000
1,319
.188
1.327
.375
1.313
.562
10248
.753
.935
1,149
,992
1,090
,8?3
1.205
.684
1.283
.500
1.312
.247
0.000
-,714
• 401
-,714
.606
-,712
.817
-,687
-.629
-.526
-.381
-.213
-,016
1.040
1.224
1,392
1,572
1.753
1.873
.196
1.968
1.995
0.000
1,358
.252
1.356
,468
1,321
.720
1,252
.935
I,I02
1.127
1.029
1.241
1.322
1.344
1,351
Y
II
.898
,713
.495
.244
Y
!1
Y
II
Z
II
Z
II
Z
11
Y
12
Y
12
Y
12
0,000
-0719
• 703
-.719
,921
-.704
-.650
-.548
-0406
-o201
1.138
1.327
1,514
1.728
1,907
0049
2.082
.265
2,216
0483
2.297
2.323
0.000
1.380
.235
1.386
.466
1.377
.707
1.333
.933
1.136
1-243
1.156
1.263
,998
1.336
.807
1.365
.554
1.372
.277
0,000
-,701
• 738
-.700
.951
--,697
--.652
-.553
-.386
--.182
.044
.290
.521
1.185
1,414
1,635
1,886
2.135
2.327
2.488
2.588
1,149
1.277
1.348
1,370
1.380
1.242
1.076
2.617
0,000
I e390
,232
1.397
.467
1,405
.715
1.390
0945
1.337
,864
.606
.308
00000
--.688
.757
-.688
,972
-.683
--.645
-,553
--.392
-0181
I.208
1.464
1,710
1.999
2.259
.063
2,469
*309
2.634
.537
2.739
2.776
11,125
0,000
1,397
,875
-,691
• 767
2,490
0,000
1.408
.913
--.688
,769
11,958
,238
1,405
.611
-,690
.988
2,657
0229
10419
.650
-.688
.990
12.792
.472
1,410
,312
13.625
.721
1,398
14.458
.958
1.344
l,648
-15_
1,225
1.47@
1,723
2,759
2.794
1.430
*333
16.125
16,958
17.792
18.333
.722
10436
.965
10410
I
Z
12
Z
12
Z
12
Y
13
Y
13
Y
13
Z
13
Z
13
Z
13
XFUS
10
1,161
1.287
1.356
1-379
1,387
Y
1.253
1 o253
1.253
1.253
1.087
Y
1
Y
I
Z
1
Z
1
0.000
-.687
.476
15.292
A
-.389
-.178
2.009
2,009
*070
2-009
,319
2.009
.548
2.281
I,166
1.294
1.367
I*384
lo396
10379
1.407
10407
10344
1.146
0.000
--.683
--.650
--.559
--.399
-.183
10227
1.493
10791
1,938
10958
.073
2.070
.321
20108
.543
2.334
I
Z
1
Y
2
Y
2
Y
2
Z
2
Z
2
61
TABLE
III.-
INPUT
CONFIGURATION
FIGHTER-TYPE
DATA
CONFIGURATION
VIEWS
2.563
00000
20725
,231
10405
10419
1.431
|e444
*936
-0676
0647
-.676
0331
-0673
0.000
-0653
.762
20599
0984
20768
10226
20872
10506
2,904
00000
20841
0471
20873
0727
OF
0972
10448
AND
SHOWN
FIGURE
5
-
IN
SPECIFICATIONS
THE
FOR
Continued
10300
1,366
1*381
10394
Z
Y
10444
|0402
1.402
10402
1o!75
Y
-o404
-*190
10813
1,845
10845
A
PERSPECTIVE
10175
-.566
*064
2*216
*316
20216
.547
2.3e8
V
Z
Z
2
2
3
3
3
3
3
3
4
0234
0475
.730
1,180
10306
10370
10387
10400
Y
10413
,947
10426
,658
10439
0326
10456
00000
1,471
10407
1,407
10407
10407
10208
Y
Y
-0666
0760
-,666
0993
-,666
10233
-0650
1,513
-0584
10764
-0416
1,759
-.186
10759
0061
2*323
.310
20323
0539
20433
Z
Z
20620
0.000
2,771
,225
2,867
,459
20901
0721
0981
10201
10319
1.376
10392
10407
Z
Y
10424
0953
1,442
0664
10459
0334
1.479
00000
10489
1.409
10409
1.409
10409
1.244
-*657
-,657
-0656
-0650
-0586
-,431
-0194
,767
2.621
00000
0993
2,752
o214
10239
2*837
0447
10519
20867
o712
10687
10677
10677
2*389
2*389
20464
10201
1.324
1.384
1.403
1.419
Z
Z
Y
10437
1.453
1,470
1.490
I*498
10409
10409
1.409
1.409
10249
Y
6
0942
-0647
0647
-0647
0333
-0647
00000
-0643
-.601
-,447
-.215
V
Z
6
6
10615
10603
10603
2*473
Z
Z
V
6
6
7
0757
0976
0058
0049
0298
0530
10230
1,519
2,786
0459
2,809
.719
.991
10224
1,341
10390
10410
10428
1.446
0917
-0643
10464
0624
-0643
10484
0313
-,643
10504
0.000
-,639
10504
10403
10403
10403
10403
1-236
-.604
--e447
-.214
10004
1.250
10546
10546
2,675
20737
20755
20575
10532
0055
20431
20418
0541
2,715
.223
1.532
20418
0313
20600
0.000
0772
.984
,978
PLOT
0307
2*431
0536
20475
Y
V
Z
Y
Y
Z
Z
Z
00000
10463
,224
1,483
e459
1,503
.716
10520
0896
-,639
0607
-,639
,297
-0639
00000
-,635
--604
-0477
-0231
10010
10256
1.475
10456
10456
1.456
2*423
2.4Z3
20456
Z
2*539
00000
20612
0221
20667
0456
2*679
,715
10274
1.382
10429
1.452
10472
Z
Y
10488
10507
10529
10539
1.409
10409
1,409
10409
10409
10217
Y
.878
-*624
0585
-0624
0296
-4624
00000
-.622
-.602
--*483
--.244
10384
1.384
1.384
0767
0778
20495
0-000
62
1,014
1,269
10403
20553
2.601
20616
0223
0454
*702
0993
10401
0999
10233
10401
10359
10401
10402
10401
0048
*037
2.411
10424
10401
0303
e296
20411
1*443
1.231
0539
*538
2*437
Y
Y
V
Z
Y
Z
Z
Z
*989
10268
10393
1.436
1.456
10478
Y
4
4
4
4
4
5
5
5
5
5
5
6
7
7
7
7
7
8
8
8
8
8
8
9
9
9
9
9
9
10
TABLE
HI.-
INPUT
CONFIGURATION
FIGHTER-TYPE
CONFIGURATION
VIEWS
10497
0864
-0618
• 761
20460
10516
o581
-0618
e984
2,504
10540
0284
DATA
10547
1,401
OF
FIGURE
10401
AND
SHOWN
5 -
10401
PLOT
IN
SPECIFICATIONS
THE
FOR
PERSPECTIVE
Continued
10401
1,401
10209
00000
-o618
-0616
-0600
-0505
-0259
1,259
10361
1,340
10340
10339
20551
20564
A
i028
2,393
0281
2,393
0528
2,416
Y
10
Y
10
Z
10
Z
10
Z
10
180333
180625
19,075
19,458
20,194
21,125
210958
220792
230625
24,458
XFUS
10
250292
260125
260958
270519
280000
28,625
29,458
30,292
310125
31,958
XFUS
20
XFUS
21
320563
00000
,706
0992
10272
1,399
10435
10686
1,939
20186
20414
Y
1
3,011
3,011
3,011
Y
1
OeO00
Y
I
2,626
2,780
2,906
2,989
3-027
30011
3,011
20766
2o357
2004]
10726
10408
1,408
1,215
0874
0283
-0623
-,619
-,603
-0506
--o257
-0018
-,018
0016
0098
10071
10336
10583
10583
10583
10438
1,389
10342
20401
20423
20471
I,007
1,278
10403
10433
10692
10957
30054
0203
10546
00000
0593
10484
,714
0820
Z
1
1,583
Z
1
2,566
20580
Z
2.223
2.458
Y
2
30054
3,054
Y
2
0,000
Y
2
Z
2
10583
.225
I
2,667
2,830
20957
3,044
3,071
30054
30054
2.766
20354
2,043
1,727
10411
10411
10198
-0621
-0618
--0608
-0500
-,253
-0108
-0107
-o063
0788
10053
10310
1,569
10569
1,569
10569
10569
Z
2
10373
10324
20396
20417
20457
2,542
2,560
Z
2
10274
10420
10446
1,708
1,978
20242
2,470
V
3
30076
3,076
30076
Y
3
00000
Y
3
Z
3
3
• 336
10528
00000
o551
10467
o710
10422
0996
0869
o281
0025
o156
2,675
2,840
2,969
30048
30083
30076
30076
20768
20359
2,043
10724
10411
1,411
10190
-0620
-o616
-o610
-0519
-0278
-0160
-0152
-,II0
-0019
10000
1,263
10525
10525
1,525
10525
10525
Z
1,347
10306
20372
20394
20429
20502
20522
Z
3
1,294
10435
1,451
10716
10980
20235
20468
Y
4
3,081
30081
30081
Y
4
0,000
Y
4
Z
4
0292
1,487
0-000
0497
10434
0706
0740
10391
0993
20673
20844
20971
30059
30092
30081
30081
20769
20364
2,047
1,734
1,413
1,413
10166
--0609
--,607
--,595
-0514
--,276
--o188
0268
,479
0711
10234
10352
10464
0,000
1,420
0705
1,387
0990
0850
0295
o112
0838
0303
--0184
--,144
--0051
10498
10498
10498
10498
10498
Z
4
10318
20355
2,378
20410
2,475
20489
Z
4
1,292
10452
10464
1,728
1,999
2-246
20470
Y
5
30052
3,052
Y
5
00000
Y
5
Z
5
0967
,087
20673
20830
2,952
30025
3,058
3,052
30052
3-052
2,768
20359
2,045
10730
10411
10411
10138
o812
-0604
-0600
-,586
-0501
-0275
-,249
-0245
-0197
-0098
,436
,684
0929
1,191
10443
10443
10443
10443
10443
Z
5
1,382
10365
1,346
2,328
20344
20372
2,422
20435
Z
5
1,264
10475
10475
10754
2,027
20292
2.503
V
6
30027
30027
3,027
Y
6
OeO00
Y
6
Z
6
• 228
10424
00000
1,40!
0699
0984
0310
0047
20694
20827
20929
2,992
3,016
3,027
30027
20766
20353
20040
10725
1,407
10407
101t3
--0594
--0592
--e578
--,487
--0325
--e325
--,317
--0254
--,133
1,216
10457
1,457
10457
1,457
10457
Z
6
20318
20368
20381
Z
6
0243
10455
0461
1$448
,704
I0440
,962
10435
1,431
20295
20305
0781
o313
0022
63
TABLE
Ill.-
INPUT
CONFIGURATION
FIGHTER-TYPE
CONFIGURATION
VIEWS
OF
PLOT
SHOWN
FIGURE
1,414
2,973
5
-
IN
SPECIFICATIONS
THE
FOR
A
PERSPECTIVE
Continued
1,718
2,973
2,492
2,973
Y
Y
7
7
0-000
Y
7
,014
1,509
Z
Z
7
7
2,333
2,348
Z
7
2,340
2,896
2,547
2,896
Y
8
8
,?60
-,319
o314
-,129
0,000
0110
Y
Z
0,000
2,671
,686
2,798
,964
2,890
1,219
2,942
1,414
2,966
2,768
2,356
2,042
1,729
1,411
1,411
1,098
-,584
• 248
-,580
,488
-,570
,746
-,500
1,002
-,408
1,259
-,408
1,509
-,381
1,509
-,315
1,509
-,175
1,509
1 ,514
1,519
_,525
1,528
1,533
2,271
2,270
2,283
0,000
2,704
,685
2,798
,966
2,852
1,225
2,875
1,440
2,890
1,440
2,896
1,762
2,896
2,071
2,896
2,770
-,586
2,356
--,583
2,042
-,562
1,725
-,499
1,412
--,461
1,412
--,461
10090
-0429
2,000
2,973
,777
2,270
2-973
,318
8
,647
,917
1,179
1,405
1,632
1,632
1,632
1-632
1,632
Z
8
8
1,634
0,000
1,647
,680
1,656
,957
1,664
1,192
1,673
1,410
2,25?
1,410
2,250
1,748
2,245
2,068
2*295
2,325
2,309
2*524
Z
Y
8
9
2,6S3
2,768
2,743
2,356
2,797
2,041
2,814
1,726
2,824
1,408
2,830
I,408
2,830
1,069
2,830
,742
2,830
,3|6
2,830
0,000
Y
Y
9
-,569
,426
-0565
,695
-,557
,958
-,526
1,213
-0511
1,440
-,511
1,676
-0478
1,676
-,343
1,676
-,124
1,676
,146
1,676
Z
Z
9
9
9
1,680
0,000
1,723
,684
1,757
2972
1,789
Ie193
1,820
Ie414
2,239
I,414
2.234
Ie779
2.22|
2,094
2-277
2,339
2.298
2,506
Z
Y
I0
2,618
2,764
2,695
2,356
2,743
2,044
2,767
1,729
2.785
1,408
2,787
1,408
2,787
1,057
2,787
-728
2,787
,318
2,787
0,000
Y
Y
-,559
•518
-,557
,785
--,560
1,036
-,566
1.283
--,567
1,505
-,567
1,722
-,522
1,722
-,3Sa
1,722
-,091
1,722
,208
1,722
Z
Z
1,725
0,000
1,808
,585
1,870
,827
1,929
1,109
Ii990
I,414
2.226
1,414
2,217
1,772
2,199
2,094
2,257
2,329
2,283
2,482
Z
Y
2,577
2,639
2,688
2,720
2,746
2,756
2,756
2,756
2,756
2,756
Y
2,756
-,533
2,357
-,531
a,043
--,530
1,731
-,575
1,411
-,593
1,411
--,593
1,036
-,545
-716
-,359
,320
-0071
0,000
*257
Y
Z
,824
1,920
1,077
2,007
1,305
2,094
1,515
2,179
1,728
2,214
1,805
2,199
1,805
2,181
1-805
2,236
1,805
2,255
Z
Z
0,000
2,539
,602
a,594
,849
2,636
1,152
2,670
I,411
2,703
1,41!
2,718
1,769
2,719
2,082
2,719
2-313
2,719
2,450
2.719
Y
Y
2,722
-,508
2,357
--,508
2,041
-0508
1.725
--,571
1,409
-,600
1.409
-,600
l,OIS
-,551
-699
-,361
,313
--,051
0,000
,281
Y
Z
12
12
12
12
• 379
• 561
1,805
9
I0
I0
I0
I0
I0
11
II
II
11
II
11
12
la
1,092
1,307
1-518
1,720
1,794
1,794
1,794
1,794
Z
1,892
1,998
2,089
2,154
2,189
2,189
2,170
2,147
2,207
2*227
Z
0,000
2,523
2,704
,626
2,576
2,359
,885
2,612
2,045
1,146
2,641
1,732
1,411
2,669
1,420
1,411
a,688
1,420
1,769
2,690
,996
2,076
2.690
,686
2,308
2,690
,319
2*436
2*690
0,000
Y
Y
Y
13
13
-,469
-,469
-,467
-,539
-,574
-,572
-,516
-,311
Z
,618
2,029
,877
2,09|
1,117
2,I02
1,332
2,147
1,531
2,179
1,729
2,179
1,793
2,147
1,793
2,127
1,793
2,187
1,793
2,215
Z
Z
13
13
0,000
2,513
,619
2,565
,882
2.599
1,138
2,629
1,409
2,650
1,409
2,672
1,756
2.672
2-058
2,672
2,281
2e672
2,422
2,672
Y
Y
• 596
64
AND
DATA
,856
,002
,313
13
13
14
14
TABLE
III.-
INPUT
CONFIGURATION
FIGHTER-TYPE
DATA
CONFIGURATION
VIEWS
OF
AND
SHOWN
FIGURE
5
-
IN
SPECIFICATIONS
THE
2,365
2.045
1,729
1,414
1.414
-,439
--,439
--.439
--,518
--,545
--,545
--,485
---282
1,116
1,330
1.522
1,719
1,793
1,793
2,088
2,128
2.156
2.166
2,134
2,100
1,148
1,411
1,411
1.751
2,705
2,010
0,000
,883
2.072
,629
,888
FOR
A
PERSPECTIVE
Continued
2.573
• 634
,998
PLOT
,678
.318
Y
14
Z
14
1,793
Z
14
2,170
2.197
Z
14
2.054
2,275
2.a13
Y
15
2,864
2.864
_.673
Y
15
0,000
Y
15
Z
15
,014
1,793
0,000
,324
2,511
2,560
2,588
2.613
2,635
2,664
2,673
2.362
2.042
1,728
1,406
1,406
-,426
-,426
-,424
-,498
-,527
-,527
-,467
-,269
I,I17
1,326
1,519
1,718
1,766
1,786
1,797
1,827
Z
15
2.074
2,124
2,162
2-162
2.129
2,094
2,164
2.186
Z
15
1,161
1,417
1,417
1,746
2.043
2,259
2,401
Y
16
2,613
2,673
2,862
2,862
2,641
Y
16
• 615
2,015
0.000
,878
2,064
,557
,928
,317
,016
2,538
2,563
2,641
2,359
2,048
1,727
1,389
1,389
-,374
-.371
-,371
-,445
-,472
-.472
-.406
--214
1,136
1,345
1,528
1,616
1.697
1,723
1.858
2.104
2.154
2,154
2,116
2,079
2,144
1.412
I,738
20021
2,860
2,860
2,009
0.000
,896
2,040
o616
2,051
e876
lel51
I,412
2,758
,679
2.491
• 644
2,580
,997
,98|
,667
,3|4
.301
Y
16
Z
16
Z
16
2,166
Z
16
20237
2.382
V
17
2,860
2,611
Y
17
OlO00
Y
17
Z
17
.063
0,000
,3S3
1,892
2,479
2.528
2,546
2.571
2,643
2.742
2,611
2,359
2.044
1,728
1,412
1,412
-,299
-,299
-.302
-.377
-,403
-,403
-,331
-,140
1.147
1,340
1.455
1.551
1,610
1,610
1,906
1,953
Z
17
2.094
2,079
2.124
2.|22
Z
17
• 663
1,986
,914
2,016
2.030
2,089
2,136
2,136
,993
,687
-315
.I08
-380
10127
10414
1.414
1.725
2.001
20217
20359
Y
18
2,459
2,510
2.530
2,597
2,661
2,749
2.862
2,862
2.862
2,676
Y
18
2,676
2,362
2.044
1,699
1,412
1.412
0.000
Y
18
-,213
-,213
-.217
-,296
-,319
-.319
-,248
-.080
Z
18
1.153
1,344
|e440
1,519
1.556
1.556
1,939
1,964
Z
18
2.000
2.078
2,121
2,121
2,078
2.075
2.093
2.093
Z
18
1,103
1.418
1,418
1,710
1,968
2.183
2.336
Y
19
2,864
2,864
2,682
Y
19
0.000
Y
19
Z
19
19
0-000
• 682
1.964
0,000
,587
,921
1,990
,557
.836
,789
,990
,693
,316
.163
,417
2,440
2,490
2,527
2,602
2,706
2,864
2.864
2,682
2,362
2.048
1,735
1,414
1,414
1,010
,708
,317
-,125
-.125
-,122
-.179
-,208
-.208
-,149
0002
o214
],150
1,333
1,444
1,505
1,505
1,505
1,938
1,939
Z
1,964
2,043
2-098
2.098
2,077
2,076
2,073
2,071
Z
19
1.072
1,420
1,420
1,694
1,939
2,144
2.299
Y
20
2,862
2.862
20579
Y
20
0-000
Y
:_0
Z
20
• 700
,936
I ,939
1,948
0.000
,547
,769
2e396
2,440
2,461
2,523
2,579
2.862
2,862
2,579
2,360
2,048
1,733
1,418
1,418
1,026
,714
,31S
--,043
-,043
-,043
-,050
-,059
-,059
-,006
,115
,296
,743
1,917
0,000
.976
1,924
,519
1.188
1,315
1,417
1,478
1,928
2,015
2,082
2,082
1,026
1,417
1.417
,745
1.478
2,081
1.677
2,348
2,391
2,430
2,518
2,673
2.863
a,863
2,670
2,362
2,042
1.698
1,418
1.418
1.027
,022
,024
,026
,028
,036
,036
,084
.449
.505
1,478
1,911
1,917
Z
20
2,078
2,076
2.074
Z
20
1,912
2.106
2.2SI
Y
21
2,863
2,863
2,670
Y
21
01000
Y
21
Z
21
.714
.316
.196
,365
.550
65
TABLE
III- INPUT
CONFIGURATION
FIGHTER-TYPE
CONFIGURATION
VIEWS
,789
1.881
32,563
0.000
DATA
1,011
1,201
1,312
1.888
1.894
2.028
OF
PLOT
SHOWN
FIGURE
1,412
2.079
AND
SPECIFICATIONS
IN THE
FOR
A
PERSPECTIVE
5 - Concluded
1.452
1.452
1,452
1,858
1,881
Z
21
2.079
2.078
2.077
2.074
2.073
Z
21
2,245
xFUS
Y
2
I
.711
Y
y
I
l
Z
Z
I
I
35,323
.519
.626
.740
1.021
1.410
1.672
1.907
2.I00
2.343
•655
2.382
,593
2.365
.520
2.279
,313
2.133
0,000
1.937
1.692
1.411
1.0al
.019
•781
.022
1.005
.023
1.250
.023
1.503
.025
1.724
.029
1.895
.081
2.019
.193
2.070
.358
2.070
.546
2.067
2.067
2.067
2.067
2.066
2.066
Z
I
0.000
2.338
.508
2.377
.624
2.360
.739
2.279
1.016
2.130
1.407
I.931
1.666
I.690
1.903
1.409
2.096
l.014
2.240
.709
Y
Y
2
2
.591
.314
.512
e211
.312
.206
.723
y
Z
2
2
Z
Z
2
2
PODORG
1
• 659
.314
• 950
2.240
1.173
2.213
1.423
2.067
33.129
0.
0.
.183
6.511
.367
0.
32,563
0.
.028
2,558
.437
.048
1,502
.837
0.000
.206
1.674
1.895
2.066
2.062
.206
2.073
.258
.369
2.188
.534
2.241
2.241
e733
1.09
1.467
1.917
3.612
3.712
.088
.122
.,48
.167
e167
.167
1.207
1.582
1.957
2.437
3.037
3.875
2.241
XPOO
1
POOR
1
PoOORG
XPOO
PODR
• 336
,295
.275
.265
.265
.265
.240
.165
0.
26.771
0.
O,
29.742
2.059
40-
8.896
SO.
33,129
60.
0.
62.529
6.511
70.
3.654
80.
90.
100.
0.
27.058
1.034
0.
1.338
2.191
1.518
0.
1.596
21.125
1.607
0.
1.540
2.371
1.259
6.145
.753
0.
0.
0.
20.26
.765
30.
.765
40.765
50.
.765
60.
.765
70.
.765
84.
.765
98.373
.765
21.125
0.
020.26
2.371
30.
6.145
40.
22.370
50.
0.
60.
2.532
70.
0.
84.
98.373
100,
0.
.765
.765
.765
.765
.765
.765
.765
.765
0.
25.753
0.
2.488
10.
-.925
20.
0.
30.
25.292
40.
2.138
50.
-.300
60.
6.008
70.
FINORG
I00,
0.
xFIN
FINORD
FINORG
xFIN
80.
I00-
XFIN
O,
FINORD
FINORG
,462
,819
1,113
1,324
1,429
1,450
1,345
1,113
25.292
0.
2.138
I0.
--.300
20.
6.008
30-
29.062
40.
2.050
50.
--.170
60.
3.512
70.
80.
100.
XFIN
O.
.462
.819
1.113
1.324
1,429
1,450
1,345
I,]13
O,
29.062
00
0.
2.050
I00
.462
-.170
20.819
3.512
30.
I.I13
32.604
40.
1.324
1.869
50.
1.429
.132
60.
1.450
0.
70.
1.345
FINORD
FINORG
80.
1.113
I00.
0.
XFIN
FINORD
27.958
2.842
1.680
7.504
32.471
5.717
1.680
3.758
0.
0.
I0.
.856
20.
1,393
30.
1.755
40.
1.975
50.
2.062
60.
1.909
70.
1.722
80.
1.332
I00.
0.
32.471
0.
5.717
I0.
1.680
20-
3.758
30.
35.007
40.
7.334
50.
1.680
60.
0.
70.
80.
I00.
xCAN
O.
.856
-20.
-20.
1.393
50.
50.
-50.
-_0.
1.755
18.
18.
2.062
14.
14.
1.909
3.
3.
1.332
0.
CANORD
66
1.722
24.
mER
24,
PER
1
2
2
2
3
3
3
FINORG
O,
1.975
0.
0.
0.
0.
1
1
FINORD
FINORG
XFIN
FINORD
CANORG
xCAN
2
2
2
4
4
4
5
5
5
6
6
6
1
I
CANORO
CANORG
!
2
2
2
TABLE
IV.-
INPUT
CONFIGURATION
DATA
STEREO
FRAMES
BLENDED
I -!
637o94
O,
90,
14,
24e
28.
30.
33.3
36.
38,5
41.2
44,2
48.
I
I
I
11
13
I
30°
AND
SHOWN
WING-BODY
19
PLOT
IN
SPECIFICATIONS
FIGURE
THE
2
101/I/70
REFA
xAF
xAF
6
FIGHTER
15
40,
FOR
5
50e
60e
70.
10
°5
95°
DOe
100e
20°
80.
10
13
3.0
4°0
50
Oe
O.
Oe
31.
21.1
1707
WORG
wORG
WORG
1
2
3
6,
Oe
16,2
wORG
4
8.
lO,
O,
O.
13,5
11°5
WORG
WORG
5
6
12e
14,
O°
Oo
g°6
7°6
wORG
WORG
?
8
16°
O°
_°2
WORG
9
50,
O.
17.6
18.
e95
O.
O.
1,8
2.
Oe
3.2
4.2
4.8
5.0
408
4°2
3°2
WORG
wORG
WORD
10
11
1
le8
O.
.95
.655
O.
1°26
2.24
2°94
3.36
3.5
3.36
2°94
2e24
wORD
WORD
I
2
1.26
O.
°655
O.
WORD
2
1,08
O.
I°92
2.52
2,88
3.0
2,88
2°52
1.92
1,08
e57
• 57
WORD
WORD
3
3
O,
°475
°9
1.6
2.1
2.4
2.5
2.4
2.1
1.6
WORD
4
.9
O.
.475
0475
O.
09
1o6
2ol
2.4
2.5
204
2ol
! .6
WORD
WORD
4
5
.9
O°
o475
• 475
O.
.9
1o6
2oi
204
205
2,4
2oi
1.6
WORD
WORD
5
6
,9
O,
0475
• 475
• 475
O.
.9
O.
1.6
2ol
2.4
2,5
2,4
2°1
1.6
wORD
wORD
WORD
6
?
?
.475
.475
• 475
.9
O.
.9
106
2.1
204
2.5
2,4
201
1o6
1.6
201
2.4
2.5
204
2.1
1o6
WORD
WORD
WORD
8
8
9
0475
• 475
0.
.9
1.6
2.1
2.4
2.5
204
2.1
1o6
WORD
WORD
9
10
• 475
O.
WORD
10
•475
°475
09
0.
le6
2°I
204
2°5
2.4
2el
!o6
WORD
WORD
11
II
2.0
40.
O.
4.
48.
O.
6.
52.
0.
12o
650
O.
16o
200
24,
28.
32,
10
15
O,
O.
O.
O.
Oe
XFUS
xFUS
Y
I
O.
O.
O.
O-
O.
O.
O-
O-
O,
O.
O.
O.
0.
0.
O.
O.
O,
O,
O.
O.
O.
O.
O.
O.
.9
O,
.9
O.
°9
O.
.9
O°
,9
O°
36,
O,
O°
O.
O°
O.
Y
1
Z
Z
I
1
67
TABLE
IV.-
INPUT
CONFIGURATION
STEREO
O,
0061
,124
DATA
FRAMES
,18
0276
SHOWN
,375
AND
IN
PLOT
SPECIFICATIONS
FIGURE
.476
6
-
,637
FOR
THE
Continued
,793
,887
Y
2
Y
2
,793
-,336
063.7
-,335
,476
-.331
,375
-,316
02.76
-,306
,18
-.2"75
,124
-.221
.061
-*12_
O,
--,007
O,
,007
O,
,127
,138
o221
,2.72
,2.75
,427
.306
,582
,316
.754
,331
,985
,335
1,IT9
,336
1,394
Z
Z
2
2
1,488
1,394
--,743
1,179
--,735
,985
-.7|6
,754
--,684
,582
--0634
.44"7
--,549
,272
--,428
,138
--,428
O*
-.oaa
Y
v
3
3
o.
Z
3
,oae
,Re8
,428
,549
,634
0684
,716
,.735
,.743
O1,924
--10034
,185
|,66
--1,02
0383
1,363
--,981
,602
10077
--.938
081
,81
--,8"73
1,0"77
*602
--,'754
1,363
.383
--0548
1,66
,185
--,2"73
1,924
O,
--,067
2,028
Z
Y
3
4
O*
*067
O,
,2"73
,294
,548
,6
,754
,935
,873
1,283
.938
1,664
0981
2,049
1,02
2,4645
1,032
2..789
Y
Z
Z
4
4
4
a,905
Y
5
2,789
40466
2,049
1,664
1,283
,935
.6
,294
00
Y
5
--1,655
--10637
--1,581
--I,494
--I.368
--1,168
--,882
--,473
--,005
O,
Z
5
,005
O,
,473
035
,884
,725
1,168
1,125
1,368
1,5"75
1,494
2,0
1,581
2,4.75
1.637
3,0
1,655
3,0
3,0
Z
Y
5
6
3.0
-2,05
3,0
-2.04
2,475
-200
2,0
-I,95
1,575
-I,825
1,125
-1,65
,725
--I.425
,35
--I.05
O*
--.5
O,
Z
Y
6
3,0
Z
y
6
"7
y 7
O.
Y
Z
7
"7
6
•5
1,05
10425
1,65
10825
1,95
a,O
2*04
R.05
O,
3.0
-2,0
,35
3.0
-2,0
,725
2,55
-1,975
1,15
2,05
--I.95
1,575
I,575
-1,85
2,05
1,15
--|,'7
2,55
,725
--I,45
3.0
035
--1,1
3.0
O*
--,5
• 5
1,1
1,45
107
1,85
lo95
1,975
20
20
O*
3,0
035
300
0725
3,0
1o15
2.2
lo65
1o65
2o2
1015
300
,725
3*0
,35
3o0
O,
300
Y
8
Y
--200
-200
-2,
-20
-I,95
-I,85
-105
-1005
-.5
O,
Y
8
•5
O*
1005
,35
1o5
,725
1085
I*15
1,95
1o65
2*
2o15
2,
300
20
300
2*
300
Z
8
300
Y
3.0
-200
300
-2,0
300
--2.
_,15
-2,
1.65
-1095
1o15
--I.8
0725
--105
035
--1o05
O,
-05
9
Y
O*
•5
O,
1005
,35
Io5
0725
1o8
Io15
I,95
1.65
2,
2,15
2,
3*0
2*
300
2,
300
Y
Z
9
9
3.0
Y
300
-2.0
300
-200
3,0
--2,
2015
--2.
1.65
-I.95
1.15
-108
,.725
--1,5
035
-I*05
O,
--05
10
Y I0
O,
Y
10
3o0
Z
Y
10
11
O,
Y
Y |1
11
68
8
9
•5
I*05
1.5
l,S
1,95
20
20
2.
20
O*
300
-2,0
.35
300
-200
0.725
3,0
-2,
1.15
2,15
-2,
1,65
I,65
-1o95
2o15
1.15
-I*8
3,0
0.725
-1o5
300
.35
-1,05
300
O*
-05
05
1,05
I,5
1.8
1,95
2,
20
20
2,
O,
300
,35
3,0
0.725
2,5
lo15
2.15
1,65
1065
2.15
1015
2,5
,725
3,0
,35
3,0
O*
3,0
Z
Y
11
12
-2.0
05
-a,O
1005
-2,
1,4
-20
1o8
-lo95
1,95
-I,8
2o
-104
2.
-I,05
20
-.5
20
O,
Y
Y 12
12
Z
12
TABLE
IV.-
INPUT
CONFIGURATION
STEREO
O,
2095
-2°0
.35
2.875
-2.0
.725
205
-2.
•5
0o
o975
.35
1.4
.725
208
2055
2025
-2.0
05
-ao0
,9
O.
2.8
-2.0
DATA
FRAMES
PLOT
SPECIFICATIONS
2.5
0725
-1o4
2.
2.875
.35
-.975
2.
2095
0-05
2.
300
Y
13
Y 13
0.
a.a5
• 705
a.5s
.35
e.8
0.
300
Y
Z
Y
13
13
14
-10275
a0
-.9
2.
-.5
2.
O.
Y
Z
14
14
a.z5
0725
2.55
o35
a.8
O.
3.0
Y
-I.275
2.
80483
-.9
2.
6.129
-.5
20
O.
Y
15
Y 15
15
Z
15
70.
1.68
80.
1.28
100o
0.
2.15
1o15
-108
2.
109
-20
10275
!o9
-1.95
1-6
10525
-108
1o8
1.125
-1.6
1095
.35
2,55
-2,0
.725
2025
-2.
10125
I.9
-I 095
1.525
10525
-1.8
1.9
10125
-1.6
05
09
1o275
1.6
1.8
1o95
53.091
O.
O*
I00
200
20.
62.215
40.
0.
500
6
-
Concluded
Y
0.
.72
1028
1.68
1o92
2.0
60.
1o92
620215
0.
8.483
60129
64.602
O.
I0.18
O.
O.
O.
I00
.72
20.
1.28
40.
109a
50.
a.O
-4,481
O.
O.
130722
1.49
200
1.49
300
1.49
55.026
400
1.49
O.
500
1.49
70.
1.68
80498
100.
O.
O.
60.
1.94
--30948
80.
1.28
55.724
30.
1.68
O*
I00.
Oe
O.
130722
-30948
20.
8,498
30.
53.073
40.
0.
500
700
1049
11.473
86.278
lo49
55.026
00
60.
1049
-20455
700
Io49
860278
Io49
100.
Oo
86.278
100o
00
1.49
lo49
1o49
1o49
1049
60.
1049
530073
O.
O.
130722
-20455
200
11.473
300
52.481
40.
O.
50-
-2,0
600
120066
70.
0.
57.475
1o49
300
0.
O.
1o49
1o49
1o49
1o49
I00
072
O.
200
1o28
80567
300
1o68
66.868
40.
11.515
500
1.49
0.
60.
1.49
3.413
70.
660868
00
11.315
i00
O.
200
30413
300
1o92
68.115
2.0
12.419
1.92
00
1o68
O.
O.
.?a
-500
-500
40.
1.92
50.
2.0
60.
1092
70.
1.68
l.a8
-30.
-500
40.
500
1.68
28.
28.
0.
O.
0.
O.
THE
IN
1.65
1065
-1.95
1o95
1.525
FIGURE
FOR
SHOWN
1015
2o15
-20
1.8
1.125
12.182
30.
AND
19.
18o
10
10
10.
100
14
VTO_G
XFIN
FINORD
VTORG
XFIN
2
FINORD
VO_G
3
VOiD
VORG
4
VORD
VORG
00
VORD
CANORG
80.
1o28
1000
00
XCAN
80.
1.28
100.
O,
XCAN
1.49
1
CANORO
CANORG
5
!
2
CANORD
STE
STE
69
:i
f
1
/
/
!
c
8
Q)
"6
o
0
J
70
R
o
_D
L..i-
71
+,o
+.J
_L
m--"
o
c
_o
<._
.c
c
L
L_
o
+_
+
o
+__O
i
c_
72
c
o
c_
.c
clo
.c
.D
_L
o
.E
o
_z
a_
0
i
LL-
73
8
i
f_
L_
74
o
§
B_
.m
_o
O
",,
i
c2_
©
75
c
._o
f_
L_
o
a_
76
/
8
_k
77
¢tl
N
E
@
78
o
(J
i
LL
79
Co6e
I
,
COO
_'g"
E
:E
5
Z
..
o
.C
g
J_
3
g g
'..--
o
,--
E
!
i
!
i
!
Z
0
C
o
0
80
,
\\
_\
\,
.E
oC
LL
A'"
5
c
M
c
oE
c_
81
optLOn
'_V
,t
\13"
oP ti°_;
knc/_c
e
"g
_2
L
Ook_t
,'
i
j
rk
0
G
O
t_
g
ot
i_c
s
h(_
I< _'
&e
_
_'i
deg.
L
o
deg,
_
f.
o£
-
ld
r_
82
_,,,;, ..... ,......[,_:. _.
-7 149
Z _
IL
• _7:1,
I
,
Z
' ii_
i__'
•