DataMuseum.dk

top - download

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »NBTBEREG.K«

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »NBTBEREG.K« 

Mikados K File

PROCEDURE REGN(VAR BH:INTEGER;X,Y,V,YM:INTEGER;VAR HB13,FR:AR13;VAR R:AR116);
VAR B,MEL:AR14;K:AR13;
FUNCTION BF1:BOOLEAN;
BEGIN
  BF1:=(R(X+3*Y)<>R(X+2*Y)) AND (R(X+3*Y)<>0)
END;
 
FUNCTION BF2:BOOLEAN;
 
BEGIN
  BF2:=(R(X+2*Y)<>R(X+Y)) AND (R(X+2*Y)<>0)
END;
 
FUNCTION BF3:BOOLEAN;
 
BEGIN
  BF3:=(R(X+Y)<>X) AND (R(X+Y)<>0)
END;
 
FUNCTION BF4:BOOLEAN;
 
BEGIN
  BF4:=(R(X)>=20)
END;
 
BEGIN
  K(1):=0;K(2):=0;K(3):=0;
  CASE V OF
 
    1: BEGIN
         IF BF1 THEN K(3):=1;
         IF BF2 THEN K(2):=1;
         IF BF3 THEN K(1):=1
       END;
    2: BEGIN
         IF BF2 THEN K(3):=1;
         IF BF3 THEN K(2):=1;
         IF BF4 THEN K(1):=1
       END;
    3: BEGIN
         IF BF3 THEN K(3):=1;
         IF BF4 THEN K(2):=1
       END;
    4: IF BF4 THEN K(3):=1;
  END;
  
  MEL(1):= YM-DK-DKP;
  B(4):=(MEL(1)-HB13(3))*FR(3)*K(3);
  MEL(2):=(2*DKP+B(4))*FR(3);
  B(3):=(MEL(1)-HB13(2)-MEL(2))*FR(2)*K(2);
  MEL(3):=(2*DKP+B(3))*FR(2);
  B(2):=(MEL(1)-HB13(1)-(MEL(2)+MEL(3))*FR(2))*FR(1)*K(1);
  MEL(4):=(2*DKP+B(2))*FR(1);
  B(1):=YM-2*DK-(MEL(2)+MEL(3)+MEL(4))*FR(1);
  BH:=B(V)
END;
 
PROCEDURE POSTBEREGN(VAR BH:AR13;YM:INTEGER);
VAR KONSTANT:INTEGER;
 
BEGIN
  KONSTANT:=-KPROFIL.DIM(3)+ROUND(0.5*KPPROFIL.DIM(3));
  LÆNGDE:=KONSTANT;
  IF POST.GÅFRA>0 THEN LÆNGDE:=-BH(POST.GÅFRA);
  IF POST.GÅTIL=4 THEN
    LÆNGDE:=LÆNGDE+YM+KONSTANT
  ELSE
    LÆNGDE:=LÆNGDE+BH(POST.GÅTIL)
END;