Ubt - Ust

[ __] - [Ubt] - [ Ust]

Unbitrium

[Ubt]
1 23

E = - 2: Emax=814
For p = 0 To Z
   E = E + FNA(p)
   e1 = E - FNA(p - 1)
   e6 = FNA(p + 1)
   If E >= Z Then
      k = p: p = Z + 1: i = k + 1
    Else
      e2 = E
      e3 = FNA(p)
   End If
   e4 = E - e2
Next p
m = Int(i / 2 + 0.5): l = k - m

E= - 2: Emax=814: Z= 123
p=8
E=168
e1=136
e6=50

k=8 : p=124 : i=9

e2=118
e3=32

e4=50

m = 5 : l = 3

Unsepttrium

[Ust]
173

If Z > e2 + m Then
    e7 = e6 - k
       Else
    e7 = e4 - k
End If
If Z > E - e7 Then
   Z = Z + e6: If Z > EMAX Then Z = Z - e6
     Else
     Z = Z + e4: If Z > EMAX Then Z = Z - e4
   End If
End If

123>118
e7=42= 50-8

123<168-42

Z=123+50

Z= 172

[__]

If Z > e2 + m Then
   Z = Z - e4
e5 = e2 - ( e3 - m + l )
If Z < 1 Or Z < e5 Then Z = Z + e4
Else

   ' Truss Bruchband '
   e5 = e2 - e3 + m
   If e5 <= Z And Z < e2 + m Then
     Z = Z - e3
   Else

' New CODE
    If Z = e2 + FN T (k - 2) Then Z = Z - FN A (k - 1)

   End If
   End If
End If
Print Z;
End If

Z= 123 ; e2=118; m=5
-
e5=118-32+5=91

-

-
-
-
-
FNT(6)=4
118+4=122
Z=123

No changes
from Z means
nothing lies
over [123]

Private Function FNT(N)
FN T = Int((N + 1) / 2) + 1
End Function

N	FNT
0	1
1	2
2	2
3	3
4	3
5	4
6	4
7	5
8	5
9	6
10	6

Ubt
123

Ust
173

Bbt
223

APSIDIUM ©	Created:	2001- 10-17		ubt_ust.pdf
	Last Updated:	2002-09-08		ubt_ust.pdf