![]()
|
|||||||||||||||
ВИЗНАЧЕННЯ ПЕРІОДІВ ГРАТКИ МЕТОДОМ ОБЕРТАННЯ МОНОКРИСТАЛУСтр 1 из 6Следующая ⇒
МІНІСТЕРСТВО ОСВІТИ І НАУКИ, МОЛОДІ ТА СПОРТУ УКРАЇНИ ЧЕРНІВЕЦЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ ім. Ю. ФЕДЬКОВИЧА
ФІЗИЧНИЙ ФАКУЛЬТЕТ Кафедра фізики твердого тіла
ВИЗНАЧЕННЯ ПЕРІОДІВ ГРАТКИ МЕТОДОМ ОБЕРТАННЯ МОНОКРИСТАЛУ
/Курсова робота/
Виконавець студент 3-го курсу:
Чернівці – 2012 р.
Завдання: а) Опис методики. б) Алгоритм і програма реалізації методики. в) Перевірка методу і програми на прикладі. В пластині площею S і товщиною d<<
Визначити компоненти вектора зовнішнього електричного поля
ЗМІСТ
МЕТОД ОБЕРТАННЯ МОНОКРИСТАЛА При цьому методі рентгенограми одержують від монокристалів, певним чином орієнтованих відносно пучка монохроматичного рентгенівського проміння. Звичайно вздовж осі обертання орієнтують одну з кристалографічних осей досліджуваного кристала. Промені, дифраговані атомним рядом, розповсюджуються вздовж твірних конуса, розхил якого залежить від кута між напрямком падаючого проміння і напрямком атомного ряду (перша умова Лауе). Дифракційний ефект у тривимірній гратці характеризується перетином в просторі системи трьох конусів, осі яких направлені вздовж кристалографічних осей кристала. Коли кристал повертається навколо осі z, то кути між Незалежно від того, навколо якого кристалографічного напрямку обертається кристал, напрямок дифрагованих променів зберігатиметься з твірною конуса, вісь якого паралельна до осі обертання. Оскільки всі можливі лінії перетину конусів, тобто всі дифракційні напрямки, мусять проходити по твірних цього конуса, то на рентгенівській плівці, перпендикулярній до
Рис.1. Рентгенограма обертання монокристалу NaCl. Вісь обертання співпадає з кристалографічною віссю z. СuKa-випромінювання. Рис.2. Позначення для визначення періоду ідентичності з Програма для розрахунків за експериментальними даними метода обертання монокристалів. 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
|
|||||||||||||||
|