1 SUBROUTINE TRANWG(CNA, DCNA) 2C 3C*** COMPUTES THE LIFT CURVE SLOPE AT MACH=1.4 WHICH IS USED IN TRSONI 4C 5 REAL MACH,KSHARP 6 LOGICAL SUPLE 7 DIMENSION DUMY1(184),DUMY2(184),DUMY3(184),DUMY5(184), 8 1 DUMY6(184),DUMY4(184) 9 DIMENSION T13246(52),D13246(1104),VAA(4),LGA(4),VAB(4),LGB(4), 10 1 A1350(17), B1350(19),DA50(72),DB50(88),G13246(9),DG3246(9) 11 DIMENSION WTYPE(4) 12 DIMENSION ROUTID(2),Q3250A(3),Q3250B(3),Q3246A(3),Q3246G(3) 13 DIMENSION XM(3), CN(3), BB(3) 14C 15 COMMON /CONSNT/ PI,DEG,UNUSED,RAD 16 COMMON /WINGD/ A(195) 17 COMMON /WINGI/ WINGIN(77) 18 COMMON /OPTION/ SW 19C 20 EQUIVALENCE (SRSTAR,A(3)) 21 EQUIVALENCE (TAPEXP,A(27)),(TANLE,A(62)),(SWEPLE,A(58)), 22 1(AR,A(7)),(TRATIP,A(25)),(COSLE,A(61)),(DELTAY,WINGIN(17)), 23 2(TANLEO,A(86)),(TANLEI,A(62)),(KSHARP,WINGIN(71)) 24 EQUIVALENCE (D13246(1),DUMY1(1)),(D13246(185),DUMY2(1)),(D13246(36 25 19),DUMY3(1)),(D13246(553),DUMY4(1)),(D13246(737),DUMY5(1)) , 26 2(D13246(921),DUMY6(1)) 27C 28 DATA Q3250A/4H4.1.,4H3.2-,4H60A /,Q3246A/4H4.1.,4H3.2-,4H56A /, 29 1 Q3250B/4H4.1.,4H3.2-,4H60B /,Q3246G/4H4.1.,4H3.2-,4H56G /, 30 2 ROUTID/4HTRAN,4HWG / 31 DATA XM / 1.3, 1.4, 1.5 / 32C 33C FIGURE 4.1.3.2-60A (CNA/CNA)T FOR SUBSONIC L.E. 34C 35 DATA A1350/ 36 1 0., .3, .4, .5, .6, .7, .8, .9, 37 2 1.0001 , 38 3 0., .41, .82, 1.24, 2.12, 3.18, 6.95, 16.1 / 39 DATA DA50/ 40 1 1., 1., 1., 1., 1., 1., 1., 1., 41 2 1., 42 3 1.05, 1.05, 1.05, 1.05, .985, .945, .915, .9, 43 4 .9, 44 5 1.04, 1.04, 1.04, 1.04, .965, .908, .87, .85, 45 6 .84, 46 7 1.12, 1.12, 1.12, 1.015, .94, .88, .838, .81, 47 8 .796, 48 9 1.11, 1.11, 1.11, 1., .903, .84, .795, .765, 49 A .75, 50 B 1.08, 1.08, 1.08, .954, .865, .8, .75, .72, 51 C .7, 52 D 1.2, 1.2, 1.043, .907, .817, .75, .707, .675, 53 E .66, 54 F 1.14, 1.14, .975, .857, .772, .717, .675, .65, 55 G .632 / 56C 57C FIGURE 4.1.3.2-60B (CNA/CNA)T FOR SUPERSONIC L.E. 58C 59 DATA B1350/ 60 1 0., .1, .2, .3, .4, .5, .6, .7, 61 2 .8, .9, 1.0001 , 62 3 0., 4., 8., 12., 20., 30., 50., 70./ 63 DATA DB50/ 64 1 1., 1., 1., 1., 1., 1., 1., 1., 65 2 1., 1., 1., 66 3 1.15, 1.15, 1.15, 1.15, 1.095, 1.04, .99, .96, 67 4 .935, .915, .9, 68 5 1.12, 1.12, 1.12, 1.12, 1.05, .985, .94, .905, 69 6 .88, .857, .84, 70 7 1.15, 1.15, 1.15, 1.08, 1.005, .945, .902, .87, 71 8 .842, .82, .796, 72 9 1.22, 1.14, 1.05, .98, .93, .89, .853, .823, 73 A .795, .77, .75, 74 B 1.13, 1.05, .98, .925, .88, .845, .81, .782, 75 C .752, .73, .7, 76 D 1.02, .942, .895, .855, .82, .79, .76, .735, 77 E .71, .685, .66, 78 F 1., .92, .87, .825, .79, .755, .728, .7, 79 G .678, .655, .632 / 80C 81C FIGURE 4.1.3.2-56G (CNA/A) FOR A*BETA LESS THAN 1.0 82C 83 DATA G13246/0.,.2,.4,.45,.5,.6,.8,.9,1.0/ 84 DATA DG3246/1.61,1.58,1.55,1.57,1.62,1.75,1.94,2.0,2.0/ 85C 86C FIGURE 4.1.3.2-56A-F (WING SUPERSONIC CNA) 87C 88 DATA T13246 89 1 / 0.,.1,.2,.3,.33,.4,.5,.6,.7,.8,.9,1.0,1.111,1.25,1.429,1.667, 90 2 2.0,2.5,2.941,4.167,7.143,14.286, 30. , 91 3 .25,.5,1.,2.,3.,4.,5.,6. , 15*0., 92 4 0.,.2,.25,.3333,.5,1.0/ 93C 94C FIG 4.1.3.2-56A 95C 96 DATA DUMY1 97 1 / .39, .39, .39, .39, .39, .39, .39, .39, .39, .39, .39, .41, 98 2 .44, .5 , .58, .65, .80,1.0 ,1.15,1.55,2.40,3.92,4.0 , 99 3 .77, .77, .78, .78, .79, .79, .80, .80, .80, .81, .82, .84, 100 4 .92,1.0 ,1.18,1.32,1.60,1.9 ,2.18,2.80,3.84,3.92,4.0 , 101 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, 102 6 1.88,2.09,2.30,2.6 ,2.94,3.35,3.70,3.80,3.98,3.98,4.0 , 103 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 , 104 8 3.46,3.54,3.60,3.7 ,3.75,3.8 ,3.86,3.91,4.0 ,4.0 ,4.0 , 105 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, 106 A 3.78,3.8 ,3.83,3.88,3.90,3.94,3.92,3.96,4.0 ,4.0 ,4.0 , 107 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 , 108 C 4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 ,4.0 , 109 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, 110 E 4.2 ,4.18,4.14,4.11,4.07,4.05,4.04,4.02,4. ,4. ,4. , 111 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 , 112 G 4.4 ,4.32,4.27,4.2 ,4.13,4.11,4.07,4.04,4. ,4. ,4. / 113C 114C FIG 4.1.3.2-56B 115C 116 DATA DUMY2 117 1 / .41, .41, .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .41, 118 2 .41, .48, .56, .67, .84,1.08,1.29,1.83,2.80,3.8 ,4.0 , 119 3 .8 , .8 , .8 , .8 , .8 , .8 , .8 , .8 , .8 , .8 , .83, .85, 120 4 .98,1.09,1.27,1.48,1.80,2.25,2.53,3.22,3.79,3.92,4. , 121 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 , 122 6 2. ,2.26,2.57,2.9 ,3.27,3.53,3.65,3.8 ,3.91,3.97,4. , 123 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, 124 8 3.38,3.52,3.62,3.71,3.80,3.88,3.9 ,3.95,3.97,3.99,4.0 , 125 9 4.72,5. ,5.1 ,5.02,4.97,4.84,4.64,4.45,4.24,4.05,3.89,3.70, 126 A 3.84,3.91,3.97,3.99,4.0 ,4. ,4. ,4. ,3.99,4. ,4. , 127 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, 128 C 4.13,4.18,4.16,4.11,4.09,4.05,4.02,4.01,4. ,4. ,4. , 129 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 , 130 E 4.42,4.4 ,4.32,4.23,4.17,4.08,4.05,4.03,4.01,4. ,4. , 131 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 , 132 G 4.68,4.59,4.46,4.33,4.23,4.13,4.1 ,4.06,4.02,4.01,4. / 133C 134C FIG 4.1.3.2-56C 135C 136 DATA DUMY3 137 1 / .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .42, 138 2 .43, .5 , .6 , .71, .9 ,1.12,1.35,1.97,2.95,3.80,4. , 139 3 .8 , .8 , .8 , .8 , .8 , .8 , .8 , .81, .82, .83, .83, .88, 140 4 .95,1.06,1.23,1.46,1.83,2.3 ,2.65,3.32,3.76,3.92,4. , 141 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, 142 6 2. ,2.29,2.65,3. ,3.27,3.5 ,3.6 ,3.78,3.90,3.98,4. , 143 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, 144 8 3.34,3.5 ,3.6 ,3.7 ,3.8 ,3.85,3.88,3.93,3.98,4.0 ,4. , 145 9 4.7 ,4.85,5.02,4.98,4.91,4.8 ,4.6 ,4.4 ,4.2 ,4. ,3.82,3.68, 146 A 3.8 ,3.9 ,3.98,4. ,4. ,4. ,4. ,4. ,4. ,4. ,4. , 147 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, 148 C 4.12,4.18,4.17,4.15,4.1 ,4.05,4.04,4.01,4. ,4. ,4. , 149 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, 150 E 4.42,4.44,4.38,4.26,4.16,4.1 ,4.07,4.03,4.01,4. ,4. , 151 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, 152 G 4.68,4.6 ,4.49,4.33,4.22,4.15,4.10,4.06,4.02,4.01,4. / 153C 154C FIG 4.1.3.2-56D 155C 156 DATA DUMY4 157 1 / .41, .41, .41, .41, .41, .41, .41, .41, .41, .41, .41, .41, 158 2 .43, .50, .6 , .71, .89,1.11,1.35,2.00,3.00,3.72,4.00, 159 3 .82, .82, .81, .8 , .8 , .81, .82, .83, .84, .85, .87, .89, 160 4 .98,1.1 ,1.3 ,1.5 ,1.82,2.23,2.68,3.3 ,3.7 ,3.91,4. , 161 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, 162 6 2.2 ,2.45,2.7 ,2.98,3.22,3.45,3.59,3.75,3.7 ,3.91,4. , 163 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, 164 8 3.32,3.48,3.6 ,3.7 ,3.79,3.87,3.9 ,3.95,3.99,4. ,4. , 165 9 4.71,4.76,4.8 ,4.83,4.84,4.7 ,4.53,4.34,4.18,4. ,3.82,3.63, 166 A 3.78,3.9 ,3.98,4. ,4. ,4. ,4. ,4. ,4. ,4. ,4. , 167 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 , 168 C 4.15,4.21,4.21,4.17,4.14,4.07,4.05,4.03,4.01,4. ,4. , 169 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, 170 E 4.45,4.47,4.41,4.30,4.19,4.12,4.08,4.02,4. ,4. ,4. , 171 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, 172 G 4.7 ,4.65,4.53,4.4 ,4.27,4.16,4.12,4.05,4.02,4.01,4. / 173C 174C FIG 4.1.3.2-56E 175C 176 DATA DUMY5 177 1 / .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , .4 , 178 2 .44, .52, .63, .78, .98,1.21,1.4 ,2.07,3.07,3.6 ,4. , 179 3 .8 , .8 , .79, .79, .79, .79, .8 , .81, .83, .85, .88, .9 , 180 4 1.01,1.17,1.38,1.62,2.00,2.50,2.74,3.22,3.66,3.87,4. , 181 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, 182 6 2.13,2.4 ,2.6 ,2.88,3.12,3.39,3.51,3.71,3.87,3.99,4. , 183 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, 184 8 3.18,3.37,3.51,3.67,3.78,3.85,3.88,3.93,3.98,4. ,4. , 185 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, 186 A 3.70,3.86,3.93,3.99,4. ,4. ,4. ,4. ,4. ,4. ,4. , 187 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, 188 C 4.08,4.20,4.23,4.19,4.1 ,4.07,4.05,4.01,4. ,4. ,4. , 189 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 , 190 E 4.43,4.48,4.43,4.32,4.20,4.12,4.08,4.03,4.01,4. ,4. , 191 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 , 192 G 4.72,4.69,4.58,4.41,4.28,4.18,4.12,4.07,4.02,4.01,4. / 193C 194C FIG 4.1.3.2-56F 195C 196 DATA DUMY6 197 1 / .4 , .4 , .4 , .4 , .4 , .41, .44, .49, .51, .54, .59, .61, 198 2 .69, .75, .81, .9 ,1.01,1.26,1.53,2.1 ,2.9 ,3.42,4. , 199 3 .81, .81, .81, .83, .84, .86, .88, .91, .99,1.02,1.1 ,1.19, 200 4 1.3 ,1.42,1.58,1.75,2. ,2.34,2.6 ,3. ,3.46,3.71,4. , 201 5 1.6 ,1.58,1.59,1.6 ,1.6 ,1.61,1.67,1.7 ,1.79,1.86,1.92,2. , 202 6 2.13,2.32,2.51,2.75,2.97,3.2 ,3.35,3.58,3.8 ,3.9 ,4. , 203 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, 204 8 3.02,3.2 ,3.37,3.52,3.67,3.77,3.82,3.88,3.92,3.97,4. , 205 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, 206 A 3.57,3.75,3.89,3.98,4. ,3.98,3.94,3.93,3.92,3.99,4. , 207 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, 208 C 4.01,4.1 ,4.21,4.21,4.12,4.05,4. ,3.96,3.99,4. ,4. , 209 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, 210 E 4.37,4.50,4.49,4.39,4.23,4.1 ,4.03,3.99,4. ,4. ,4. , 211 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, 212 G 4.71,4.75,4.69,4.5 ,4.31,4.18,4.08,4.01,4. ,4. ,4. / 213 DATA WTYPE/4HSTRA,4HDOUB,4HCRAN,4HCURV/ 214C 215 IF(TANLEO.EQ.0.0)TANLEO=.00001 216 IF(TANLEI.EQ.0.0)TANLEI=.00001 217 DO 1100 I=1,3 218 BETA = SQRT(XM(I)**2-1.0) 219 BB(I) = BETA 220C 221C **STRAIGHT TAPERED SUPERSONIC NORMAL FORCE SLOPE** 222C 223 BOVERT=BETA/TANLE 224 CA=COSLE 225 IF( BOVERT.GT.1.0)GO TO 1000 226 SUPLE=.FALSE. 227 GO TO 1010 228 1000 SUPLE=.TRUE. 229 1010 CONTINUE 230C 231C FIGURE 4.1.3.2-60A (CNA/CNA)T FOR SUBSONIC L.E. 232C 233 DELTYT=DELTAY/CA 234 1020 IF(SUPLE)GO TO 1030 235 VAB(1)=BOVERT 236 VAB(2)=DELTYT 237 LGB(1)=9 238 LGB(2)=8 239 CALL INTERX(2,A1350,VAB,LGB,DA50,CNCNT,9,72, 240 1 2,2,0,0,0,2,0,0,Q3250A,3,ROUTID) 241 GO TO 1040 242C 243C FIGURE 4.1.3.2-60B (CNA/CNA)T FOR SUPERSONIC L.E. 244C 245 1030 CONTINUE 246 ARG=DELTAY/(5.85*CA) 247 DELTDT=ATAN(ARG)*RAD 248 VAB(1)=1./BOVERT 249 VAB(2)=DELTDT 250 LGB(1)=11 251 LGB(2)=8 252 CALL INTERX(2,B1350,VAB,LGB,DB50,CNCNT,11,88, 253 1 2,2,0,0,0,2,0,0,Q3250B,3,ROUTID) 254 1040 IF(TRATIP.EQ.1.0.AND.SWEPLE.EQ.0.0) GO TO 1060 255C 256C NON-RECTANGULAR WING ANALYSIS 257C FIGURES 4.1.3.2-56A THROUGH F 258C 259 1050 VAA(1)=BOVERT 260 VAA(2)=AR *TANLE 261 VAA(3)=TAPEXP 262 LGA(1)=23 263 LGA(2)=8 264 LGA(3)=6 265 CALL INTERX(3,T13246,VAA,LGA,D13246,BCNA,23,1104, 266 1 0,2,0,0,0,2,0,0,Q3246A,3,ROUTID) 267 IF(SUPLE)GO TO 1080 268 CNTHRY=BCNA/TANLE 269 GO TO 1090 270 1060 CONTINUE 271C 272C RECTANGULAR WING ANALYSIS 273C 274 IF(AR *BETA.GT.1.0)GO TO 1070 275C 276C FIGURE 4.1.3.2-56G(CNA/A) 277C 278 VAB(1)=AR *BETA 279 LGB(1)=9 280 CALL INTERX(1,G13246,VAB,LGB,DG3246,CNAA,9,9, 281 1 0,0,0,0,0,0,0,0,Q3246G,3,ROUTID) 282 CNTHRY=CNAA*AR 283 GO TO 1090 284 1070 BCNA= 4.-2.*(1./(AR *BETA)) 285 1080 CNTHRY=BCNA/BETA 286 1090 CNA=CNTHRY*CNCNT *SRSTAR /(SW*RAD) 287 CN(I) = CNA 288 1100 CONTINUE 289 F1 = (CN(2)*BB(2)**2-CN(1)*BB(1)**2)/(BB(2)-BB(1)) 290 F2 = (CN(3)*BB(3)**2-CN(1)*BB(1)**2)/(BB(3)-BB(1)) 291 AA = (F2-F1)/(BB(3)-BB(2)) 292 B = F1-AA*(BB(2)+BB(1)) 293 C = CN(2)*BB(2)**2 - AA*BB(2)**2 - B*BB(2) 294 DCNA = -B*XM(2)/BB(2)**3 - 2.0*C*XM(2)/BB(2)**4 295 CNA = CN(2) 296 RETURN 297 END 298