ВИСНОВКИ. СПИСОК ВИКОРИСТАННИХ ДЖЕРЕЛ

ВИСНОВКИ

1. Метод обертання монокристалу дозволяє ефективно визначити параметри кристалічної структури. Визначено періоди гратки для монокристалів Mg₂SiO₄ (ромбічна сингонія) і NaCl (кубічна сингонія).

2. Визначено число атомів в елементарній комірці NaCl. Отримане значення 7,94 відрізняється від істинного 8. На нашу думку це пов'язано з похибками при вимірюванні відстані між шаровими лініями, а також з нецентрованістю монокристала при кріпленні на гоніометричну головку в камері.

3. Складена програма на мові Бейсік дозволяє розрахувати за експериментальними даними періоди ідентичності, а також провести індексування плям на нульовій шаровій лінії.

СПИСОК ВИКОРИСТАННИХ ДЖЕРЕЛ

1. Шаскольская М.П. Кристалография.- М.; Высш. школа, 1984.

2. Русаков А.А. Рентгенография металлов.- М.: Атомиздат, 1977.

3. Кушта Г.П. Рентгенографія металів.- Львів: Вид-во університету, 1959.

4. Миркин Л.И. Рентгеноструктурный анализ.- М.: Наука, 1981.

5. Дьяконов В.П. Справочник по алгоритмам и программам на языке бейсик для персональных ЭВМ- М.: Наука, 1987.

Програма для розрахунків за експериментальними даними метода обертання монокристалів.

CLS: SCREEN 9: COLOR 14, 17: LOCATE 12, 33: PRINT "МЕТОД ОБЕРТАННЯ МОНОКРИСТАЛУ"

1 FOR I=III TO 123: LINE (0, 0)-(123+I, 200+I/10), I/15+iiii: FOR II=1 TO 34: NEXT II: NEXT I

IF iii<15 THEN iii=iii+1: iiii=iiii+1: GOTO 1 ELSE LOCATE 24: INPUT "", v$

CLS: INPUT "ВВЕДIТЬ РАДIУС КАМЕРИ В см ", R

LOCATE 3

: INPUT "ВВЕДIТЬ ДОВЖИНУ РЕНТГЕНIВСЬКОI Ka-ХВИЛI В ангстремах ", LAMA

LOCATE 4: INPUT "ВВЕДIТЬ ДОВЖИНУ РЕНТГЕНIВСЬКОI Kb-ХВИЛI В ангстремах ", LAMb

LOCATE 6: INPUT "ВВЕДIТЬ НАЙБIЛЬШИЙ НОМЕР ШАРОВИХ ЛIНIЙ ", n

FOR I=1 TO n

PRINT "ВВЕДIТЬ ВIДСТАНЬ МIЖ 0 i"; I; "Ka-ШАРОВОЮ ЛIНIЕЮ ";: INPUT "", AN

IF AN=0 THEN NN=NN+1: GOTO 66

MN=ATN(AN/R): a=I*LAMA/SIN(MN): ase=ase+a

PRINT: PRINT "ПЕРIОД IДЕНТИЧНОСТI А=";: COLOR 15, 17: PRINT a: COLOR 14, 17

66 NEXT I

FOR I=1 TO n

COLOR 11, 17: PRINT "ВВЕДIТЬ ВIДСТАНЬ МIЖ 0 i"; I; "Kb-ШАРОВОЮ ЛIНIЕЮ ";: INPUT "", AN

IF AN=0 THEN NN=NN+1: GOTO 77

MN=ATN(AN/R): a=I*LAMb/SIN(MN): ase=ase+a

PRINT: PRINT "ПЕРIОД IДЕНТИЧНОСТI А=";: COLOR 15, 17: PRINT a

77 NEXT I

PRINT: COLOR 4, 17: PRINT "СЕРЕДНЕ ЗНАЧЕННЯ ПРIОДУ IДЕНТИЧНОСТI А= "; ase/((2*n) - NN);

INPUT "", a$

CLS: COLOR 14, 17

DIM DR(12)

DATA 1,100,2,110,4,200,5,210,8,220,10,310,13,320,16,400,17,410,18,330,20,420,25,430

FOR I=1 TO 12: READ H2K2, HKL: DR(I)=H2K2/ase/ase

LOCATE 8+I, 20: PRINT USING "#.####"; DR(I): LOCATE 8+I, 37: PRINT H2K2: LOCATE 8+I, 49: PRINT HKL

NEXT I

LOCATE 2: PRINT "ПРИСТУПАEМО ДО IНДЕКСУВАННЯ НУЛЬОВОI ШАРОВОI ЛIНII"

2 LOCATE 3: COLOR 11, 17: INPUT "ВВЕДIТЬ ВIДСТАНЬ МIЖ СИМЕТРИЧНИМИ ПЛЯМАМИ ", DL

IIS=IIS+1

teta=DL/4/R

PR=4*SIN(teta)*SIN(teta)/LAMA/LAMA

FOR I=1 TO 12

IF ABS(PR - DR(I)) < .1 THEN LOCATE 8+I: PRINT USING "#.####"; PR

PRINT PR: IF IIS < 7 THEN GOTO 2 ELSE GOTO 3

NEXT I

3 IF IIS < 7 THEN GOTO 2

END

⇐ Предыдущая 123 4 5 6 Следующая ⇒