Back to Higgledy-piggledy     [ Sc ] - [ Y ] - [ ? ] 

[Picture]

Yttrium
[Y]
39                   Yttrium

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= 39
p=5
E=54
e1=36
e6=32
 
k= 5 :   p=41:   i=6

e2=36
e3=18

e4=18

m = 3 :  l =2
 

[Picture]

  [ ? ]

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
  		Z=39
-

e7=13

39>54-13
-

Z=39+18

 Z= 57
 [La] Lanthanum

 [La] Lanthanum 57

[Picture]

Scandium
 [Sc]
 21

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=39 ; e2=36; m=3
-
 -
-



e5=36-18+3
-
-



FN T (3)=3
FN A (4)=18
Z=39-18


Z=21

[Sc] Scandium 21

[Picture]

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

  Sc
 21		Y
39		  La
  57 		  Ac
 89		Ubu
121		Usu
171		Bbu
221

 

 

 

[Picture]

APSIDIUM   ©   Created:2002- 09-24 This page as PDF-file  
sc_y_nn.pdf
Top Home   Last Updated:2002-09-29