-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSTAVSEL1MAC
98 lines (97 loc) · 2.37 KB
/
STAVSEL1MAC
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
Procedure Stavsel1(PERCEN:simple; ZAKCIS:longint);
var ii :longint;
Pod :array[1..10000] of longint;
begin
POD[ 1]:=ZAKCIS+ 24;
POD[ 2]:=ZAKCIS+ 27;
POD[ 3]:=ZAKCIS+ 30;
POD[ 4]:=ZAKCIS+ 31;
POD[ 5]:=ZAKCIS+ 35;
POD[ 6]:=ZAKCIS+ 36;
POD[ 7]:=ZAKCIS+ 40;
POD[ 8]:=ZAKCIS+ 41;
POD[ 9]:=ZAKCIS+ 42;
POD[ 10]:=ZAKCIS+ 47;
POD[ 11]:=ZAKCIS+ 48;
POD[ 12]:=ZAKCIS+ 49;
POD[ 13]:=ZAKCIS+ 54;
POD[ 14]:=ZAKCIS+ 55;
POD[ 15]:=ZAKCIS+ 56;
POD[ 16]:=ZAKCIS+ 57;
POD[ 17]:=ZAKCIS+ 58;
POD[ 18]:=ZAKCIS+ 59;
POD[ 19]:=ZAKCIS+ 60;
POD[ 20]:=ZAKCIS+ 61;
POD[ 21]:=ZAKCIS+ 62;
POD[ 22]:=ZAKCIS+ 63;
POD[ 23]:=ZAKCIS+ 64;
POD[ 24]:=ZAKCIS+ 65;
POD[ 25]:=ZAKCIS+ 66;
POD[ 26]:=ZAKCIS+ 67;
POD[ 27]:=ZAKCIS+ 68;
POD[ 28]:=ZAKCIS+ 69;
POD[ 29]:=ZAKCIS+ 70;
POD[ 30]:=ZAKCIS+ 71;
POD[ 31]:=ZAKCIS+ 72;
POD[ 32]:=ZAKCIS+ 73;
POD[ 33]:=ZAKCIS+ 74;
POD[ 34]:=ZAKCIS+ 75;
POD[ 35]:=ZAKCIS+ 76;
POD[ 36]:=ZAKCIS+ 77;
POD[ 37]:=ZAKCIS+ 78;
POD[ 38]:=ZAKCIS+ 79;
POD[ 39]:=ZAKCIS+ 80;
POD[ 40]:=ZAKCIS+ 81;
POD[ 41]:=ZAKCIS+ 82;
POD[ 42]:=ZAKCIS+ 83;
POD[ 43]:=ZAKCIS+ 84;
POD[ 44]:=ZAKCIS+ 85;
POD[ 45]:=ZAKCIS+ 86;
POD[ 46]:=ZAKCIS+ 87;
POD[ 47]:=ZAKCIS+ 88;
POD[ 48]:=ZAKCIS+ 89;
POD[ 49]:=ZAKCIS+ 90;
POD[ 50]:=ZAKCIS+ 91;
POD[ 51]:=ZAKCIS+ 92;
POD[ 52]:=ZAKCIS+ 93;
POD[ 53]:=ZAKCIS+ 94;
POD[ 54]:=ZAKCIS+ 95;
POD[ 55]:=ZAKCIS+ 96;
POD[ 56]:=ZAKCIS+ 97;
POD[ 57]:=ZAKCIS+ 98;
POD[ 58]:=ZAKCIS+ 99;
POD[ 59]:=ZAKCIS+ 100;
POD[ 60]:=ZAKCIS+ 101;
POD[ 61]:=ZAKCIS+ 102;
POD[ 62]:=ZAKCIS+ 103;
POD[ 63]:=ZAKCIS+ 104;
POD[ 64]:=ZAKCIS+ 105;
POD[ 65]:=ZAKCIS+ 106;
POD[ 66]:=ZAKCIS+ 133;
POD[ 67]:=ZAKCIS+ 134;
POD[ 68]:=ZAKCIS+ 136;
POD[ 69]:=ZAKCIS+ 137;
POD[ 80]:=ZAKCIS+ 148;
POD[ 81]:=ZAKCIS+ 149;
POD[ 82]:=ZAKCIS+ 167;
POD[ 83]:=ZAKCIS+ 168;
POD[ 84]:=ZAKCIS+ 169;
POD[ 85]:=ZAKCIS+ 170;
POD[ 86]:=ZAKCIS+ 171;
POD[ 87]:=ZAKCIS+ 172;
POD[ 88]:=ZAKCIS+ 173;
POD[ 89]:=ZAKCIS+ 174;
POD[ 90]:=ZAKCIS+ 175;
POD[ 91]:=ZAKCIS+ 179;
POD[ 92]:=ZAKCIS+ 180;
POD[ 93]:=ZAKCIS+ 181;
POD[ 94]:=ZAKCIS+ 182;
POD[ 95]:=ZAKCIS+ 183;
POD[ 96]:=ZAKCIS+ 184;
POCET:=96;
for II:=1 to POCET do // uprava suradnic vyselektovanych uzlov (zuzenie stavca)
begin
NU:=POD(II); // ! Cislo noveho uzla
NINC(NU,ZAKCIS+2,NU,PERCEN);
end;
end; // Stavsel1