COMPUTER PROGRAM USER'S MANUAL FOR ... - CAFE Foundation

More documents

Recommendations

Info

HAMILTON STANDARD DECK H432 Computer Program for Advanced General Aviation Propeller Studies MAIN INPUT PERFM ZNOISE WAIT C OST REVTHT UNINT BIQUA D Figure 2A LIST OF SUBROUTINES 47
. FORTRAN .CY G LEVEL 2011 HA1 N DATE = 72034 10/08/04 ~ 0001 0002 0003 0004 0005. 0006 0007 0008 0009 00 10 0011 0012 00 13 0014 0015 0016 0017 00 18 0019 0020 0021 0022 0023 0 024 0025 0026 ~. 0027 0028 0029 00 30 0031 0032 0033 0034 0035 0036 00 37 0038 0 039 0040 0041 0042 0043 0044 0045 REAL*8 BLANK COnHOH/AFCOR/AFCPE,AFCTE,XFT COMHON/ASTRK/CPASTrCTASTERK COMHON/CPECTE/CPEsCTEIBLLLLL DiMENSION FC~lO~rALTPR~ll~~PRESSR~ll~~RORO~lO~~ZMS~Z~ DIMENSION CJIST~lO)rCOUAN~2rll)rCOST70(101rCOST8OtlO~ DIHENSiON BHPG(lO)rTHRSTG110)rTIPSDG(ll) COMMON /ZINPUT/ BHP~10~~THRUST~10~rALT~lO~rVKTAS~lO~~T~lO l*IWIC(lO) TNOFIDIDD,NDIAF*DAFINAFIBLADN.D~LADN,D~L~D, NBL*DTS(lO)rNDTSI. 10) 2~DIST~XNOE~kTCON~ZMWT~STALIT~lO~~CLFl~CLF~CK7O~C~8O~CAMT~DAM 3 ~ D C O S T ~ l O ~ ~ C L X ~ ~ D ~ L ~ ~ Z N C L I ~ R T C ~ R O T ~ P C P ~ ~ l O ~ ~ N P C ~ 4DPCPW (LO) rRPMCl10) rANDVK( 10) DATA ALTPR /0~r10000~~20000~~30000~~40000~~50000~ X60000~~70000~r80000~~90000~~100000~/ DATA PRESSR /1~0~~6877~~4595~~2970~~1851s~1145r.07 X~04419~~02741~~01699~~01054/ DATA BLANK/6H / CBRT(X)= X**(1./3.) 701 CONTINUE WRITE (6.1 I 1 FORMAT ('1',19X'HAMILTON STANDARD COMPUTER DECK NO. H432'/17X*COMP lUTES PERFORMANCEINOISEVWEIGHT*AND COST FOR'/26X'GENERAL AVIATION ZROPELUERS' 1 CALL INPUT DO 700 IC=l,NOF NCOST=DCOST~ICI+.Ol P IF (STALLTt IC).LE..SO) NDTSI. IC)=lO DTS( IC )=O.O 710 CONTINUE GO TO 710 IW= IWIC(1C) C IW=1 HP INPUT C IW=2 THRUST INPUT C IW=3 REVERSE THRUST IF (IW.LE.3) GO TO 3 WQITE (6~2) IWtIC 2 FORMAT * INPUT ERROR9 IW= ',IZ*' GO TO 700 3 CONTINUE IC= '*I2 ) C COMPUTATION OF DENSITY RATIO IFIT(IC))100~100~160 100 IF(ALTIIC)-36000~)120sl20~140 120 T( 16)~518.688-.00356+ALT( IC) GO Tn 180 140 T( IC)=389.988 GO TO 180 160 T(I)=T(IC)+459.69 180 TO=5 18.69 TOT=TO/T( IC) FC I It )=SORTI TOT) CALL UNINT (ll*ALTPRvPRESSR,ALT( RORO(IC)=l.O/IPOP*TOT) IC) *POPILIMIT) C AF LOOP .AFT=AF-DAF IF (IW.EQ.3) GO TO 7000 WRITE (6,706) 706 FORMAT ~*Os~l8X*0PERATING CONDITION'/I IF INCOST-1 )290r2009290 FIGURE 3A. FORTRAN IV LISTING 48
Page 1 and 2: k .” c - 1. -a “ ”- NASA *o *
Page 4 and 5: CONTENTS SUMMARY 1 INTRODUCTION SYM
Page 6: SUMMARY A major outcome of the stud
Page 10 and 11: AF b B C LD C Li cP C Q cT D h J M
Page 12 and 13: TECHNOLOGY IDENTIFICATION ' General
Page 14 and 15: cT T~~ - thrust coefficient - activ
Page 16 and 17: &AF - activity factor adjustment fa
Page 18 and 19: Propeller Weight Generalization A w
Page 20 and 21: Propeller 1. Diameter range 2. Numb
Page 22 and 23: PARAMETRIC STUDY OPTIONS Having dev
Page 24 and 25: 1. 2. 3. 4. 5. 6. 7. a. 9. 10. Card
Page 26 and 27: 6. RPM for zero velocity, full thro
Page 28 and 29: For the option where tipspeed for 5
Page 30 and 31: CONCLUDING REMARKS 1. Generalizatio
Page 32 and 33: j Aircraft Class Seats I. Single En
Page 34 and 35: Y (I) 4 w EFFECTIVE POWER COEFFICIE
Page 36 and 37: I 3 BLADES/IOO AF/O.~ cLi BLADE ANG
Page 38 and 39: PROPELLER INPUT HORSEPOWER FIGURE 5
Page 40 and 41: ~ ja, m ~ MINIMUM CRUISE 370# THRUS
Page 42 and 43: I CATEGORY V I LANDING SPEEDS, KNOT
Page 44 and 45: w W JOB NO.: ACCT. NO: W.O. NO.: !
Page 46 and 47: HAMILTON STANQARD CflMPUTER DECK Nf
Page 48: 2FClPR7CATIVG F'IGI'JF 650. 547. 21
Page 51: DETERMINE TIPSPEED AT WHICH BLADE W
Page 55 and 56: FORTRAN .I.V G LEVEL 2011 . . MA I
Page 57 and 58: FORTRAN I V G LEVEL 20.1 MA IN OATE
Page 59 and 60: FClQTR41 IV G LEVEL 70.1 INPUT DATE
Page 61 and 62: 0017 00 19 00 19 0020 0021 0022 56
Page 63 and 64: FORTRAN I V G LEVEL 20.1 PERFM DATE
Page 65 and 66: FORTRAN IV G LEVEL 20.1 PERFM DATE
Page 67 and 68: . " . -. . . . IDRTRAN .IV..G LEVEL
Page 69 and 70: FOPTRAU 1V C, LFVFL 23.1 ZNO I SF D
Page 71 and 72: FORTRAN I V G LEVEL.. 20.1 . . " .
Page 73 and 74: 0035 0006 0007 001 0 FIGURE 3A. FOR
Page 75 and 76: . .. F3RTpAN 1V.G LFVEL 20,l 0063 0
Page 77 and 78: FI?RTP.AY IV G LEVEL 20.1 R IOUAD D

COMPUTER PROGRAM USER'S MANUAL FOR ... - CAFE Foundation

Create successful ePaper yourself

Delete template?

Save as template?