| NL |
Integer N |
N OUTIMAGEs |
System procedure outimage: causes the line which is currently being created to be written to the printer or terminal and a new line to be started. |
| RMATEIN |
Array MAT, Integer AZ, EZ, AS, ES |
- |
Stores entered Real Values(INREAL) at positions AT until EZ and AS until ES in the matrix MAT |
| MATA |
Array M, Integer Array X, Integer AZ, NZ, AS, NS, ZEI, HK, W |
NL(3), NL for AZ until NZ, IF W LESS 0 OUTFIX(M(I, J), ELSE OUTINT(X(I, J), ZEI), IF MOD(..) = 0 NL(1) |
Returns a Matrix in a given Layout (where is a newline needed etc.) / Go through matrices, depending on the value of W, return matrix M(I,J) with HK decimals and ZEI distance page or Integer X(I,J) with ZEI distance on page |
| VEKA |
Array V, Integer Array X, Integers W,A,E,HK,Zei |
OUTFIX(M(I,J), ZEI), OUTINT(X(I,J), ZEI), NL(1) |
Returns a Vektor? in a given Layout / Go through matrices, depending on the value of W, return V with HK decimals and ZEI distance on page with ZEI distance on page |
| WOMIN |
Integer BER, N |
change WO |
Depending on randomly chosen indices, change WO (apartment matrix) |
| REST |
Integer G, Reals RESTWERT, INDEX, BASIS |
define Restwert using old value, Basis and Index; floor resulting value |
END RESTREST?? Like END III / Computes 'rest': decimal value above last full Integer of RESTWERT + BASIS * INDEX |
| MATAUS |
Array MR, Integer Array MI, Integers AS, AZ, NS, Z, NZ, Boolean IN |
NL(5), OUTIMAGE, OUTINT(I, 5), OUTTEXT ("I"), OUTINT, OUTFIX, NL(5) |
Returns a Array MI/MR |
| GRUNDAUS |
- |
NL(5), OUTIMAGE, OUTINT(MON, 5), MATAUS(HD, WO...), MATAUS(INST, WO..), MATAUS(INST, WO...) MATAUS(HD, ALTER...) |
Returns Mon (month) and the tables HD and Inst |
| UMSETZ |
Integer VON, ZU, N |
change HD and WO |
Shift workers from one profession to another in HD and WO: VON = from which group; ZU = to which group; N = how many |
| GRUNDEIN |
--- |
change arrays HD, INST, ZEIT,KUMZU, KUMAB, EIN; Integer arrays ALTER, POOL, BW; Vectors SYC, STERIN, JAHRIN, ALGRU, UST, FLUK, ALAB; Integer NEIN |
Manually type in basic setting of each matrix (at begin of each run?) |
| REAL PROCEDURE NAEZI |
- |
- |
Increments ZI by one and then stores AKTEIN(ZA, ZI) in NAEZI |
| MAEND |
Array WERT |
change WERT |
Saves the largest integer less or equal to NAEZI in I and J, If this value is greater 100 then it is saved at WERT(I, J -100), ELSE WERT(I,J) is incremented by this value (NAEZI) |
| VAEND |
Array VEK |
change VEK |
Saves the largest integer less than or equal to NAEZI, IF this integer(I) is >= 100 then VEK(I-100) = NAEZI, ELSE VEK(I) = VEK(I) + NAEZI |
| OUTFIX |
Matrix M(I,J), Integer HK, ZEI |
value of M(I,J) in specific format |
Built-in; return value of matrix M(I,J) in fix point format; with HK decimals and ZEI distance on page |
| OUTINT |
Matrix M(I,J), Integer ZEI |
value of M(I,J) in specific format |
Built-in; return integer in matrix M(I,J); with ZEI distance on page |
| ININT |
- |
Integer |
Built-in; reads Integer number (from experimenter) |