SELECTION OF CRITICAL LOADS

4674 LPRINT TAB(5)"XCG = ";XXCG(H5CASE)

4675 LPRINT TAB(5)"FS 20 PERCENT HORIZ TAIL = ";XT20

4676 LPRINT TAB(5)"UNBALANCED MOMENT ABOUT CG = ";UNBALMOMUNCK

4680 LPRINT TAB(5)"SEE HORIZONTAL TAIL LOADS FOR FURTHER DATA"

4681 LPRINT:LPRINT "CHECKED PULL UP MANEUVER (DOWN TAIL LOAD)"

4682 LPRINT TAB (5) "BALANCED DOWN TAIL LOAD = ";LT(H7CASE)

4683 LPRINT TAB (5) "UNBALANCED INCREMENT OF TAIL LOAD = ";I7CK

4684 LPRINT TAB(5)"TOTAL TAIL LOAD = ";L7MIN

4685 LPRINT TAB(5)"XCG = ";XCGDNCK

4686 LPRINT TAB(5)"FS 20 PERCENT HORIZ TAIL = ";XT20

4687 LPRINT TAB(5)"UNBALANCED MOMENT ABOUT CG = " ;UNBALMOMDNCK

4688 LPRINT TAB(5)"SEE HORIZONTAL TAIL LOADS FOR FURTHER DATA"

4700 LPRINT:LPRINT "LANDING CONDITIONS"

4710 LPRINT TAB(5)"FORWARD FUSELAGE IS CRITICAL FOR UP BENDING FOR 3

WHEEL LEVEL LANDING"

4720 LPRINT TAB (5)" FORWARD FUSELAGE MAY BE CRITICAL FOR DOWN BENDING

FOR 2 WHEEL LEVEL LANDING"

4800 LPRINT:LPRINT "GREATEST VERTICAL INERTIA FACTOR FOR CONCENTRATED

WEIGHT INSTALLATIONS"

4810 LPRINT TAB(5)"NZ = ";NZ(NZMAXCASE)

4820 LPRINT TAB(5)"CASE NUMBER = ";NZMAXCASE

4830 LPRINT TAB(5)"CONDITION = ";CND$(NZMAXCASE)

4840 LPRINT TAB ( 5 ) "BALANCING TAIL LOAD = "; LT( NZMAXCASE )

4850 COND$=LEFT$(CND$(NZMAXCASE),4)

4860 IF COND$="GUST" THEN LPRINT TAB(5)"PITCHING ACCELERATION WILL AD

D TO VERTICAL INERTIA FORWARD OF CG"

4900 RETURN

4990 REM------------------------------------------------------------

4991 REM SELECT CRITICAL HORIZONTAL TAIL LOADS

4992 REM--------------------------------------------------------------

5000 PRINT "SUBROUTINE TO SELECT CRITICAL HORIZONTAL TAIL LOADS"

5005 REM

5006 REM

5010 PRINT "NOW SEARCHING ALL CONDITIONS FOR LARGEST BALANCING TAIL L

OADS"

5020 LITMAX=-10000 :L2TMIN= 10000 :L3TFMAX=-10000 :L4TFMIN= 10000

5030 FOR 1=1 TO DB

5032 GG$=LEFT$(CND$,4)

5034 IF GG$="GUST" THEN 5080

5040 IF KCNF$(1)0"LANDING" AND LT(I)>L1TMAX THEN L1TMAX=LT(I):H1TCAS

E=I

5050 IF KCNF$(1)0"LANDING" AND LT(I)<L2TMIN THEN L2TMIN=LT(I):H2TCAS

E=I

5060 IF KCNF$(I)="LANDING" AND CND$(I)o"LEV LAND" AND LT(I)>L3TFMAX

THEN L3TFMAX=LT(I):H3TCASE=I

5070 IF KCNF$(I)="LANDING" AND CND$(I)<>"LEV LAND" AND LT(I)<L4TFMIN

THEN L4TFMIN=LT(I):H4TCASE=I

5080 NEXT

5090 REM

5091 REM

5100 PRINT "NOW SEARCHING ALL FLAPS RETRACTED CONDITIONS AT NZ=1 AND

V=VA FOR LARGEST UNCHECKED MANEUVER TAIL LOADS"

5110 U1CK=100000!:U2CK=-100000!:UNBAL1=100000!:UNBAL2=-100000!

5111 LPRINT CHR$(12)

201

