TRPIPDAT: 20 INPUT "NEW DATA FOR TRANSFER PIPE LENGHT(Y/N)"; ANS$ IF ANS$ = "Y" THEN INPUT "TYPE IN TRANSFER PIPE LENGHT (LTP)"; LTP INPUT "NEW DATA FOR TRANSFER PORT TO PIPE AREA RATIO (Y/N)"; ANS$ IF ANS$ = "Y" THEN INPUT "TYPE IN TRANFER PORT TO PIPE RATIO (TRAR)"; TRAR INPUT "MORE DATA (Y/N)"; ANS$ IF ANS$ = "Y" THEN GOTO 20 LTM = LTP / 1000 RETURN INPIPDAT: 21 INPUT "NEW DATA FOR INLET PIPE LENGHT (Y/N)"; ANS$ IF ANS$ = "Y" THEN INPUT "TYPE IN INLET PIPE LENGHT(LIP)"; LIP INPUT "NEW INPUT FOR INLET PIPE DIAMETER (Y/N)"; ANS$ IF ANS$ = "Y" THEN INPUT "TYPE IN INLET PIPE DIAMETER (DEP1)"; DIP INPUT "NEW DATA FOR THROTTLE AREA RATIO (Y/N)"; ANS$ IF ANS$ = "Y" THEN INPUT "TYPE IN THROTTLE AREA RATIO(THAR)"; THAR INPUT "MORE DATA(Y/N)"; ANS$ IF ANS$ = "Y" THEN GOTO 21 LIM = LIP / 1000 DIPM = DIP / 1000 FIPM = PI * DIPM * DIPM / 4 RETURN COMBDAT: 22 INPUT "NEW DATA FOR POLYTROPIC COMPRESSION INDEX (Y/N)"; ANS$ IF ANS$ = "Y" THEN INPUT "TYPE IN POLYTROPIC COMPRESSION INDEX(NC)"; NC INPUT "NEW DATA FOR POLYTROPIC EXPANSION INDEX (Y/N)"; ANS$ IF ANS$ = "Y" THEN INPUT "TYPE IN POLYTROPIC EXPANSION INDEX (NE)"; NE INPUT "NEW DATA FOR COMBUSTION EFFICIENCY (Y/N)"; ANS$ IF ASN$ = "Y" THEN INPUT "TYPE IN COMBUSTION EFFICIENCY (BEFF)"; BEFF INPUT "NEW DATA FOR COMBUSTION PERIOD (Y/N)"; ANS$ IF ANS$ = "Y" THEN INPUT "TYPE IN COMBUSTION PERIOD(BDEG)"; BDEG INPUT "NEW DATA FOR TRAPPED AIR-FUEL RATIO (DEFAULT VALUE IS 13)(Y/N)"; ANS$ IF ANS$ = "Y" THEN INPUT "TYPE IN TRAPPED AIR-FUEL RATIO (TAF)"; TAF INPUT "MORE DATA (Y/N)"; ANS$ IF ANS$ = "Y" THEN GOTO 22 RETURN PORTSTART: EPC = 360 - EPO IPC = 360 + IPO IPOD = 360 - IPO TPC = 360 - TPO PFI = 0 PFE = 0 PFT = 0 PFIM = 0 PFEM = 0 PFTM = 0 PWE = WEPM - 2 * RTEM PWT = WTPM - 2 * RTTM PWI = WIPM - 2 * RTIM PHE = 0 PHT = 0 PHI = 0 CALL PISTPOS(STM, CRNK, CRLM, EPO, HEOT, HEOB) CALL PISTPOS(STM, SRNK, CRLM, EPFO, HEFT, HEFB) EXHT = HEFT - HEOT HME = EXHT - RTEM - RBEM CALL PISTPOS(STM, CRNK, CRLM, TPO, HTOT, HTOB) CALL PISTPOS(STM, CRNK, CRLM, TPFO, HTFT, HTFB) TRHT = HTFT - HTOT HMT = HTFT - RTTM - RBTM CALL PISTPOS(STM, CRNK, CRLM, IPO, HIOT, HIOB) CALL PISTPOS(STM, CRNK, CRLM, IPFO, HIFT, HIFB) INHT = HIOT - HIFT HMI = INHT - RTIM - RBIM IF SCAV$ = "UNIFLOW" THEN MSC = -1.7827 IF SCAV$ = "UNIFLOW" THEN CSC = .2094 IF SCAV$ = "SCRE" THEN MSC = -1.6709 IF SCAV$ = "SCRE" THEN CSC = .1899 IF SCAV$ = "YAM1" THEN MSC = -1.6993 IF SCAV$ = "YAM1" THEN CSC = .3053 IF SCAV$ = "YAM6" THEN MSC = -1.3516 IF SCAV$ = "YAM6" THEN CSC = .1435 IF SCAV$ = "CD" THEN MSC = -1.0104 IF SCAV$ = "CD" THEN CSC = -.117 IF SCAV$ = "QUBCR" THEN MSC = -1.6325 IF SCAV$ = "QUBCR" THEN CSC = .1397 RETURN EXPORTSHUT: AKE = 0 ME1 = 0 AE(1) = BE(1) RETURN EXPORTOPEN: PC1R = PC1 / PA IF PEX <= PC1R THEN CCE = .8 IF PEX.PC1R THEN CCE = .8 CALL FPORT(HEOT, HTDC, EXHT, FEPRT, FEP1, AKE, CCE) CALL PORT(AE(1), BE(1), PC1, AKE) IF PEX <= PC1R THEN CDE = .75 IF PEX > PC1R THEN CDE = .75 IF PEX <= PC1R THEN CALL OUTFLOW(AE(1), BE(1), FEP1, TC1, HE1, CE1, ME1, D, CDE) IF PEX > PC1R THEN CALL OUTFLOW(AE(1), BE(1), FEP1, TC1, HE1, CE1, ME1, D, CDE) EXRATIO = EXRATIO + ME1 * DTM / MREF RETURN TRPORTSHUT: AKT = 0 MT1 = 0 AT(1) = BT(1) RETURN