Subversion Repositories Kolibri OS

Rev

Rev 7774 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
229 heavyiron 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;   Periodic Table for KolibriOS
3
;;
4
;;   Периодическая система химических элементов
5
;;         Дмитрия Ивановича Менделеева
6
;;     Авторы:
7
;;       navanax [violetlab+rambler.ru]
8
;;      Johnny_B [john+kolibrios.org]
9
;;
10
;; макрос для создания массива указателей на ASCIIZ-строки
11
 
485 heavyiron 12
include '..\..\..\macros.inc'
229 heavyiron 13
macro strtbl name,[string]
14
{
15
 common
16
  label name dword
17
 forward
18
  local lbl
19
  dd lbl
20
 forward
21
  lbl db string,0
22
}
23
 
24
use32
25
 
8717 Doczom 26
 org    0x0
27
 db     'MENUET01'    ; стандартный 8-байтовый заголовок для исполняемых файлов MeOS
28
 dd     0x01          ; версия заголовка
29
 dd     START         ; указатель на начало исполняемого кода
30
 dd     I_END         ; размер образа
31
 dd     I_END+0x1000   ; требуемая память для приложения
32
 dd     I_END+0x1000   ; указатель на начала стека
33
 dd     0x0 , 0x0     ; I_Param , I_Icon
229 heavyiron 34
 
35
;ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ И КОНСТАНТЫ
8717 Doczom 36
re_ID  dd  0x00000001   ;для хранения номера текущего выводимого элемента
229 heavyiron 37
 
38
START:
485 heavyiron 39
 
40
      mov  eax,48
41
      mov  ebx,3
42
      mov  ecx,sc
43
      mov  edx,sizeof.system_colors
44
      mcall
45
 
229 heavyiron 46
red:
47
      call draw_window
48
 
8717 Doczom 49
still:                ;основной цикл программы
485 heavyiron 50
      push 10   ;ожидание события
229 heavyiron 51
      pop  eax
485 heavyiron 52
      mcall
53
 
54
      dec  eax
229 heavyiron 55
      je   red
56
      dec  eax
57
      jne  button
58
 
59
key:
8717 Doczom 60
        mov  al,2
61
        mcall
62
        jmp  still
229 heavyiron 63
 
64
button:
8717 Doczom 65
        mov  al,17   ;получаем ID нажатой кнопки
66
        mcall
67
        shr  eax,8    ; eax=24-битный ButtonID
229 heavyiron 68
 
8717 Doczom 69
        cmp  eax,1    ;нажата ли "Закрыть" [x]
70
        jne  noclose
71
        or   eax,-1
72
        mcall
229 heavyiron 73
 
74
noclose:
75
      cmp eax,200
76
      jne no_H
77
      mov eax,1
78
no_H:
8717 Doczom 79
        mov [re_ID],eax
229 heavyiron 80
;; 
8717 Doczom 81
        call draw_text
229 heavyiron 82
;; 
8717 Doczom 83
        jmp still
229 heavyiron 84
 
85
draw_window:
8717 Doczom 86
 
485 heavyiron 87
        mov  eax,12   ;begin drawing
8717 Doczom 88
        xor  ebx,ebx
89
        inc  ebx
90
        mcall
91
                                       ; DRAW WINDOW
92
        xor  eax,eax
93
        mov  ebx,50*65536+555  ;x
94
        mov  ecx,30*65536+455  ;y
229 heavyiron 95
      mov  edx,[sc.work]
8717 Doczom 96
        or   edx,0x34000000    ;style
97
        mov  edi,caption
98
        mcall
229 heavyiron 99
 
485 heavyiron 100
text_in_window:
8717 Doczom 101
        mov  eax,4           ;вывод текста
102
        mov  ecx,0x80000000  ;asciiz, ЦВЕТ !!!
229 heavyiron 103
 
8717 Doczom 104
        mov  ebx,40*65536+200         ;лантаноиды
105
        mov  edx,Lantanoid_text
106
        mcall
229 heavyiron 107
 
8717 Doczom 108
        add  ebx,20                    ;актиноиды
109
        mov  edx,Actinoid_text
110
        mcall
229 heavyiron 111
 
8717 Doczom 112
        mov  ebx,150*65536+255
113
        mov  edx,number
114
        mcall
229 heavyiron 115
 
8717 Doczom 116
        add  ebx,15
117
        mov  edx,name
118
        mcall
229 heavyiron 119
 
8717 Doczom 120
        add ebx,15
121
        mov edx,eng_name
122
        mcall
229 heavyiron 123
 
8717 Doczom 124
        add ebx,15
125
        mov edx,Atomic_massa
126
        mcall
229 heavyiron 127
 
8717 Doczom 128
        add ebx,15
129
        mov edx,density
130
        mcall
229 heavyiron 131
 
8717 Doczom 132
        add ebx,15
133
        mov edx,Step_okisl
134
        mcall
229 heavyiron 135
 
8717 Doczom 136
        add ebx,15
137
        mov edx,Electrootr
138
        mcall
229 heavyiron 139
 
8717 Doczom 140
        add ebx,15
141
        mov edx,T_pl
142
        mcall
229 heavyiron 143
 
8717 Doczom 144
        add ebx,15
145
        mov edx,T_kip
146
        mcall
229 heavyiron 147
 
8717 Doczom 148
        add ebx,15
149
        mov edx,Raspr
150
        mcall
229 heavyiron 151
 
8717 Doczom 152
        add ebx,15
153
        mov edx,Otkrytie
154
        mcall
229 heavyiron 155
 
8717 Doczom 156
        ; ВЫВОД НОМЕРОВ ПЕРИОДОВ
157
        mov ebx,30*65536+43
158
        mov edx,Period_text  ;1
159
        mcall
229 heavyiron 160
 
8717 Doczom 161
        call @f              ;2
162
        call @f              ;3
163
        call @f              ;4
164
        call @f              ;5
165
        call @f              ;6
166
        call @f              ;7
167
        jmp  Table
229 heavyiron 168
 
169
      @@:
8717 Doczom 170
        add ebx,20
171
        add edx,4   ;т.к. строка = 4 байтам(с нулём)
172
        mcall
229 heavyiron 173
       ret
174
 
8717 Doczom 175
Table:                 ;Отрисовка таблицы в виде конопочек
176
        table_row_1:
177
                        shl eax,1
178
                        mov  ebx,50*65536+25
179
                        mov  ecx,35*65536+20
180
                        mov  edx,200
181
                        mov  esi,0xE19123
182
                        mcall
183
                He_:
184
                        mov  ebx,491*65536+25
185
                        mov  esi,0x0f0c314
186
                        mov  edx,2
187
                        mcall
188
        table_row_2:
189
                Li:
190
                      mov  ebx,50*65536+25
191
                        mov  ecx,56*65536+20
192
                        mov  esi,0xE19123
193
                        inc edx
194
                        mcall
195
                Be:
196
                        mov  ebx,76*65536+25
197
                        inc edx
198
                        mcall
199
                B_:
200
                        mov  ebx,361*65536+25
201
                        inc edx
202
                        mov esi,0x0f0c314
203
                        mcall
204
                        mov edi,4
205
                table_row_2_loop:
206
                        add ebx,26*65536
207
                        inc edx
208
                        mcall
209
                        dec edi
210
                        jns table_row_2_loop
211
        table_row_3:
212
                Na:
213
                       mov  ebx,50*65536+25
214
                        mov  ecx,77*65536+20
215
                        mov  esi,0xE19123
216
                        inc edx
217
                        mcall
229 heavyiron 218
 
8717 Doczom 219
                        mov  ebx,76*65536+25
220
                        inc edx
221
                        mcall
229 heavyiron 222
 
8717 Doczom 223
                        mov  ebx,361*65536+25
224
                        inc edx
225
                        mov esi,0x0f0c314
226
                        mcall
227
                        mov edi,4
228
                table_row_3_loop:
229
                        add ebx,26*65536
230
                        inc edx
231
                        mcall
232
                        dec edi
233
                        jns table_row_3_loop
229 heavyiron 234
 
8717 Doczom 235
        Table_row_4:
236
                K_:
237
                       mov  ebx,50*65536+25
238
                        mov  ecx,98*65536+20
239
                        mov  esi,0xE19123
240
                        inc edx
241
                        mcall
242
                Ca:
243
                       mov  ebx,76*65536+25
244
                        inc edx
245
                        mcall
246
                Sc:
247
                        mov  ebx,102*65536+25
248
                        inc edx
249
                        mov  esi,0x559beb
250
                        mcall
251
                        mov edi,8
252
                Table_row_4_loop1:
253
                        add ebx,26*65536
254
                        inc edx
255
                        mcall
256
                        dec edi
257
                        jns Table_row_4_loop1
229 heavyiron 258
 
8717 Doczom 259
                        mov  ebx,361*65536+25
260
                        inc edx
261
                        mov esi,0x0f0c314
262
                        mcall
263
                        mov edi,4
264
                table_row_4_loop2:
265
                        add ebx,26*65536
266
                        inc edx
267
                        mcall
268
                        dec edi
269
                        jns table_row_4_loop2
229 heavyiron 270
 
8717 Doczom 271
         Table_row_5:
272
                Rb_:
273
                       mov  ebx,50*65536+25
274
                        mov  ecx,119*65536+20
275
                        mov  esi,0xE19123
276
                        inc edx
277
                        mcall
278
                Sr_:
279
                       mov  ebx,76*65536+25
280
                        inc edx
281
                        mcall
282
                Y_:
283
                        mov  ebx,102*65536+25
284
                        inc edx
285
                        mov  esi,0x559beb
286
                        mcall
287
                        mov edi,8
288
                Table_row_5_loop1:
289
                        add ebx,26*65536
290
                        inc edx
291
                        mcall
292
                        dec edi
293
                        jns Table_row_5_loop1
229 heavyiron 294
 
8717 Doczom 295
                        mov  ebx,361*65536+25
296
                        inc edx
297
                        mov esi,0x0f0c314
298
                        mcall
299
                        mov edi,4
300
                table_row_5_loop2:
301
                        add ebx,26*65536
302
                        inc edx
303
                        mcall
304
                        dec edi
305
                        jns table_row_5_loop2
229 heavyiron 306
 
8717 Doczom 307
         Table_row_6:
308
                Cs_:
309
                       mov  ebx,50*65536+25
310
                        mov  ecx,140*65536+20
311
                        mov  esi,0xE19123
312
                        inc edx
313
                        mcall
314
                Ba_:
315
                       mov  ebx,76*65536+25
316
                        inc edx
317
                        mcall
318
                La_:
319
                        mov  ebx,102*65536+25
320
                        inc edx
321
                        mov  esi,0x559beb
322
                        mcall
323
                        mov edx,71
324
                        mov edi,8
325
                Table_row_6_loop1:
326
                        add ebx,26*65536
327
                        inc edx
328
                        mcall
329
                        dec edi
330
                        jns Table_row_6_loop1
229 heavyiron 331
 
8717 Doczom 332
                        mov  ebx,361*65536+25
333
                        inc edx
334
                        mov esi,0x0f0c314
335
                        mcall
336
                        mov edi,4
337
                table_row_6_loop2:
338
                        add ebx,26*65536
339
                        inc edx
340
                        mcall
341
                        dec edi
342
                        jns table_row_6_loop2
229 heavyiron 343
 
8717 Doczom 344
         Table_row_7:
345
                Fr_:
346
                       mov  ebx,50*65536+25
347
                        mov  ecx,161*65536+20
348
                        mov  esi,0xE19123
349
                        inc edx
350
                        mcall
351
                Ra_:
352
                       mov  ebx,76*65536+25
353
                        inc edx
354
                        mcall
355
                Ac_:
356
                        mov  ebx,102*65536+25
357
                        inc edx
358
                        mov  esi,0x559beb
359
                        mcall
360
                        mov edx,103
361
                        mov edi,8
362
                Table_row_7_loop1:
363
                        add ebx,26*65536
364
                        inc edx
365
                        mcall
366
                        dec edi
367
                        jns Table_row_7_loop1
229 heavyiron 368
 
8717 Doczom 369
                        mov  ebx,361*65536+25
370
                        inc edx
371
                        mov esi,0x0f0c314
372
                        mcall
373
                        mov edi,4
374
                table_row_7_loop2:
375
                        add ebx,26*65536
376
                        inc edx
377
                        mcall
378
                        dec edi
379
                        jns table_row_7_loop2
229 heavyiron 380
 
8717 Doczom 381
        row_1:
382
                Cerium_:
383
                        mov  ebx,102*65536+25
384
                        mov  ecx,190*65536+20
385
                        mov  edx,58
386
                        mov  esi,0x73beeb
387
                        mcall
388
                        mov edi,12
229 heavyiron 389
 
8717 Doczom 390
                row_1_loop:
391
                        add ebx,26*65536
392
                        inc edx
393
                        mcall
394
                        dec edi
395
                        jns row_1_loop
396
        row_2:
397
                dgfsfHe_:
398
                        mov  ebx,102*65536+25
399
                        mov  ecx,211*65536+20
400
                        mov  edx,90
401
                        mcall
402
                        mov edi,12
403
                row_2_loop:
229 heavyiron 404
 
8717 Doczom 405
                        add ebx,26*65536
406
                        inc edx
407
                        mcall
408
                        dec edi
409
                        jns row_2_loop
229 heavyiron 410
 
485 heavyiron 411
text_on_buttons:
8717 Doczom 412
        text_row1:
413
                ;H
414
                        shr eax,1
415
                        mov ebx,62*65536+43
416
                        mov ecx,0x00000000
417
                        mov edx,Symbols
418
                        mov esi,3
419
                        mcall
420
                ;Ne
421
                        mov ebx,500*65536+43
422
                        add edx,3
423
                        mcall
424
        text_row2_1:
425
                        mov ebx,60*65536+63
426
                        add edx,3
427
                        mcall
229 heavyiron 428
 
8717 Doczom 429
                        mov ebx,85*65536+63
430
                        add edx,3
431
                        mcall
432
        text_row2_2:
433
                        mov ebx,374*65536+63
434
                        add edx,3
435
                        mcall
436
                        mov edi,4
229 heavyiron 437
 
8717 Doczom 438
        text_row2_2_loop:
439
                        add ebx,25*65536
440
                        add edx,3
441
                        mcall
229 heavyiron 442
 
8717 Doczom 443
                        dec edi
444
                        jns text_row2_2_loop
445
        text_row3_1:
446
                        mov ebx,60*65536+83
447
                        add edx,3
448
                        mcall
229 heavyiron 449
 
8717 Doczom 450
                        mov ebx,85*65536+83
451
                        add edx,3
452
                        mcall
453
        text_row3_2:
454
                        mov ebx,374*65536+83
455
                        add edx,3
456
                        mcall
457
                        mov edi,4
458
        text_row3_2_loop:
459
                        add ebx,25*65536
460
                        add edx,3
461
                        mcall
229 heavyiron 462
 
8717 Doczom 463
                        dec edi
464
                        jns text_row3_2_loop
465
        text_row4:
466
                        mov ebx,60*65536+104
467
                        add edx,3
468
                        mcall
469
                        mov edi,16
470
        text_row4_loop:
471
                        add ebx,26*65536
472
                        add edx,3
473
                        mcall
229 heavyiron 474
 
8717 Doczom 475
                        dec edi
476
                        jns text_row4_loop
477
        text_row5:
478
                        mov ebx,60*65536+125
479
                        add edx,3
480
                        mcall
481
                        mov edi,16
482
        text_row5_loop:
483
                        add ebx,26*65536
484
                        add edx,3
485
                        mcall
229 heavyiron 486
 
8717 Doczom 487
                        dec edi
488
                        jns text_row5_loop
489
        text_row6:
490
                        mov ebx,60*65536+146
491
                        add edx,3
492
                        mcall
493
                        mov edi,16
494
        text_row6_loop:
495
                        add ebx,26*65536
496
                        add edx,3
497
                        mcall
498
                        dec edi
499
                        jns text_row6_loop
500
        text_row7:
501
                        mov ebx,60*65536+167
502
                        add edx,3
503
                        mcall
504
                        mov edi,11          ;9
505
        text_row7_loop:
506
                        add ebx,26*65536
507
                        add edx,3
508
                        mcall
229 heavyiron 509
 
8717 Doczom 510
                        dec edi
511
                        jns text_row7_loop
512
                        mov edi,4
513
        text_row7_loop2:
514
                        add ebx,26*65536
515
                        add edx,3
516
                        mcall
517
                        dec edi
518
                        jns text_row7_loop2
229 heavyiron 519
 
8717 Doczom 520
        text_row8:
521
                        mov ebx,111*65536+197
522
                        add edx,3
523
                        mcall
524
                        mov edi,12
229 heavyiron 525
 
8717 Doczom 526
        text_row8_loop:
527
                        add ebx,26*65536
528
                        add edx,3
529
                        mcall
229 heavyiron 530
 
8717 Doczom 531
                        dec edi
532
                        jns text_row8_loop
229 heavyiron 533
 
8717 Doczom 534
        text_row9:
535
                        mov ebx,111*65536+217
536
                        add edx,3
537
                        mcall
538
                        mov edi,12
229 heavyiron 539
 
8717 Doczom 540
        text_row9_loop:
541
                        add ebx,26*65536
542
                        add edx,3
543
                        mcall
229 heavyiron 544
 
8717 Doczom 545
                        dec edi
546
                        jns text_row9_loop
229 heavyiron 547
 
548
;;  - короче выносим в отдельную процедуру
8717 Doczom 549
        call draw_text
229 heavyiron 550
;; 
551
 
552
  finish:
8717 Doczom 553
        mov eax,12  ;end drawing
554
        mov ebx,2
555
        mcall
229 heavyiron 556
ret
557
 
485 heavyiron 558
draw_text:
229 heavyiron 559
 
560
   ; 1 вывод порядкового номера [optmzd-mem]
561
   ; 2 вывод русского названия [optmzd-mem]
562
   ; 3 вывод английского названия [optmzd-spd]
563
   ; 4 вывод атомной массы [optmzd-spd]
564
   ; 5 вывод плотность [optmzd-mem]
565
   ; 6 вывод степень окисления [optmzd-mem]
566
   ; 7 вывод электроотрицательности [optmzd-spd]
567
   ; 8 вывод температура плавления [optmzd-mem]
568
   ; 9 вывод температура кипения [optmzd-mem]
569
   ;10 вывод распределение в земной коре [optmzd-mem]
570
   ;11 вывод имён первооткрывателей [optmzd-mem]
571
 
572
;;  - закраска, что-бы не было наложения при прорисовке текста
8717 Doczom 573
        mov eax,13
574
        mov ebx,320*65536+210
575
        mov ecx,255*65536+(15*11)
576
        mov edx,[sc.work]
577
        mcall
229 heavyiron 578
;; 
579
 
580
 
581
  push edi  ; чтобы оптимизировать изменения ebx
582
 
8717 Doczom 583
        ; 1 вывод порядкового номера [optmzd-mem]
584
        mov ebx,0x30000         ;выводить 3 цифры
585
        mov ecx,[re_ID]
586
        mov edx,320*65536+255
587
        xor esi,esi
588
        mov eax,47
589
        mcall
229 heavyiron 590
 
591
;ВНИМАНИЕ! ЗДЕСЬ ЗАДАЁТСЯ ЦВЕТ ВСЕГО ОСТАЛЬНОГО ТЕКСТА! [сделано для сокращения кода на 20 байт :)))]
8717 Doczom 592
        mov ecx,[sc.work_text]  ; ЦВЕТ
229 heavyiron 593
      or  ecx,0x80000000      ; asciiz
8717 Doczom 594
        mov eax,4  ; эта функция вызывается 10 раз! так что запишем 1 раз
229 heavyiron 595
 
8717 Doczom 596
        ; 2 вывод РУССКОЕ НАЗВАНИЕ [optmzd-mem]
597
        mov edi,Rus_nazv         ;указатель на начало массива указателей ;)
598
        mov ebx,320*65536+255    ;здесь вносятся координаты, дальше будет лишь add ebx,15
599
        call out_asciiz_item
229 heavyiron 600
 
8717 Doczom 601
        xor ecx,ecx   ;color
602
        ; 3 вывод английского названия [optmzd-spd]
603
        mov edx,Elements
604
        mov edi,[re_ID]
605
        dec edi
606
        mov esi,12       ;длина строки
607
        imul edi,esi     ;считаем указатель на нужную строку
608
        add edx,edi
609
        add ebx,15       ; увеличиваем y-координату текста на 15 пикселей
610
        mcall
229 heavyiron 611
 
8717 Doczom 612
        ; 4 вывод атомной массы [optmzd-spd]
613
        mov edx,MassNo
614
        mov edi,[re_ID]
615
        dec edi
616
        mov esi,7        ;длина строки
617
        imul edi,esi     ;считаем указатель на нужную строку
618
        add edx,edi
619
        add ebx,15
620
        mcall
229 heavyiron 621
 
8717 Doczom 622
        mov  ecx,0x80000000  ;asciiz, ЦВЕТ !!!
623
        ; 5 вывод ПЛОТНОСТЬ [optmzd-mem]
624
        mov edi,Plotnost
625
        call out_asciiz_item
229 heavyiron 626
 
8717 Doczom 627
        ; 6 вывод СТЕПЕНЬ ОКИСЛЕНИЯ [optmzd-mem]
628
        mov edi,Step_ok
629
        call out_asciiz_item
229 heavyiron 630
 
8717 Doczom 631
        xor ecx,ecx  ;color
632
        ; 7 вывод ЭЛЕКТРООТРИЦАТЕЛЬНОСТЬ [optmzd-spd]
633
        mov edx,Electr
634
        mov edi,[re_ID]
635
        dec edi
636
        mov esi,4        ;длина строки
637
        shl edi,2
638
        add edx,edi
639
        add ebx,15
640
        mcall
229 heavyiron 641
 
8717 Doczom 642
        mov  ecx,0x80000000  ;asciiz, ЦВЕТ !!!
643
        ; 8 вывод ТЕМПЕРАТУРА ПЛАВЛЕНИЯ [optmzd-mem]
644
        mov edi,T_plavl
645
        call out_asciiz_item
229 heavyiron 646
 
8717 Doczom 647
        ; 9 вывод ТЕМПЕРАТУРА КИПЕНИЯ [optmzd-mem]
648
        mov edi,T_kipen
649
        call out_asciiz_item
229 heavyiron 650
 
8717 Doczom 651
        ;10 вывод РАСПРЕДЕЛЕНИЕ В ЗЕМНОЙ КОРЕ [optmzd-mem]
652
        mov edi,Rasprostr
653
        call out_asciiz_item
229 heavyiron 654
 
8717 Doczom 655
        ;11 вывод имён первооткрывателей [optmzd-mem]
656
        mov edi,First_Explore
657
        call out_asciiz_item
229 heavyiron 658
 
659
  pop edi   ; он был сохранён в начале :)
660
  ret
661
 
662
;функция выполняет набор действий для вывода информации
663
out_asciiz_item:
8717 Doczom 664
        mov edx,[re_ID]
665
        dec edx
666
        shl edx,2                ;умножить на 4 (размер указателя)
667
        mov edx,[edx+edi]        ;указатель на строку в edx
668
        add ebx,15
669
        mcall
229 heavyiron 670
ret
671
 
672
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
673
;;                                      ;;
674
;;          ОБЛАСТЬ ДАННЫХ              ;;
675
;;                                      ;;
676
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
677
;---- begin ---- Данные для ГЛАВНОГО окна --------------------------
8717 Doczom 678
caption           db  'Периодическая система Д.И.Менделеева by navanax & Johnny_B',0
485 heavyiron 679
density           db  'Плотность',0
8717 Doczom 680
Atomic_massa      db  'Атомная масса',0
681
name              db  'Название',0
682
eng_name          db  'Англ. название',0
683
T_pl              db  'Температура пл.',0
684
T_kip             db  'Температура кип.',0
685
Electrootr        db  'Электроотрицательность',0
686
Raspr             db  'Распределение в земн. коре',0
687
Step_okisl        db  'Степень окисления',0
688
Otkrytie          db  'Открытие',0
689
number            db  'Порядковый номер',0
229 heavyiron 690
Period_text:
691
 db '  I',0
692
 db ' II',0
693
 db 'III',0
694
 db ' IV',0
695
 db '  V',0
696
 db ' VI',0
697
 db 'VII',0
698
Lantanoid_text db 'Лантаноиды',0
699
Actinoid_text  db ' Актиноиды',0
700
;---- end ------ Данные для ГЛАВНОГО окна --------------------------
701
 
702
 
703
;*********************************************
704
;    БАЗА ДАННЫХ ПО ХИМИЧЕСКИМ ЭЛЕМЕНТАМ
705
;*********************************************
706
;определимся, что кол-во элементов = 116. Ни больше, ни меньше!
707
;Каждый массив должен содержать 116 элементов,
708
;чтобы не было выхода за его пределы
709
 
710
;Английское название
8717 Doczom 711
Elements:            ;116 элементов
229 heavyiron 712
db 'Hydrogen    '    ; 1
713
db 'Helium      '
714
db 'Lithium     '
715
db 'Beryllium   '
716
db 'Boron       '
717
db 'Carbon      '
718
db 'Nitrogen    '
719
db 'Oxygen      '
720
db 'Fluorine    '
721
db 'Neon        '
722
db 'Sodium      '
723
db 'Magnesium   '
724
db 'Aluminum    '
725
db 'Silicon     '
726
db 'Phosphorus  '
727
db 'Sulfur      '
728
db 'Chlorine    '
729
db 'Argon       '
730
db 'Potassium   '
731
db 'Calcium     '  ;20
732
db 'Scandium    '
733
db 'Titanium    '
734
db 'Vandium     '
735
db 'Chromium    '
736
db 'Manganese   '
737
db 'Iron        '
738
db 'Cobalt      '
739
db 'Nickel      '
740
db 'Copper      '
741
db 'Zinc        ' ;30
742
db 'Gallium     '
743
db 'Germanium   '
744
db 'Arsenic     '
745
db 'Selenium    '
746
db 'Bromine     '
747
db 'Krypton     '
748
db 'Rubidium    '
749
db 'Strontium   '
750
db 'Yttrium     '
751
db 'Zirconium   '
752
db 'Niobium     '
753
db 'Molybdenum  '
754
db 'Technetium  '
755
db 'Ruthenium   '
756
db 'Rhodium     '
757
db 'Palladium   '
758
db 'Silver      '
759
db 'Cadmium     '
760
db 'Indium      '
761
db 'Tin         '  ;50
762
db 'Antimony    '
763
db 'Tellurium   '
764
db 'Iodine      '
765
db 'Xenon       '
766
db 'Cesium      '
767
db 'Barium      '
768
db 'Lanthanum   '
769
db 'Cerium      '
770
db 'Praseodymium'
771
db 'Neodymium   '
772
db 'Promethium  '
773
db 'Samarium    '
774
db 'Europium    '
775
db 'Gadolinium  '
776
db 'Terbium     '
777
db 'Dysprosium  '
778
db 'Homium      '
779
db 'Erbium      '
780
db 'Thulium     '
781
db 'Ytterbium   '  ;70
782
db 'Lutetium    '
783
db 'Hafnium     '
784
db 'Tantalum    '
785
db 'Tungsten    '
786
db 'Rhenium     '
787
db 'Osmium      '
788
db 'Iridum      '
789
db 'Platinum    '
790
db 'Gold        '
791
db 'Mercury     '  ;80
792
db 'Thallium    '
793
db 'Lead        '
794
db 'Bismuth     '
795
db 'Polonium    '
796
db 'Astatine    '
797
db 'Radon       '
798
db 'Francium    '
799
db 'Radium      '
800
db 'Actinum     '
801
db 'Thorium     '  ;90
802
db 'Protactinium'
803
db 'Uranium     '
804
db 'Neptunium   '
805
db 'Plutonium   '
806
db 'Americium   '
807
db 'Curium      '
808
db 'Berkelium   '
809
db 'Californium '
810
db 'Einsteinium '
811
db 'Fermium     '  ;100
812
db 'Mendelevium '
813
db 'Nobelium    '
814
db 'Lawrencium  '
815
db 'Reserfordium'
816
db 'Dubnium     '
817
db 'Siborgovium '
818
db 'Boronium    '
819
db 'Hassium     '
820
db 'Meithnerium '
7774 leency 821
db 'Darmstadtium'  ;110
229 heavyiron 822
db 'Roentgenium '
7774 leency 823
db 'Copernicium '
824
db 'Nihonium    '
825
db 'Flerovium   '
826
db 'Moscovium   '
827
db 'Livermorium '  ;116
8717 Doczom 828
db 'Tennessine  '
829
db 'Oganesson   '
229 heavyiron 830
 
831
 
832
;---------------------------------
833
 
834
Symbols:   ;116 элементов
835
db 'H  '
836
db 'He '
837
db 'Li '
838
db 'Be '
839
db 'B  '
840
db 'C  '
841
db 'N  '
842
db 'O  '
843
db 'F  '
844
db 'Ne '
845
db 'Na '
846
db 'Mg '
847
db 'Al '
848
db 'Si '
849
db 'P  '
850
db 'S  '
851
db 'Cl '
852
db 'Ar '
853
db 'K  '
854
db 'Ca '
855
db 'Sc '
856
db 'Ti '
857
db 'V  '
858
db 'Cr '
859
db 'Mn '
860
db 'Fe '
861
db 'Co '
862
db 'Ni '
863
db 'Cu '
864
db 'Zn '
865
db 'Ga '
866
db 'Ge '
867
db 'As '
868
db 'Se '
869
db 'Br '
870
db 'Kr '
871
db 'Rb '
872
db 'Sr '
873
db 'Y  '
874
db 'Zr '
875
db 'Nb '
876
db 'Mo '
877
db 'Tc '
878
db 'Ru '
879
db 'Rh '
880
db 'Pd '
881
db 'Ag '
882
db 'Cd '
883
db 'In '
884
db 'Sn '
885
db 'Sb '
886
db 'Te '
887
db 'I  '
888
db 'Xe '
889
db 'Cs '
890
db 'Ba '
891
db 'La '
892
db 'Hf '
893
db 'Ta '
894
db 'W  '
895
db 'Re '
896
db 'Os '
897
db 'Ir '
898
db 'Pt '
899
db 'Au '
900
db 'Hg '
901
db 'Tl '
902
db 'Pb '
903
db 'Bi '
904
db 'Po '
905
db 'At '
906
db 'Rn '
907
db 'Fr '
908
db 'Ra '
909
db 'Ac '
910
db 'Rf '
911
db 'Db '
912
db 'Sg '
913
db 'Bh '
914
db 'Hs '
915
db 'Mt '
916
db 'Ds '
917
db 'Rg '
7774 leency 918
db 'Cn '
919
db 'Nh '
920
db 'Fi '
921
db 'Mc '
922
db 'Lv '
8717 Doczom 923
;
924
db 'Ts '
925
db 'Og '
926
;
229 heavyiron 927
db 'Ce '
928
db 'Pr '
929
db 'Nd '
930
db 'Pm '
931
db 'Sm '
932
db 'Eu '
933
db 'Gd '
934
db 'Tb '
935
db 'Dy '
936
db 'Ho '
937
db 'Er '
938
db 'Tm '
939
db 'Yb '
940
db 'Lu '
941
db 'Th '
942
db 'Pa '
943
db 'U  '
944
db 'Np '
945
db 'Pu '
946
db 'Am '
947
db 'Cm '
948
db 'Bk '
949
db 'Cf '
950
db 'Es '
951
db 'Fm '
952
db 'Md '
953
db 'No '
954
db 'Lr '
955
 
956
;АТОМНАЯ МАССА
8717 Doczom 957
MassNo:          ;116 элементов
958
db '1.00794'     ; 1
229 heavyiron 959
db '4.0026 '
485 heavyiron 960
db '6.941  '
961
db '9.01218'
229 heavyiron 962
db '10.811 '
485 heavyiron 963
db '12.0107'
229 heavyiron 964
db '14.0067'
965
db '15.9994'
966
db '18.9984'
8717 Doczom 967
db '20.179 '     ; 10
229 heavyiron 968
db '22.9898'
969
db '24.305 '
970
db '26.9815'
485 heavyiron 971
db '28.0855'
229 heavyiron 972
db '30.9738'
973
db '32.066 '
974
db '35.453 '
975
db '39.948 '
485 heavyiron 976
db '39.0983'
8717 Doczom 977
db '40.078 '     ; 20
485 heavyiron 978
db '44.9559'
229 heavyiron 979
db '47.88  '
485 heavyiron 980
db '50.9415'
229 heavyiron 981
db '51.996 '
982
db '54.938 '
983
db '55.847 '
984
db '58.9332'
485 heavyiron 985
db '58.6934'
229 heavyiron 986
db '63.546 '
8717 Doczom 987
db '65.39  '     ; 30
229 heavyiron 988
db '69.723 '
989
db '72.61  '
990
db '74.922 '
991
db '78.96  '
992
db '79.904 '
993
db '83.80  '
994
db '85.47  '
995
db '87.62  '
996
db '88.906 '
8717 Doczom 997
db '91.224 '     ; 40
229 heavyiron 998
db '92.906 '
999
db '95.94  '
1000
db '(98)   '
1001
db '101.07 '
1002
db '102.905'
1003
db '106.42 '
1004
db '107.868'
1005
db '112.41 '
1006
db '114.82 '
8717 Doczom 1007
db '118.71 '     ; 50
229 heavyiron 1008
db '121.75 '
1009
db '127.60 '
1010
db '126.90 '
1011
db '131.29 '
1012
db '132.90 '
1013
db '137.33 '
1014
db '138.91 '
1015
db '140.12 '
1016
db '140.91 '
8717 Doczom 1017
db '144.24 '     ; 60
229 heavyiron 1018
db '(147)  '
1019
db '150.36 '
1020
db '151.96 '
1021
db '157.25 '
1022
db '158.92 '
1023
db '162.50 '
1024
db '164.93 '
1025
db '167.26 '
1026
db '168.93 '
8717 Doczom 1027
db '173.04 '     ; 70
229 heavyiron 1028
db '174.97 '
1029
db '178.49 '
1030
db '180.95 '
1031
db '183.85 '
1032
db '186.21 '
1033
db '190.2  '
1034
db '192.22 '
1035
db '195.08 '
1036
db '196.97 '
8717 Doczom 1037
db '200.59 '     ; 80
229 heavyiron 1038
db '204.38 '
1039
db '207.19 '
1040
db '208.98 '
1041
db '(209)  '
1042
db '(210)  '
1043
db '(222)  '
1044
db '(223)  '
1045
db '(226)  '
1046
db '(227)  '
8717 Doczom 1047
db '232.04 '     ; 90
229 heavyiron 1048
db '(231)  '
1049
db '238.029'
1050
db '(237)  '
1051
db '(244)  '
1052
db '(243)  '
1053
db '(247)  '
1054
db '(247)  '
1055
db '(251)  '
1056
db '(254)  '
8717 Doczom 1057
db '(257)  '     ; 100
229 heavyiron 1058
db '(258)  '
1059
db '(259)  '
1060
db '(262)  ' ;103
1061
db '(261)  '
1062
db '(262)  '
1063
db '(266)  '
1064
db '(264)  '
1065
db '(269)  '
1066
db '(268)  '
8717 Doczom 1067
db '(271)  '     ; 110
229 heavyiron 1068
db '(272)  '
1069
db '(285)  '
1070
db '(284)  '
1071
db '(289)  '
1072
db '(288)  '
8717 Doczom 1073
db '(292)  '     ;116
1074
;
1075
db '294,210'
1076
db '294,214'
229 heavyiron 1077
 
1078
 
1079
;-----------------------
1080
 
1081
;ЭЛЕКТРООТРИЦАТЕЛЬНОСТЬ
1082
Electr:        ; 116 элементов
1083
db '2,1 '     ; 1
1084
db '5,5 '
1085
db '0,97'
1086
db '1,47'
1087
db '2,01'
1088
db '2,50'
1089
db '3,07'
1090
db '3,50'
1091
db '4,10'
1092
db '4,84'     ; 10
1093
db '0,93'
1094
db '1,23'
1095
db '1,47'
1096
db '2,25'
1097
db '2,32'
1098
db '2,60'
1099
db '2,83'
1100
db '3,20'
1101
db '0,91'
8717 Doczom 1102
db '1,04'         ; 20
229 heavyiron 1103
db '1,20'
1104
db '1,32'
1105
db '1,45'
1106
db '1,56'
1107
db '1,60'
1108
db '1,64'
1109
db '1,70'
1110
db '1,75'
1111
db '1,75'
1112
db '1,66'     ; 30
1113
db '1,82'
1114
db '2,02'
1115
db '2,11'
1116
db '2,48'
1117
db '2,74'
1118
db '2,94'
1119
db '0,89'
1120
db '0,99'
1121
db '1,11'
8717 Doczom 1122
db '1,22'       ;40
229 heavyiron 1123
db '1,6 '
1124
db '2,16'
1125
db '1,9 '
1126
db '2.2 '
1127
db '2.28'
1128
db '2,2 '
1129
db '1,93'
1130
db '1,69'
1131
db '1,78'
1132
db '1,96'
1133
db '2,05'
1134
db '2,1 '
1135
db '2,66'
1136
db '??? '
1137
db '0,79'
1138
db '0,89'
1139
db '1,1 '
1140
db '1,12'
1141
db '1,13'
1142
db '1,14'    ;60
1143
db '1,13'
1144
db '1,17'
1145
db '1,2 '
1146
db '1,2 '
1147
db '1,2 '
1148
db '1,22'
1149
db '1,23'
1150
db '1,24'
1151
db '1,25'
1152
db '1,1 '     ; 70
1153
db '1,27'
1154
db '1,3 '
1155
db '1,5 '
1156
db '1,36'
1157
db '1,46'
1158
db '1,52'
1159
db '1,55'
1160
db '1,44'
1161
db '1,42'
1162
db '1,42'     ; 80
1163
db '1,42'
1164
db '1,55'
1165
db '1,67'
1166
db '1,76'
1167
db '1,90'
1168
db '2,06'
1169
db '0,86'
1170
db '0,97'
1171
db '1,00'
1172
db '1,11'  ;90
1173
db '1,14'
1174
db '1,22'
1175
db '1,22'
1176
db '1,2 '
1177
db '1,1 '
1178
db '1,2 '
1179
db '1,1 '
1180
db '1,2 '
1181
db '??? '
1182
db '??? '     ; 100
1183
db '1,2 '
1184
db '??? '
1185
db '??? '
1186
db '??? '
1187
db '??? '
1188
db '??? '
1189
db '??? '
1190
db '??? '
1191
db '??? '
1192
db '??? '     ; 110
1193
db '??? '
1194
db '??? '
1195
db '??? '
1196
db '??? '
1197
db '??? '
1198
db '??? '     ; 116
8717 Doczom 1199
db '??? '
1200
dd '??? '
229 heavyiron 1201
 
8717 Doczom 1202
 
229 heavyiron 1203
;-----------------------
1204
 
1205
;ТЕМПЕРАТУРА ПЛАВЛЕНИЯ    116 элементов
1206
strtbl T_plavl, \
1207
"- 259,19", \
1208
"- 271,15", \
1209
"180,5", \
1210
"1287", \
1211
"2075", \
1212
"4000(графит)", \
1213
"-210,0", \
1214
"-218,7", \
1215
"-219,699", \
1216
"-248,6", \
1217
"97,83", \
1218
"648", \
1219
"660,37", \
1220
"1415", \
1221
"44,14(белый)  593(красный)", \
1222
"119,3", \
1223
"-101,03", \
1224
"-189,34", \
1225
"63,51", \
8717 Doczom 1226
"842", \           ;20
229 heavyiron 1227
"1541", \
1228
"1658", \
1229
"1920", \
1230
"1890", \
1231
"1245", \
1232
"1539", \
1233
"1494", \
1234
"1455", \
1235
"1084,5", \
1236
"419,5", \
1237
"29,78", \
1238
"937", \
1239
"817 (под давлением)", \
1240
"217", \
1241
"-7,25", \
1242
"-157,37", \
1243
"39,3", \
1244
"768", \
1245
"1528", \
8717 Doczom 1246
"1855", \          ;40
229 heavyiron 1247
"2470", \
1248
"2620", \
1249
"2250", \
1250
"2607", \
1251
"1963", \
1252
"1554", \
1253
"961,93", \
1254
"321,108", \
1255
"156,634", \
1256
"231,9681", \
1257
"630,74", \
1258
"449,8", \
1259
"113,5", \
1260
"-111,85", \
1261
"28,7", \
1262
"727", \
1263
"920", \
1264
"804", \
1265
"931", \
1266
"1024", \   ;60
1267
"1170", \
1268
"1072", \
1269
"826", \
1270
"1312", \
1271
"1356", \
1272
"1409", \
1273
"1470", \
1274
"1522", \
1275
"1545", \
1276
"824", \
1277
"1663", \
1278
"2230", \
1279
"3270", \
1280
"3660", \
1281
"3190", \
1282
"3027", \
1283
"2443", \
1284
"1772", \
1285
"1064,43", \
8717 Doczom 1286
"-38,862", \    ;80
229 heavyiron 1287
"303,6", \
1288
"327,502", \
1289
"271,44", \
1290
"254", \
1291
"575", \
1292
"-71,0", \
1293
"21", \
1294
"969", \
1295
"1050", \
1296
"1750", \
1297
"1580", \
1298
"1134", \
1299
"637", \
1300
"640", \
1301
"1292", \
1302
"1345", \
1303
"1050", \
1304
"900", \
1305
"860", \
1306
"???", \   ;100
1307
"???", \
1308
"???", \
1309
"???", \
1310
"???", \
1311
"???", \
1312
"???", \
1313
"???", \
1314
"???", \
1315
"???", \
1316
"???", \    ;110
1317
"???", \
1318
"???", \
1319
"???", \
1320
"???", \
1321
"???", \
8717 Doczom 1322
"???", \        ; 116
1323
"???", \
1324
"???"
229 heavyiron 1325
 
1326
 
1327
;-----------------------
1328
 
1329
;ТЕМПЕРАТУРА КИПЕНИЯ     116 элементов
1330
strtbl T_kipen, \
1331
"- 252,87", \
1332
"- 268,935", \
1333
"1336,6", \
1334
"2471", \
1335
"3700", \
1336
"4200(графит)", \
1337
"-195,802", \
1338
"-182,962", \
1339
"-188,2", \
1340
"-246,048", \
1341
"886", \
1342
"1095", \
1343
"2500", \
1344
"3250", \
1345
"287,3 - белый ", \
1346
"444,674", \
1347
"-34,1", \
1348
"-185,86", \
1349
"760", \
8717 Doczom 1350
"1495", \         ;20
229 heavyiron 1351
"2850", \
1352
"3260", \
1353
"3450", \
1354
"2680", \
1355
"2080", \
1356
"3200", \
1357
"2960", \
1358
"2900", \
1359
"2540", \
1360
"906,2", \
1361
"2403", \
1362
"2850", \
1363
"-", \
1364
"685,3", \
1365
"59,82", \
1366
"153,35", \
1367
"696", \
1368
"1390", \
1369
"3320", \
8717 Doczom 1370
"4340", \          ;40
229 heavyiron 1371
"4927", \
1372
"4630", \
1373
"4630", \
1374
"4900", \
1375
"3700", \
1376
"2940", \
1377
"2170", \
1378
"766,5", \
1379
"2024", \
1380
"2620", \
1381
"1634", \
1382
"990", \
1383
"184,35", \
1384
"-108,12", \
1385
"667,6", \
1386
"1860", \
1387
"3450", \
1388
"3450", \
1389
"3510", \
1390
"3080", \    ;60
1391
"3000", \
1392
"1800", \
1393
"1440", \
1394
"3272", \
1395
"3073", \
1396
"2587", \
1397
"2707", \
1398
"2857", \
1399
"1947", \
1400
"1211", \
1401
"3412", \
1402
"4620", \
1403
"5425", \
1404
"6000", \
1405
"5900", \
1406
"5000", \
1407
"4380", \
1408
"3800", \
1409
"2947", \
1410
"356,66", \  ;80
1411
"1457", \
1412
"1745", \
1413
"1564", \
1414
"962", \
1415
"309", \
1416
"-61,9", \
1417
"669", \
1418
"1536", \
1419
"3300", \
1420
"4200", \
1421
"4500", \
1422
"4200", \
1423
"4100", \
1424
"3350", \
1425
"2880", \
1426
"3200", \
1427
"2630", \
1428
"1227", \
1429
"???", \
1430
"???", \  ;100
1431
"???", \
1432
"???", \
1433
"???", \
1434
"???", \
1435
"???", \
1436
"???", \
1437
"???", \
1438
"???", \
1439
"???", \
8717 Doczom 1440
"???", \        ; 110
229 heavyiron 1441
"???", \
1442
"???", \
1443
"???", \
1444
"???", \
1445
"???", \
8717 Doczom 1446
"???", \             ; 116
1447
"345 - 230", \
1448
"80 (+-30)"
229 heavyiron 1449
 
1450
 
1451
;Русское название           ; 116 элементов
1452
strtbl Rus_nazv, \
8717 Doczom 1453
"Водород", \                ;1
229 heavyiron 1454
"Гелий", \
1455
"Литий", \
1456
"Бериллий", \
1457
"Бор", \
1458
"Углерод", \
1459
"Азот", \
1460
"Кислород", \
1461
"Фтор", \
8717 Doczom 1462
"Неон", \                  ;10
229 heavyiron 1463
"Натрий", \
1464
"Магний", \
1465
"Алюминий", \
1466
"Кремний", \
1467
"Фосфор", \
1468
"Сера", \
1469
"Хлор", \
1470
"Аргон", \
1471
"Калий", \
1472
"Кальций", \
1473
"Скандий", \
1474
"Титан", \
1475
"Ванадий", \
1476
"Хром", \
1477
"Марганец", \
1478
"Железо", \
1479
"Кобальт", \
1480
"Никель", \
1481
"Медь", \
8717 Doczom 1482
"Цинк", \                  ;30
229 heavyiron 1483
"Галлий", \
1484
"Германий", \
1485
"Мышьяк", \
1486
"Селен", \
1487
"Бром", \
1488
"Криптон", \
1489
"Рубидий", \
1490
"Стронций", \
1491
"Иттрий", \
1492
"Цирконий", \
1493
"Ниобий", \
1494
"Молибден", \
1495
"Технеций", \
1496
"Рутений", \
1497
"Родий", \
1498
"Палладий", \
1499
"Серебро", \
1500
"Кадмий", \
1501
"Индий", \
8717 Doczom 1502
"Олово", \                  ;50
229 heavyiron 1503
"Сурьма", \
1504
"Теллур", \
1505
"Йод", \
1506
"Ксенон", \
1507
"Цезий", \
1508
"Барий", \
1509
"Лантан", \
1510
"Церий", \
1511
"Празеодим", \
1512
"Неодим", \
1513
"Прометий", \
1514
"Самарий", \
1515
"Европий", \
1516
"Гадолиний", \
1517
"Тербий", \
1518
"Диспрозий", \
1519
"Гольмий", \
1520
"Эрбий", \
1521
"Тулий", \
8717 Doczom 1522
"Иттербий", \                  ;70
229 heavyiron 1523
"Лютеций", \
1524
"Гафний", \
1525
"Тантал", \
1526
"Вольфрам", \
1527
"Рений", \
1528
"Осмий", \
1529
"Иридий", \
1530
"Платина", \
1531
"Золото", \
1532
"Ртуть", \
1533
"Таллий", \
1534
"Свинец", \
1535
"Висмут", \
1536
"Полоний", \
1537
"Астат", \
1538
"Радон", \
1539
"Франций", \
1540
"Радий", \
1541
"Актиний", \
1542
"Торий",\
1543
"Протактиний",\
1544
"Уран",\
8717 Doczom 1545
"Нептуний", \                  ;90
229 heavyiron 1546
"Плутоний", \
1547
"Америций", \
1548
"Кюрий", \
1549
"Берклий", \
1550
"Калифорний", \
1551
"Эйнштейний", \
1552
"Фермий", \
1553
"Менделевий", \
1554
"Нобелий", \
1555
"Лоуренсий", \
1556
"Резерфордий", \
1557
"Дубний", \
1558
"Сиборговий", \
1559
"Борий", \
1560
"Гассий", \
1561
"Мейтнерий", \
7774 leency 1562
"Дармштадтий", \ ;110
1563
"Рентгений", \
1564
"Коперниций", \
8717 Doczom 1565
"Нихоний", \
7774 leency 1566
"Флеровий", \
1567
"Московий", \
8717 Doczom 1568
"Ливерморий", \                ;116
1569
"Теннессин", \
1570
"Оганесон"
229 heavyiron 1571
 
1572
 
1573
;Первооткрыватели              ; 116 элементов
1574
strtbl First_Explore, \
1575
"Г.Кавендиш, 1766", \
1576
"Ж.Жансен, Дж.Н.Локьер, 1868", \
1577
"А.Арфедсон, 1817", \
1578
"Л.Воклен, 1798", \
1579
"Л.Ж.Гей-Люссак 1808", \
1580
"известен до н.э.", \
1581
"Д.Резерфорд, 1772", \
1582
"К.В.Шееле, 1772", \
1583
"А.Муассан, 1886", \
1584
"У.Рамзай,М.Траверс     1898", \
1585
"Г.Дэви, 1807",\
1586
"Г.Дэви, 1808",\
1587
"Х.К.Эрстед, 1825",\
1588
"Ж.Л.Гей-Люссак, Л.Ж.Тенар, 1811",\
1589
"Х.Брандт, 1669",\
1590
"известна до н.э.",\
1591
"К.В.Шееле, 1774",\
1592
"У.Рамзай, Дж.Рэлей, 1894",\
1593
"Г.Дэви, 1807",\
1594
"Г.Дэви, 1808",\
1595
"Л.Ф.Нильсон, 1879",\
1596
"У.Грегор, 1790 ",\
1597
"Г.Роско, 1869",\
1598
"Л.Н.Воклен, 1797",\
1599
"Ю.Ган, 1774",\
1600
"известно до н.э.",\
1601
"Ю.Брандт, 1735",\
1602
"А.Кронштедт, 1751",\
1603
"известна до н.э.",\
1604
"известен со средн. веков",\
1605
"П.Э.Лекок де Буабодран, 1875",\
1606
"К.А.Винклер, 1886",\
1607
"известен со средн. веков",\
1608
"Й.Берцелиус, Й.Ган, 1817",\
1609
"Ж.Балар, 1826",\
1610
"У.Рамзай, М.Траверс, 1898",\
1611
"Р.Бунзен, Г.Кирхгоф, 1861",\
1612
"А.Крофорд, 1808",\
1613
"Ю.Гадолин, 1794",\
1614
"М.Клапрот, 1789",\
1615
"Ч.Хатчет, 1801",\
1616
"К.В.Шееле, 1778",\
1617
"Э.Сегре, К.Перье, 1937",\
1618
"К.К.Клаус, 1844",\
1619
"У.Волластон, 1804",\
1620
"У.Волластон, 1803",\
1621
"известно до н.э.",\
1622
"Ф.Штромейер, 1817",\
1623
"Р.Рейх, И.Рихтер, 1863",\
1624
"известно до н.э.",\
1625
"известна до н.э.",\
1626
"Ф.Мюллер, 1782",\
1627
"Б.Куртуа, 1811",\
1628
"У.Рамзай, М.Траверс, 1898",\
1629
"Р.Бунзен, Г.Кирхгоф, 1860",\
1630
"Г.Дэви, 1774",\
1631
"К.Мосандер, 1839",\
1632
"К.Мосандер, 1839",\
1633
"К.Ауэр фон Вельсбах, 1885",\
1634
"К.Ауэр фон Вельсбах, 1842",\
1635
"Л.Гленденин, Ч.Кориэлл и др., 1942",\
1636
"П.Э.Лекок де Буабодран, 1879",\
1637
"Э.Демарсе, 1901",\
1638
"Ж.Мариньяк, 1880",\
1639
"К.Мосандер, 1843",\
1640
"П.Э.Лекок де Буабодран, 1886",\
1641
"П.Клеве, 1879",\
1642
"К.Мосандер, 1843",\
1643
"П.Клеве, 1879",\
1644
"Ж.Мариньяк, 1878",\
1645
"Ж.Урбэн, Ч.Джеймс, 1907",\
1646
"Д.Костер и др., 1922",\
1647
"А.Г.Экеберг, 1802",\
1648
"К.В.Шееле, 1781",\
1649
"И. и В.Ноддак, О.Берг, 1925",\
1650
"С.Теннант, 1804",\
1651
"С.Теннант, 1804",\
1652
"изв. с древности",\
1653
"известно до н.э.",\
1654
"известна до н.э.",\
1655
"У.Крукс, 1861",\
1656
"известен до н.э.",\
1657
"И.Потт, 1739",\
1658
"М. и П.Кюри, 1898",\
1659
"Д.Корсон др., 1940",\
1660
"Э.Дорн, 1940",\
1661
"М.Перей, 1939",\
1662
"М. и П.Кюри, Ж.Бемюн, 1898",\
1663
"А.Дебьерн, 1899",\
1664
"Й.Берцелиус, 1828",\
1665
"О.Ган, Л.Мейтнер, Ф.Содди, 1918",\
1666
"М.Клапрот, 1789",\
1667
"Э.М.Макмиллан, Ф.Х.Эйблсон, 1940",\
1668
"Г.Сиборг и др., 1940",\
1669
"Г.Сиборг и др., 1944",\
1670
"Г.Сиборг и др., 1944",\
1671
"Г.Сиборг и др., 1949",\
1672
"Г.Сиборг и др., 1950",\
1673
"А.Гиорсо, С.Томпсон, 1952",\
1674
"А.Гиорсо, С.Томпсон, 1952",\
1675
"А.Гиорсо и др., 1955",\
1676
"Учёные СССР, 1966",\
1677
"А.Гиорсо и др., 1961",\
1678
"Г.Н.Флеров и др., 1964",\
1679
"Г.Н.Флеров и др., 1967",\
1680
"Г.Н.Флеров и др., 1974",\
1681
"P.Armbruster, G.Munzenber, 1981",\
1682
"P.Armbruster, G.Munzenber, 1984",\
1683
"P.Armbruster, G.Munzenber, 1982",\
1684
"S.Hofmann, V. Ninov, 1994",\
1685
"S.Hofmann, V. Ninov, 1994",\
1686
"S.Hofmann, V. Ninov, 1996",\
1687
"не открыт",\
1688
"Учёные России, 1998",\
1689
"не открыт",\
8717 Doczom 1690
"Ю.Ц.Оганессян, В.К.Утенков, 2000", \
1691
"ОИЯИ в г.Дубна", \
1692
"ОИЯИ и Ливерморская лаборатория"
229 heavyiron 1693
 
1694
 
1695
; Плотность        116 элементов
1696
strtbl Plotnost, \
8717 Doczom 1697
"-", \               ; 1
229 heavyiron 1698
"-", \
1699
"535", \
1700
"1848", \
1701
"2460", \
1702
"2267", \
1703
"-", \
1704
"-", \
1705
"-", \
1706
"0,90035 г/л", \
8717 Doczom 1707
"968", \               ; 10
229 heavyiron 1708
"1738", \
1709
"2700", \
1710
"2330", \
1711
"1823", \
1712
"1960", \
1713
"-", \
1714
"1,7837 г/л", \
1715
"856", \
1716
"1550", \
8717 Doczom 1717
"2985", \               ; 20
229 heavyiron 1718
"4507", \
1719
"6110", \
1720
"7140", \
1721
"7470", \
1722
"7874", \
1723
"8900", \
1724
"8908", \
1725
"8920", \
1726
"7140", \
8717 Doczom 1727
"5904", \               ; 30
229 heavyiron 1728
"5323", \
1729
"5727", \
1730
"4819", \
1731
"-", \
1732
"3,745 г/л", \
1733
"1532", \
1734
"2630", \
1735
"4472", \
1736
"6511", \
8717 Doczom 1737
"8570", \               ; 40
229 heavyiron 1738
"10280", \
1739
"11500", \
1740
"12370", \
1741
"12450", \
1742
"12023", \
1743
"10490", \
1744
"8650", \
1745
"7310", \
1746
"7310", \
8717 Doczom 1747
"6697", \               ; 50
229 heavyiron 1748
"6240", \
1749
"4940", \
1750
"5,851 г/л", \
1751
"1879", \
1752
"3510", \
1753
"6146", \
1754
"6689", \
1755
"6640", \
1756
"6800", \
8717 Doczom 1757
"7264", \               ; 60
229 heavyiron 1758
"7353", \
1759
"5244", \
1760
"7901", \
1761
"8219", \
1762
"8551", \
1763
"8795", \
1764
"9066", \
1765
"9321", \
1766
"6570", \
8717 Doczom 1767
"9841", \               ; 70
229 heavyiron 1768
"13310", \
1769
"16650", \
1770
"19250", \
1771
"21020", \
1772
"22610", \
1773
"22650", \
1774
"21090", \
1775
"19300", \
1776
"-", \
8717 Doczom 1777
"11850", \               ; 80
229 heavyiron 1778
"11340", \
1779
"9780", \
1780
"9196", \
1781
"-", \
1782
"9,73 г/л", \
1783
"2400", \
1784
"5000", \
1785
"10070", \
1786
"11724", \
8717 Doczom 1787
"15370", \               ; 90
229 heavyiron 1788
"19050", \
1789
"20450", \
1790
"19816", \
1791
"-", \
1792
"13510", \
1793
"14780", \
1794
"15100", \
1795
"-", \
1796
"-", \
8717 Doczom 1797
"-", \               ; 100
229 heavyiron 1798
"-", \
1799
"-", \
1800
"-", \
1801
"-", \
1802
"-", \
1803
"-", \
1804
"-", \
1805
"-", \
1806
"-", \
8717 Doczom 1807
"-", \               ; 110
229 heavyiron 1808
"-", \
1809
"-", \
1810
"-", \
1811
"-", \
1812
"-", \
8717 Doczom 1813
"-", \                  ; 116
1814
"-", \
1815
"4,9 - 5,1 "
229 heavyiron 1816
 
1817
 
1818
;РАСПРОСТРАНЕНИЕ В ЗЕМНОЙ КОРЕ            116 элементов
1819
strtbl Rasprostr, \
8717 Doczom 1820
"0,14 %", \               ; 1
229 heavyiron 1821
"менее 0,0015 %", \
1822
"0,0030 %", \
1823
"0,0006 %", \
1824
"0,005 %", \
1825
"0,032 %", \
1826
"0,0046 %", \
1827
"46,60 %", \
1828
"0,070 %", \
8717 Doczom 1829
"0,00007 г/т", \               ; 10
229 heavyiron 1830
"2,83 %", \
1831
"2,09 %", \
1832
"8,13 %", \
1833
"27,72 %", \
1834
"0,118 %", \
1835
"0,052 %", \
1836
"0,020 %", \
1837
"0,000004 %", \
1838
"2,59 %", \
8717 Doczom 1839
"3,63 %", \               ; 20
229 heavyiron 1840
"0,001 %", \
1841
"0,57 %", \
1842
"0,0110 %", \
1843
"0,0200 %", \
1844
"0,100 %", \
1845
"5,00 %", \
1846
"0,0023 %", \
1847
"0,0080 %", \
1848
"0,0045 %", \
8717 Doczom 1849
"0,0065 %", \               ; 30
229 heavyiron 1850
"0,0015 %", \
1851
"0,00015 %", \
1852
"0,00017 %", \
1853
"0,000014 %", \
1854
"0,00016 %", \
1855
"0,000114 % (в атмосфере)", \
1856
"0,0120 %", \
1857
"???", \
1858
"0,0040 %", \
8717 Doczom 1859
"0,0160 %", \               ; 40
229 heavyiron 1860
"0,0024 %", \
1861
"0,0003 %", \
1862
"-", \
1863
"0,0000005 %", \
1864
"0.0000001 %", \
1865
"0,000001 %", \
1866
"0,000007 %", \
1867
"0,0000135 %", \
1868
"0,00001 %", \
1869
"0,008 %", \
8717 Doczom 1870
"0,00005 %", \               ; 50
229 heavyiron 1871
"0,000001 %", \
1872
"0,00004 %", \
1873
"0,000039 % (в атмосфере)", \
1874
"0,00037 %", \
1875
"0,040 %", \
1876
"0,0029 %", \
1877
"0,007 %", \
1878
"0,0007 %", \
1879
"0,0025 %", \
8717 Doczom 1880
"-", \               ; 60
229 heavyiron 1881
"0,0007 %", \
1882
"0,00013 %", \
1883
"0,00054 %", \
1884
"0,00043 %", \
1885
"0,0005 %", \
1886
"0,00013 %", \
1887
"0,00033 %", \
1888
"0,000027 %", \
1889
"0,000033 %", \
8717 Doczom 1890
"0,00008 %", \               ; 70
229 heavyiron 1891
"0,0003 - 0,0004 %", \
1892
"0,00025 %", \
1893
"0,0001 %", \
1894
"0,00000007 %", \
1895
"0,000005 %", \
1896
"0,0000001 %", \
1897
"0,0000005 %", \
1898
"0,00000043 %", \
1899
"0,000007 %", \
8717 Doczom 1900
"0,0003 %", \               ; 80
229 heavyiron 1901
"0,0015 %", \
1902
"0,00002 %", \
1903
"0,00000000000002 %", \
1904
"17 мг в слое коры 1,6 км", \
1905
"-", \
1906
"-", \
1907
"0,0000000001 %", \
1908
"0,0000000006 %", \
1909
"0,0008 %", \
8717 Doczom 1910
"-", \               ; 90
229 heavyiron 1911
"0,0003 %", \
1912
"-", \
1913
"-", \
1914
"0,0003 %", \
1915
"-", \
1916
"-", \
1917
"-", \
1918
"-", \
1919
"-", \
8717 Doczom 1920
"-", \               ; 100
229 heavyiron 1921
"-", \
1922
"-", \
1923
"-", \
1924
"-", \
1925
"-", \
1926
"-", \
1927
"-", \
1928
"-", \
1929
"-", \
8717 Doczom 1930
"-", \               ; 110
229 heavyiron 1931
"-", \
1932
"-", \
1933
"-", \
1934
"-", \
8717 Doczom 1935
"-", \               ; 116
1936
"-", \
1937
"-"
229 heavyiron 1938
 
1939
 
1940
; степень окисления   116 элементов
1941
strtbl Step_ok, \
8717 Doczom 1942
"+1 -1", \                   ; 1
229 heavyiron 1943
"-", \
1944
"+1", \
1945
"+2 (+1)", \
1946
"+3 (+2)", \
1947
"+4 -4", \
1948
"от +5 до -3 ", \
1949
"+4 -4", \
1950
"-1", \
8717 Doczom 1951
"-", \                   ; 10
229 heavyiron 1952
"+1", \
1953
"+2 (+1)", \
1954
"+3 (+1 +2)", \
1955
"+1 +2 +3 +4", \
1956
"-3 +3 +5", \
1957
"-2 +4 +6", \
1958
"-1 +1 +3 +5 +7", \
1959
"-", \
1960
"+1", \
8717 Doczom 1961
"+2 (+1)", \                   ; 20
229 heavyiron 1962
"+3 (+1 +2)", \
1963
"+4 +2 +3", \
1964
"от +2 до +5", \
1965
"+2 +3 +6 (+4 +5 +1)", \
1966
"от +2 до +7", \
1967
"+2 +3 (+1 +2 +4 +6 +8)", \
1968
"+2 +3 (+1 +4 +5)", \
1969
"+2 (+1 +3 +4)", \
1970
"+1 +2 (+3 +4)", \
8717 Doczom 1971
"+2", \                   ; 30
229 heavyiron 1972
"+1 +3", \
1973
"+4 +3 +2 +1", \
1974
"+5 +3 -3", \
1975
"+6 +4 -2 (+2)", \
1976
"-1 +1 +3 +5 +7", \
1977
"+2", \
1978
"+1", \
1979
"+2 (+1)", \
1980
"+3", \
8717 Doczom 1981
"+4 (+1 +2 +3)", \                   ; 40
229 heavyiron 1982
"+5 (+1 +2 +3 +4)", \
1983
"от +2 до +6", \
1984
"от -1 до +7", \
1985
"+3 +4 +6 +8", \
1986
"+1 +2 +3 +4 +5 +6", \
1987
"+1 +2 +3 +4 (+5 +6)", \
1988
"+1 +2 +3", \
1989
"+2 (+1)", \
1990
"+3 (+1)", \
8717 Doczom 1991
"+2 +4", \                   ; 50
229 heavyiron 1992
"+3 +5 (-3)", \
1993
"-2 +6 +4 (+2)", \
1994
"-1 +1 +3 +5 +7", \
1995
"+2 +4 +6 +8", \
1996
"+1", \
1997
"+2 (+1)", \
1998
"+3", \
1999
"+3 (+4)", \
2000
"+4 +3 (+2)", \
8717 Doczom 2001
"+4 +3 (+2)", \                   ; 60
229 heavyiron 2002
"+3", \
2003
"+2 +3 (+2)", \
2004
"+3 +2", \
2005
"+3 (+2 +1)", \
2006
"+1 +3 +4", \
2007
"+3 (+2 +4)", \
2008
"+3 (+2)", \
2009
"+3 (+1)", \
2010
"+3 +2 (+4)", \
8717 Doczom 2011
"+2 +3", \                   ; 70
229 heavyiron 2012
"+3", \
2013
"+4 (+3 +2)", \
2014
"+5 (+2 +3 +4)", \
2015
"от +2 до +6", \
2016
"от +7 до -1", \
2017
"+4 +6 +8 +1 +3 +5", \
2018
"+4 +3 +1 +2 +6", \
2019
"+4 +3 +2 (+5 +6)", \
2020
"+1 +3 (+5)", \
8717 Doczom 2021
"+2 +1", \                   ; 80
229 heavyiron 2022
"+1 +3", \
2023
"+1 +4 +2", \
2024
"+3 +5 -3 (+1 +2)", \
2025
"+6 +4 +2 -2", \
2026
"-1 +1 +5 (+7)", \
2027
"+2 +4 +6", \
2028
"+1", \
2029
"+2", \
2030
"+3", \
8717 Doczom 2031
"+4 (+2 +3)", \                   ; 90
229 heavyiron 2032
"+4 +5 (+3)", \
2033
"от +2 до +6", \
2034
"+3 +4 +5 (+6 +7)", \
2035
"от +3 до +7", \
2036
"от +2 до +7", \
2037
"+3 (+4 +6)", \
2038
"+3 (+4)", \
2039
"+2 +3 (+4)", \
2040
"+2 +3", \
8717 Doczom 2041
"+2 +3", \                   ; 100
229 heavyiron 2042
"+1 +2 +3", \
2043
"+2 +3", \
2044
"+3", \
2045
"-", \
2046
"-", \
2047
"-", \
2048
"-", \
2049
"-", \
2050
"-", \
8717 Doczom 2051
"-", \                   ; 110
229 heavyiron 2052
"-", \
2053
"-", \
2054
"-", \
2055
"-", \
2056
"-", \
8717 Doczom 2057
"-", \                   ; 116
2058
"-", \
2059
"-1, 0, +1, +2, +4, +6"
229 heavyiron 2060
I_END:
2061
sc   system_colors