HIGH SPEED DESCENDING TURN

• Document Type: CREST
• Collection: General CIA Records
• Document Number (FOIA) /ESDN (CREST): CIA-RDP71B00265R000200130014-0
• Release Decision: RIFPUB
• Original Classification: K
• Document Page Count: 8
• Document Creation Date: December 23, 2016
• Document Release Date: November 21, 2013
• Sequence Number: 14
• Publication Date: February 24, 1965
• Content Type: MISC

Declassified and Approved For Release 2013/11/21 : CIA-RDP711300265R000200130014 0
_ .
OCHIGH SPEED DESCENDING TURN D.VONDRASEK 24 FEBRUARY 1965
DIMENSION CRD(200),H(6),TEMP(6),POP(6),ROR(6)
COMMON CRD+LOCt2T.YTtXTIHtTEMPI;POP9ROR,R9TO.VCO
EQUIVALENCE(CRD(177),V0),(CRD(178),H0)t(CRD(179),XMUO),(CRD(.130),
1PSIO),(CRD(181),XLAMO),(CRD(182),DVI,(CRD(183110VEND),(CRD(184),W),
2(CRD(185),SW),(CRD(186)ITEST),(CRD(1$7),CONFIG),(CRD(188),VIJ
1000 FORMAT(30H HIGH SPEED DESCENDING TURN//4X4HALT.,4X4HMACHt
14X4HVEL.,4X2HMUt5X6HLAMBDA,2X5HRANGE.4X4HTIMEt5X3HPSI,5X3HPHI/
? 25X3HFT.95X3HNO.,5X3HFpSt3X4HDEG?t5X4HDEG.,4X3HNAM95X4HSEC.,
35X4HDEG.,4X4HDEG./)
1001 FORMAT(F10.0,F7.29E8.09F8.2.F8.2,F8.1oF8.19F8?20F8.2)
1002 FORMAT(/4X8HCONFIG =F8.1)
H( 11=0.
H(2)=36089.
,H(31=82021.
H(4)=154199.
H(5)=173783.
H(6)=259196.
TEMP( 11=518.688
TEMP( 21=389.988
TEMP(3)=389.988
TEMP(41=508.788
TEMP(5)=508.788
TEMP(6)=298.188
0 POP(1)=1.0
(:) POP(2)=.22336
POP(3)=.24561E?U1
POP(4)=.11887E-02
POP(5)=.57778E-03
POP(6)=.99613E-05
1931
ROR(1)=1.0
ROR(2)=.29707
ROR(3)=.32666E-7J1
ROR(4)=.12118E-02
!
ROR(5)=.58947E-03
I
ROR(6)=.17291E-04'
R=53.3
? r
TO=518.688
VC0=661.3
G=32.174
GRO=673.28689E+06
, 1 $
WP=7.272205E-05
'
I
R0=20.926428E+06
CALL INPUT
,
.1.
.J=0
V2=VO
T
H2=HO
XMUR=XMU0*.01745
PSIR=PSIO*.01745
XLAMR=XLAMO*01745
SUMR=0.
__JUMT=0.
IF(SENSE SWITCH 1)200,300
200 PRINT 1000
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
?
GO TO 1
300 PUNCH 1000
-1-----CPHLOW=CRO/(R0+H2)1**2*(1.-V2**2/GRO)-2.*WP*V2/6*C05F(XLAMR)*
15INF(95IR)
-ZT=H2
CALL ATMOS
XMACH=V2/IXT*1.68781
05=1481.2*YT*XMACH**2*5W
-JL=CRD(113)
JCF=JL+113
DO 3 IC=1141.1CF
IF(CRWIC)-XMACH)3.4.4
CONTINUE
4 I qc=ic+JL I.
-------- -0-7-PHID=-((CRDIIC)-XMACH1/JCRNICI-CRNIC-1/1*(CRDUC1-CRDUC-1))-
' 1CRDUC))
1
'aPHIR=PHID*.01745
COSPHI=CO5F(PHIR)
XLOW2=CPHLOW/COSPHI
IF(J)3595935 ?
5 CL=W*XLOW2/05
6 KL=CRD(41)
KCF=KL+41
'DO 7 IC=421,KCF
-IFCCRNIC)-XMACH17.8.11 f
, __ _7CONTINUE
0 8 JC=IC+KL I 1
CD0=-(CCRD(IC1-XMACH)/(CRWIC1-CRWIC-111*(CRD(JC)-CRD(JC-1)/-
1CRDUCH
'LL=CRDf811
? LCF=LL+81
*DO 9 IC=82,LCF
IF(CRNIC1-XMACH191110.10
? 9? CONTINUE
10 JC=IC+LL
XL=-IICRD(IC)-XMACH1/ICRWICI-CRDIIC-ln*ICRO(JCI-CRD(JC-1)1-
1CRDIJC11
CD=CDO+XL*CL**2
DOL2=CD/CL
4
E2=H2+V2**2/64.348 *
TARPG=-2**WP*SINF C XLAMR / (G/V2*CPHLOW
PHIG=ATANF TANPG/
PSIDT2=XLOW2*G/V2*5INF(PHIR-PHIG)
,
IF(J)42+11,42
11 V1=V2
H1=H2
T1=5UmT
R1=5UMR
XLOW1=XLOW2
0 DOL1=00L2
E1=E2
_AD ___PSIDT1=P510T2
XMUR1=XMUR
XLAMR1=XLAMR
ill
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
Declassified and Approved For Release 2013/11/21 : CIA-RDP711300265R000200130014 0
I
4
PSIR1=PSIR
XHUD=XMUR*57.296
XLAMD=XLAMR*57.296
PSID=PSIR*57.296
RANGE=SUMR/60760
IF(SENSE SWITCH 1)201001
201 PRINT 1001oH29XMACH0V2I.XMUD+XLAMDIIRANGE,SUMTOSIDOHID
GO TO 12
301 PUNCH 1001+H2 ,XMACH,V2tXMUD,XLAMD0RANGEPSUMTOSID9PHID
12 1FL-013031914
13 IFISENSE SWITCH 1)202002
202 PRINT 1002,CONFIG
GO TO 1931
302PUNCH_1002+CONFIG
GO TO 1931
131 V2=VI
J=1
GO TO 16
14 V2=V1?DV
IF(V2?VEND)150.60.6
,
;
1
15 V2=VEND
J=-1
16' !H2=H1
DOL2=DOL1
( ) E2=H2+V2**2/64.348
DE=E2?E1
LI ELOW=CRO/(RO+H2))**2*(1.?V2**2/GRO)/COSPHI
EDR=?DE/(.5*(DOL1*XLOW1+DOL2*ELOW))*(ROMR0+H2))1
DT=EDR/(.5*(V1+V2))
TANPG=-2.*WP*SINR(XLAMR)/(G/V2*ELOW*COSPHI)
PHIG=ATANF(TWG)
PSIDT2=ELOW*G/V2*SINF(PHIR?PHIG)
. 17 DPSI=DT*.5*(PSIDT1+PSIDT2)
----___TDX0R?=SINF_LEDR/ROJJCOSFIEDR/R0)*COSF(DPSI)
SDYORO,SINECEDR/R0)*SINFIDPSI)
DX0R0=ATANF;TDX0R0) I
DYORO=ATANF;SOYORO/SORTF(1.?SDY0R0**2)) 1
CA=PSIR1
SB=DX0R0 I
SC=1.5707964?XLAMR1
COSSA=COSFIS8)*COSF(SC)+SINF(SE1)*SINF(SC)*COSF(CA)
TANSA=SORTF(1.?COSSA!*21/COSSA _
IF(TANSA)19,18,18
18 SA=ATANF(TANSA)
GO TO 20 1
19 SA=3.1415927?ATANF(?TANSA) 4
20---SINCB=SINF(SB)/SINFI3T-A)*SINF(CA)
TANCB=SINCB/SORTF(1.?SINCB**2)
IF(CA-3.1415927)21121i22
21 CB=ATANFITANCB)
:)-- ?GO TO 23
?022 C8=?ATANFA?TANC8)
?23 -- ?SINCC=ABSF(SINF(SC)/SINFCSA)*SINF(CA)1
IFISA?SC)231+232$232. . !
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
. ; ? !
Declassified and Approved For Release 2013/11/21 : CIA-RDP71B00265R000200130014-0
11 ? If
'
Td 231 COSCC=?SORTF(1.?SINCC**2)
GO TO 233
232 COSCC=SORTF(I.?SINCC**2)
233 SINCC2=?COSCC
COSCC2=5INCC
C055C2=COSF(SA)*C05F(DYORO)+SINF(SA)*SINF(DYORO) COSCC2
SINCB2=SINFIDY0R0)/SORTF(1.?0055C2021*SINCC2
TANSC2=SORTF(1.?COSSC2**2)/COSSC2
IF(COSSC2)25,24,24
24 SC2=ATANF(TANSC2)
GO TO 26
25 SC2=3.1415927?ATANF(?TANSC2)
26 TANCB2=SINCB2/SORTF(1.?SINCB2**2) I i
IF(TANCB2)28927,27
a .
27 CE2=ATANF(TANCEI2)
GO TO 29
28 CB2=?ATANF(?TANC82) ? .
29 TANCX=?SINCC/COSCC
IF(FSIR1-3.1415927)30,30933
30 IF(1ANCX)32,31,31
? 31 CX=ATANF(TANCX)
GO TO 34
32 CX=3.1415927?ATANF(?TANCX)
0 33
Q34
GO TO 34
TANCX=?TANCX
IF(TANCX)31,32932
XLAMR=I.5707964?SC2
XMUR=XML)R1+C8+C82
PSIR=CX+DRSI
IF(FSIR)341,342+342
341 PSIR=PSIR+6.2831853 ?
342 CPHLOW=CRO/(R0+H2))**2*(1.?V2**2/GRO)-2.*WP*V2/G*C05F(XLAMR)*
1SINF(PSIR)
GO TO _2
35 IF(TEST)39036.39
36 CLEST=CL
SIGM=W*XL0W2/(.001189*V2**2*CLESPISW)
ZT=SIGM
CALL SIGMA
H2=YT
ZT=YT
CALL ATMOS
XMACH=V2/(XT*I.6878)
ii
?
ML=CRD(1) Ii 4
MCF=ML+1
DO 37 IC=201CF
IF(CRD(ICI?XMACH)37.38038
37 __CONTINUE
38 JC=IC+ML
CL=-1(CRD(IC)?XMACH)/(CRD(IC)?CRD(IC:11)*(CRD(JC):CRDI.JC71))?CRD
1(JC) _
_IF(ABSF(CL?CLESTI?.001)6+6,36
?1"1 39r NL=CRD(I45)
NCF=NL+145
y 1
L. 1
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
Declassified and Approved For Release 2013/11/21 : CIA-RDP71B00265R000200130014-0
0
(:) DO 40 IC=1469NCF
IFICRCIIIC1?V2A40,41,41
40 CONTINUE
41 JC=IC+NL
H2=?CICRWIC1?V21/(CRNIC)?CRDCIC-111*(CRDUC1?CRDIJC-1RD(JC11
ZT=H2
CALL ATMOS
XMACH=V2/IXT*1.66761
05=1481.2*YT*XMACH**2*541
GO TO 5
42 DE=E2?E1
DR=?DE/(.5*(DOLl*XLOW1+DOL2*XLOW2)1*(RO/fRO+1121)
DT=DR/(.54-0147V211
_ IF(AB5F(DR?EDR1-6076.1)43+43944-
--- -5UMR=R1+DR
SUMT=T1+DI
GO TO 11
44 EDR=DR
GO TO 17 ,
END
I
0 ? ?
?
A e.: I. 10 ?
4
' h
4.
-feTrifli :
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
"?-???-?-4's
?
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
SUBROUTINE INPUT
DIMENSION CRD (200)
COMMON CRD
1 READ 3 ,L1 , N1 ,CRO (N1 ) ,CRD(N1+1 ),CRD(N1+2),CRD(N1 +3 ),CRO (N1+4 ),CRD
(N1+5),CRD(N1+6),CRD(N1+7)
IF(L1 )1 ,1 ,2
2 RETURN
3 FORMAT(11,14,2X,8(E9.0))
END
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
-or
? SUBROUTINE ATMOS
DIMENSION CRD(200),N(6),TEMP(6),POP(6),ROR(6)
COMMON CRD,LCC,ZT,YT,XT,N,TEMP,POP,ROR,R,TO,VCO
DO 1 1=1,6
IF(ZT-H(I))2,10
1 CONTINUE
2 Lal-1
IF(L-1 )6,6,3
3 IF(L-3)5,6,4
4 IF(L-5)5,6,5
5 XT=VC0*(TEMP(L)/T0)**,5
YT.POP(L)*EXPFUH(04-27)/(R*TEMP(L)))
RETURN
6 TOTS=1.+1./TEMP(L)*(TEMP(1)-4EMP(L))/(H(1)-H(L))*(2741(0)
A=01(1)-N(L))/(R*(TEMP(1)-TEMP(L)))
XT=VC0*(TEMP(0/70)**.5*TOTS**.5
YTtPOP(L)*TOTS**(-A) . ?
RETURN ?
END
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
Declassified and Approved For Release 2013/11/21 : CIA-RDP71600265R000200130014-0
I
SUBROUTINE SIGMA
DIMENSION CRD(200),H(6),TEMP(6),POP(6),ROR(6)
COMMON CRD,LCC,ZT,YT,XT,H,TEMP,POP,ROR,R,TO,VCO
(Th DO 1 1=1,6
IF(ROR(1)-ZT)2,1
CONTINUE
L=1-1
1F(L-1)6,6,3
IF(L-3)5,6,4
IF(L-5)5,6,5
CnZT*TEMP(L)/(TO*POP(L))
YT=H(L)-LOGF(C)*R*TEMP(L)
RETURN
A.(H(1)-H(L))/(R*(TEMP(1)-TEMP(L)))
B=CZT*TEMP(L)/(TO*POP(L)))**(1,/(-A-1,))
YT-(6-1.)*TEMP(L)*(H(1)-H(L))/(TEMP(1)-TEMP(L))+H(L)
RETURN
ENO
Declassified and Approved For Release 2013/11/21 : CIA-RDP71B00265R0002001e0014-0 ,