БИБЛИОТЕКА

Гайдар Магдануров

Модуль для расчета конфигурации электронной оболочки нейтрального атома

Вообще думаю, что это мало кому пригодится, но раз уж спросили как это сделать. Я нашел программу на QBasic и переделал ее под Visaul Basic.

Public Sub CalcOrb(nn As Integer,RetString as String)
Open "data.gcb" For Input As #1
If nn < 1 Or nn > 120 Then RetString = "Error calculating (element unknown)"
Sum = 0
k = 1
l = 10
GoSub sub1
GoSub sub2
If nn <= 48 Then GoTo sub0
k = 11
l = 20
GoSub sub1
GoSub sub2
sub0:
GoTo end_
sub1:
S1$ = Space$(1)
s2$ = Space$(0)
For i = k To l
Input #1, orb$
Input #1, n
Sum = Sum + n
If Sum > nn Then n = n + nn - Sum
n = Str(n)
a = Space(0)
If Right$(orb$, 1) = "s" Then a = Space$(1)
RetString = RetString + " " + orb$ + n + " "
If Sum > nn Then GoTo sub3
Next i
sub3:
Return
sub2:
Return
Close #1
end_:
End Sub

Текст файла data.gcb:

1s
2
2s
2
2p
6
3s
2
3p
6
4s
2
3d
10
4p
6
5s
2
4d
10
5p
6
6s
2
4f
14
5d
10
6p
6
7s
2
5f
14
6d
10
7p
6
8s
2

(орбиталь, а за ней максимальное кол-во электронов на ней).

Использование:

Dim MyResult as String

Call CalcOrb(NumberOfElement,MyResult)

msgbox MyResult

Гайдар Магдануров