N-P-As

[ N] < [ P] > [ As]

Phosphorus

[P]
15

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=15
p=3
E=18
e1=10
e6=18

k=3: p=16: i=4

e2=10
e3=8

e4=18-10=8

m = 2: l = 1

Arsenic

[As]
33

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=15 >12
e7=15

15>3
Z=15+18

Z=33

Nitrogen

[N]
7

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

   'Alkaloiden Bruch / S(n)
   e5 = e2 - e3 + m
   If e5 <= Z And Z < e2 + m Then
     Z = Z - e3
   Else
' P

redetermined Breaking Points --> The Truss

If Z = 985Then Z = Z - FNA(k - 1) '823
If Z = 694 Then Z = Z - FNA(k - 1) '566
If Z = 467 Then Z = Z - FNA(k - 1) '369
If Z = 296 Then Z = Z - FNA(k - 1) '224
If Z = 173Then Z = Z - FNA(k - 1) '123
If Z = 90 Then Z = Z - FNA(k - 1) '58
If Z = 39 Then Z = Z - FNA(k - 1) '21
If Z = 12 Then Z = Z - FNA(k - 1) '4

    End If
   End If
End If
Print Z;
End If

Z=15 > 12
Z=15 - 8 = 7
e5=3

Else

e5=4

Else

Z=7

APSIDIUM ©	Created:	2001-10-17		n_p_as.pdf
	Last Updated:	2003-03-25		n_p_as.pdf