|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1536 (0x600) Types: TextFile Names: »ORGENG.MOD«
└─⟦6ae1c04a5⟧ Bits:30004364 SW1656 IFPS/Personal Version 2.10 release 1.1 └─ ⟦this⟧ »ORGENG.MOD«
COLUMNS UNITS,MACH1,MACH2,PROCESSA,PROCESSB,HRS REQ ØØ ØØ This model uses a set of engineering equations to calculate ØØ the machine resources required to adjust a production plan ØØ to include the new project budgeted. ØØ ØØ Note that the columns are not defined to be time periods. ØØ Here columns 1 through 3 define the machine resources required ØØ while columns 4 through 6 calculate the processes and hours ØØ required to implement this set of production runs. ØØ ØØ PRODUCTION PLAN INPUT: PRODUCTION=DATA ØØ ØØ MANUFACTURING: ØØ ============================= PRODUCT A=DATA FOR 3,PRODUCT AÆ1Å * PREVIOUS 2 FOR 2,' COLSUM(PROCESSA..PROCESSB) PRODUCT B=DATA FOR 3,PRODUCT BÆ1Å * PREVIOUS 2 FOR 2,' COLSUM(PROCESSA..PROCESSB) NEW PRODUCT=PRODUCTION,.60,.90,NEW PRODUCTÆ1Å * PREVIOUS 2 FOR 2,' COLSUM(PROCESSA..PROCESSB) TOTAL MACHINE RESOURCES REQUIRED=0 FOR 5,' SUM(PRODUCT A..NEW PRODUCT) ØØ MACHINE CAPACITY PER SHIFT=DATA TOTAL MACHINE CAPACITY=MACHINE CAPACITY PER SHIFT * NUMBER OF SHIFTS EXCESS OR UNAVAILABLE CAPACITY=TOTAL MACHINE CAPACITY - ' TOTAL MACHINE RESOURCES REQUIRED ØØ DEVELOPMENT COSTS NEW PRODUCT=0 FOR 5,COST PER NEW MACHINE * ' ((MINIMUM(EXCESS OR UNAVAILABLE CAPACITY,0)*-1) / ' TOTAL MACHINE CAPACITY) ØØ ØØ INPUT: NUMBER OF SHIFTS=DATA COST PER NEW MACHINE=DATA «eof»