-
Notifications
You must be signed in to change notification settings - Fork 1
/
Warunki_periodyczne.bas
127 lines (121 loc) · 5.48 KB
/
Warunki_periodyczne.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
Attribute VB_Name = "Warunki_periodyczne"
'Autor Paweł Goj
'Warunki periodyczne dla ukladu jednoskośnego i układów o wyższej symetrii
Option Base 1
Sub warunki_periodyczne_sub(x, y, z, xz, xO, yO, zO, maly_uklad, wiersze, iteracja)
'x y z xz - wymiary układu
'xH yH zH - koordynaty atomu 2 w parze
'maly_uklad to tablica z danymi
'wiersze, kolumny to wiersze i kolumny tablicy
'maly_ukladw kolumny w tablicy: id-1, molekula-2, type-3, charge-4, x-5, y-6, z-7, inne
'przekształcenia dnaego atomu
'ściany 6
Select Case iteracja 'inny if
Case 1
xO = maly_uklad(wiersze, 5) + x
yO = maly_uklad(wiersze, 6)
zO = maly_uklad(wiersze, 7)
Case 2
xO = maly_uklad(wiersze, 5) - x
yO = maly_uklad(wiersze, 6)
zO = maly_uklad(wiersze, 7)
Case 3
xO = maly_uklad(wiersze, 5)
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7)
Case 4
xO = maly_uklad(wiersze, 5)
yO = maly_uklad(wiersze, 6) - y
zO = maly_uklad(wiersze, 7)
Case 5
xO = maly_uklad(wiersze, 5) + xz 'musi przesunąć się o wektor [xz, 0, z]
yO = maly_uklad(wiersze, 6)
zO = maly_uklad(wiersze, 7) + z
Case 6
xO = maly_uklad(wiersze, 5) - xz 'musi przesunąć się o wektor -[xz, 0, z]
yO = maly_uklad(wiersze, 6)
zO = maly_uklad(wiersze, 7) - z
'Krawędzie 12
Case 7
xO = maly_uklad(wiersze, 5) + x
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7)
Case 8
xO = maly_uklad(wiersze, 5) + x
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7)
Case 9
xO = maly_uklad(wiersze, 5) - x
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7)
Case 10
xO = maly_uklad(wiersze, 5) + x
yO = maly_uklad(wiersze, 6) - y
zO = maly_uklad(wiersze, 7)
Case 11
xO = maly_uklad(wiersze, 5) + x + xz
yO = maly_uklad(wiersze, 6)
zO = maly_uklad(wiersze, 7) + z
Case 12
xO = maly_uklad(wiersze, 5) - x - xz
yO = maly_uklad(wiersze, 6)
zO = maly_uklad(wiersze, 7) - z
Case 13
xO = maly_uklad(wiersze, 5) - x + xz
yO = maly_uklad(wiersze, 6)
zO = maly_uklad(wiersze, 7) + z
Case 14
xO = maly_uklad(wiersze, 5) + x - xz
yO = maly_uklad(wiersze, 6)
zO = maly_uklad(wiersze, 7) - z
Case 15
xO = maly_uklad(wiersze, 5) + xz
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7) + z
Case 16
xO = maly_uklad(wiersze, 5) - xz
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7) - z
Case 17
xO = maly_uklad(wiersze, 5) + xz
yO = maly_uklad(wiersze, 6) - y
zO = maly_uklad(wiersze, 7) + z
Case 18
xO = maly_uklad(wiersze, 5) - xz
yO = maly_uklad(wiersze, 6) - y
zO = maly_uklad(wiersze, 7) - z
'wieszchołki 8
Case 19
xO = maly_uklad(wiersze, 5) + x + xz
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7) + z
Case 20
xO = maly_uklad(wiersze, 5) + x + xz
yO = maly_uklad(wiersze, 6) - y
zO = maly_uklad(wiersze, 7) + z
Case 21
xO = maly_uklad(wiersze, 5) - x - xz
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7) - z
Case 22
xO = maly_uklad(wiersze, 5) - x - xz
yO = maly_uklad(wiersze, 6) - y
zO = maly_uklad(wiersze, 7) - z
Case 23
xO = maly_uklad(wiersze, 5) - x + xz
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7) + z
Case 24
xO = maly_uklad(wiersze, 5) - x + xz
yO = maly_uklad(wiersze, 6) - y
zO = maly_uklad(wiersze, 7) + z
Case 25
xO = maly_uklad(wiersze, 5) + x - xz
yO = maly_uklad(wiersze, 6) + y
zO = maly_uklad(wiersze, 7) - z
Case 26
xO = maly_uklad(wiersze, 5) + x - xz
yO = maly_uklad(wiersze, 6) - y
zO = maly_uklad(wiersze, 7) - z
End Select
End Sub