Программа в системе Mathematica
Это программа, отвечающая модели Kohmoto для спектра энергии квантовой частицы в одномерном квазипериодическом потенциале.
FareySequence[q_]:=Apply[Union,Array[Range[#-1]/#&,q]]
      |
Пример работы программы.
Show[Graphics[SpectrumData /@ FareySequence[20]]]
 |
| Предыдущая глава | Оглавление | Следующая глава |
