1 SUBROUTINE VTLIFT 2C 3C*** COMPUTE SUPERSONIC VERTICAL TAIL CL 4C 5 REAL MACH,KSHARP 6 LOGICAL SUPLE,ROUND,GLOVE 7 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA 8 COMMON /OPTION/ SREF,CBARR,RUFF,BLREF 9 COMMON /VTDATA/ AVT(195) 10 COMMON /SBETA/ SLA(31) 11 COMMON /VTI/ VTIN(131) 12 COMMON /FLGTCD/ FLC(160) 13 COMMON /SYNTSS/ SYNA(19) 14 COMMON /CONSNT/ PI,DR,UNUSED,RAD 15 COMMON /WINGI/ WINGIN(101) 16 DIMENSION ROUTID(2),Q3250A(3),Q3250B(3),Q3246A(3),Q3246G(3), 17 1 Q246AF(4),Q13252(3),Q13253(3),Q13251(3) 18 DIMENSION S13252(12),DSHP52(12),R13252(12),DRND52(12),T13253(24), 19 1 D13253(140),T13251(12),D13251(12) 20 DIMENSION DUMY1(184),DUMY2(184),DUMY3(184),DUMY5(184), 21 1 DUMY6(184),DUMY4(184) 22 DIMENSION T13246(52),D13246(1104),VAA(4),LGA(4),VAB(4),LGB(4), 23 1 A1350(17), B1350(19),DA50(72),DB50(88),G13246(9), 24 2 DG3246(9) 25 DIMENSION WTYPE(4) 26 EQUIVALENCE (CNA,SLA(31)) 27 EQUIVALENCE (MACH,SLA(1)),(BETA,SLA(2)) 28 EQUIVALENCE (SRSTAR,AVT(3)) 29 EQUIVALENCE (TAPEXP,AVT(27)),(TANLE,AVT(62)),(SWEPLE,AVT(58)), 30 1 (AR,AVT(7)),(TRATIP,AVT(25)),(COSLE,AVT(61)), 31 2 (DELTAY,VTIN(17)),(SPANO,VTIN(2)),(TANLEO,AVT(86)), 32 3 (TANTEO,AVT(104)),(CB,VTIN(5)),(CT,VTIN(1)), 33 4 (SW,SREF),(TANLEI,AVT(62)),(TANTEI,AVT(80)), 34 5 (SWTEI,AVT(76)),(SWTEO,AVT(100)),(KSHARP,VTIN(71)), 35 5 (SPANS,WINGIN(3)) 36 EQUIVALENCE (D13246(1),DUMY1(1)),(D13246(185),DUMY2(1)), 37 1 (D13246(369),DUMY3(1)),(D13246(553),DUMY4(1)), 38 2 (D13246(737),DUMY5(1)),(D13246(921),DUMY6(1)) 39 DATA Q3250A/4H4.1.,4H3.2-,4H60A /,Q3246A/4H4.1.,4H3.2-,4H56A /, 40 1 Q3250B/4H4.1.,4H3.2-,4H60B /,Q3246G/4H4.1.,4H3.2-,4H56G /, 41 2 Q246AF/4H4.1.,4H3.2-,4H56A-,4HF /,ROUTID/4HVTLI,4HFT /, 42 3 Q13253/4H4.1.,4H3.2-,4H63 /, 43 4 Q13251/4H4.1.,4H3.2-,4H61 /, 44 5 Q13252/4H4.1.,4H3.2-,4H62 / 45C 46C FIGURE 4.1.3.2-60A (CNA/CNA)T FOR SUBSONIC L.E. 47C 48 DATA A1350/ 49 1 0., .3, .4, .5, .6, .7, .8, .9, 50 2 1.0001 , 51 3 0., .41, .82, 1.24, 2.12, 3.18, 6.95, 16.1 / 52 DATA DA50/ 53 1 1., 1., 1., 1., 1., 1., 1., 1., 54 2 1., 55 3 1.05, 1.05, 1.05, 1.05, .985, .945, .915, .9, 56 4 .9, 57 5 1.04, 1.04, 1.04, 1.04, .965, .908, .87, .85, 58 6 .84, 59 7 1.12, 1.12, 1.12, 1.015, .94, .88, .838, .81, 60 8 .796, 61 9 1.11, 1.11, 1.11, 1., .903, .84, .795, .765, 62 A .75, 63 B 1.08, 1.08, 1.08, .954, .865, .8, .75, .72, 64 C .7, 65 D 1.2, 1.2, 1.043, .907, .817, .75, .707, .675, 66 E .66, 67 F 1.14, 1.14, .975, .857, .772, .717, .675, .65, 68 G .632 / 69C 70C FIGURE 4.1.3.2-60B (CNA/CNA)T FOR SUPERSONIC L.E. 71C 72 DATA B1350/ 73 1 0., .1, .2, .3, .4, .5, .6, .7, 74 2 .8, .9, 1.0001 , 75 3 0., 4., 8., 12., 20., 30., 50., 70./ 76 DATA DB50/ 77 1 1., 1., 1., 1., 1., 1., 1., 1., 78 2 1., 1., 1., 79 3 1.15, 1.15, 1.15, 1.15, 1.095, 1.04, .99, .96, 80 4 .935, .915, .9, 81 5 1.12, 1.12, 1.12, 1.12, 1.05, .985, .94, .905, 82 6 .88, .857, .84, 83 7 1.15, 1.15, 1.15, 1.08, 1.005, .945, .902, .87, 84 8 .842, .82, .796, 85 9 1.22, 1.14, 1.05, .98, .93, .89, .853, .823, 86 A .795, .77, .75, 87 B 1.13, 1.05, .98, .925, .88, .845, .81, .782, 88 C .752, .73, .7, 89 D 1.02, .942, .895, .855, .82, .79, .76, .735, 90 E .71, .685, .66, 91 F 1., .92, .87, .825, .79, .755, .728, .7, 92 G .678, .655, .632 / 93C 94C FIGURE 4.1.3.2-56G (CNA/A) FOR A*BETA LESS THAN 1.0 95C 96 DATA G13246/0.,.2,.4,.45,.5,.6,.8,.9,1.0/ 97 DATA DG3246/1.61,1.58,1.55,1.57,1.62,1.75,1.94,2.0,2.0/ 98C 99C FIGURE 4.1.3.2-56A-F (WING SUPERSONIC CNA) 100C 101 DATA T13246 102 1 / 0.,.1,.2,.3,.33,.4,.5,.6,.7,.8,.9,1.0,1.111,1.25,1.429,1.667, 103 2 2.0,2.5,2.941,4.167,7.143,14.286, 30. , 104 3 .25,.5,1.,2.,3.,4.,5.,6. , 15*0., 105 4 0.,.2,.25,.3333,.5,1.0/ 106C 107C FIG 4.1.3.2-56A 108C 109 DATA DUMY1 110 1 / .39, .39, .39, .39, .39, .39, .39, .39, .39, .39, .39, .41, 111 2 .44, .5 , .58, .65, .80,1.0 ,1.15,1.55,2.40,3.92,4.0 , 112 3 .77, .77, .78, .78, .79, .79, .80, .80, .80, .81, .82, .84, 113 4 .92,1.0 ,1.18,1.32,1.60,1.9 ,2.18,2.80,3.84,3.92,4.0 , 114 5 1.55,1.56,1.57,1.57,1.59,1.59,1.60,1.63,1.66,1.68,1.70,1.75, 115 6 1.88,2.09,2.30,2.6 ,2.94,3.35,3.70,3.80,3.98,3.98,4.0 , 116 7 3.15,3.15,3.15,3.15,3.15,3.15,3.17,3.19,3.23,3.27,3.33,3.4 , 117 8 3.46,3.54,3.60,3.7 ,3.75,3.8 ,3.86,3.91,4.0 ,4.0 ,4.0 , 118 9 4.71,4.74,4.83,5.09,5.25,5.05,4.80,4.55,4.30,4.09,3.90,3.72, 119 A 3.78,3.8 ,3.83,3.88,3.90,3.94,3.92,3.96,4.0 ,4.0 ,4.0 , 120 B 6.29,6.2 ,5.99,5.72,5.61,5.42,5.18,4.9 ,4.64,4.42,4.2 ,4.0 , 121 C 4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 , 122 D 6.3 ,6.34,6.39,6.08,5.97,5.78,5.5 ,5.2 ,4.95,4.7 ,4.48,4.25, 123 E 4.2 ,4.18,4.14,4.11,4.07,4.05,4.04,4.02,4. ,4. ,4. , 124 F 6.32,6.4 ,6.4 ,6.34,6.32,6.13,5.82,5.51,5.25,4.99,4.73,4.5 , 125 G 4.4 ,4.32,4.27,4.2 ,4.13,4.11,4.07,4.04,4. ,4. ,4. / 126C 127C FIG 4.1.3.2-56B 128C 129 DATA DUMY2 130 1 / .41, .41, .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .41, 131 2 .41, .48, .56, .67, .84,1.08,1.29,1.83,2.80,3.8 ,4.0 , 132 3 .8 , .8 , .8 , .8 , .8 , .8 , .8 , .8 , .8 , .8 , .83, .85, 133 4 .98,1.09,1.27,1.48,1.80,2.25,2.53,3.22,3.79,3.92,4. , 134 5 1.57,1.59,1.6 ,1.6 ,1.6 ,1.61,1.63,1.65,1.69,1.73,1.77,1.8 , 135 6 2. ,2.26,2.57,2.9 ,3.27,3.53,3.65,3.8 ,3.91,3.97,4. , 136 7 3.17,3.17,3.22,3.4 ,3.5 ,3.6 ,3.7 ,3.67,3.58,3.49,3.37,3.23, 137 8 3.38,3.52,3.62,3.71,3.80,3.88,3.9 ,3.95,3.97,3.99,4.0 , 138 9 4.72,5. ,5.1 ,5.02,4.97,4.84,4.64,4.45,4.24,4.05,3.89,3.70, 139 A 3.84,3.91,3.97,3.99,4.0 ,4. ,4. ,4. ,3.99,4. ,4. , 140 B 5.57,5.6 ,5.62,5.61,5.6 ,5.42,5.15,4.91,4.7 ,4.48,4.25,4.08, 141 C 4.13,4.18,4.16,4.11,4.09,4.05,4.02,4.01,4. ,4. ,4. , 142 D 5.73,5.77,5.79,5.79,5.77,5.75,5.6 ,5.33,5.08,4.83,4.59,4.4 , 143 E 4.42,4.4 ,4.32,4.23,4.17,4.08,4.05,4.03,4.01,4. ,4. , 144 F 5.83,5.88,5.91,5.93,5.93,5.91,5.88,5.68,5.4 ,5.14,4.9 ,4.7 , 145 G 4.68,4.59,4.46,4.33,4.23,4.13,4.1 ,4.06,4.02,4.01,4. / 146C 147C FIG 4.1.3.2-56C 148C 149 DATA DUMY3 150 1 / .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .42, 151 2 .43, .5 , .6 , .71, .9 ,1.12,1.35,1.97,2.95,3.80,4. , 152 3 .8 , .8 , .8 , .8 , .8 , .8 , .8 , .81, .82, .83, .83, .88, 153 4 .95,1.06,1.23,1.46,1.83,2.3 ,2.65,3.32,3.76,3.92,4. , 154 5 1.59,1.59,1.59,1.59,1.59,1.6 ,1.62,1.65,1.68,1.72,1.78,1.82, 155 6 2. ,2.29,2.65,3. ,3.27,3.5 ,3.6 ,3.78,3.90,3.98,4. , 156 7 3.14,3.2 ,3.41,3.62,3.68,3.75,3.7 ,3.62,3.51,3.42,3.3 ,3.18, 157 8 3.34,3.5 ,3.6 ,3.7 ,3.8 ,3.85,3.88,3.93,3.98,4.0 ,4. , 158 9 4.7 ,4.85,5.02,4.98,4.91,4.8 ,4.6 ,4.4 ,4.2 ,4. ,3.82,3.68, 159 A 3.8 ,3.9 ,3.98,4. ,4. ,4. ,4. ,4. ,4. ,4. ,4. , 160 B 5.4 ,5.44,5.45,5.45,5.42,5.35,5.12,4.9 ,4.69,4.48,4.22,4.02, 161 C 4.12,4.18,4.17,4.15,4.1 ,4.05,4.04,4.01,4. ,4. ,4. , 162 D 5.61,5.63,5.64,5.62,5.61,5.6 ,5.54,5.3 ,5.02,4.8 ,4.6 ,4.39, 163 E 4.42,4.44,4.38,4.26,4.16,4.1 ,4.07,4.03,4.01,4. ,4. , 164 F 5.72,5.75,5.76,5.78,5.77,5.76,5.72,5.69,5.4 ,5.15,4.9 ,4.68, 165 G 4.68,4.6 ,4.49,4.33,4.22,4.15,4.10,4.06,4.02,4.01,4. / 166C 167C FIG 4.1.3.2-56D 168C 169 DATA DUMY4 170 1 / .41, .41, .41, .41, .41, .41, .41, .41, .41, .41, .41, .41, 171 2 .43, .50, .6 , .71, .89,1.11,1.35,2.00,3.00,3.72,4.00, 172 3 .82, .82, .81, .8 , .8 , .81, .82, .83, .84, .85, .87, .89, 173 4 .98,1.1 ,1.3 ,1.5 ,1.82,2.23,2.68,3.3 ,3.7 ,3.91,4. , 174 5 1.6 ,1.59,1.58,1.58,1.58,1.59,1.60,1.62,1.66,1.73,1.81,1.92, 175 6 2.2 ,2.45,2.7 ,2.98,3.22,3.45,3.59,3.75,3.7 ,3.91,4. , 176 7 3.13,3.18,3.32,3.6 ,3.64,3.72,3.70,3.64,3.54,3.45,3.3 ,3.14, 177 8 3.32,3.48,3.6 ,3.7 ,3.79,3.87,3.9 ,3.95,3.99,4. ,4. , 178 9 4.71,4.76,4.8 ,4.83,4.84,4.7 ,4.53,4.34,4.18,4. ,3.82,3.63, 179 A 3.78,3.9 ,3.98,4. ,4. ,4. ,4. ,4. ,4. ,4. ,4. , 180 B 5.2 ,5.22,5.22,5.2 ,5.2 ,5.15,5.1 ,4.88,4.63,4.42,4.21,4.0 , 181 C 4.15,4.21,4.21,4.17,4.14,4.07,4.05,4.03,4.01,4. ,4. , 182 D 5.45,5.47,5.47,5.45,5.45,5.41,5.36,5.3 ,5.02,4.81,4.58,4.36, 183 E 4.45,4.47,4.41,4.30,4.19,4.12,4.08,4.02,4. ,4. ,4. , 184 F 5.58,5.59,5.59,5.59,5.59,5.58,5.57,5.53,5.41,5.14,4.91,4.65, 185 G 4.7 ,4.65,4.53,4.4 ,4.27,4.16,4.12,4.05,4.02,4.01,4. / 186C 187C FIG 4.1.3.2-56E 188C 189 DATA DUMY5 190 1 / .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , 191 2 .44, .52, .63, .78, .98,1.21,1.4 ,2.07,3.07,3.6 ,4. , 192 3 .8 , .8 , .79, .79, .79, .79, .8 , .81, .83, .85, .88, .9 , 193 4 1.01,1.17,1.38,1.62,2.00,2.50,2.74,3.22,3.66,3.87,4. , 194 5 1.58,1.59,1.62,1.71,1.76,1.77,1.8 ,1.85,1.88,1.91,1.92,1.93, 195 6 2.13,2.4 ,2.6 ,2.88,3.12,3.39,3.51,3.71,3.87,3.99,4. , 196 7 3.15,3.21,3.38,3.61,3.7 ,3.67,3.59,3.5 ,3.4 ,3.29,3.17,3.03, 197 8 3.18,3.37,3.51,3.67,3.78,3.85,3.88,3.93,3.98,4. ,4. , 198 9 4.42,4.42,4.41,4.40,4.39,4.38,4.35,4.25,4.08,3.9 ,3.72,3.57, 199 A 3.70,3.86,3.93,3.99,4. ,4. ,4. ,4. ,4. ,4. ,4. , 200 B 4.88,4.85,4.81,4.80,4.79,4.77,4.73,4.68,4.53,4.35,4.15,3.99, 201 C 4.08,4.20,4.23,4.19,4.1 ,4.07,4.05,4.01,4. ,4. ,4. , 202 D 5.08,5.09,5.08,5.08,5.07,5.06,5.03,4.99,4.92,4.74,4.53,4.3 , 203 E 4.43,4.48,4.43,4.32,4.20,4.12,4.08,4.03,4.01,4. ,4. , 204 F 5.19,5.21,5.22,5.23,5.23,5.23,5.23,5.21,5.19,5.09,4.88,4.6 , 205 G 4.72,4.69,4.58,4.41,4.28,4.18,4.12,4.07,4.02,4.01,4. / 206C 207C FIG 4.1.3.2-56F 208C 209 DATA DUMY6 210 1 / .4 , .4 , .4 , .4 , .4 , .41, .44, .49, .51, .54, .59, .61, 211 2 .69, .75, .81, .9 ,1.01,1.26,1.53,2.1 ,2.9 ,3.42,4. , 212 3 .81, .81, .81, .83, .84, .86, .88, .91, .99,1.02,1.1 ,1.19, 213 4 1.3 ,1.42,1.58,1.75,2. ,2.34,2.6 ,3. ,3.46,3.71,4. , 214 5 1.6 ,1.58,1.59,1.6 ,1.6 ,1.61,1.67,1.7 ,1.79,1.86,1.92,2. , 215 6 2.13,2.32,2.51,2.75,2.97,3.2 ,3.35,3.58,3.8 ,3.9 ,4. , 216 7 3.13,3.1 ,3.08,3.05,3.04,3.03,3.01,2.99,2.95,2.93,2.91,2.89, 217 8 3.02,3.2 ,3.37,3.52,3.67,3.77,3.82,3.88,3.92,3.97,4. , 218 9 3.79,3.84,3.86,3.8 ,3.79,3.72,3.63,3.58,3.5 ,3.47,3.43,3.41, 219 A 3.57,3.75,3.89,3.98,4. ,3.98,3.94,3.93,3.92,3.99,4. , 220 B 4.12,4.2 ,4.19,4.09,4.06,4.03,3.99,3.95,3.92,3.9 ,3.88,3.87, 221 C 4.01,4.1 ,4.21,4.21,4.12,4.05,4. ,3.96,3.99,4. ,4. , 222 D 4.39,4.45,4.44,4.39,4.35,4.31,4.27,4.25,4.25,4.25,4.25,4.25, 223 E 4.37,4.50,4.49,4.39,4.23,4.1 ,4.03,3.99,4. ,4. ,4. , 224 F 4.6 ,4.68,4.65,4.59,4.57,4.54,4.5 ,4.45,4.48,4.53,4.59,4.61, 225 G 4.71,4.75,4.69,4.5 ,4.31,4.18,4.08,4.01,4. ,4. ,4. / 226C 227C FIGURE 4.1.3.2-61 (KL) 228C 229 DATA T13251/.015,.03,.05,.075,.11,.16,.23,.45,.90,1.2,1.7,2.0/ 230 DATA D13251/.963,.94,.92,.90,.88,.86,.84,.80,.76,.74,.72,.709/ 231C 232C FIGURE 4.1.3.2-63 WING SUPERSONIC NORMAL-FORCE-CURVE 233C SLOPE, TAPER RATIO ZERO 234C 235 DATA T13253 236 1 / .0,.2,.4,.6,.8,1.,1.2,1.4,1.6,1.8,2.,2.4,2.8,3.2 , 237 2 -1.0, -0.8, -0.6, -0.4, -0.2, 0.0, 0.2, 0.4, 0.6, 0.8 / 238 DATA D13253 239 1 / 1.57 ,1.69 ,1.752,1.78 ,1.774,1.7 ,1.472,1.288,1.15 ,1.034, 240 2 .938, .795, .69 , .605, 241 3 1.57 ,1.708,1.76 ,1.778,1.727,1.56 ,1.35 ,1.18 ,1.047, .947, 242 4 .86 , .72 , .617, .543, 243 5 1.57 ,1.708,1.77 ,1.737,1.575,1.418,1.233,1.07 , .94 , .842, 244 6 .768, .646, .558, .49 , 245 7 1.57 ,1.708,1.763,1.618,1.442,1.278,1.104, .955, .845, .758, 246 8 .68 , .57 , .49 , .428, 247 9 1.57 ,1.708,1.548,1.41 ,1.275,1.133, .98 , .84 , .738, .66 , 248 A .594, .495, .425, .37 , 249 B 1.57 ,1.49 ,1.367,1.245,1.12 , .995, .845, .725, .628, .555, 250 C .5 , .423, .363, .312, 251 D 1.254,1.273,1.169,1.062, .958, .848, .7 , .59 , .518, .465, 252 E .415, .345, .29 , .253, 253 F .94 , .943, .948, .875, .788, .695, .55 , .465, .404, .36 , 254 G .325, .268, .227, .196, 255 H .62 , .623, .63 , .648, .597, .537, .403, .335, .287, .25 , 256 I .22 , .18 , .15 , .13 , .31 , .315, .327, .347, .391, .35 , 257 J .23 , .177, .147, .129, .112, .09 , .073, .062 / 258C 259C FIGURE 4.1.3.2-62 LEADING-EDGE-EFFECT FACTORS FOR NORMAL- 260C FORCE-CURVE SLOPE AT SUPERSONIC SPEEDS 261C FIGURE 4.1.3.2-62 (ROUND LEADING EDGE) 262C 263 DATA R13252 264 1 / 0., .5, .94, 1., 1.05, 1.5, 2., 2.5, 3., 3.5, 4., 20./ 265 DATA DRND52 266 1 / 1.043, .97, .893, .89, .894, .987, 1.005, 1.02, 1.025, 1.03, 267 2 1.034, 1.034 / 268C 269C FIGURE 4.1.3.2-62 (SHARP LEADING EDGE) 270C 271 DATA S13252 272 1 / 0., .5, .94, 1., 1.05, 1.5, 2., 2.5, 3., 3.5, 4., 20./ 273 DATA DSHP52 274 1 / 1.08, 1.013, .94, .942, .948, 1.005, 1.03, 1.04, 1.048, 1.05, 275 2 1.055, 1.055 / 276 DATA WTYPE/4HSTRA,4HDOUB,4HCRAN,4HCURV/ 277C 278 AR=2.*AR 279 MACH=FLC(I+2) 280 BETA=SQRT(MACH**2-1.) 281 IF(TANLEO.EQ.0.0)TANLEO=.00001 282 IF(TANLEI.EQ.0.0)TANLEI=.00001 283 IF(VTIN(15).NE.WTYPE(1)) GO TO 1100 284C 285C **STRAIGHT TAPERED SUPERSONIC NORMAL FORCE SLOPE** 286C 287 BOVERT=BETA/TANLE 288 CA=COSLE 289 IF( BOVERT.GT.1.0)GO TO 1000 290 SUPLE=.FALSE. 291 GO TO 1010 292 1000 SUPLE=.TRUE. 293 1010 CONTINUE 294C 295C FIGURE 4.1.3.2-60A (CNA/CNA)T FOR SUBSONIC L.E. 296C 297 DELTYT=DELTAY/CA 298 1020 IF(SUPLE)GO TO 1030 299 VAB(1)=BOVERT 300 VAB(2)=DELTYT 301 LGB(1)=9 302 LGB(2)=8 303 CALL INTERX(2,A1350,VAB,LGB,DA50,CNCNT,9,72, 304 1 2,2,0,0,0,2,0,0,Q3250A,3,ROUTID) 305 GO TO 1040 306C 307C FIGURE 4.1.3.2-60B (CNA/CNA)T FOR SUPERSONIC L.E. 308C 309 1030 CONTINUE 310 ARG=DELTAY/(5.85*CA) 311 DELTDT=ATAN(ARG)*RAD 312 VAB(1)=1./BOVERT 313 VAB(2)=DELTDT 314 LGB(1)=11 315 LGB(2)=8 316 CALL INTERX(2,B1350,VAB,LGB,DB50,CNCNT,11,88, 317 1 2,2,0,0,0,2,0,0,Q3250B,3,ROUTID) 318 1040 IF(TRATIP.EQ.1.0.AND.SWEPLE.EQ.0.0) GO TO 1060 319C 320C NON-RECTANGULAR WING ANALYSIS 321C FIGURES 4.1.3.2-56A THROUGH F 322C 323 1050 VAA(1)=BOVERT 324 VAA(2)=AR *TANLE 325 VAA(3)=TAPEXP 326 LGA(1)=23 327 LGA(2)=8 328 LGA(3)=6 329 CALL INTERX(3,T13246,VAA,LGA,D13246,BCNA,23,1104, 330 1 0,2,0,0,0,2,0,0,Q3246A,3,ROUTID) 331 IF(SUPLE)GO TO 1080 332 CNTHRY=BCNA/TANLE 333 GO TO 1090 334 1060 CONTINUE 335C 336C RECTANGULAR WING ANALYSIS 337C 338 IF(AR *BETA.GT.1.0)GO TO 1070 339C 340C FIGURE 4.1.3.2-56G(CNA/A) 341C 342 VAB(1)=AR *BETA 343 LGB(1)=9 344 CALL INTERX(1,G13246,VAB,LGB,DG3246,CNAA,9,9, 345 1 0,0,0,0,0,0,0,0,Q3246G,3,ROUTID) 346 CNTHRY=CNAA*AR 347 GO TO 1090 348 1070 BCNA= 4.-2.*(1./(AR *BETA)) 349 1080 CNTHRY=BCNA/BETA 350 1090 CNA=CNTHRY*CNCNT*SRSTAR/(SW*RAD) 351 AR=AR/2. 352 RETURN 353C 354C ***SUPERSONIC NORMAL FORCE SLOPE,NON-STRAIGHT TAPERED WINGS*** 355C BASIC WING COMPONENT 356 1100 CONTINUE 357 SPANIN=SPANS-SPANO 358 CRBW=CB+SPANIN*(TANLEO-TANTEO) 359 SBW=(CRBW+CT)*SPANS 360 ARBW=4.*SPANS**2/SBW 361 TAPBW=CT/CRBW 362 BOVERT=BETA/TANLEO 363 SUPLE=.FALSE. 364 IF(BOVERT.GT.1.)SUPLE=.TRUE. 365C 366C FIGURE 4.1.3.2-56A-F (CNABW) 367C 368 VAB(1)=BOVERT 369 VAB(2)=ARBW*TANLEO 370 VAB(3)=TAPBW 371 GLOVE=.FALSE. 372 TA=TANLEO 373 1110 LGB(1)=23 374 LGB(2)=8 375 LGB(3)=6 376 CALL INTERX(3,T13246,VAB,LGB,D13246,BCNA,23,1104, 377 1 0,2,0,0,0,2,0,0,Q246AF,4,ROUTID) 378 CNTHRY=BCNA/TA 379 IF(SUPLE)CNTHRY=BCNA/BETA 380C 381C LEADING-EDGE-EFFECT PARAMETERS 382C FIGURE 4.1.3.2-62 (CLE)BW 383C 384 ROUND=.FALSE. 385 IF(KSHARP.EQ.UNUSED)ROUND=.TRUE. 386 VAB(1)=BOVERT 387 LGB(1)=12 388C 389C SHARP LEADING EDGE 390C 391 IF(ROUND)GO TO 1120 392 CALL INTERX(1,S13252,VAB,LGB,DSHP52,CLE ,12,12, 393 1 0,0,0,0,0,0,0,0,Q13252,3,ROUTID) 394 GO TO 1130 395C 396C ROUND LEADING EDGE 397C 398 1120 CALL INTERX(1,R13252,VAB,LGB,DRND52,CLE ,12,12, 399 1 0,0,0,0,0,0,0,0,Q13252,3,ROUTID) 400 1130 IF(GLOVE)GO TO 1160 401 CNTBW=CNTHRY 402 CLEBW=CLE 403 IF(TANLEO.GE.TANLEI)GO TO 1140 404 CNABW=CNTBW*SBW/SW *CLEBW 405 GO TO 1150 406 1140 CONTINUE 407 S2=SPANIN**2*TANLEO 408 A2=4.*SPANIN**2/S2 409 VAB(2)=A2*TANLEO 410 VAB(3)=0.0 411 CALL INTERX(3,T13246,VAB,LGB,D13246,BCNA,23,1104, 412 1 0,2,0,0,0,2,0,0,Q246AF,4,ROUTID) 413 CNT2=BCNA/BETA 414 IF(VAB(1).GT.1.)CNT2 =BCNA/TANLEO 415 CNABW=(CNTHRY*SBW/SW-CNT2 * S2/SW )*CLEBW 416 1150 CONTINUE 417C 418C GLOVE COMPONENT 419C 420 CRGLV=TANLEI*SPANIN 421 SGLV=CRGLV*SPANIN 422 ARGLV=4.*SPANIN**2/SGLV 423 VAB(1)=BETA/TANLEI 424 VAB(2)=ARGLV*TANLEI 425 VAB(3)=0.0 426 GLOVE=.TRUE. 427 BOVERT=VAB(1) 428 SUPLE=.FALSE. 429 TA=TANLEI 430 IF(BOVERT.GT.1.)SUPLE=.TRUE. 431 GO TO 1110 432 1160 CONTINUE 433 CLEGLV=CLE 434 CNAGLV=CNTHRY*CLEGLV*SGLV/SW 435C 436C FIGURE 4.1.3.2-63 (CN1=CNA/A) EXTENSION COMPONENT 437C 438 IF(ABS(SWTEI-SWTEO).LT.4.)GO TO 1170 439 BE= 2.*SPANIN 440 VAB(1)=BETA/TANLEI 441 VAB(2)=TANTEI/TANLEI 442 LGB(1)=14 443 LGB(2)=10 444 CALL INTERX(2,T13253,VAB,LGB,D13253,CN1,14,140, 445 1 2,2,0,0,2,2,0,0,Q13253,3,ROUTID) 446 VAB(2)=TANTEO/TANLEI 447 CALL INTERX(2,T13253,VAB,LGB,D13253,CN2,14,140, 448 1 2,2,0,0,2,2,0,0,Q13253,3,ROUTID) 449 CNAE=(CN1-CN2)*BE**2/SW 450 GO TO 1180 451 1170 CNAE=0.0 452C 453C **SUPERSONIC NORMAL FORCE SLOPE,NON-STRAIGHT TAPERED WINGS,TOTAL WIN 454C 455 1180 CONTINUE 456C 457C FIGURE 4.1.3.2-61 458C 459 VAB(1)=CNAGLV/(CLEGLV*BETA) 460 LGB(1)= 12 461 CALL INTERX(1,T13251,VAB,LGB,D13251,RKL,12,12, 462 1 2,0,0,0,2,0,0,0,Q13251,3,ROUTID) 463 CNA=RKL*(CNABW+CNAGLV+CNAE)/RAD 464 AR=AR/2. 465 RETURN 466 END 467