Введение в систему Mathmatica 3.0

         

Программа в системе Mathematica


Это программа, отвечающая модели Kohmoto для спектра энергии квантовой частицы в одномерном квазипериодическом потенциале.

FareySequence[q_]:=Apply[Union,Array[Range[#-1]/#&,q]]

Пример работы программы.

Show[Graphics[SpectrumData /@ FareySequence[20]]]

-Graphics-
Предыдущая глава Оглавление Следующая глава


Содержание раздела