Методика изучения волновых процессов в оптике с применением ЭВМ в курсе физики средней школы

ДиссертацияПомощь в написанииУзнать стоимостьмоей работы

Содержание

ГЛАВА 1. Аналитический обзор литературы по проблеме использования ЭВМ при обучении физике
- 1. 1. Соотношение между учебным экспериментом и компьютерным моделированием физических явлений
- 1. 2. Возможности использования ЭВМ для изучения и моделирования физических явлений
- 1. 3. Анализ методики изучения раздела «Волновые явления» в курсе. физики средней школы
- 1. 4. Анализ методики изучения с помощью ЭВМ и других, технических средств обучения темы «Световые волны»
- 1. 5. Выводы
ГЛАВА 2. Методика изучения волновых процессов в оптике с применением ЭВМ
- 2. 1. Выбор персональной ЭВМ для кабинета физики
- 2. 2. Методика изучения интерференции световых волн
  - 2. 2. 1. Интерференция синусоидальных волн
  - 2. 2. 2. Особенности интерферениции «света. Монохроматичность. Когерентность
  - 2. 2. 3. Анализ классических интерференционных схем (опыт Юнга, зеркала Френеля, бипризма Френеля, билинза Бийе, зеркало Ллойда)
- 2. 3. Методика изучения дифракции световых волн
  - 2. 3. 1. Дифракция световых волн на щели
  - 2. 3. 2. Дифракция световых волн на линейной дифракционной решетке
  - 2. 3. 3. Дифракция световых волн на двумерной дифракционной решетке
  - 2. 3. 4. Дифракция световых волн на трехмерной дифракционной решетке (голограмме)
- 2. 4. Особенности при работе с разработанным пакетом моделирующих программ по волновой оптике
- 2. 5. Контроль знаний по волновой оптшсе с помощью ЭВМ
- 2. 6. Выводы
ГЛАВА 3. Методика изучения предлагаемого раздела
Физические основы голографии»
- 3. 1. Роль и место в курсе волновой оптики вопроса «Физические основы голографии»
- 3. 2. Краткие теоретические основы и «традиционные» методы получения объемных изображений .L
- 3. 3. Голография — новый метод получения истинно объемных изображений объектов
- 3. 4. Применение голографии. Перспективы использования голографии в средствах массовой информации

Методика изучения волновых процессов в оптике с применением ЭВМ в курсе физики средней школы (реферат, курсовая, диплом, контрольная)

В соответствии с требованиями жизни современного общества, с учетом бурно развивающегося научно-технического прогресса, одной из главных задач частных методик остается задача максимального сокращения разрыва между наукой и школьным образованием. Решение этой задачи, как определяют дидактика и психология, возможно различными путямии, в том числе, интенсификацией обучения и научной организацией педагогического труда (НОШ!).

Эти два направления могут успешно развиваться только с т: 'X использованием в преподавании современных научных и техни-ч ческих средств и методов исследования.

В преподавании физики, где роль наглядности особенно велика, большое значение на пути интенсификации обучения приобретает символическая наглядность, обладающая высокой плотностью информации [24, 171.

Среди современных научных и технических средств исследования на одно из ведущих мест выходит ЭВМ и компьютерные методы сбора, обработки и передачи информации. В преподавании физики электронно-вычислительная техника позволяет обеспечить символическую наглядность при изучении большого количества физических явлений и процессов различной природы.

Использование ЭВМ (в том числе и для компьтерного моделирования физических процессов) в разумных пределах значительно сокращает время на подготовку опытов по волновой оп-• тике и на их демонстрацию в ходе урока, усиливает их выразительность. Резко возрастает наглядность опыта, появляется возможность в широких пределах изменяя начальные условия, сразу же видеть к какому результату это приводит. Выделить главные и наиболее существенные стороны физического процесса. Использование компьютерных моделей, в том случае, когда это оправдано, производит значительный аффект и эмоциональное воздействие на учащихся, способствует решению проблем интенсификации обучения и НОПТ.

Кроме того, все возрастающая роль ЭВМ и компьютерного моделирования в современной науке, технике и народном хозяйстве, делает необходимым привитие навыков работы с компьютером и применения электронных методов обработки информации наряду с такими навыками, как навыки использования элекроиз-мерительных приборов.

Тем не менее, в практике преподавания физики в вузе, а тем более в средней школе ЭВМ используется еще явно недостаточно. Исходя из вышеизложенного становится особенно актуальной проблема более полного использования возможностей компьютера и компьютерных технологий для широкого и систематического применения в преподавании физике.

Актуальность этой проблемы подтверждается большим вниманием, которое уделяется компьютерным методам получения, обработки и передачи информации как в научных исследованиях по общим вопросам естествознания, так и в исследованиях по методике преподавания физике [7,8,21,35,49,50,54,563.

Несмотря на бурное развитие компьютерных технологий, научной и методической литературы по вопросам широкого использования возможностей ЭВМ при обучении физике сравнительно мало. В ней рассматриваются лишь некоторые аспекты использования ЭВМ в курсе физики средней школы. Мал объем и программного обеспечения физических опытов (демонстрационные, обучающие, моделирующие и контролирующие программы). Отсутствует единый банк компьютерных программ по физике, вследствие чего создаваемые программы разрознены, не отвечают порой методическим требованиям, предъявляемым к подобного рода материалам, нет информации что создано или создается нового, что приводит к появлению множества однотипных программ с характерными методическими неточностями.

Объектом исследования является проблема применения компьютерных средств обучения физике в средней школе России и на физико-математических факультетах педагогических вузов.

В качестве предмета исследования рассматривается разработка методики использования компьютерных средств по изуче-' нию волновых явлений в оптике на уроках физики средней школе и на физико-математических факультетах педагогических вузов.

Мы считаем и выдвигаем в качестве гипотезы, что изучение волновых процессов в оптике в курсе физики средней школы и вуза с помощью моделирующих программ позволяет повысить наглядность обучения, будет способствовать решению. задач интенсификации обучения и НОПТ, более отчетливо показывать сущность физического явления, повысить научный уровень преподавания и, благодаря всему этому, содействовать развитию познавательного интереса учащихся и повышению качества их знаний.

Изложенная гипотеза побудила избрать целью исследования. дальнейшее повышение эффективности преподавания физики путем разработки обучающих, моделирующих и контролирующих программ, методики изучения с их помощью волновых процессов в оптике в одиннадцатом классе средней школы и на физико-математических факультетах педагогических вузов.

Исходя из поставленной цели, определены контретные задачи, которые потребовалось решить в ходе исследования г.

1. Построить дидактически обоснованную систему обучающих, моделирующих и контролирующих программ по основным опытам волновой оптики с учетом действующей школьной программы по физике.

2. Разработать методику изучения и преподавания физики с использованием разработанного программного обеспечения и имеющихся у учащихся знаний, позволяющую при минимальных затратах труда и времени учителя получать максимальный эффект.

3. Разработать методику изучения завершающего раздела волновой оптики — голографии.

4. Разработать лабораторные работы по голографии, которые можно рекомендовать для физического практикума в 11 классе общеобразовательной школы и физико-математических факультетах педагогических вузов.

Для решения поставленных задач использованы следующие методы исследования:

— теоретический анализ проблемы на основе изучения научной, общепедагогической, психологической, учебной, научно-методической и научно-популярной литературы;

— экспериментальная работа поискового характера по выяснению существующего программного обеспечения по вопросам волновой оптики и его научно-методический анализ;

— изучение, анализ и обобщение ошта применения ЭВМ учителями физики;

— экспериментальная работа по созданию обучающих, моделирующих и контролирующих программ для ЭВМ по некоторым вопросам волновой оптики;

— экспериментальная работа по отбору, созданию и отработке методики изучения вопросов волновой оптики на основе разработанного программного обеспечения;

— экспериментальная работа поискового, обучающего и контролирующего характера, которая проводилась по разработанному программному обеспечению и методическим пособиям в. школах г. Рязани диссертантом и учителями физики;

— обсуждение разработанного наш программного обеспечения и методики изучения на его основе волновых процессов в оптике на научно-методических конференциях и семинарах учителей физики г. Рязани и области, методистов и научных работников.

Научная новизна и теоретическая значимость исследования: — предложена методика изучения волновых процессов в оптике с применением ЭВМ, предусматривающая введение основных понятий волновой оптики и последовательный переход от изучения более простых физических моделей и процессов к более сложным, от интерференции света и анализа классических интерференционных схем (опыт Юнга, зеркала Френеля, бипризма Френеля, билинза Бийе, зеркало Ллойда) к дифракции света на одной щели, далее к дифракции на линейной (одномерной), плоской (двумерной) и затем объемной (трехмерной) дифракционных решетках. Качественное изучение объемной дифракционной решетки позволяет сделать логический переход к изучению материала о голографии, позволяющего связать воедино знания о волновых свойствах света и их практическом использовании;

— предложенная методика позволяет в динамике изучать волновые процессы в оптике, вмешиваться в ход их протекания, многократно повторять моделирующий эксперимент при различных начальных условиях, поддерживать диалог обучаемых с ЭВМ;

— созданы различные типы педагогических программных средств (обучающие, моделирующие и контролирующие компьютерные программы) для курса физики общеобразовательной школы и физико-математических факультетов педагогических вузов, иллюстрирующие характер и механизм протекания волновых процессов в оптике на основе динамических компьютерных моделей;

— показаны возможности, открывающиеся при использовании проекционного видеоэкрана, совмещенного с ЭВМ, при проведении уроков физики: высокая наглядностьпроведение активных диалогов в ходе занятия, с возможностью быстрого анализа правильности ответов, рассуждений и предположений учащихся для всего класса;

— разработаны лабораторные работы по получению голограмм в условиях кабинета физики общеобразовательной школы и педагогического вуза.

Практическая значимость исследования определяется тем, что:

— создан пакет прикладных программ, позволяющий реализовать некоторые возможности компьютера на занятиях физики в общеобразовательной школе и физико-математических факультетах педагогических вузов;

— разработана и внедрена в учебный процесс методика изучения волновых явлений в оптике с применением ЭВМ, позволяющая показать динамику распространения и взаимодействия световых волн, наблюдать результат дифракции и интерференции волн при значительном изменении условий эксперимента, изучать сложные для понимания физические процессы быстрее и эффективнее, чем существующая ныне методика;

— разработанный пакет прикладных программ открыт для дальнейшего совершенствования в процессе преподавания и применим для подготовки и переподготовке учителей физики.

— разработаны сценарий и методика проведения уроков-семинаров «Волновые процессы в оптике. Голография» ;

— даны практические рекомендации по получению голограмм в условиях кабинета физики общеобразовательной школы, позволяющие ввести в физический практикум для учащихся 11 классов новые лабораторные работы по получению голограмм;

— разработанная методика изучения волновых явлений в оптике с применением ЭВМ, как показал педагогический эксперимент, повышает уровень знаний и интерес к предмету у школьников и студентов при изучении соответствующего раздела физики, активизирует их творческие начала;

— разработанный пакет прикладных программ экономит время преподавателя при подготовке и ведении занятия, применим для подготовки и переподготовки учителей физики.

Достоверность и обоснованность научных положений и выводов обеспечена:

— опорой на методологические обобщения базовых наук: физики и информатики, выводы общей и частной дидактики;

— использованием разнообразных методов исследования, соответствующих поставленным задачам;

— соблюдением основных требований, предъявляемых к организации и проведению педагогического эксперимента.

Апробация исследования. Результаты исследования опубликованы в следующих работах:

1. Абросимов П. В., Алексеева А. Н. Основы голографии в углубленном школьном курсе физики // Активизация учебно-познавательной деятельности студентов в процессе их профессиональной подготовки: Тез. док. XXVI зонального совещания преподавателей физики, методики преподавания физики, астрономии и общетехнических дисциплин пединститутов Урала, Сибири и Дальнего Востока — Абакан: Изд-во АГПИ, 1992. с.84−85.

2. Абросимов П. В. Голография как интергирующий раздел при обобщении темы «Волновые процессы в оптике» // Преподавание физики и астрономии в школе. Состояние, проблемы, перспективы. — Н. Новгород, 1994. с.92−93.

3. Абросимов П. В. Вариант творческого урока-обобщения «Волновые процессы в оптике. Голография» // Активные формы и методы обучения в вузе: Тез. докл. межвуз. конф.- Рязань: Изд-во РГПУ, 1994. с.80−82.

4. Абросимов П. В., Степанов В. А. Использование ПЭВМ «Корвет» для изучения волновых свойств света // Педагогические технологии в высшей школе: Тез. докл. межвуз. конф.-Рязань: Изд-во РГПУ, 1995. с.134−135.

5. Абросимов П. В. Использование персональной ЭВМ и видеопроектора как средства более рационального сочетания индивидуальной и групповой форм работы при изучении физики // Общепедагогические проблемы образовательного процесса в высшей школе: Тез. докл. межвуз. конф. — Рязань: Изд-во РГПУ, 1996. с.121−122.

6. Абросимов П. В. Новые педагогические возможности обучения физике, открывающиеся с применением сочетания ЭВМ и видеопроектора // Современная учебная техника и общеобразовательные технологии: Тез. докл. науч.-техн. конф. -Н.Новгород, М.: Изд-во «Центр-пресс», 1996. с.94−95.

7. Абросимов П. В., Выгузов В. Г., Степанов В. А. Компьютерное тестирование на ПЭВМ «Корвет» // Совершенствование мето—дики преподавания физики в непрерывной системе образования: Сборник трудов межвуз. науч.-практ. конф- - Тамбов, Изд-во ТГУ, 1996, — с.3−5.

8. Абросимов П. В., Степанов В. А. Использование видеопроектора при проведении уроков физики в компьютерном классе // Совершенствование методики преподавания физики в непрерывной системе образования": Сборник трудов межвуз. науч.-практ. конф. — Тамбов, Изд-во ТГУ, 1996, — с.5−6.

9. Абросимов П. В., Кирьяков B.C., Ильдяев И. А., Ельцов А. В. Место и роль спецкурсов и спецсеминаров по методике преподавания физики в системе подготовки учителя физики в современных условиях // Совершенствование методики преподавания физики в непрерывной системе образования: Сборник трудов межвуз. науч.-практ. конф. — Тамбов, Изд-во ТГУ, 1996, — с.43−45.

10. Абросимов П. В., Ельцов А. В., Степанов В. А. Применение ЭВМ в курсе физики // Преподавание физики в высшей школе: Сборник научн. трудов МПГУ — М.: Мзд-во «Прометей», 1997, с.52−59.

По теме исследования автор выступал с докладами на XXVI зональном совещания преподавателей физики, методики преподавания физики, астрономии и обще технических дисциплин пединститутов Урала, Сибири и Дальнего Востока в г. Абаканена межвузовских научно-методических конференциях в городах Москве, Н. Новгороде, Рязани, Тамбовена курсах повышения квалификации и ежегодных региональных научно-методических конференциях учителей физики.

В 1993;1997 гг. нами по теме исследования в г. Рязани проведены занятия с учащимися одиннадцатых классов средних школ N 3 и 38, студентами ВТУ-1 (технический лицей N1), студентами физико-математического факультета РГПУ.

На защиту выносится:

— методика изучения волновых процессов в оптике с применением созданных программных средств для ЭВМ, позволяющая в динамике изучать распространение и взаимодействие световых волннаблюдать результат дифракции и интерференции волн при значительном изменении условий экспериментапредусматривающая последовательный переход от взаимодействия световых волн с простейшими преградами к более сложным;

— программные средства, позволяющие использовать компьютер в учебном процессе как мощное средство активизации познавательной деятельности обучаемых, повышающие интерес к физике и улучшающие качество знаний, умений и навыков.

Диссертация состоит из введения, четырех глав, заключения, библиографии и приложения. Общий объем работы 269 страниц, из них основного текста 201 страница, 73 рисунка, 4 таблицы и приложение объемом 68 страниц. Список использованной литературы включает 99 наименований.

4.6 Выводы.

Раскрыты цели, методы и сущность педагогического эксперимента, подтверждающего эффективность предлагаемой методики изучения волновых процессов в оптике с применением ЭВМ в курсе физики средней школы.

Описаны методики проведения и обработки экспериментальных данных педагогического эксперимента.

Полученные результаты педагогического эксперимента показали, что процент правильных ответов увеличивается с 4−7%, при традиционном изучении материала по волновой оптике, до 68%, при использовании методики, предлагаемой автором работы.

Материал по волновым явлениям в оптике, изучаемый с помощью компьютера, хорошо усваивается обучаемыми в контрольных классах (по критериям эффективности хи-квадрат 12,7>7,8 при ошибке не более 5%), способствует повышению качества знаний и развитию их познавательного интереса.

ЗАКЛЮЧЕНИЕ

В результате проведенного нами исследования достигнуты следующие результаты:

— разработана методика изучения волновых процессов в оптике в курсе физики средней школы с применением ЭВМ, позволяющая изучать процессы распространения и взаимодействия световых волн в динамикеуправлять моделью изучаемого волнового процесса, а затем анализировать результаты воздействия на негоосуществлять активную обратную связь с обучаемымиполучать достоверную информацию об уровне знаний как всего, коллектива, так и отдельного ученикаактивизировать творческие начала и исследовательские навыки обучаемых;

— созданы иллюстративные, обучающие, моделирующие и контролирующие программы по разделу волновой оптики;

— показаны преимущества использования разработанных программ в сочетании с натурным демонстрационным экспериментом при обучении физике;

— предложена методика изложения вопроса «Физические основы голографии», являющимся логическим завершением изучения дифракционно-интерференционных эффектов и позволяющим не только познакомить учащихся с одним из направлений современной прикладной оптики, но и глубже понять, связать воедино знания о волновых свойствах света, их практическом использовании;

— даны практические рекомендации по получению голограмм в условиях кабинета физики средней школы;

— предложенные практические рекомендации позволяют поставить новые лабораторные работы по получению голограмм в физического практикума в 11 классе.

Результаты проведенного педагогического эксперимента позволяют сделать вывод о том, что:

— предложенный метод изучения волновых явлений в оптике с применением ЭВМ хорошо усваивается учащимися;

— способствует повышению качества знаний, делая эти знания более осознанными и глубокими;

— изучаемый материал усваивается учащимися легче и быстрее, что позволяет, говорить о некоторой интенсификации обучения.

Предложенная нами методика изучения волновых явлений в оптике с применением ЭВМ (в том числе и с использованием большого проекционного Еидеоэкрана) способствует научной организации педагогического труда, повышает эффективность работы учителя, сокращает время на подготовку и демонстрацию опытов, улучшает логическую стройность и завершенность преподавания. Эмоциональное воздействия компьютерных демонстра-¦ ций, моделирования и контроля активизирует мышление учащихся, развивает из познавательный интерес, а также способствует эстетическому воспитанию обучаемых.

Показать весь текст

Список литературы

Абросимов П.В. Новые педагогические возможности обучения физике, открывающиеся с применением сочетания ЭВМ и видеопроектора // Современная учебная техника и образовательные технологии. — Н. Новгород, М.: Изд-во «Центр-Пресс», 1996.- С.94−95.
Абросимов П.В. Использование видеопроектора при проведении уроков физики в компьютерном классе // Совершенствование методики преподавания физики в непрерывной системе образования. Тамбов, 1996.- С.5−6.
Абросимов П.В. Использование ПЭВМ «Корвет» для изучения волновых свойств света // Педагогические технологии в высшей школе. Рязань: РГПУ, 1995.- С.134−135.
Абросимов П.В., Скотникова И. А. Разработка и постановка опытов по голографии для средней школы. Курсовая работа. Рязань: РГПУ, 1987.
Агибова И.М. Комплекс лабораторных работ и средств обучения по физической оптике и методика его применения в школах разного типа. М.: МПГУ, 1994, автореферат.
Агапова О.И., Кривошеев А. О., Ушаков А. С. О трех поколениях компьютерных технологий обучения.//Информатика и образование. N2.1994.- С.34−40.
Александров И.В. Моделирование физических процессов в лазере на ПЭВМ // Сб. научн. тр./ Уфимский авиац. ин-т. 1992.- С.19−22.
Бабанский Ю.К. Оптимизация учебно-воспитательного процесса. М.: Просвещение. 1982, — 192 с.
Бабанский Ю.К. Проблемы повышения эффективности педагогических исследований. М.: Педагогика, 1982.- 164- с.
Базакуца В.А. Концептуальные, методологические и методические основы применения ЭВМ в техническом вузе при изучении физики// Сб. научн. тр./ Харьков. 1991.- С.15−28.
Балашов А.П. ЭВМ в курсе физики // Применение средств вычислительной техники в учебном процессе кафедр физики-и высшей математики: Тезисы докладов республиканского совещания семинара / Ульяновск. 1991, — С.3−6.
Баранов А.В., Давидков В. В., Невская Г. Е. и др. Опыт применения ЭВМ в курсе физики // Сб. науч.-метод, статей по физике. Вып.13. М.: Высш. школа, 1987.- С.10−14-.
Бирюков С.В., Гулеватая Е. А., Дунин С. М. Математическая среда Derive компьютерный помощник учителя физики. Материалы конференции н0бразование-94″. Москва 5−7 июля 1994.- С. 30.
Бирюков С.В. Универсальная компьютерная оптическая скамья и ее возможности при изучении оптики. Материалы конференции «0бразование-94″. Москва 5−7 июля 1994.-С.54.
Бобко И.М., Скибицкий Э. Г. Дидактические принципы разработки компьютерных учебных курсов // Новые информационные технологии образования. Новосибирск. НИМ МВТ, NT (ч.2), 1991С.3−15. .
Богоявленский Д.Н., Менчинская Н. А. Психология усвоения знаний в школе. М., изд. АПН РСФСР, 1959.- 7Q с.
ВерникН.Н., Кулагин С. А., Угаров В. В. Моделирование фундаментальных физических опытов на персональной ЭВМ // Физика в школе. N3. 1987.- С.44−46.
Верхозин А.Н. Установка для получения голограмм.- Физика в школе. N1. 1987.- С. 77.
Вильяме Р., Маклин К. Компьютеры в школе.-М.: Прогресс, 1988.- 333с.
Волгин Ю.Н. ИВК в лабораторном практикууме курса общей физики // Сб. научн. тр./ ЛГТУ. 1991.- С.23−26.
Гласс Дас., Стенли Дж. Статистические метода в педагогике и психологии. М., Прогресс, 1976, — 495 с.• 24. Голант Е. Я. Методы обучения в советской школе. М., Учпедгиз, 1957.- 120с.
Грабарь М.И., Краснянская К. А. Применение математической статистики в педагогических исследованиях. М.: Педагогика, 1977.- 136 с.
Гулд X., Тобочник Я. Компьютерное моделирование в физике: В 2-х частях. Часть 1,2: Пер. с англ.-М. :Мир, 1990.41.- 349с. 42.- 399с.
Данилов В.А., Любимов К. В. „Колебания и волны“ спра-вочно-демонстрационная программа. Материалы „V Междунар. конф. „Применение новых компьютерных технологий в образовании“. Троицк. 30 июня — 3 июля. 1994. -С.70.
Демидов В.Е. Пойманное пространство.- М.: Знание, 1982.-207с.
Демкович В.П., Демкович Л. П. Сборник задач по физике для 8−10 классов средней школы.-М.:Просвещение, 1981. -20бс.
Денисюк Ю.Н. Об отображении оптических свойств объекта в волновом поле рассеянного им излучения. ДАН СССР, т.144, N6. 1962.- С.1275−1289.
Денисюк Ю.Н. Об отображении оптических свойств объекта в волновом поле рассеянного им излучения. Оптика и спектроскопия. Т. 15, вып.4. 1963.- С.522−534.
Дидактика средней школы / Под ред. М. Н. Скаткина. М.: Просвещение. 1982.- 319с.
Ельцов А.В. Изучение электронных процессов в вакууме и твердом теле в курсе физики средней школы с применением ЭВМ : Дис. канд.пед.наук, -М., 1996.
Ефремов А.П. Дисплейная графика и изучение физических явлений // Применение средств вычислительной техники в учебном процессе кафедр физики и высшей математики: Тезисы докладов республиканского совещания семинара / Ульяновск. 1991.- С.28−29
Задания для итогового контроля знаний учащихся по физике в 7−11 классах средней школы: Дидакт. материал / О.Ф. Ка-бардин, С. И. Кабардина, В. А. Орлов.-М.: Просвещение, 1994.
Занков Л.В. О предаете и методе дидактических исследований. М.: АПН РСФСР, 1962.- 148с.
Извозчиков В.А. Дидактические основы компьютерного обучения физике: Учебное пособие /Ленинградский гос.пед. ин-т им. А. И. Герцена.-Л.: ЛГПИ, 1987.- 70с.
Извозчиков В.А., Маркова И. В. Школьники изучают ЭВМ // Физика в школе. N4.1984.- С.28−38.
Ильин В.Е., Кочеев А. А. Некоторые аспекты концепции использования ЭВМ в учебном процессе // ЭВМ в учебном про. цессе вуза: Межвуз. сб. научн. тр. Новосибирск, 1987.
Ионкин В.П. Некоторые тенденции применения ЭВМ в курсе общей физики // Методы и средства эффективного использования вычислительных систем: Сб.научн.тр. М.: 1989.-С.68−76.
Карнов Ю.Г., Баум Б. А. К вопросу применения ЭВМ на лекциях по общей физике // ТСО и методика преподавания физики в технических вузах.-Свердловск: Минвуз РСФСР, 1984. С.12−14.
Нольер Р. и др. Оптическая голография.- М.: Мир, 1973.-686с.
Комар В.Г., Серов О. Б. Изобразительная голография и го-лографический кинематограф.- М.: Искусство, 1987.- 282с.
Кондратьев А.С., Лаптев В. В. Физика и компьютер. Л.: ЛГУ, 1989.- 324с.
Кондрашин Г. В. Применение ПЭВМ в курсе общей физики // Сб. научн. тр./ Донецкий ГУ. 1991.- С 66−68.
Контрольные работы по физике в 6−10 классах средней школы: Дидакт.материал. Пособие для учителя/Н.К.Гладышева и др.- Под ред Э. Е. Эвенчик, С. Я. Шамаша.-М. -.Просвещение, 1986.- 206с.
Краткий справочник фотолюбителя/ Сост. и общ. ред. Н.Д.ПаЕВфилова и А. А. Фомина.- М.:Искусство, 1985, — 367с.
Кузьменко И.Н. Моделирование физических процессов в квантовой оптике // Сб. научн. тр./ Белгородский пед. ин-т. 1992.- С.17−18.
Лаптев В., Немцов А. Учебные компьютерные модели.//Информатика и образование. N4.1991.- 0.70−73.
Лаптев В.В., Кондратьев А. С. Физика и компьютер. Л.: Изд-во Ленинградского университета, 1989.- 230с.
Лекционные демонстрации по физике. Грабовский М. А. и др. Под ред. В. И. Ивероновой.-М.:Наука, 1972.- 639с.
Леднева Н.Д. Реализация метре диетных связей физики и химии с использованием ПЭВМ „Корвет“//Педагогические технологии в высшей школе: Тез.док.межвуз.конф.- Рязань, РГПУ, 1995.- С.100−101.
Мастеров В.Ф. Использование ЭВМ для моделирования физических явлений в лабораторном практикуме // Сб. научн. тр./ ЛГТУ. 1991.- С. 24−27.
Медведев В.Е. Компьютерное моделирование в вузовском курсе физики // Сб. научн. тр./ Ярославский политехи. ин-т. 1991.- С.34−45.
Мельников Ю.П. Описание и методика использования лекционных демонстраций в курсе общей физики с использованием графических возможностей ЭВМ // Сб. научн. тр./ Рыбинский авиационно-технологический институт. 1991 .-С. 12−14.
Методика преподавания физики./ Под ред. В. П. Орехова, А. В. Усовой, С. Е. Каменецкого. М: Просвещение, 1972.-263с.
Методика преподавания физики в средней школе./ Под ред. С. Е. Каменецкого, I.A. Ивановой. М.: Просвещение. 1987.-355с.
Методика преподавания физики в 8−10 классах средней школы. В 2-х частях./ В. П. Орехов, А. В. Усова, С. Е. Каменецкий и др- Под ред В. П. Орехова, А. В. Усовой.-М.: Просвещение, 1980. 4.1.- 320с. 42.- 351с.
Методика преподавания физики в средней школе: Электродинамика нестационарных явлений. Квантовая физика: Пособие для учителя / А. Т. Глазунов, И. И. Нурминский, А.А. Пинский- Под ред. А. А. Пинского.-М.: Просвещение, 1989.-272с.
Методика преподавания физики в средней школе: Частные вопросы: Учебное пособие для студентов пед. ш-тов по физ.-мат. спец. / С. В. Анофрикова,^{М.А.Бобкова,} Л.А.Бор-донская и др.- Под ред. С. Е. Каменецкого, JI.А.Ивановой. М.: Просвещение, 1987.- 336с.
Методические рекомендации по изучению колебательных процессов в курсе физики одиннадцатилетней школы: (Материалы к эксперименту) / Моск.гос.пед.ин-т им. В. И. Ленина.1. М.: МГПИ, 1987.
Нарыкова и. Компьютерное моделирование в Великобритании. //Информатика и образование. НЗ-4. 1992.- С. 116−120.
Образование в современном мире (состояние и тенденции развития). / Под ред. М. И. Киндакова. М.: Педагогика. 1986, — 245с.
Оптическая голография. В 2-х томах. Под ред. Г. Колфил-да.- М.: Мир, 1982. Т.1.- 374с. Т.2.- 381.
Оптическая голография. Под ред. Ю. Н. Денисюка.- Л.: Наука, 1983.- 100с.
Островский Ю.М. Голография и ее применения.- Л.: Наука, 1973.- 203с.
Орехов В.П. Колебания и волны в курсе физики средней школы. Пособие для учителя.- М.:Просвещение, 1977.- 176.
Павлов Ю.В. Статистическая обработка результатов педагогического эксперимента. М. Знание. 1972.- 31с.
Пеннер Д.И., Корж Э. Д. Программированные задания по физике для 10 класса: Пособие для учителя.- М.: Просвещение, 1987.- 112с.
Петров А.В. Единая система компьютерной подготовки студентов физических специальностей в педвузе // Сб. научн. тр./ Волгоград. 1991.- С.43−45.
Пономарев В.Н., Журавлева Н. Н. Моделирование на ЭВМ движения тела в поле тяготения // Сб. научно-метод. статей по физике. Вып.15. — 1989.- С.50−52.
Попов Ю.П., Самарский А. А. Вычислительный эксперимент: В сб. Компьютеры, модели, вычислительный эксперимент. -М.: Наука, 1983.- 64с.
Программы общеобразовательных учреждений. ФИЗИКА. АСТРОНОМИЯ /Сост. Ю. М. Дик, В. А. Коровин.-М.-.Просвещение, 1994. С. 31.
Разумовская Н.В. Компьютер на уроках физики // Физика в школе. КЗ. 1985.- С.51−56.
Резников Л.И. Физическая оптика в средней школе. М.: Просвещение, 1971.- 263с.
Роль голографии в телевидении будущего // Техника кино и телевидения. N3. 1989.- с. 70.
Рубежи фотографиии // Серия „Фотобиблиотека журнала МИФ“, 1972.- С.25−30.
Рымкевич А.П. Сборник задач по физике для 9−11 классов средней школы.-14-е изд.-М.:Просвещение. 1992.- 224с.
Сумский В.И. Ms опыта использования ЭВМ в учебной лаборатории // Применение средств вычислительной техники в учебном процессе кафедр физики и высшей математики: Тезисы докладов республиканского совещания семинара /. Ульяновск. 1991.- С.74−76.
Соина Н.В., Бирюков С. В. Вариант компьютерной поддержки темы „Колебания“ в курсе физики педвуза. Материалы конференции „Образование-94″. Москва 5−7 июля 1994.- С. 19.
Отариченко Б.Е., Коржавина О. А. Численный эксперимент в практикуме по общей физике // использование физического эксперимента и ЭВМ в учебном процессе: Сб. науч. тр.-Свердловск, 1987.- С.107−112.
Скибицкий Э.Г. К вопросу о разработке педагогических сценариев компьютеризированных курсов // Информационные технологии в образовании. Новосибирск- ИНСО РАО. N1Q. 1993.- С.2−41.
Тамицкий Э.Д., Горбатов В. А. Учебная книга по фотографии. Учебн.пособие.- М.:Легкая индустрия, 1977.- 319с.
Типовые программы для школ с углубленным изучением физики. М.: Просвещение. 1990.- 42с.
Физика: Учебник для 11 класса средней школы. Мякишев Г. Я., Буховцев Б.Б.-10-е изд.,-М.:Просвещение.1990.-319с.
Физика: Учеб. пособие для 11 кл. шк. и классов с углубл. изуч. физики/А.Т.Глазунов, О. Ф. Кабардин, А. Н. Малинин и др.- Под ред. А. А. Пинского.-М. :Просвещение. 1994.- 431с.
Фокин М.Л. Построение и использование компьютерных моделей физических явлений' в учебно-воспитательном процессе: Дне. канд.пед.наук,-М-, 1989.
Хантер Б. Мои ученики работают на компьютерах.-М.: Просвещение. 1989.- 223с.94. Шахмаев Н. М. и др. Физический эксперимент в средней школе: Колебания и волны. Квантовая физика, — М.: Просвещение, 1991.- 222с.
Факультативный курс физики./ О. Ф. Кабардин, с.И. Кабар-дина, Н. М. Шефер. М.: Просвещение. 1986.- 240с.
Физика в школе. Сборник нормативных документов / Сост. Ермолаева Н. А., В. А. Орлов. М.: Просвещение. 1987.- 224с,
Физический эксперимент в средней школе: Колебания и волны. Квантовая физика./Н.М.Шахмаев, Н. М. Павлов, В. М. Тыщук -М.: Просвещение. 1991.- 223с.
ЭВМ в курсе общей физики / Под. ред. А. Н. Матвеева. М. Изд-во МГУ. 1982.- 230с.
Постников А.В. Проверка знаний учащихся по физике:6−7кл Дидакт. материал. Пособие для учителя.- 2-е изд., пере раб. М.: Просвещение. 1986.- 208с.1. ПРИЛ О ЖЕНИЕ
К ДИССЕРТАЦИОННОЙ РАБОТЕ АБРОСИМОВА ШВМ ВИКТОРОВИЧА НА СОИСКАНИЕ УЧЕНОЙ СТЕПЕНИ ШЩЙДАТА ПЕДАГОГИЧЕСКИ НАУК „МЕТОДИКА ИЗУЧЕНИЯ ВОЛНОВЫХ ПРОЦЕССОВ В ОПТИКЕ С ПРИМЕНЕНИЕМ ЭВМ В КУРСЕ ФИЗИКИ бРЕДНВЙ ШКОЛЫ“
Специальность, 13.00.02 теория и методика обучения физике
Краткие теоретические сведения (стартовый файл WOLNA#.BAS) .•. 4
Система автоматического вызова необходимогофайла „МЕНЮ“ (UTOWQM.BAS) .12i| 3. Двухлучевая интерференция. Часть 1 (DLIItf.BAS). 13
Двухлучевая интерференция. Часть 2 (DLI2#.BAS). 20
Дифракция света на щели (PI0DR1#.BAS) .25
Дифракция света на линейной дифракционнойрешетке (PI0DR2#.BAS) .32
Дифракция света на двумерной дифракционнойрешетке (МШШ.ВАЗ) .38• f 8. Дифракция света на трехмерной дифракционнойрешетке (Р10ВН4#.ВАБ). .42 $ 9. Физическое основы голографии (K)G#.BAS). 46
Тестирующая программа по волновым явлениям.1. Вариант 1 (K1#.BAS). 54
Тестирующая программа по волновым явлениям.1. Вариант 2 (К2#.ВА8). 59
Контроль знаний. Качественные задачи (BKZ#.BAS) .64Ф1, ШТШ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ (СТАРТОВЫЙ ФШ HOUAf. BAS)5 REM ШУШ. ВАЗ Стартовый Ш
CLEAR50?LOCATE,, 0−0Ш А${5)15 €LS!PCLS-L0CATE, 0'.LniE (0,0)-(51i, 255}, l, BjREH Еадр 1
F0RMT0255STEP4!LIiiE (128,64)-(X, il, 2sLIKE (386,64)-(255←X, l), 225 1И1Е (128,Ш}"(Х, Ш), 2! ИКЕ (386,192}-1255ЛД27), 2гйЕт
FQRY=lT9127STEP35lINEU28,64H255,Y), 2! tItiE (386,64H510,Y}, 2
LINEU28,m)-l256,i27+Y), 2jLiKE (386,i92H (5i0,127+y), 2: NEXTY
F0RX=255T01STEP-4 jLI№(128,64 H X, 127), 2 5 L ДОЕ (386,64 H 255+X, 127), 245 l"E (128,192J-(l (l25S²:LIffi (384Ii92H (2S5*Xi2″), 2jilEXTJ
SO F0SY=127TQiSTEP-3:L!ffiU29"64}-(I, Y), 2: tIfiE{38i, 64}-{255,Y), 2
LieEli2e, m)-U.I27+Y.l2!LMt38A, H2J-(2K1127+Y)>2"ffiXTY
FQRJ=iTQ110:LiKE (25bJ, ii2)-(259^!127), 0, BF5KEXTJ:LI"E (i4?>ii2)-(369,127), l, B
Ш 14=9 Волновне свойства cseta 3
FORl=lTQ14sLQCATE34-I!3:PRIHTHIO$(T$, 15-I, 2"-i)!FQRIsOT030j!iEXTl:ieTI 75 F0RZ=0TQ1000-HEXTZ ¦ 00 CLSsPCLSsREH Kasp 285 1ЛЩ1 }1)-Ш0,255), 7, ВР$ 1Щ40,15И435,210}, q, bf
LI?iE (2O, 25H467,220), l,8 °F:lINE (21,2&H466,2i9)}7,8
ЮШЕ22,4:РВШаВ H В S Й 8 И E i0sLOC6TE8>6
PRItiT"npH работе t арогранаой 5 и н „t „, чпа
РКП1ТТАВ (7)"дяа перехода к сяеяувцеау кадру нрво ва"ап°
PRINTTAB{7)"клавишу i нзобрашенкек с? релкн bhksj
Р8ЕЩ63}Ш), 7−0№Ш373,Ш!Ш}125Ш, М5,!
PAINT (370,116), 7sLIHE{358fli2)-(378,128), 7>3
PRIHTTftB (7 >аЧтоб“ йернуться п йредвду*еау кадру вахать“
PRINTTA8<7)"клавишу с „гоЗра?.еЕйен с? реякв вверх?
PSET (36B, 146), 7:0ВАНаС7³⁷³, 156Й363,156Й368,146е
PAIilT (369,149), 7iLlKc (353,i43)-(378,159), 7, В:ЮСАТЕ6512
PRINTS йивиаи ршшещ в правая чтш клавиатур“)а
K?=INK?Y$sIFK$=acTHESi50ELSEIFASC{K$)=i30THEfU55ElSEIFASC{!(?}=i36THES15ELSEi50155 €LS-PCLStLIHE{0,0)-(511,255), 7, B!LIRE (2,2h (509,253}, 2, BF:PRIHTjREa ЕадвЗ160 CLEARsCH ERROR SOTO 300
PRINT0 Вкбернте иятересуоди“ Bat рагдед0
PRIST11 каз&шк“ рвравяеввв курсоров (, }*
FRUIT'5 к наште кгавиву ввел ,»:PRIHT
DRAi™C7BH339,37R585H5R5BH347,34O10L16Ui0R16BjPAItfn337,33), 7 185 DRA"°C7BI1372f42L5E5F5L56H380,34Di0Ll&Ui0R16″.!PAIHT (373J41}, 7 190 DRA5)"C7Bi1280,50D10L9D3H5E5D3R5U6R4BH284,48017L21U17R218m кн200 й? Ш=°- Краткие теоретические сведения, 0
А${2)="~ Квряучевйй йвтбр|вревция, Деление вошваго |рон?а,"210 &$(3}=E!- рост. ие и абштаве дфакциоввке ревете". «
А$(4}=8- Фигическне основа гмогр§ нй» п|й?{5)=а- Впав ковтрояя 5вгввй. и
LIKE (30!74)-(500,181), 0,8FiLI!iE (i7)82)4490,191}, lsBF3lKiE{19,83)-(4S8,189), 5?8
FCRI=lTQ5sU!CATE7,6*1″.PRIST А$(П'ЛеТ1:60Т0 250 230 8 $=IHKEY$iIFBJ="TflEN230
IF W=CHM (130) THEM CS=C"!CN=C?Hls IF Сй>5 TKE№ CfMsGOTG 250
IF В"=СШ (Ш TKES CS=G?iiS"=C"-lslF Ш THEN C8=5-S0T0 250
IF В$=Ш*Ш> THBf fflt Cfl GOTO 260,265,270,275,280
L0CATE7,4*fflsPRINT €KR?{2?!°A"fAli€fJJ
LQCATE7,4+CSsPRINT €RRS (27)"7E-Af (CS):S0T8 230
SOTO 355 г REfi-Кратене теор. сведения
SG3UB2S5:LO№aftiDLIl".BAS", Rг ВЕ! Нвутаучевая ннтерфереадм
SQSi!B285?UM"AiPI3DE|t. BASe, ftdlSHisoM л «в*.да (р. реветвя275 80SliB285-LOADuAsFOS#.BAbn, R: ЮМшч. оешиш голографии280 &0SUB285:l0adaa:bkzi.ba5*, r: REi1- Esse ковтропя знании
Рда=ОТО18гШЕШ5Ч89ЫН350Н»?Ш}, 5,8|?1ЕШ
LIfE (lO7,77H368I-114), 7,8iL0CATE22l6"PRil3T3K «„Jfon у,“
LOCATE 14,7sPRINT» идет догдока прогрт№.р:ШШШ
REil П/П обработки ошибок ч? еннв с диска3S5 IF ERR=50 THEN Е$=°0аибка чтевая Файла.3.D:60Т0325
IF ERR=53 ТНЕН Е?=вФзйа т mm Ш м на8леа.01"т)325
IF ERR=57 THEN Е$="Ошибка Бвода/внЕода двека fUlstaiS0TG325320 ?≠сНгопре5елевная .овибва,.0325 t, I"e (^5s73) —<4iOsil4), 4,8FiLINEC66,74)-{409e113), 0,8
LKATEi9,6-PRlKT E$iL0CRTE9,7,0:PRlt!TS?C (40i%.F0RlS=lT025'.8EEP-HEXTri
LGCATE9,7sPRINT" устраните причину аанёкн к нажните8340
Kt=IHKEY$!lFK"s"THBB4& ELSE ШСШНЗ THEN RESlifiE 155 ELSE 345 350 END •
CLEAR:CLS'PCLS-LINE{2,2}-{509!253), 2JBF-REK БЯ0К IFOPM |Кадр1)
L0CATE24f 5гРЯ! НТиК P к 1- К I EnsL0CSTEi8,7:P8INT"I ЕОРЕТНЧЕС&ЙБа
L0CATE23,9:PRHiTf!C В Е- Д Б H В Я"
LINE{35,40}-(390,i70)J0,BF5LIiiE (78,45)-(385,l75), l,8FjLIKE (80,47)-{383,i73), 5,8375 F0RZ=iTOi500sETZ380 CL5-PCLS:SE" {1щ7) ,
LIKE (0,0)-(5lO, 255}, 7, BJiIfjE (35,2)-(445,103), 4,8FjLI"E{30,4>-(440s107), l, BF 390 LINE (32,6)4438,105}, 7, В 395 FRIST ¦
PRIST0 СВЕТ (световое ибяучевие) область спектра" 405 PRIHT" - эдектро-нагвитннк*
PRINT" коггбания, еевосрздствво восприннваеиая 415 PRIST0- даееш таге. Харамеривувга дпшви ыяа? 420 PRINT" з диапа§ ойе от 380 до 740 на." 425 F8aZM? G70№s?em ,
DRASBC7BH276,127Й278,120И230,127Й278, ШШ8,153Ш, 153Я308,15 111 315,153il3Q8,155″ 435 0Кй{ГС78"100,239й94,244П102,243и
L8CATE37f8-rRIHT!T.aiLGCATE403ilsFRI^TuBnsL0CSTEI2}i5sPRIHI, 5Sa:0Rfi
L0CftTE2s9:PRI"T!, E-b€ktop аапрявдвосгй электричек sore войн вздев, nsDRA8DG78fiS, i27R? ffiF2838
РШ* В-втор нашти эдукции, с sDRAif С7БН8,143R7H2F263B
PRINT" S-направяевне pacnpocT-usPRIKT5 ранения гойнв,"
LINE (278,153)-|94}244), 7! FDR 1=154 ТО О ЗТЕР-2
Yl=23"SIK (X/7}-X/2sY2=25tSIH ((X/2,3)/3>^C
FSET (1204-Х, 232-Х/2}, 71 LI NE- («232+Vi >, 7s PSET? 120+Х
LIKE-<120^Y2,230-X/2}"1fNEXT X
LGCATE35"13 s PR I „TCHRI (34} iD Згновенвая |CHRt (34 5- |Р81ЙТп<�гветавзн вошшв: Ш1Б2<�№ 485 ^=1"г
CLSsPCLSsPRISTiPRINT-aPHI s (КадрЗ)
LINE{i, lH510,255}, 7.6:LINE12,2H509,254), i,6F
LISEU31J3i)-i399s129i55,SF:LIKE{132)32}-(398l128), 4, B!LI"E{7Ii90}-(503,245), 6,8505 1вСЙШ, шгетвЯв"аа вдшга tneufpa ответу“? „втерев®-*
PRINT“ дайн &ошпп:РВШТйВ (2!}"красавн 760−630 ва, п
РйШШ{21)п0ракгевн§: 630−590 гаЛРМНТТАВШГвеетви — 590−570 на,»
ШйТШ (21} «дошив. 570−495 яв.^ИНйШДОГсмюи — 495−435 mi,'-. ¦
PRINTTAS'* 21 фиолетовый 435−330 ю.»:РШГ
PRtt!T': Распределение дйин войн ao дотай усгэввое"
PRIHT5 й ненноге отшае? ся дав развкх на^зияателей, 0
PRIHT" Бо $итескои природе ввдйайй свет вичев не отличаемся те"
PRINT3 других эяектровагвитвнЕ войн .а* саная дгшншге радиевояв"
РШГ -до sopwm раава-8учвя."58ШШ0
K$=INffiyiiIFKS=nnTKEf-555ELSEI"SC
PRINT0 К 30-в годак II cmetBH утвердилась карпуслу-«
PRINT» аярно-вопновая теория света, полагавшая, что свет" 580 PRIviT" одновремевво обладает как вошвш, ш к корпус-" 585 PRINT" кулярнаан свой стваай. D j PR I 'IT: PR I NT
PRINT" Рассаотрин одну сторону сувдости света BQJlH0B? l.°sS0SUB2040 545 ДОМЕтПДОЧШВЮДОНВДО^^ 600 CLSsPCUSsLI^E (0>0)-(5i0,255),?, BsREM {Еадр5}
PRINT-PRINTa Ваяновве свойства света наиболее отчетливо вршадтеа3 610 PRINT3 в yarn виенш ш РФРМШ, а ЯН’ШВРЕРЯ света.°:PRINT 615 PRINT" ДИФРАКЦИЯ СВЕП (о? тт. diffractus раешапшб, преяов-я 620 PRINT3 аввав") в ушв {наиболее употребительное.0
К$=ЖЕУФ-!FK$=DOTKEN665ELSElFfiSCiK§|=130TKEH670aSEIFftSC (KI)=136THEN490ElSE665 670 CLS! pCLS5LlHE (0,0)-(5i0,255), 7>BF:RER (Кадрб)
LIffi (i7!34)-(502,i67), 0J8FsLIKE (i2,39)-(<}98>173), l,8 °F:LI"E{i3,40)-(4 975 172), 7sB680 PRINT: PRINT:PRINT
Ш PRINT® Первое обьасвенае дифракции света йняо дано кранцу scm"
PRINT*1 Шш М. Фршш в ШЗг. 8 <мм неауаре Я|Ш (34)}8& яфркция*
Ш ШИТ" «„гв$Ш$(34'Н, я оя пошая, — чте мппкпеам“ мяш» дфаедноа-3
PRINT" ннх явэанвй воавода на основе построения Гнигенса, если0
PRINT" его дбяозйнть, принципов -янте^ерк-щии вторичан* волн."
PRIST1 Строгое натекгтическое обоснование принципа Гюйгенса
PRIST8 Френеля бш" дано аеяедш $иш"в f.P.Kfipxrflfea в 1882 b’lHHUMO720 !
PRIST0 бривцмп? ?) я f г, а с a mm" эленент поверхности/
PRIf}TTA3(31 Гторой достигай в аавтЙч? РЙ1ША8(31)пшзевт вэяза, являете-! центров"
PRINTtwB{3i)йзяевеатарнкк вторичных воян/-'!РВШТТА8(ЗПпоги5ав|ая которн ёуяет еоаво-0
PRIUTTAB{31}aBO" пйвершетьв б саедуавдй0 -PRINTTAB (31 Г^оиент вреневи} оёратвне зле-«
PRINTTA8(31)cHeHTapHse воанй во вникание не^ШШЙЩЗЦ0прнида?сяя
F0RI=0T08000:HEXTZsLCCftTE44,i0:PRIHT°(на расуню они»
РК1йТТА6(31)ваокаеакн пунЕмрши шиш)."
LINE (8,3S)~(232,222), 7>b':LINE{i0,40)-(230,220)|7,BsPfiIi}T (2,2), l,7
FQRXX=120TOi24:LINE (!(?., 50)-(!(7.)99), 2: LIHE
CIRCLE (20,129))2,5!0RA": iC58ri50,93"21,1 299 150,165°
GIRCLE (20,129), 106,5,5.5,.78,1,2785 FOR R=l TO 11
FOR Y=106 TO 152 5ТЕР2−1ВДШ, УН124, У), 0!"ЕП Y
S25 FOR 8=120 TO l22sCIRCLE<20,129), R,4,6,01,.26,1.3-ШТ R:60SU82040830 m-wm%K*=" 1KEN 830 335 IF ASC
IF ASC (fC$H36 THEN 670 ELSE 830
CLS!PCLSsLiNE<0,0H510,255)s7,8 °F:REK (КадрВ}
LINE{17,34)-(502f167)!0,BFsLINS (12,39)-|498,173), i, BFsLINE (l3,405-(497,172), 7,8 355 PRINTsPRIHTJPRINT
KJ=I{"Ey$:!FW="THEN8?5ELSEIFfiSC (Kf)=i30THEN900ElSEIFASC (M)=136TttEN725ELSE8?5 905 1ШЕ (159,31Н287,31), 7
Ш PRIST" Согаасно аршщн? ГвиУэнеа-Фрёнеай волновое ьо§"удеаиеи
L0CftTE53,10sPRIHT"iia рпеуи-*':PRIN7IAB (39)eEe такс?! аоверзвзстьк0 945 РИШАВ (5?Гш*е?" е&еркЧеская3 iPRItlTTAStS?) Ш мп"*
CLEftft iLOCATEf, 0iQH ERROR 8010 150 ч
CLS-PCLSsLIiS{0,0)-(511,255)!l, B: LIRE{2f2h (509}253)J2,BF:PRINI
ШИТ" Заберете йитгре^щйн Вас раздел"
PRIST8 кШшшя. управашя курсоров (' >)" 30 PRIST" а нашит-е швйву ввод /'sPRINT35 0В6"ВС7ВЙ339,37R565H5H5BH347,34Di0L16U10R160!РйIИТ (337"3S >, 7
BRAI!BG7BS372s42L5E5F5L58i43S0>34Di0L16!II0R16″
DRAHDC78.1280,50D10L9D3H5E5D3R5iJ6R4BH284,48D17L21l}i7R213 50 1>«в- SpatKse теоретические титл, а
M (2)s°- йвухаучеш йвгер|ереацив» Деление воавового Фронта." Ш Щ1)=а- бяоше й обьевдве ягёр&цмвнве. рбв"т. * 65 А$(4)=3- Фйвнчеекие освовн гояографии. 0 70 й$(5.=': — Взок контрояя знания. й
LIHE (30,74)-(500si81}, 0, BF5LIffiU7,82)-(490,19i), l, BFsLIHE{i9,83}-(48BflB9}J5,S 80 F0RMTQ5sL0CATE7,6HiPRWT А$Ш-КШ1!Ш0 105§ 5 P=lf
IF Bf=CHR${130) ТЙЕЯ С5=СШ=С>НШР ШП THEN CN=1:50T0 105 95 IF 8 $=СШ (136) THEK CS=CK:C№lsIF CN<1 THEN Cf≠5s80T0 105 100 IF ТИВ! Ш W B0T8 110,115,120,125,130
LOCATE?, 6+CHsPRINT CHR§(27)u6^ft$|CtO:LflCftTE7,6+CSjPfiI.NT CHR4C27) C7B}A$(CS):S0T0 85
Ш 6ШШШйГйЖШШ8а Js REH-Храше теор. сведевна
G0S!j8l35-L0A0!!A:Bm§.BHSn, R! ВОНвукяучевая ив? ер$еревцкя
Ш Ш5Ш5: ЦШ" A-?I0DR1″.BftS", R: REK-fiaocK,* объ.пфр.реккк125 60SU8135jL9AOaAsF0B§.8ASn, Rs REfl-Фягич.основа msrp&U!
O BDS№i35sL0eD*fitBKZ# ja5%"s rer- Вда ктроа" ягоюн
FQRI=OTQ13sUf"{1254s96-I)-(350+I, 96H), 5lB: KEXTIiLH!E (107s77b{368,11.4), 7?8мо юшЕгг. б'.Рвия'е я я f t-«ч * d145 lOCATE14,7:PRIW"r is*e? догрузка програнка., „'.RETURN
НЕЙ a/ii обрабош asaoosi чтения с река
IF ERR=50 THEM E§=s"sa чтевия *a"na“."DsS0TQl75
IF ERR=53 TffiS E$"B0aSe aa доке й- нз найдем, °iSGT0175
IF ERR=57 THEK Е$=°0″!?ка ввода/вывода диска fisac»"?80TQi75
Е1="Зеопредеаезная овабка,."
LINE (65,73)-(4iO, il4), 4,8FsliaE{66,74)-(40?, 113), 0,8
LCCATE19,6:PRIHT ??!LQCATE9,7,0!pRU!TSPC (40)3F0RIX=nO25-BEEP:UEniS
LCCATE9,7-PRINT0 устраните причиву овиеки, а на"йитес
ORftVlMC78H3SOs9SDieL903li5E5D3R5iibl?4BM3S4s94Qi7L2illi7R2l0
K$=IKi (EY$:IFK$=naTKEH195 ELSE! FA3C{K$)=13 THEN RESUME 10 ELSE 195 200 Effiт 3. ЙВУХ8УЧЕШ ШЕЮЕРЕВДЮ. ШЬ i (QLIIS.BAS)5 RER DLI14. BAS
IFB$=CHR$(130)TKENCS=CN:CK=CMtisIFCS>4THENCf{=lSBDT0U5 105 IF8^CHR${136)THffiCS=CN:CN=€N-l-IFCN
LQCftTEW, 5"NlPRIHT CHR5(27)li6ujAI (CN)sLQCATEi9,5^CS:PRIHT CHR$(27)"7^A$(CS)s60T0 95 120 CLSsPCLSsREH аодея. оша Внга
LINE? У з У 'I С Si 1,255)? 7? S -ft=S=Э=0==5 гЕ=1 ЛгнЕН установка А, 6, Е '. .
LINE (100,60)-(101,150}, 7, BF!LIr}E (lOO, i04)-(10i, i06}, 0,8 °F:LINE (180,60)"{181,150})7,BF 175 LINE (180,89)-(181,91), 0,8 °F:LItiEU80f119)-{180,12i), 0, BF!lINE{252,60)-(254,150), 7, BF 130 eM-FBffi=2TB9BB?EP2iL^EJ0HIM405^^
CM t FQRRX=OT078STEP2- С RCLE t Ш, Ш),, С-'д} A, В s E г№=СШ 5 IFC'/^STHENC'M f tlEXTRXELSEKEXTRX
ELSENEXTRX 195 60SUB1670-ZZ=100 -200 30 835 •205 iX^IKEY?5lFK$="THEN200EL8ElFA-SC{KI)=i30T№tai0ELSEIFfiSC<^)=I34TEI525?LBE20(i 210 803УВ45:11Щ493,233 Н508}252К0,6Р?Шй10САТЕ14^^
L0CATE14s4:PRINTaR й ЭкнгDRAMBC0BH42551Э7Е207ВЙ240j202E2S7°iDRfi^0C0BM272S290R3D3L3I>3R4BH36120QR3D3L3D3R4″
LOCftTE, i sPRIHT" §-геерстйя S я S- действует как втеричине когеревгнне
PRINT" ники, а свет-овне кучки от них карекршйтся шшйй экрана в-.6, •230 8RAB"C78nl05,i0E2D7SH145,8R3S3L3D3R43iffiA80?7BMBI, 25R3D3L3D3R4″!SD8UB1670"ZZ=100 235 G03UB35
LINE (493,233}-(508,252), 0, BF:LIKEi300,60)-}410,149), 7,8sZZ=100
IFMN=-10RHfMTHEN280EL3ELGCSTE35,7-Р81НТя8ай монитор цветной? WHJ’iBEEP
ШШШг If=1ЖЕУ1! IFIs-'ja THEN270m275 1Г15=О0Й0Й1?=Ч°0Ш=")!"0{Ц$=пЙсТНЕШИ 270 280 6QSUB45sL0CАТЕ35,7sPRШ5РС{30): IF № 1 ТЙЕЙ295 ELSE C%=0sV%=62
С'4=Й-1: IFCKs0THEN235ELSELIffi (302, Y2H 488, YZ) s С?.г ТМШ j If 47THEiC (iOELSE290 295 55j8FsFORI/-=CfTOi0bc0nVX=2OIOI300 80SUB1670305 |">1ЯГО>111*вТОВВДЕ1т
LIf{E (493?233)-(50S, 252), 0,8 °F ' 313
L0CATE14,6sPRUff"Sn{L0CftTE24,5jPRIHT"8!,{LQCATE24,95PRINT'iS, i-L8CATE14,4sPRINT"H § Эк'
LOCATE, i: PRIHTD Й-аснотрзте как -зависит интенсивность освденив на экране Эк" 330 PRINT6 at ккряпй" одиааьш>" к аеяян {наевтай дом" уютен) s 8
DRЙiSoИE®8OИOЙ2§ 4^m2зO593Ш50sii7й2545^^7fi254i?Зй2543П7.Ш•Q!^75I,
L0GATE5157jPRmTnIBsL8CftTE37}li?PRl№X arj"YM3TQi5?LeGIT?35,YXsFRIMf0 480 L0C6TE2,13iPRIHT°i. Расстояние аещ источникам (ss}°sPRINTB 2, Расстояние до экрана Эк (г//
PRIST" 3″.денн? световой".йояка (щ)"490 8 $"*"582fe, Bi83l=Bnsl0CftTE2,i3,isLl"lEIHPBTn. hemm" везду нсгошвш 1вй) г}ш
IFQTf-aaTHENI=XJ25j80TQ5IOELSEfiT=Vfil|flT$}гIF0T≥ <1ЙШ0?≤Ш1Ш1Х=0Т sBOTOSIO§ 00 BEEP? L0CATE2,13,0:PRINT"Реальное расстояние яезд? йстг-шшн от ОД я" 100 ви. а$ 8РС (7)
Zi=l5yO-80SU830{L0CATE2,i3-PRItiTSPCi60)iBEEP!GOTO490510 10САТЕ35,13,О!РНШВВ1И6Я"11.* нн.'-Х
LQC6TS2,14,1 sLШЕШРУТЦ£, Расстояние m зкрш Эк Ш ?'-0TJ
IF0Tt="THEH535ELSEOT=VfiL (On)-IF0T≥aAKDOT≤5OTHEt{R=OT:BDTO535525 8EEPSL0GATE2,14sPRIHT1'Регпьнае расстояние до экрана Эк st 0.1 до 50 н. в|8РС (Ш530 tI=150Os80SyB30-L0CftTE2,i4iPRIfiTSPC (6O)-8EEP:BOTQ515
L0C6TE35,14,0iPRIWTOSIHS*"" .t
ДОШ, 15,181ЛМЕШТ, 3, Йвину. светает! взякУ (на) ?'-0Т1
IF0T$=-!OTHBJCP=t:0L=0LUE^06t80T0560ELSE0T=V6L (QT$)s!F0T≥380ftHDQT≤760THEK0L=0T:CP=0:G0T05W 550 BEEP-10СйТЕ2, 15,0 s PRIST «Реапшш ре световнх войн от 330 до Ш bh/jSPCUM 555 ZZ=i500!fiOSffi30sLOCATE2,15,'PRINTSPC{60)jBEEPj60T9540
L0CATE35,15,0:PRHJTUSINB0.# ua.%-DLiBH=((RI1000)/X>$DL/1E+06:X=X/25:DC=DL:DL=DL/1E+06SBEEP 565 10CATE5, ilsPRlNrCtp&UTb график СД/8Г sWMNKEY*tIF9?=a „ТШ!565 570 80SUB1705sL0CATE5"ilsPRIflT SPC{25)
B?EP:IFil=°llBQR&If=0aa^s=aB"ORI$=0daT®(r)
Ш LGCAIE5, il:РеШТ°ГраФик налойитг, aa pse су$ествуад?(ШН)а-W2f=MEY$:lFB2 $=onTHE"58fr
LOCATES, lliPRINT SPC < 50. г L0CATE37, i I: PR IHTa X ш'59 0370ELSE580
LOCATES, 111PR 1КТ°Вбод яоив яавак (Й/Н)a ?
LOCATES, 11 .-PRINT SPC (30>605пдофпнитмй'тв^^
CLSsPCLSsREfi Зеркала Френеля
PRINTTA8{39)"nofloseHBiiEK так, что HKe: PRI8TTAB (39)°OTpaia"*ae йовернностн°-РВ1ШАВ (39)!'о6рагувт угол, S ЛИШн“
МО PRINT»? 180. Соответственно $т на рисунке очеяь saa, Scvo4H!! KO8o-P5ET (223li66), 7:80SU8i685
PRINT3 света является узкая ярка осве*ешя «ель 8, Непрозрачная0
PRINT11 экран К вреграаяае* путь свету от ветвчанка S g экраву 8*,°
LGCfiTE12,3-PRINT"8 К, — tL0CftTE34,2?PRIST"ЭF.0 iClRCLE (50,l62), 2,7*,, 1Л
LINE (285,28>-(285,133), 7: CIRCLE (109,39), 3,7}, 1.1:PAM (109,39), 4,7
ORA""e38ii60,43H80,80H120,10S»?DRAS'1C3BH59,431 179,80i11i9,1080
Ш9"СЗШ9,86R84,89ВК37, Ш0, ИМ"2,1Ш5, №ЪШ, ШНШ, Ш" sPSET (100,106), 7 -8!Ш1685 675 YX=39:FCRX=60TQ79STEP2.5:Y7.=YXt5sLINE (X-4,Y7.)-(X, Y:'i), 3-ieT)! ¦
F0RX=83T0119STEP5,6-Y2=Y2*4:LIME (X-4,YZ}-(X, YZ}, 3-ЖШ 685 CmCLE (109,39), 14,7,5,lJYl=39iY2=39-V3=39sY4=39-X2=108.4isX3=108.3sX4=109
K$=I^fcY$:IFKI-GnTHEN725ELSEIFA8C|Kf)=130TffiN730ElSEIFASC (P)=i36THEM6i (CiSE725
PR I NT ГА В (39} * ян иг нншк источников0 iPRINTTA8(39rS и S .n}SPC (14)sPRINTSPC (63) 755 PSET (322,187), 7:808УВ1Ш- PSET (379,185), 7 г80SUB1695
UJCATE3,SiPRINT'S' ?L0Cft?E3?7iPRIfiTuS-5?SIRCLEf23,685,252:С1Н51Е (23 392) S2S2 765 PSET (26,76), 7: B0SUB1690'= PSET (26,105}, 7 г603UBI695770 бШаС2В№ 9,62№ 8,63Н7&, 74ВШ, 85Й28,92Й112,102″
F0RXX=29TO68STEP7:F0RIX=0T82:LINE (XX←ri, 62)-(XX+7trA575)f0-HB7ГС, M
FORXX=23T085STEP7-FORIX=OT02:LINE (XS+r/., 85)-(XSt23+r/., 103), 05NEXTIX, X:/.
ШвеЗВй79}Ш84,Ш8ШЛЗШ, 9? а1ЩНЕ1Е (2В56В), э13 456Л45. Ш41Л
CIRCLE (23,68), 58,5,6ЛЬ?Л25ДЛ-08С1Е (2 В, 68)}6§ 54}6Л65Л25ДЛ|СЖ1ЕШ, 63), 72,795 0! RCLE (23,92}, 72⁵, 6.25s-7:№?LE{26}$&), 7?}4}&J63 Л25!1,7:С1ШЕ (|8,92}, 7?)4,6Л8)Л25Л>7
Ж FORRS=87T82.5&S?EPi4sCISfCLE{2SJSS)s5?.S, 12&, IЛ-D1RCLE|23j.92)fR7afйЛ6,. 1Л
BOS ШСЕЕ|2 В, 68), КШ, 4,6Д6?Л25Д Л-ШШЦ28 592)Л25,1.7
NEXTO:CIRCLE (28,63)}R'i, 556. i6¹²⁵, 1.7:CIRCLE (28,98), RS, 5,6.16,.l25,iJ
L8CATE6,13-PRIi3TaD оёаастн nepesptmra «тражевиа шъот шт sosstrcaат»
РКГМТТй8<19}*"ктерфер€нциойная картина.0
F0RPMT03Q sFQRG'/"=0T04 s BRAtl GC=C7. Ш1285,62Й130, 80H285,98H285,620 830 ШШ, P? s LINE (285,28)-(285-, 132), 7:60SUB167O
LQCftf E40 f 2- PR1!4TSPC {22) sf 0RY%-4T0f Va sPRIHTSPCi' 251 ^LGC6T?i f SPR1MISPCCS3) sNEXTYX gSSTURM
U3CATE40, 10 s PR INT ° Ba д кн? ер§ еренцйонно°!"!РЙ1ЙТТА8(39}0картинн s зиаств"
PRHITTABf 39) «нерекртмя светах"-PRmTAB (39)"волн на экране, 11 880 lIME (322,15)-(450,145), 0,8F5LIt:E{323|16)"(449,i44), 6,8sLIKE (320,185)-(390,160), l,8F885 16й287^аЙ283,й8й283а?2й2е7592й2871й8Й237"92Ш21? 144я
IF Ш=1 ТИЕН 910 ELSE Cl=Ostti=lB
СМШгIFCMTHEN90OEL8ELШ 325, Щ~(447,Y?), s'U-u'AliIFYX>142THEH905EL5E895
CX=C^ldFCMTHEf®95EtSELINEi325/f/J-(447}Y:4)sC?', sYX=YXvlsIFYX>i42THB"05ELSE900905 RETURN .910 1Ш325Л8Н447Д42Ь5, ВР!рОа1^ОТВ1ОгРШ2=20Т81ШЕ915 №=immIFK$=BCTHEN915?I.SEIFASC (!(?)=i30THEfR85ELSEIFftSC (K5)=136THEN6i0ElSE915920 60SU81700580SUB865
ШйТЕЗ, 111? й1ЙТв8йсаотр№ как „аввш виякююск кедбт на зкравз Эк“ W PRINT» т координатн нормальной к ннинна иеточивкан S в S, 8
Ш13М, 1В7Ь71ВШШ8РЮИШад, 7: Ш1ШЯ5:ШНТв 1раетввие от верштв ssfmm Яв астввха S 5 ев,"
BQSUB1690:PSET (353,185}, 7:6QSUB1695 1120 L0CftiE2,12:PRI"T"(pacc?oaaiie яезду mmms йеточяякшв S «S *|5PMt^tffi4″.en2fR"000*SWFI)}iPRI NT» ив.)"1125 L8CftTE2514, l:Llf5EINPUTuPaccTOBHiie до экрана Эк (и) ?°j0Tf
ИЗО IF0T$=onTHEiJll45ELSEQT=VAt|QT$}5lF0T≥.lfti№ 0T≤50THE (!8=QTi60T0il45
М REfl Нажатие шоди <ВХ> -See ввода значения ищ построении 15 REI1 графика I=f (x) ведет к вводу старого значения паранетра. 20 CLEAR50-DIi1 fi$(6hLflCATEl, i,0
B$=IfiKEYJ:IFB$=BBTHEl№ 0 :
IF8 $=CHR$ (130) THENCS=CN -C!J=€NH: КШМНЕОДИ- GGTCWO. 90 IFBS=EHRt i i3o) THENCS=$J i Й=С!М- 1РШГТНЕШ≠&- $SOTBiOO% 95 Ш=Ш*(13)THENGNGH68T01160,1160,1160,620,230,1075
С2^-1:1РСМТШШ5а1ЙЕ (324,?2ЬИ47|?ХЬЙ?УМХН?™142Щ{}ШЕ1®140 145 RETURN :
L1HE1324, IB) — ^ 447,142) j 5s E*F^ FORI %=0Т01 йгFBRYV,-20TOI30STEP22 si I^E (324 5 VA^IX J -(447 3 Y^'4″!^). 0- fJEXTY"<�"IS?RETLSR-!
LINE{493,232)-(509,253), 1, BF sG9SU8105
LIliE (321,15)-|451,147), 0, BF-Lli!E (322,16)-(450,1465,6s8
Ш L0CATE55,6iPRINT"rjL0CATE42J9iPRIKT, Xf м"
ЙЙйГС7ВЖЗЗ,!ЗН336,25ЕШе, 27ШЗ!2Ш4052й!34О!28Ш8!ЗОШ335ЗШ4О53!'1
ORA8DC78H333,55H336,558K338,54fl340,52H340,57″!LI"iE (338,78)-(340,83), 7,8
O ЭШвС7В11 332,1Сь5й3 361 106Ви3 345 104й334 Д0еВ!'1333,105й340!103й34 051С!8а
FQRYX=28T0132STEP26sLIHE (3435Y'4)-f347,YX) pfcsHEmZ:
OR AH" С7ВЙ345,19D61R100H3F3S3E3L100D63E3G3H4 «-RETURt{195 й1"А1А2|й2=й2/25 '
Y=-.06-I=4iC0S ({S0R (A!+(Y+A2)A2)-SQR (Ai+(Y-A2)rt2))"(6.28 319/DL))sP3ET (375+I?7,Yli000+80), a
FQRY=-.06T0.06STEP5,2E-04nr4iCOS ((SOR (AH (YtA2)*2)-SQR (Al4-(Y-A2)A2))t (6.283i9/OL))
IF CP=1 THEN P-SET (375+It7,Y*1000+30), CL ELSE LWE-(375*N7,Y"1000*80), CL
NEXTY:LQCATE55,3:FRINT"SHpHHae!L0CATE53,4sPRItiT, no,'!OCB (ян)а
IFSH≥.01ANDSH≤999THESLGCATE55,5:PRIIiTUSINB''^S"##'!5SH:6BT0225 ELSE L0CATE55,5sPRI9TUSI№ 3.S§ AA"A^SH 225 IFL=lTHEKL0CATE53,7jPRIHTnqiicso иоюс»:L0CATE57,8:PRINTUSINS"§-«t':}S-RETURM ELSE RETURN 230 L=0-CLSiPCLSsREH еевкайб Яаойда
LQCATE42,4!PRlfiTa3epEa® SsoSfia у"р"-а11ШЖ4&, ШШвеиа сяецуэдин- „вриоп* 255 ШЙТ0О, 6: ШТв?отездв1 источник S м^иВДЕДОНМРнмт* и штрюв11аШЕ40, ШШйрато явки от плоского8
СIRGLE (35,7*)j 2,7 г ZZ=3f№ 0?6QSU830jXi=35iУ1=7агХ2=35sV'2=74
РБЕТ (Х1,У1!, 4Ш=Х1+.75:У1=У1-^1:РЗЕТ (Х2}У2), 4гХ2=Х2+, 4: У2=У2*Л
IF YI>90 THEN 295 ELSE 235
IFX1 >274THEH300ELSEPSET (XI, Yi), 41 KI=X1-s^, 73: Y1=Y1-. i
IFX2>274TKcN80SL!8i090 {80TQ305ELSEPSET (X2,У2), 4 s X2=X2*.5: Y2SY2-, I s G0T8295
Kf=INKEy$sIFKI=ooTHE"30SELSEIFftSC (K$)=i30THEH310ELSEIFfiSCK$)=136THE"230ELSE305
SQSUBi ?2QsLflCftTEl 1>II- PR ЭДУЕогеревтявав кидай“ s данш сяучаэ служат пег»
PRIfiT" вйчвйн й-сточвйй S ш we ввивое вздбразевве в зеркале 3V
PRIST8 йр зтон вервевркуяяр к еёредаке отрзка S-S'aeBBt в наос-«
PRItlT» kocts веркава Н. л s 2Z=3000:80SU830. '
Xl=88sF0RyK=f2TQI
CISE-LE (35510SK2−2-L8CATE4}7sPRIMFS'"
Y1⁷&IFQRX=35T0274ST?P.5-PSET (XjYI), 4: PSET (X>76), 4! Y1=Y1-.06SNESTX
FCRI2=iT0275L0CfiTE4,5iPFiHiTo «sLQCAT^sPRIKT» 3: LBCATE19,12:PRlHTtl n: lQCATE56,i2:PRIHT° BsF0RjX=0T030!mmi350 10Сн7Е4г5гРй1) Я:!5″ -'L0CATE457srriL"TQS' п?1УС'йТ?19-ДЭгГ^1НТиЗпг1йСйТЕ5йэ n: FSRJ%=C>T05GsnEXTJ%jIS
CIRCLE (35,76), RX←7,5, Лг^^гСШСиЕСЗЭэЮб), R7, H1,5, Л6,.25,i.5itiEXTRX 370 FORPMlBBiU"^
L0CAIE22j ШРШТ, В области перекратня «травейкая й арк-й*
PRIMP ваян возинкает ш"ер§ еренциоввая картнва.0-KEXTC2,PXs80SUB1090
КФ=IHK£¥-f 1 п iFASC"Kf} -i30THEN3?0ELSElFfi3C (Kf390 11ЙЕ (ЗЗба&}-{508,2Й)а^8ШЩй511ШТЕ1>?"Ш8Т8РС (50):1вШЕ4 В, 10! ШЙ1вВвд „вмр4врнтишю5″
РШТТАВ$ 9)"йрШИ в ' овиатв1РЮША8(39*ваермрвт „вешю^РЯШТАВСЗ^Рвояв на зкраве.8
LIKE (32ia5)-(450,145), 0IBF: LIKE (322a6)-{449}144}"6s8405 0RA3"C68"321,ШЙ77,55Й273,55Й273,71И277,71К277,55И277,71Н321,144"iCX=0sYV>18
IFfif-=-10RfiN=lTHEM425ELSEL0C-:)TE7.12!PRlNTil8aB вовптор цветвой? „Д/ОГгВЕЕР415 IMNr’EY$-IFI$=!, nTHEN4i5
IFI§='3a0RI$=os°0RI$=s0'W^f=B6sTHEiffi'l=isSBT0425EL8EIFI$=o8°0RrJ="Bn8RI?=a!f
L0CATE7,12jPRIf)TSPC{30) -60SU8130:80SUB1OT<>
К$=1НКЕ?з- I FKf"THEHOOELSEl FftSC (K$}=i30Tyti-!435ELBEIFASC I
LI<
L8EATE2,10s РКШУГик-нотрите как шшеш даена®вотй!РШТи освеаевия экрана Эк сверху вва®-.“ 445 PRIMTsPRIHTTABf7rрасстояние „т плоскости зеркала so источника S“ 450 РЙИЯТАВ (8)"ранио 2 ки3 „расстояние от нсточниха S йо 38-„
PRli
K$=IKKEV$^FiiS=aoTHEH465ELSElFASCl
LIHEv2Os180)-{5O8,252UiBFsLQCATE25i, 0-PR№T"B усао*Ш яаняето овнта 8н а"ш веввть сяедуваде eapasespfij*
FQRYK=10T0Jt5:L0CATE2,Y%sPI?IKTSPC (62}:480 1вШЕ2, ШР!ШиРа??теняйЕ от вжижшв sepaaa вэ атташе §
L9CATE2,13sPRINT':PaccTOHHHe от источника 8 до экрана Эк (а)“
L8CATE2,14:FRIKT"SMBa световой волан {т)а
L0CATE50,12-PRINTUSlr)8c^§ B.I йк. в-0:0=0/1000 •
L0CATE2,13,1 iUNEISPUFFacemsse от источника 5 да экрана Эх {а) ?Н?ЭТ55Z5 IF0T$=0 яTHEN540ELSE0T=i/flL (QT$ J г IF flTKI № 0T≤50 THEN B=0T.'80T0W0 530 BEEPiL0CATE2,13"0iPRIhTo PsaatBOfr расстояние go экрана Зк от 0Л № 5') ^ „
ZZ=1500:GOSU830!LOCATE3,13-PRINTSPC (60)-GEEP-02T0520 540 LOCATE50,13,0:PRIHTijSIf-Bs"§!iM в."-В
L8CATE2,i4,i*.LINEIiiPUT':S, i-iKa световой вошш (ая) ?Е10Т$
IFQTf=i*ЭТНЕКСР=1: DL=DLJit-f66г60TQ565ELSE0T=VALf ОТ$ > г IF 0T≥3S0 & 8T (=740 THEN 0L=DT"CP=O?SO78365555 8EEp! L0CATE2,i4,0'.PRmP Реавыше дамка вад от 380 до 760 як. ¦ 0560 2Z=15"05eOS®OiLiEATE2Ji4sPRIRTSPCC60|iBEEP-88T8S4§ -
L0CATE50,14,0:PRIKTUSINBC§§§#.§ на.0-OL:DC=DL sDL=0L/ 1E+06s SH=(8/(2"0))tDL 570 Ai=B:A2=DM000:BEEP575 lOCATE5,?tFWHPC*pem -тра&вв (Д/Н)°tB$=INKEY$J IF!""'"THEH57S 580 G0SBBll2S: LQCATE5,?sPRIHT SPC (25) „81 150 585
LQCftTEl, 9: PRIHTerpa$ 8S наяоавть aa уже едествуодии <�Д/Н)¦s82f=INKEY$.-ШШ=""ТНЕ?1590 595 L0CATEl, 9iP№ 8РС (50ШШЕ425^ШРХ5 „“ 600 IF82 $=BGaflR{i2S=BdW$=TfiR"23=VTHENe0S№^^ 195ELSE590
LOCftlK^sffilMPtowi mm дшнаи ШНР^=ЖЕУ1г1Ш4=воТШй05 610 LOCATES, 9sPRINT SPC (30)615
L=lsCLS-PCLSsREH Бишга &я$е
CIRCLE (142,80-YX), 70,3,2.59,3.1,.85iCI8CLEU42f80*Yl), 70,3,3.2,3,71,.85
PRIST® рь-е, а вншвмт роль когерентнвк точнийоб. jPSET (241,171}, 7s808U8H 10: PS?T (Z8i, 169? J6QSU81115 695 PRI"TTAB (8)°Dpspesb невд ввяузшзавп ванрштв экраноа K.!':LI"S (285,22)-(285,139), 7 780 С№Щ35"80)>2,7|МЫ:1(ШЙТЕ4,6|№{П'*8*}Ш
Yl=80iY2=80?Y3=80iY4=S05f9RS=37T09l^i=Yl-s75PSET (KV^|54-V4^
Y2=Y2−03sPgET (Kf?2), 4lY3=VSb3iPSET (X, Y3}, 4iNEJ (TX
F8RX^3T0284sYl=Yi-f-.4!PSETf^Yl-l)J4sY4=Y4−14tPSET (X5Y4^i), 4
PSET (152,75), 7580SU81110: P8cT (152,89), 7! SBSUBlli5-CIRCLE (i46,62), 2,4-CIRCLE (146,98), 2,4
F0RR-i=i2T0136STEPi4:CIRCLE (147,62), ft?, 4,5.89l.01,i.2-ClRCLE (147,98), RX, 4,6.26,.4I1.2
CIRCLE (147,62), R?.+7,5,5t39,.01,1.2!CIRCLE (147,98), RX+7,536.26,r4,1.2!®TRX!CIRCL?(147,62), i38,455.89,6J951.-2 '
CIRCLE (147,981,138,4,09,.4,1.2:CIRCLE (147,62}, 145,5,5.89>6,1.2seiR0LE (147,98), 145,5,.29,.4,1.2 745 FQRPX=lTOi7jFQRCX=OTQ4iDRAH"C=CX-8S284,58!1242,59t1l9i, S0ii242, i01H284,10 211 284,58° 750 LQCATE4,14:PRINT8PC (55}:PRINTSPC{55)
L0CATE4,14iPRINT"8HTep$epeHiiaa найшается в области, да перекривавтся оёас
Р81НТТАВ (15)"сБетов"г потока, Щцш от S и S .o-PSET (344,235), 7sS0SUB1110sPSET (377,233), 7! S0SLS81115jfeTC2 765 NEXTPS! LINE (285,28)-(28'5t132ir7!G0SU61090770 „=IKKEYi-IFK?="nTroOELSEIFASC (Kf)=130THtN775ELSEIFASC (K?)=136THEt'620ELSE770
ЬГИЕСЗ'43 515.-С437,32} {S083252) j, l^BFsS0SiIB105s iFHPS=-„10RflN=lTHES790ELSELCIE^TE7?i25PRIMTB
Baa шшмюр цветне“? (Д/8IйsBEEP im I$=IHKEY$tIFIf=""THEH780 785
LOCAT?7,12sPRI?JTSPC (30) *.GGSUBli0-G0SU81090 '793Ki=Ii?№UFK5=aaTHEfl795ELE€IFA3C-(K$}=i30THEfSOOELSElFAS?(KI)=i36THEI1620ELSE795 800 60SU81120: SGSU8105
LOCATES, И: Р81НТийо<�гйотрнтг как зйвнда интенсивность эсвеценнв на зкраве Зк“
PRINT“ от координата норзпши к деиетвнтельвнв нсточникан S й S ,"5PSET (448,187), 7:6oSll811i0sPSET (48i, i 85), 7:6081)81115
PRlfJT9 (фокусное расстояние ншн F=12ch| внрива экрана? Iras?“ 820 PRINT“ расстояние от- негачвш 3 д“ Яйнзн — Йен, от шев до“
PRffi» экрана Ы 4 щ длина воявя — 43?) as (|Hoa"TC8aB}}"jLI{JE (23,I93}-(«3,240)i2lBiL8EfiTEi0,9sPR!H1. FF=12 csE
S0SUB1.S0-AI=4Лift2~, 972iDL=430/l£H"6EF=i2/iOOiK=i/iOOCUft=36/iOO-^ и 12=?CL-5sCP=0−80BUB, t95? 6QSU81090
KS=MEY§!IFK$="°THEN835ELSEIFASC (Kf}=13OTHEN840ELSEIFASC (K$H36THEN620ELSE8358# LIN?(20,180H508,252), i, BFiLOCATE2>i, 0: PRINT, 8 условрз? ванного опыта 8н aosm девять следуйте парааетриг§-45 F0RY%=11Т015гL0SATE2, i PRI?4TSPC С > s f"EXTY% jLI (4E {3S0
LOCATE?, 11: PRINT"Фокусное расстояние „дан F (сй}п
LOCATE?, 125PRINT°iH?nHa экрана S |sa}°
Ш 10СЙТЕ9313-РРчШТвРасшш№ от виочнака S>o явнзв {сн}“
L0CATE9,14:PRINT°PaccfOBHae от янвгн до экрана Эк {а}0
LOCATE?, 15sPRIHTaДаива световой волна (нз)а875 • гй2 $=""i83?-°*iL0CiTE9,11"is<�яо# расстояние hhsh F {ca} ?e|8Tf
IF0T$=!1"TH?NF=F$ WOi G8T6895ELSEQT=yAL (QT$)-IF 0TK5 AND QT≤50 THEN F=0TsG0T0895 885 BEEP: LQCATE6,ll, 0sPRINTl'PeanbHoe bxftm расстояние ше» of 0,5 до 50 cu. c-SPC (12) 890 11= L5t)0 s 60SU830: LQCftTE3} 11 -FRIMTSPC (iO) :SE?P s
LQCATEW, 9,0sPRINT «F="F-'ch ¦ вг1ЙСАТ?4!чШРР1гШ5ШВ, 1Ш1.| ен. C-F:F=F/100
LSGATE9,i2JhLOIEI"T0!i!fpHBa экрана l Ш -?DiGTf905 1F0T$=""THENK=K$ 1000:8BYfl?2OELSE0T=VAL (0T$)-IF OIK5 ADD OT≤50 THEN K=0Tt60T0920
ВЕЕР,^8САТЕ9,12,0:Рй1КТсРеалшя аирива экрана К от 0=5 до 50 и».B|SPCt 13i
ZZ=i500:eOSffi30:LOCfiTE3,i2sPRI"TSPC (60)sBEEP-BBT0900
LQCATt45,12>0:PRINTtiSINGi,#tS§, t нй."-К-К=К/Ю00
LQCATE9,13,lsLINEINPUPPaccTOBBKe от’источника S до аш (is) ?а-0Т$
IF0T$=3"THENA=A* 100!80T0955ELSEQT=VAL (ОТ®- b IF ОТМ AND QT<=100 AND QT>F*lO0 THEN A=0T,-BQTQ955
IF BT>Fil00 THEN945ELSE BEEP-LOCATES"13sPRIHTcРасстоякие от источника S до линза дошо ёнт-ь &-мьше F 5°
ZZ=2000sSOSUB30-LOCATE3:i3sPRlNTSPC{60)i8EEP-60T0925
ВЕЕР-L0C6TE6"13,0:PRIiiT"яьное расстояние до «юза от i до 100 ca.°-SPC (145
ZZ=15O0:GG§ UB30:LO?ATE3,13-PRINTSPC (6O) .'BEEPsS0T0925
LCCATE45,13,0-PRINT (i8IN6J№# СЙ. о!А:А=А/100 ¦ .
J=(AIF)/(A-F):0=KM (AtJ)/A)sLL=Kt (A+B./A!ZC=J+(Oi{8-J)/(DtLL))
ЯШ LOCATES, 11: PRINT"PaccTOBBiie аезду действителышки ястоздкик S a S ля. в-М1000
PSETС384,172), 7: S0SU81110гPSET (4175 ST: 15
LOCATE?, 14,1!L ЭДЕНТОРРасстопние от skhsh до экрана Эк (в) ?"', 0Т$ 9S0 IF0T$=i», THEN995ELSE0T=VfiL{GT$)-IF 8T≥ZC AND QT≤50 THEN B=0Ti6QT0995'
Ш0 DRA8"C7E205B- RETURN s REH 1
Ш5 0RArC7R2D2L202R3*sRETM:RES 211″ гНЕ (493,2В)-{ЗвВ, 252 М, SFsRETtXRN: BEH mp. m"jU8OT.кадра
Ш5 IF 00=590 ТШ1 CL=4sSCT01i<15-RE (4 o/g ваб. цвета дш. вош
П80 РШХ^Ш8?и№аЙ5-ВД-12)-{35в"1,96+К), 5, В!ШТ1Х|1Ш{107,77)-(368}Ц4), 7}В1185 LGCATe20,6sPRINP Зн|нч к у, c: L0CATE14,7: PRINT". вдет догрувка програп1ш.0:ЙЕТШ1190 REfi в/п обработки осибок
Ш5 IF ERR=5fr Ш ??=а3вдйа товпа №,>/$№ 2 101 200 IF ЕШ-53 THEN Е$-вФайа т ptsfi ft- as аайрв,¦-ШЗШ0
CLEARSOsOIH ЬЩ) Ш1М QiOW ОШ).'ЮСШ?1,0 15 CLSjPCL8sLIHE{", 0h (5il, 235}, i"Bimffi{2,2}-{5Wf253), 21BFi6PT035
FORZ=OTGZ ZjNEXTZs RETURN .-RE8 Задергка щтт 25 tIffi (232l3h{M?, 253) Ji, BFj|®} «ир.вр.чает"ра8
F0RY=1TQ15sL0CATE29,Y -PRMSPC{36)sNEXTY sRETURN: REH c? Hp.np.4acT"sCLS
IF8I=CHR$(130) ШС8*С1Ш=С1И: 1ГСМ>5ТНЕОДИ .-GOTOIOS
IFB$=CHR${136)THENCS=C?lsCM=CrHsIFCfi
Ш L0CATE16,5+CNiPRINT (27}"б» $ ftS {CN):ЮСЙТЕ1655*CSs PRIST CHR$(27)"7°}A${CS):60T0 85
OH ERROR 6QT0245sRE" Вник в основное йекй115 6QSUB230: LOAD’A: HENUH0L$. BASB, R
OH ERROR S0T0245-fiEit Загрузка шейк. ди§.реое"г"
B0SU8230:L0A0"A:PI0DR2i.8ftSu, R
OH ERROR 60T0245-REfl Ззгруока двунерв.диэ.решетки '135 60БУ823СИLQftDBft: PICDR3#.BAS5,R
ON ERROR G0T0245sREH Загрузка о&.диЭ.ревет ' '
S0SUS230-LOAD"A:PI0DR4S, 8AS", R1. O Efffi —
CL=4 г B=, UJi?-03:L=4 sDL=4. ЗЕ-07 гREK S/E ГРАФИК160 0RA, 4*C78lill9,231Ull564E4F5o:L0CATE17,8,0sPRINT', I!,-PSET{136,120))7jG0Sl'B200
T=3J4159t8tSIH (-, 02)/0LsIH=.4Ш8(Т)А2/ТА2-Р8ЕТ (-.215 000¹¹⁹, 481 250²³⁰), CL{F0RF=-.02T0.02STEPlE-i>4 170 T=3.14 159*8*SI"(F)/QL:IF T=0 THEN fiESTF ELSE IN=.4?SbV{Tr2/T"2:LISE-(FI5000U19,-Ifil250+230)>CL:feTF: RETURN
L0CATEi7,8,0sPRiSTB °!LINE (18,100)-(220,231), 0SBFIRETUS"
REH п/в индикации конр. кадра .
LIKE (495,233h (5S8,252)sO}BF!FPRCS=lT07iLI8E (494s233I-{508,252)5a}B
ORftlf C=ci5B"?244б5й5RmKLШF5^•F0SZMT015Э^NE!iTZX^C2^8EEP^Шt)ffi
LIfiE (493,233)-(503,252), isBF-RETURHtREf! стир.ввд.ков.кадра200 0RA8"C7B2F2R4E2H282f}6″!RETURi{sREt1
IF 00=590 THEN CL=4−60T0225sREfi п/в вкё. ДЕета йвив.волян
IF 0C≥570 AND 0C<590 THEN CL=6s60T0225
IF 00=495 AND 0C<570 TKEf! CL=2−60T0225
IF 00=435 AHO 0C<495 THEN CL=1 ELSE CL=5225 RETURN .230 REH йн|-а о sarpjsKe
FOSI7.=OT018:LINE{125-IZ, 96-IX)-(350+I2,96^IZ), 5,8}NEXTIX:LI?ff (107,77,)-(368,114), 7,8240 иШШ, ШШв I. i 8 j t о «4 к у, „sL?l®TEi4,?'.PRtMTe „й“ prpjsisa вротравш“,., Я$ 8ЕТМШ
REK а/в обработки овкбок ¦
IF ERR=50 THEN Е$="0вшб1:а чтевия фаияа.=.а$ 60Т0265
IF ERR-53 THEM В=вФаЙ5 sa диске As ве найден., аге§ Т0263
I NKEYS: IFK$=0″ THE54280ELSEI FflSC (K5)=13THEK RESOHE10ELSE2S0 285 END
CLS:LIiiE (2,2)4^, 253)!3,BF:LlKE (25ii7)4485,187), 0,8 °F:LHffi (i2t26)^475,i97), i, BF!LIKE (14,28)-H73,i95)l5,B • 295 lOCATE9,3:P8INTnBasHer!fiee практическое приневение в свектроскопвн^йЕЙ одна даь .
PRINT8 нйеет .шевв* дй|раквий света на ттеве т бйЛвого11 305 PRINT" одинаков®- параяяеяьаах накошдаа на5
РйШ* равш рдототя друг да яруга, Тай устроена врас-в 315 PRINT" тейаая дн$раадшвая ревмва, ввервае „зтошввая* .
Ф 355 LtKftTEa, 4?№MTa?a"e всего вротевнвт врозрачнне рфракцйввш“
PRIHT" ревеш, в 'даорвя параяяеаше веяв яеют в адно§ в
PRINT" ваешс-тй, Лучение этого вркбвра ваш" с аваяваа"
PRINT" основного его заевта> т. е. сватала ра"<�з"трйн° .
PRINT3 дн&ракщш света о? ОЛНОй |EM.Gs80SU8180
K^INKEY3-:IFK5="THEN380ELSE3FASC (K$}=130THEN385ELSEIFASC (K$)=136THEN290ELSE380
CLS:U?iE (2,2H509,253), l, BFiLIME{7,7)-C230,147), 0,8 °F:UNE{8,8H229,146), 7,8390
PRINTTA8(30)°bo все сторона вперед от цени,"
FDRMT022:FDRX=96T0145S.TEP15!PSET (5is50), 5-CIRClE ()i.l50), i,0!CIRClE (X, 50), i,2sNEmiI
IGCATE34,11:PRINT°3th в7врчтв войНй ког-ерентнБа-Р81НТТА8(30)"й" интерферируя невду собой, cos-B
Р81КТТЙВ{30)ода (c)т- тшщп аартиву раепрейезе-а!РВ1ЙТТА8(30)"вая „нтгвсйввот освецевия после0sPRINTTABf435 „И?В=3.5:й=25Р0Ш"2ШЭТВ>2{ЕтаЕ{96>^),®, С2, й, В! С1Ш. Е{Ш, 50)
CIRCLEC 126sS0) sCIRCLE^ 141,50), RasCX3ftsBsCK=C%"-Iг IFC%=&THEflGX=l5fJEXTR^ELSEflEXTRX
FORI=OTO7j0{I)=I:NEXTI:FuRI=8TO15:e (I)=15!NEni:8BSSjB18O52Z=iOO450 0(2)=2sLUTQ (O):S (4)=O:LyTG (O)!Q (3)=3:LUT8(O)jS{5)=OsLl!T2(O)
O (4)=4-LllT8(O):Q{2)=OsUr0(O)-8(5)=5sL"TO (O):0(3)=OsLUTQ{O)58OSDB2O '
K$=INKEY$:IF"='"'THEN450ELSEIFASC (Ki)=130THEN465ELSEIFA8C (KJ)=136THEN15ELSE450
FQRI=8T015:6(I)=15:KE!!TI:F0RI=0T07iS{I)=I:NEXTI:LiiT8{0}
G0SU825:L0CATE32,2!PRINT"Упростин каргиву взаняойеиствиа“ sPRI"TTA8(35) „световой валяя со *е, ш?.° 475 F0RC"lt00'3TEP-l S§ Bii9 ^9R2i9D40LS2f9B73f!S7L2i90S7R7−3E9LS2u40'' sРАПЛС10 410}, С% s N5XTC% 480 РШМ47Ш47:11Щ7-Ш^
L0CATE32,2iPRINTB Расснотряк bosbh, распроетравя-°5Р8ШТАВ{30)яадйеся от точек плоскости яеаи ва ¦ ¦ 490 Р8ШШ (Зв)"навравявввй, довдодт нагота-*{РШШШ'рнв ym е веригаачаяьвйа,“ 495 PSET{312,70), 7:60SU8200JLOCftTE31,2,l:FORY=50T0708TEP, 5
PSET (146,Y-20), 5-PSET (171-Y/2,Y}, 5-PSET (l46,Y), 5sNEKTY-LINE{i46,64)-{140,63), 5.'PSET (150,60), 7: G08U8200
Z2=360Ci3 BSBUB20IFDRY-iiT0491F0RM=9T82I$STEPi7 JPSETi 17+JIчV), 4-HEKTfisYsF0RX=23T0210STEP17sPSET (X, 34
Ш!?°Е4?ЗЕ4я!НЕ:т!р0ВК=а9Т1 508ТЕР6-Р8ЕТ!Х550), 7гШ1ТХ
FBRY=30T090STEP.5:FBRi≠94T0145STEP17!PSET (R+25-Y/2"Y>, 4: NEnN, Y
F0RX=80T8i3iST?Pi7-PSET (-(, 73), 4! LINE-STEP{0,6), 4! LINE-STEP (5,-5b4!NE)iTX525 10ШЕЗЗ, 6,0:РШЙТп8оставйа мщ, тт"ет-п1РШШ{30)Ч"&у"й1ие яуча еетш в вдву m-*'
ШйГШШРву „Ер08нгер|еркровая“ друг с"-РШШАБ (30} „яругой.йsL0CATE31,6,1 s sZZ=2SOO: sGQSUBSO
CIftCLE (118"130), l70,7,.7,2.45,5jCIRCLE (118,76)jl70"7,3,84,5.57,5sPfiINT (118,97), 3,7
FGRV=?0TOlO2ST?f%5!fSfiN=94TO?4§'5TEPI7-P8ET|Ni-25-Y/2}Y), 4гЙЕШ, Y г Х1=6§-! Х2=ХЩ7:XM2*l7sX4*XS+17 545
Х4=Х4-.251НЕШ?18СвТЕ35"10,<)?Р818Г"8 fomwry“ tamnm mum п§-а1РШШШ}пяести8 звран, на шор- ед буден"0 555 PRIKTTftB (SO)"яабя"дать -регузьтат BBTep$epeB-„:PRINTTftB (30)"BHH да шн, расвростравякшсз“
PSET f 331 j 40)5 7 г PSET (3i2 5 3S) Л г SGSUB200 г 0ЙЯйаС7ЁНЗ?3 5 43R6"г LIME142?.34}-(430,ЗВ)5 7 5 ВiL1НЕ"310 s 31Н С 456,47)5 4, В
РЛШШ39)"Ш11Тввайвдавтс8 188И8У8Н ян1ев"*внос-„!РЙШШ{30)!РВШТ“?и, а оря Ь Sin = за 595 ШЛТТ®{3"|, ШСВЩВ яятвашвот."600 psETt347−72}, ьтт№, ътш11Ж№, т-т, щ и. в
PRINTTA8(30)"Здесь Ь щнрка „ейй, а s PSET (296,117}, 7:80SU8200 г PR IНТТА8 {39 >e — yroa яя^ракцпи,“ МО PRimA8(37)BJt = 3, .ЧРВШШШГа = О, 1.43, 2,46, 615 ШТШ (37)"а — дайна световов в<�ШМ."-1ЩЗ<�й, ШН302, Ш), 7, В
РН1гЯ1нВ{33?яГрй|пк распределения ивтевс1№-в-РКШТЙВ (30)ввос?и света по ваправаенмвн при-„
РЙШШДО) „веден на р^уние слева |1И>.11яв"0гР8ШШЗв)0я * 700 не .(красная))"аfL0CATE17sa?PRl^TaIп630 i1ЫЕ с 245г227{244,230 >}7tS FSLED^lTHENSBBOiisOsS8T0635ELSEB0SUB155160BUB180635 гIFK^^'1 „THEfiiSSElSEiTftSC^Ki)=i30TSi?M640ELSEIFASC (KS)-i36THE^^^^
SLEO=is60Sl)B25jL0CATE33,*liPRIMTnTaKiiH оёрагон, цгвтраяьвви ваг-0
K$=IH№Y$nFK$aftBTHEK490?LSEIFASC (K$.)=i30t}5?8S95?LSEIFASCtKS)=i36THEN575ELSE690
G0SUBI95sGQSU830sВЕЕРiLbCATE38? 1 iPRIHT"Бнкнааие, вопрос! osPRmT:L№E<290l15)-(44iJ15), 4 --
РШШЗгИЕак дошню „а а"§ рщвдвонп|РШТТАВ (30Гкар'Г!Ш (вабадаевой ва зкраввИ'
РЯШТШМ30)всневение чел“ параллельно экрану?“
АШ)=а Снестится в сторову веяв „:А$(2)=а Е сротпвополохну“ сторон? „
А0(3)=“ Останется неподвтой 5iS0SUB725sS0TQ78Q
REH--------------------------------------------------
F0RT=lT03fLfleATP33f4^, 0-PRI?iTAin)-feTI:8QTfl770 750 B4=INKEY$iIFB$=""THEK750755 'IfB$aC"RJU3O)TieCS=0l!tH-aWsIFCH>3THBffiMi8ST077O 760 JFB$=CHR$ (1361 THENCS=C№ СШ-1: IFCN<1 THE"C"^3:5DT0770 765 IFB$=CHR${13)THEN RETURN
LGCATE33<6+CNiPRINT Ш*(27тАадлШЕЗЗ, Ш: РШ CHR$(27)°7tl-A$(CS):60T0 750 775 ---------.---------------------------------—------
LINE (345,153H500,190) ,-ijBF
IF CH=3 ТЯЕИ10ШЕЗЗ, 10-Рй1ЙТа 8 e p в о ! Картона аста-„!бОТОВОО 790 F0RY=7TQ9:L0CATE33"Y:PRIfiTSPCf27):8EEPsKEXTYJL0CATE40,8iPRIMTKУва, ошибка. я 795 L8CATE33,10:PRINT"Права*ьвнй „твет- картина оста-0 800 Рй1М7й6(30)*яекя кейойвшои, т.к. ss, mesne“
РК1ЙТТйВ{30)"йи|ракцййБнл!Е тх-шуят и вввк-в:РНШТЙВ (30)вяувов зярейеаяется. НАПРАВЛЕНИЙ,“ 010 PRINTTfi8(30)*no котороку идет ёомая часть“ :ИНЕ (397?211М400,209), 7 815 PRIHTTA8C30) аиевнтаваего. да$ра>:цн“ света.*:60SU3180
S2s}KfeINKEY$sIFiCI=a!, raEN82uELSEIFftaCtKf)=130THE?l825ELSETFfiSC (^)=136THE?1640ELSEa25 ¦
S25 Q0SUB25гООЗУВЗ1)-ВЕЕР: ЮШЕЗЗ, I-РВПчТ"6 теперь подувайте!“:LI"EC290,15)-{449S 15), 4
РЙШТА8Ш)"Ках скажется ва яв|ракадввндив8РЯШШ (30)в8артавб (набвдаеной на звраве)"
IFQT$="THEHDC=430−80SHB2O5:8QTO950ELSEOC=VAL (OTf)jIF0C≥380A"0OC≤76OTHEK8QSUB2O5s8OTO95O 940 BEEP: L0CATE3i, 4.0: PRI"shk войн от 380 до 760 нв, 3 945 I2=1500°.GQSU820,LQCftTE31,4sPftI{lTSPC (35)i8EEP:SCT0930
L0C6TE31 ?45ttsPRlr4TSPCCfr) пРЙИШ31йевДанна веяв" ШЛ hbv55|DCj sPRIMTSpCtb) iRETURK 955 ЮШЕ37|5,0:Р8Ш,§ шрина „ели“ 10,0 нн.°
РФРЩ88 CBBTfl Hft ЯИНЕШЙ ЙИФРЩЙОННОЙ РЕВЕЛЕ (P10DR2&.8AS)
REH МтМм дягр. реяетва (PIDDR2I.BAS)10 ?LEAR50:DEFINT OtOIH, 0{3I), X (i2):LQCftTEl, i,0
CLS-PCLSiLINE (0,0}-(511,255), 7, BilI!'!E (2,2)-{50?, 253), 2lBF:80T035
F0RZ=0T0ZZ iNEXTZ sRETURNiREM Задатка speseas
L ШЕ (232,3H 509,253}, 1, BF-RE-. стир. прластзгРаБ
F0RY=1TQ15sL0CATE29,YsPRINTSPC (365 jNEXTY iRETURNsREH tT"p.ap, 4aerasCLS Я-ОДМВШММОТДОа* e оймявве яя1ракщюявве ревши!"40 й$Ш=° Мракция <жга на одно" яеян. „sftl|2)“" Линейная дй$ракцшная. реата." 45 ё? Ш~' Двуяврая- дй|ракцйаааая ретива."
Щ4)=° 08ьеввая р$ращвяш ревет." sAH5) a*" Ваш, а основное веяв. 55 11Ж (25 332)-|485}157), 0, ВГ|ЦЩ12И1}'1475Д67}Д5ВР?1ШЕ (14 543)-(473,ШЬ8>е51Щ
Bf=lHKE?fiIFBf=° °THEHS5 „
IF8 $=CHR*U30)THENCS=CN-?N=CRU:IFCN>5THENCN=1sG0T0105 95 IFB$=CHR* {136)THE'!CS=CN: CfKN-1 s IFCN<1THENCK=5:SOT0105 100 IF8 $=CHR$U3)THEH ON CN 6 010 120,265,130,140,110
LOCATE“, 5ЯШ1ЙТ CHF№(27)D6"j (СЮ:LDCATEI6,5^CS:PRINT CHRJ (27)°7"-A$(CS):60T0 85
ON ERROR 00T022§ 5REb Ввил в осяоввое неяв
S0SUB205:LOAD"ft:HEKUHDLS, BftS0, R
ON ERROR 6GT0220: REI1 Загрузка диёр. света „а |6йй125 60SyB205sL0A0DAsPI0DRl?.BASn, R
ON ERROR G0T0220iREH Загрузка двуаерн, дй$, реае? ки135 80S0B2O5sLOftSDA: PIODR3°, 3fiS“, S
ON ERROR G0T0220sREf{ Загрузка о&>.аи$.реае?ки
B0SUB205:L0fiD°A:PI0DR4S, 3AS%R150 END
REfi в/п индикаций ковца кадра
LINE (495,233}-(508,252i, 0,8 °F:FQRCX=lT07:LINE (494,233)-(50S, 252), C2, B
DR^nC=C>— |ВН5Л&, 244S5H5Riti8U3LlOE5F5H з FGR2%-iT01501 NEXIZ%5 Сл гБЕЕРз
LINE (493,233}-(508,252}, 1,8 °F:RETURN"REM ияр.янд.хоя.Еадра
BRA8"C702F2R4E2H2G2D6aiR?TURtl:RES |й
IF 00=590 THEN CL-4:60T0200:REM д/п внб. цвета дав.волав
IF 00=570 Ю 0C<590 THEM CL=6−80T0200
IF 00=495 AND 00<570 THEN CL=2:60T0200
IF 00=435 AND 0C<495 THEfl CL=1 ELSE CL=5 ¦ ' .200 RETURN205 REH ЙЯ|-Я о sarpfSKS
FCRI%=0M8iLIi€(125-I?|76-IX)-i350HiS96+17 455,B^EXTri!LINE (107,77)-(3&8,1145,7,B
L0CftTE17,6!PRIflTr" S и *!ШШ4,7:РМНТ" идет догрузка програяяв.'. „ШИИТ220 REH я/а обработки овиёок
IF ERR=50 THEN Е≠"0"иёка чтевия Файла,."I50T0240
IF Ш*53 THEN Е^Файя аа диске As яе яан*ев.я{80Т0240
КМШ$ 1Ш=В0ТШт§ Е1РАШ$}=ШНЕЙ RE8UHE10ELSE255 260 END
PRINT“ равнин расетаяшш друг о? друга. Так устроена прос-„
PR I ill“ теёаая да§ ранцвовная реатаа, впервве наготовленная11
PRINT" в Г/86 году астрононов Раттенгаузон в вкде патянутйн"
PRINT" us ранку параллельных шш проволок,"3Q5 РШТ" Начиная { й. Фраувгоёера ляФракционнве рвата"
PRINT" иагоашв"".' нанееевяев в? рш& на поверхность®-
PRINT" стеЕнязной вей зеркальной нтяяичвшгё пяас?1ШЕН.в?нга1Ш55
КИШJIFK$=BBTHEN320ELSE!FftSC (K?)=130THE"325EL8EIFfi8G{KS)=I36THEN15ELSE320
CI, S-LI^E{232)-i{S0"j253) jSsBF5LIfiEf4&s&)-{435j62} J0s8F^LINEC3'23II}'-(47§?I?SF?LIflE34tl-3)-C473sS7.}*5,B330 l8CATEli, 2? PRINT!1feBs всего ярннеаявт йроарачвве, д^рамвоваве"
PRINT" решетка* в хоторан карательные зш яеаа? в одай"
PRINT3 3aocKoc?^s:UNEUO, 76}-(240!176), 0, BF-LINE (270,76H500,176), 0,8F
LI8Etlll77)-(239li7Sb3"B!LHEWt, 77}-(4W, 175b3,8350 1ЩШ, 125РШвПрову"теяШ8 (ароарачная) 0? рашевыня яй|ракцйоавая* ,
PRINT" дифракционная" реаеда" |ТAS{45)8ревегка51 ' .
PRINT-PRIMTTfiB (8)0(noEasasa ssae m вавраваевий хяфрахцвн света)"-ИНЕ (67,239}-(430,239}, 6
ШМ"Ш!Ш=83ШШ1ЕР14!1Щ (Ш←Х, 1ГНШ",?^1,7jUHE{430,8lb (430,172), ЗЛИШ27*Х, УН427*Х,?+?7:NEXTY, X s .
LOCATES, 85РШ1в0ваода!,?Р1аШй8{53Г"и6ра,|1ШН374Ш-(431,87), 2
YY=O-fffiX=427T0370BTEP-lsFi3R?=90T0i6OSTEPi6-PSEl (X5Y+YY)s45NEXTYsYY=Y?+.25-NEXTX
F0Fr/=98T0iQ2STEFl£-PSET{386Л') ?4-LINE-STEF4"35.3) 54? LINE-STEF44i2j
К$=1Ю$НРК1=вП1е405йШРШК$)-13еТ1Шт8Ете (К$НЗШВебШЖ405
CLS-tINE{2,2)-(509,253)I5,8F-UNE (80,53)-(430,94), 0,8 °F!LINE (74,59)-(424J100), l>8F
LU3E{75,6O)-(423,i01), 7, MOCftTE13!5-PJWNTeHepeSseH к рашатревве ди^акцнн света0
Ш РШТАВДОГна ян^раадшшяой риетае."Я0СЛЩ#43 $РЙШТ'Всяв вуава ин$оркация ой ммпмеш"
РйШТШ (10)вдй|ракадввйи5 решав ваш"'шоду S •."sffiA8*e78H4M, 210E2R10F2DlI82Li0H2U"l, j80Sl) il55430 fr^INKEY$!lFK?-n4THEN43&teEIFASC (K$ 5=l30TKI44OEtSEIFfiSGlKS}=136THEN325
IFASGfMs}=73BRASC (K$)slO5eRASC|KI)=2338Rfr3C (K$)=201THENBOT01285ELSE43O
CLSiLiHEC2j2)-CS09j253>, iJ6FsLI^Et7,7}-C230si47} }058FiLIfiE<�§?3)-{22^?? 146) s7a8sSQSUB445s (I0T0455
DRA"°C7BH9,50R3584L31U4a:F0RX=64T0180STEP43sPSET (X,§ 0), 7-DRAK"C7R23G4L15H4asNEXTX4S0 0КАГС7ВЙ193}50й35В4131Н4и5Р0Г=30ТО2№ТЕР45-РА1йТ (Х?52Ь6,7|ЙЕПХ-ЖШ⁴⁵⁵ 10ШЁЗЗ}2 $ РШТвйао$каяГ воява надает ва дв|рак'-'!РН1ШАВ (30)"чшаув решетку с вирдом was V
РИНТТАВ (30)'в постоянной реаетки d (d=a+U),!!iL0CATE31?2,l465 22=2OutH6DSyB2CfiC=25FORY-ilT043il, IHE{IC>3Y)-C227>?), SsC=C^isIFC=6THEMC=2s!IESTiELSENEKTY
LINE (149S34)-(I?4,49) „O^SFlDRAU'TyBHiSO?40Р1!53й231 111ВН2б011иiORAHcC7BH153,4402F2H2R4iH2F2S3t:
DRAi’J"C7Bi!170,44F283BN175j45BlF3u:L0CATE21-.3,0., PRINT"a fe°
A=4,25!B=5.25?X4iFORRX=2TQ76STEP2sFgRXZ^8TG210STFp43-C.lRCLEfX7=350), R7I? CS5A?8 —
CIRCLE (50} jf??, Bl МЕЙТК%гС%=Г.%т1 slFC%=6THENG'i=I iflESTR!4ELSEKESTa%
F0RI=UT07:G
Q{4)=4!LUTQ (0)s8(2)=0:LLfTG{0):fU5)=5-UJTQ (0}!(H3)=0!LUTG (0) IG0SUB20
К1=!НК??$:М$з8МТКШЗ^$Е1Р1ШС (^):ШТШ550^8Е1РА8С (К$)-136ШН15Е1^^5
FGRI=8T315:B (I)=15sNEXTl!FGRl4iTG7:QU)=I:feTIsLlITQ (0)555 € 081)В^!1ЮЙТЕ32,2"01РВШвУя1""йй картину вийваде8с? виявгШТЕ35,3!рйш"ш>овв8 mm с реавтквй,“ 560 PAIKT (i0,10), 2,7:PAIHT (10,10), 0,7j
BRfi""E7SB15&, 4"tt0BB23U118B2eBIiB{ll53,44S2F2H2R4iH2F2B5n !&RMJBC7Btii70,44F2B3BM7M56iF3″: .
FO^OTO26STEP42jFORNs4?TO^ra>7jPSET{S<, M43|73)J4iLllffi^IEP|0,3), 4tLIME-S^(lVO}j4?U№-SirEP (2,-2)"4? HHTM, S615 1шш, м*рш*№"88ив аввер, чтевн costsst-" -PR!MTTAB{30}aетвуввд^ лучи „иив"ь в едву пч~“
PRISTTA8(30)°Ky в йр&нн|гр^рароваяп яруг c3: PRIHTTA8(30)"apyroB,°-L0CATE31,6,l-ZZ=2500−80S (JB20
С1Ш.Е (Ш, Ш)|т, 7м712.45|558таЕЦ18|74}|170,7"3,.84"5.57,5?РЙ1ШШ, 97), 3,7
F0RY=90TQi02:FQRS=0T0i26STEP42-F0RN=49T063STEP7:PSET (SfH²⁵-Y/2,Y), 4iffiXTt! fS, Y
DATA 2−5, ЗО}37,65, 721?9}ffl, 114}Щ, 149,156,163
Ш FflRIMTfli2iREfiD XCIX) sfe (mjFffi?l=103"S30sFflRIMiai2
X=t (50-Х (IX) >/I29+X (I2>tPSET{K, Yjc)
LQCA
PRIPJTAB (30)°ваёй"дать „.результат- тгр&ерея-„-РРШТАВ (30)"цви ляя воян5 распроетраняаакяся0
PRIMTTA8(30)trOT $еяа wk врвйзвошннв углав"с1.'PRiNTTA3(32) °к первоначальнопу направлению."т LDCftTESl, 10. isPSET1240,7в6ИШШ75:ZZ"3000seDSHBZOBLIUEClO, 232h (227I233)}7,gF?S0SUBi55
К$=1Ш"гШ"в!ШШ0аШРй®1К|)=ШТШ75Ё1ШЙШ"}4зШЕЙ440Е1,ЖЬ7Ф „
G0SU325:L0CATE33,210iРШРКзйлёя as sseaeii, взятая no одк-„:PRMTAB{30)"вочке, даст на зкрав®- картяву,“
PRMTA8(30}"описнваену“ белой криво! (p!!cy-asPRIHTTA8(30)cKOs слева вкне?>¦0sL0CATE21,3sPRIRT0а Ь?68SUKE (i29iU7J-(mim)'^, BFsCL=7{ME-%!8=i?B=2IBsfiL=5.5E-07
BEEP :ШЙТШ, 2,0sPR!ЙТбарита от gees вдлеД пркйутс8в: РКШТАВ (30)°на адао И то §-е иесто зкрава0! LflCATE21j3: PRIBTfta bs —
Ш^ПО}О!1ШйТЕ31Д4:РАШ8РСШ):№Ш5РС (й)-И8Ш:Б0Ш.В20:10СЙТЕ31}14:№вР.(врй морим жрищпгра|ккап
РШШ301"интенсивность УШЬВШ в 16 sas>sгZZ-300г80SUB20iНЕХТРз
SftIFKi=D eTHEH765ELSEIFftSC (K"5=i30THEM770ELSEtFASC (Ktl=13STHEH440ELSE7b5
S0Sffi25-l0CATE34,ls0=PRIMT"C-3OTBOBeEKH тжщ углоа .^РйШЛВДОГдавной воввн й, аирквон дом Ь, п
PRINTTA8(30)°4HCSOH аеяёй N я постоянной pe-o?PRI"TTA8{30}oaeTKB it'7Ш>Ш (460,5)у7!ВШШ:ЙМЁ (349,"1-(350 125)^, В
PRIHTTA8(32>iPRISFb 8Ь1 = * 2ke,. .
РШТТАВШ) sPRINF- уешве гш BISMIIOB.“
Р81йТТЩ32)вй Sin = * „я, yarns"* t*mm ШШШ.'805 ^1247,103), 7лШе29? Л01Ь7|80Ш75:01¹. Ш) А"810 ?8ШТШ{30}^ Sin = .98Р11тШ (49)"крвйе
PSET{251jI35) ^зРЗЕТ{2831Ш}>7|Вб8ВВ1751ВЙАЙ*С78Н3 135 139Й6 В!1и1Е (373гШИ{374,135), 7|В{11ИЕ{2 355 128)-'494,143), 4,8 — -
PRIfffTAB (32)B- давмввет-яыше ввввйувв.“
S25 PRINTTAB? 30)"Н&жйу довоянитеяьвннн нининунави0 sPRINTTftB (30)"располагается еяабне вторйчвве“ 830 №Ш7А8(30) „шенауяв U-аий шыш9 ае ёо-йгРШТТАВ{30)пш? К от блнза&т главного)^ 835 LQCATE21,3sPRM"a bn: L0CftTEi7,8iPRINTftIasSQSUBiSS
K$=If4KE?f t IFKf=п „THEMBflOELSEIFASGifCf ≥130THEMB45ELSElFftSCСKt)=13iTHEa440ELSE340845 80 511 825}ШТЕЗЗ, 2}0:РРН.Г!!2оёавочяйе ттпцш шел8Пт-в}РШТШ (30)ося в результате asrepjepesa:!"3
PRMfftB (30)"mra, яроаедаго wpi^эдч- в: РВШТВД30)ване адан. Вне“ это-сказвватя“
РйШТШШ’в tee, что широк®- поямн, яава-'ШШтЪЩ+ттг одвв§- чеяьв, шртяпск*ш ШЙЩИЩ’рвдаи вош- ?овкйй яоаое, „и^'гРШТАВОД'опг ин?"р§ еревцией зучев, „„ю-“
FRINTTABf30)вдяаик от рааявчвни яевей- первой0: РЙ1йТТАВ (30)аи второй, первой и третьей в т. дЛ
L0CftTE2ij3sPR№"a b,!iL0CftTEl7s8sPRititfil, isl8CATE31s2! hn=4000s68Sl!B2fii60SUB155875 .К$=1йк?У111РК?=я®ТЯЕШ5йЗЕГРйЗС (К$}"13ШЕЯ88вЕ18Е1Рй8С{К1)=136ТНЕй77ОЕ10Е975
ШШ5 $иШЕ3412*Ф}ЯШяе „рум8 сторона тжю"тв!РНШШ (Зад*ана в главвня вавснвував растет"885 дайШВШ’вровердвовадш явадрату • 4B? aa,!LlME{37i}62|-{444J"}, 4
МО P8mtSB (30)"ftmS“ С. ради чвсяа вдяей ре-*!РШМ (3"}я8еш bos энергия, врокодега*
ШШ^'Ш^ере“ pesetxf „Beta mpesota4"-B5PRIHTffl8{30), Baet"i в направлении главная“
PRItlTTA3{30}<1B6K€BByBQB|-so sees же о"ааышвв{рашш30}вваираиквй8 В, вяашарй яоввя"-°
Р81ШАВ (30)"ний тът шюпвйшьвнх виввву-11:РйШТАВ (30)*аов, с&е? № проходит вовсе.8910 ®ffl"i bnJiO. CATE17l8iPRIfiT"I,!LBCfiTE31}2?l!Z?!S30OO58BS!JB2O:8OBU8i55
К""ШЕУ"UFK$="T"BSifeL3EIFjBC (Kf)sl3OTH0H2OELSEiFftSCt""=lMTHB!845ELSE9l5920 8BS®25sLQCATE34, 2,0sPRIHTa йре=?б§ дйт8 как вмшт* т’гШШЩЩ’кЛщвтхЛ карта врв взвеяв-'
PRIKTTA8(30)"bkn ттт napaaeTpoBSn{PRINT:PRi-iTTA8(32)5a-ipHHa щт Ь,°:Р8ШТА8{32) „число аеаей V
PRH!TTAB (32) „постоянная .решеда d, ntPRIMTTAB (32}"удапеаие экрана от реееткв L,“
PRI"TTAB{32)"длина светом вмяя л."-11Щ4 371 146)-{4 388 150)!7,В940 11шш}12"штш34)ьяершаэд"ше вараяе*рЯ!"МтвШ}"Ь = 5 ак, й „4, Г= 0.01 вв,“
PRINTTAB (36)"L = 1 а, а * 550 нк. о{11КЕ (373,210)-{374., 214), 7зе-11"Е{240,176)-(499,224), 2,8!11№(238,174)501,226), 2, В >
ЙЕН аьунерая решетка (PI0DR3S.BAS) 10 CLEARSOtOIif fi$(6):L0CATEl, l,0
IF8 $=CHR$(130)THENCS=C“: CfKtHl: iFCN>5THEKCH=liG0T0105 95 IFB$=CHR$(136)THEHCS=CN5C^CH-isIFCN'
GQSUB220:L0AQBft:PI0DRi#.efiS°, R .150 END
REH m надикацив конца кедра
LINE{495,233)-(508,252), 0, BFjF0RC7.=lTQ7sLIKE (494,233)-(508,2521, СХ, Б
DRA"'ie=CX-BH506,244G5H5Ri0BLi3Li0E5F5fijF0RZ7.=iT0150jf{EXTZX, CX58EEP: RFjyR!l
LINE{493,233 H 508,252), 1, BF'.RETURN-REH стяр.яял.ш.кадра
DRAN0C7ElRlFlD461LlHlU5'-:RETURii:REH О180 0RAH,?7G1E2D7'RETURN.'RE3 1
DRA (i!, C7ElRlF1018301R4″:RETUR-}{REfi 2
OR AH“ C7E1R IF 101G1F10 LS1L1H20 s RETURH- REH 3
SRAH"C7E2B .'RETURN sREH запятая
ORAH"C702F2R4E2H25206"iRETURN:REH $и
MfiS’C7DlS2Dl625>i6lLiHl02ElR2F4RiE2o:RETURR-R?t1 aai*a
DRAH"E7FiRlE2U3EiU3E2RlFlD182L 1R3F1D162L2H2″ s RETURii: REt! ёетта
DRA"0C7EiF2D461D281D16iLlU2ElillE7RlFl*sRETURNsREH гаява220 REH цн|-я о загрузке
FORIS=OT018!LlHE (125-I2,96-n)-(350+12f96riX)}5sB:NEXTI2sLINE{107,77)-(368,il4), 7, B
LOCATE17,6SPRINT" 5 и в у? с. ч к у, a5LOffiTE14 57гРШТа идет догрузка прегради,.235 REH в/и оёраёокн ошяёок
IF ERR=50 THEM Е1=вСвябг:а чтения JaSsa",.":80T0255
IF ERR=53 THEN Е$=аФаия на дае As ве вандее.,°:80Т0255
IF Ж-57 THEN Е*=с0вибка ввзда/бшяа диска As".°*, 60Т0255 ELSE Е?-°Яеопределеннай ошк&а.4
LINE (65,73)-(4l01ll4}, 4,8FsLI?iE (66,74)-(409,ll3}, 0, B.'L0CATEl9,6:PRINT EifL0CATE9,7>0jPRINTSPCi4O)
F0RIX=lT025s8EEPsNEXTI7.sL0CATE9,7sPRINT'i устранят* причиву овябкя в нажните0265 9RAIBOeH33(i, 96IviOL9&3H5E5D3R5a6R4BH384,94D17L21!li7R21a
К$=INKEУ$:IFK$="сTHEH270ELSEIFASC (KJ)=1ЗТНEH RESUHE10ELSE270275 END
CLS:LINE (0,0)-(51l, 255), 5fB: LINE (2,2)-{509,2S3}, l, BF
LQC АТЕ25 s 2 s PR ШТ0 До m пор на рассватрнвалн flB§ paEpB°sPRINTTA6(2I)nc!seTa в случае параляеяьннх зеяей f завей-02?0 PRIU7TftB<21)°нав дк? ракцконяая решетка), Гораздо в"кре°:PRIMTT6B (21)0г.аспрострааен случая, а картава евачв тэль-„
PR IНТТ АВ {21)а во усяозшзтя, Шв одвой свете-0 }РВШТАВ (21)"ни п&яеи вгять две „жрешдане
PRINTTA8(21)"векаяие в одэон влошетн. 8 частности, °!РШГТЙВШ)°ря двр атйтя ршт} со вёйй вно“
PRI!iTTAB (7)"Pikl яерпеядякулярввйя вдяязв {рвс.1).°
Р8ШТТйВ{21)а В os’iea щш яш (шя е? м>рш)• не-0sPRHfTTfiBKl}"r?t paawaarama на аяеекот севера1. НЗО“
PRINTTAB (2i)enpOHSBoaiBo. Пркверов тжт сяуквть ваас-°:РВШТАВ (21)0тивка беспорядочно запшшшг-о стекла йпн5
РВШТАВШГокво, покрытое ysspasti аорш (pi!C.2)su'.L0CATE8,15iPRl"T, PfK: a2"sB0SUB325!60m50 325 ИНЕ (|4,6)-(146,Ш), 0,8Р:ШЕ (15,7)-(145,143), 7,8
SRAMBS3SH&5Д40ШОССЗОЭ10 0838L3mOORg-L?.E3SR5L51' г ВЯЙЙа СЗВЙ48 s i37ilWEi0S&Ct3fe&L5U6eR5L5E6SR5U^ 335 УХ=§ 58РШ2"ЙТаШЕР5!игеШЛХИП, У2*751 340 верт. атрнх
F0RYX=65TQ110STEP58ШЕ (68
FQRIZ=1T01300:XX=HIT{ 127 $RN0(Ш+17)JYX=INT (56 $RND (Ш+166) sPSET (XS, Y7.), 3i{!EKT17.s60SU8155″
K$=If^EY$sIFK$=a4HEf"^tSElFASC4KI)=13&THE^5EiSEIFASC (Kf)=13aTHElU5EiSE360 365 LINE (i3,162)-(147,225), i, BF!G3SUBl70:CLS
L0CA7E25,2:PRlHTnPaccBdrpi!a ррерув решеткуf в? гдстав-, 1-РНШТАВ (21)ий8вду" собой скрепевзые первенцу ррнне"
PRINTTfiB (21 >„гааи, аолнея дать совокупность йакс1! нуяов,-:Р8П{ТТАВ (21)п (вуяевой и более вксож ворядков) вдааьЕ
РЙШТАВШ)"Г0РИ308ШЬ305 лйвйв,“:PRINT-PR1KTTAB (23)яСветовой врчек, соответствуй^" шлвву" 425 PRIf4TTAB (21)*HaKCH3y8y, проходя черев втерр реветку,'sPRINTTAB (21)"распадается ва аовув совекувяееть с вето-0 .
PRIHTfA8(21)DBBX пучков" давдге мквцвя вдоль ВЕРТБ-Ь:PRinTTftBC21}сКАЛЬВ0й аивва.":ZZ=1900>60St!320i6DSU8155
F0RYZ=40T8200STEP2-FQRX7.=20T0180STEP20:PSET (X?., VK), 3"НЕШ1,У1
CIRCLE (100,i20), 6,4!PAI}ff (100,120), 4-CIRCLE (120,120), 4,4,l.D!pAIHT (120,120), 4
FCR-a=il6TOll8sLINE (XXa03)-(XX+6,97), 4! NEXTX7. sCIRCLE (100,100)J4,4,).7iPAm (100.100), 4505 jl"55РА1й1Ш0(120)j4
FQRXX=76T078:LIHE
FflRK=116T011BiLIHEm, m)-(*X+6(143), ЫШП
LINE (136,133)-(142,i42), 4jLI{E (137,13S)-(143,142), 43CIRaE (140,120), 3,4,i.8:PfiM (l40?120), 4
LIKE (136,102)H142,?B), 4sU{IE (137,102)^143,?8), 4гШЕ (Ш, 83)-(142,77), 4iLIHE (137,83)-(143,77), 4530 1Жа17,83)-(121,77), 4 $ 11ЙЕ (Ш, 83)-(122,77), 4? С1ЙС1Е (:00,80), 3,4,.6гРМ"Г (100,80), 4535 1Ж (77Д7)-81,83)54!11Щ7В⁷⁷)Ч82,83)54:1Ш58Л7)4ЙДЗ)!4?1ШС57,77Н63 583), 4
LIHE (58,98)^64,102)54ГаЩ57,98)-{63,102)54гШС1Е (60,120), 3,4,1.85РШТ (60,120), 4 •
LINE (57,142)"{63,138), 45LItlE{58,142)-(64,138), 4-LIME (57,i63)-(63,i57), 4iLH! E (53,163)-(64,157), 4
LINENS, 163)^82,157), 4-LINE (79,163)-(83,157), 4: CIRCLE (100,160), 3,4,.6-PftINT (100,160), 4
LINE{li7,i57)-(i2iJife3)H-LIfiEai8a57>-{122s163)J4!LIHE (136J157)-tl42t163), 4sLir^fl37,157)-(143s163), 4
LI"E (158,178)-(163,183), 4: lIRE (i58,159)-(163,16i), 4sLIffiU57,139)-(163,l4i), 4
CIRCLEU60)120), 2(4t, 2.2-PAI}{T (160,120)34:LniE (i57,101)-(163,99), 4-Ln5E (158,81)-U63,79), 4
FORXX=102T0162STEP20jPSET{XX, 65), 7:803UB190:?SET{nt5,71), 7:60SUB195
PS?T (X%, 85), 7:8QSUB185sP3ET (XX+5,9i), 7−6QSU8195:PSET (X%+2,105), 7iGQSUB180sPSET (XX+5,lil), 7s6GSU8195 610 PSET (ri, i25), 7:60SUB175-PSET (№ 5,131), 7s60SUB1955fiEXn?-
F0RYX=65T0131STEP20:PSET{li0,Y?-), 7−80S0B175!P3ET{i30,V7.), 7: GQSyBl80:PSET (150,YX), 7: SQSUB185
PSET.i 170, YZ) „7s 60SUB190: NEXTYX .
FORX%=42TO823TEP20iPSETs-t7-GBSHSi75-FSEI (X'4T43131 >57г@0BLШ9S-LI^-EГ^S+?^f527^-ь>¦%^SJlS"7}?7^^^E>-?S
PSET (51,125), 7sG0SUB190JPSET (71,125), 7:60S08185!PSET (93,125), 7: GGSUB180:60SUBi55
K$=Ili^Y$dFK$="THEN635ELSEIFASC (P)=l30?"Sri640ELSEIFASCiK?)-136THEN400ELSE635
ШЗШ 70 гCLS s L8C&TE28,2 /PRINIп Гаавнне вакеинувн возноквв тадыов
PRiNTTA8(25)llB направлений, удовмтрйввдж ycao-„sPRI?!TTAB (25)DB!isBD
PRIMTTA8{33)sd Cos „a a,""PRINTTA8{33)ud Sol = a a, B5PRINTTA8i33)"Cos * Cos * Cos =
PSET (274,73), 7!80SUSi80s:PSET{346,73), 7s60BUB180: LINE (357"66)-(358,70), 7, В
PSET (273,89), 7:80SUB185?-F'SET (345,39), 7−6GSU8185-LINE (357,82)-(358,85), 7, B
F0RX2=239TB4S0STEP64!PSET (XX, 99), 7s0RAK'C7ElRlFlD163S4°jHEXm
PSET{313,67), 7!60SUB205г PSET (303,94> s 7 г80SU8210г PSET (303,100), 7 s6QSU8205: PSET (357,110), 7−8GSU8210
PSET (4 255 101)J7!80SL^2l5!MN°?7Bri25Bs65L2G43i584F4Bi5F4R3o5pRINT-PSIHT
PRl"TTftB (24)°rae з, a цеаве числа (0,U,+2,.)J!:PSET (242,154), 7-.6GSyei80jPSET (265,l54), 7s6G8UBi85 685 0RAM"C78S417,155R6BR18R6'J
PRINTTAB129)°, , yra“,. Ява шорш ваёй"-3sPRIIITISBf37)"лав^-й кюввве вакейнува,“
PSET (233,164), 7§ GQSUB205:PSET (246,174), 7! SQSl{B210sPSET (264,165), 7: G0SU8215
РЕШ)ТТА8(30)°я длвва световой sosBH. r, sLI"E (245,i93)-(2 461 199), 7, B:Z2=1500:60SUB20:G0SUB155
K$=INKEYIiIFK'l="THEfi7()5ELSEIFA80{P)=130THEH710ElSEIFASe{k'l)=136THEN440ELSE705 710 LIHECi95>fiO)-(50Ss252)Ji9BFsSLB-LH^i4s341-iiM5206)s05BF-LIf3E|iS535S^Ci85,205)57s& 715 LOCATE29,3:PRINT°Ecii-i предположить, ч? о двукеряая0
K$=IHKEYf!lFK$=uoTHEN745ELSElFASC (KI)=130THEH755ELSElFA8C (KI)=136THEK640ELSE745 750 LINE (13,22)-(146,224), i? BFsLIKE (14,34)-{186,206), 0, BF-UNE (15,35)-(i85!205), 7, B* 755 Ш01ЭД (ШШ1ЗД, 3|РШГ, ёт штрнхв ревет не вшиво“
PRINTTAB (25)"периодов d в d н вашной ориевтацння: РЙ1НТТАВ!25), ре"етой.й 785 PSET (282,169), 7: GQSUB180: PSET (312,169), 7 -6GSUB185 5GGSIIB485: G0SUB155
K$=Ifl®rSdFKS=nnlHEH79(€LSEIFASC (K$)=13!MEN80CtELSEIFASe{K?)=136THEN710ELSE7901. ШйРегаШ^ ' 4A• '^дометят
LINE (0,0)-(511,255), 1,8:LINE (2,2H509,253), 2, BF BOO LINEl2,2)-{508,253), l, BFiCLS
LOCATE25,2-PRINT"Ecmi пвверхноинан структура не верэ~аЖШАЩ21)эй, тша, те картина получается бзяеесааз-0. .
PRIHTTAB (21)nhoii. В частности, есян структура состоят0: PRIHTTAB (21)"ks чашц Йаивквх во рз&керан й^вр „,“ ¦
РИтЮ (21)'во bcsbosbbsho ориентирован"®-: (затаен-0 :PRIHTTAB (21) „аая изастийка, порогвае jsopis ва стзн
PRINTTAB{21)0to такая структура эквивалентна совохуп-п!РНШТТАВШ)"нос?к врастав реаеток всег вазвв
РШТТАВШ) „орвевтаровок, Мракадоввая вартвва? PRIKTT6B (2i}алвдят как рад кавпев^рачеекяя кругев.-“ .
Р!ШГПАВ{21}в9м-авши* тип мбтващ раша*риваяп|ШШЭД21)вве8мшя яркий аетотввв свка сез'55'b“
PRIHTTAB (5)вДВУ5БРЕ7Й реаетку, то пояучии вашвунв для ВСЕХ алии3 880 PRINTTAB (5)nBosH, располагавцаеея в определенной порядке в мэс-в 885 PRINTT88(5)"кости, парэлйсаьвой плоскости решетки (цветвне пятна)."
PR!!iTT?ffi (5}sI!a ШШйЩ в&- решетке ар тен ве усжшаяв Езнушзтся" 895? Р1ЙТТАВ (5)"ййксинупа для КАЖДОЙ дяинн швн, которие расвояага-' 900 РШШ8(5)', к1тся вдоеь гпшай5 аераендикусярнон к щтринан реотв" 905 pRI! Rjffi{5}0f спектр).0-Z2=1S00sB9SUB20sSDSUB155
Kf=I"KEY$:IFK$=', oTHE{WML8EIFASC (K$)=130THEN15ELSEIFASC (K")=136THEH795ELSE910- ' ' 3. ДИФРАКЦИЙ СВЕТА НА ТРВХ8ВРН0Й ДИФР&КЦП0ЯВ03 РЕШКЕ (PI0DR48.8A5)
RE?! Треннервав peaetsa ' 10 CLEARSO.'OIH AI (6}:L0CATEi, i,0
CLS:PCL5:Ll{E (0,0)-(51i, 255), l, B-Uf!E (2,2)-(509,253}l2,BFsBOTO35 20 f0RI=0TQIl5HEXTl!RETURKiREH Задержка вренен" ' 25 UNE{203,3)-{509,253), i, BF:REii cr"p.np.4acKiiPCLS
Ъ0САТе8Д5,0:РЙ1{4ГпЗнёнрайте хвавманв, я накните
DRA""C7Bf!225,230R5B5H5R5Bii2335228D10L16U10Rl60-PAn!T (225,232), 7 70 9RAN"C78H261,236L5E5F5L5BH269s228Di0L16U10R16!IiPAIHT{261,234), 7 * • 75 0RAHBC7BH3871225B10L9D3H5E5B3R5U6R4Bn391"223D17L21U17R21c ¦ '
Ш FORI=lT05tLGCATE16,5¹, 0: PRIMTA$(I 85 B$=IKKEYfiIF8f=00THENS5
Щ IF8 $=CHR$(130)THENSS=CN-C^C"←b-IFCN>5THEHC^iJ60T0105 95! FB$=CHR$(136)THENCS=rasC№-isIFCfK17HE!№ 5!60T0105 i 100 IF8 $=CHR${13)THEN № ffi SOTO 110,120,130.285,140
ON ERROR G0TQ240: REi1 Ввход в основное аевв1.145S0SU8225sL8A0:iAsfiEKUK0Lf, 8AS%R1.O END: i 155 RES в/п ивдикащш конца кадра
LINE (495,233)-{508,252), 0, BFsFORCX=iT07sLINE (494s233)-(508,252), C?, B Т 165 DRAH"C=CSiEri50&!s24485H5Ri0Bl!3LI0E5F5!I sFGRZS=iT0i50- 9 sRETURN
IF Е88=57 ТНЕЙ В-Озшбка ввода/ввв&аа двт Аг.:SBTQ2f"0 ELSE Е$='Неопредеяенная овибка.0
LIfiE (65,73}-(4l0,il4), 4,8F-LIi{c (66,74)-(409,113), 0,8!LBCATE19,6-PRIHT E*sL0CATE9,7,0sPRIIITSPC (40)
F0RIMT025гBEEP-NEXTlX-LOCATE?f 7 sPRM" устраните причин? овтбкн и наште"
BRAV5BC7BH3e0J96Bi0L9D3H5E5B3R5U6R4BH3a4,94Bi7L21U17R21a
K$=IfJKEV$:IFKI=*пTHEH275ELSEIFASC (K$)=13THEIi RESUMEI0ELSE275280 END
CLS:LINE (0,0H51i, 255), 5fB.'LIHE (2,2H509,253), 2,8F
LI"E (27,37}-(500,188),058 °F:LI"EU6,44)-H9i (197)si, BF-lM (i7s45)-(490,19b), 5,8
LOCATE?, 4! РЙШеМракцня ®-й ваяе? яртодвп as тояш на адяяя0
PRINTTA8(4}"mh отверепш в злоскик преградах, но й на естественен?."
РЙ1НТТАЗ (4)пия (з искустеняях ргаеткак тре" язиереани.0 .
РЙШТАВдеРМ’ракциа на таш аространственввх веодпородностях0
PR ШТАВ (4)0аревставляет ванёоаьшнй интерес й практическое зваченяе."
PRINTTAB{4)"Такого рода яззшш вабя&давтся в йаящоа васзтйёе ив"
FRINTTAB? 4} „природе, напрннер дикция света на веякяя чашцах,“
PRINTTAB!4)0BSBeBeBB8>— в воадущ внзнвает появлевие spyros я коад"
РйШТТАВНРвокруг Солнца в Йуяв {так назшеное рало и венцы).пsZZ=i500s80SUS20:GOSU8155 .
К$=Ш?$Нт=вПНЕШаШР1ШС{К$ИШШ34ШЕ1РЖ (К")в1ШШЦ5Е15Е340
Ь1ЙЕ{252)~л50??253>s298FiCLSsLINE (2?s-37)-?495?iS8}, 0sSF3LISEC l^j44J-i48ajii97J Jlst8FsLIHE< 17,
LQCATE9,4!РРШ°Расснотревке дв|равдна света aa иростравствонвкх"
PRINTTAB (4J"HeogH<}pofiEOCTH2 вроизшшй $орвн представляет собой0
PRlH’TTAB{4)°04eBb „гояяув задачу. Огравичизся поэтову простейш8вп
PRINTTAS (4}“ щ чаенs дада неоднородное?!} иней? врШыщи: верйор-в
PRINTTAB (4)°4ecK!i" характер, т. представляет собой то, что та
PRIHTTAB (4)"нашаен pesefEO". двдоййнвв структураян является fice"
NKEV? г IFKf=аГ0THEN400ELSE IFfiSC |К$ J=130THEN405ELBEIFSSCfKf)
LINE{252)-f509s253>, 2., BFiCLSsL№E{27s35}-C495s 144) 505BF5OllEC16,4Z)-C40Sei5-^ s5j, 8
PRESET (lOfe, 2?)-60 808 180- PRESET С106,69}s аОЗУВ£85?PRESET (186 510? > 5 S0SUBI905 iS&, 149)5G08USI95 485 LIKEi 30?3SJ 50jBFШШГС7ВЩ135? Е2Р2К2В51Е2В2НЗИ iLSC^TE3,sFRE3ET"25,73^ШЕШШ
IFYX-37THENSQSUB520-ELSEIFYX≥37THENPSET (104←X1, Y%)
IFV:M7THENB8S№ 520ElSEIFV7→=77THEKP3ETfM!4tK2,ns)s4sX2=X2*.45 505 IF? S=117THENS0SOB52OELaEIFY?→=117THENPSETflO4^X3>Y?b4sn=X3f.45 510 IFVX=157THEKG0SUB520ELSEIFYX≥157THENPSET (104+)!4,YZ), 4: X4=X4+.45 515 NEXTY2:60T0525
FGRl=lT015iCIRCLEf 105, YS+3) ld3fY%-s-3), 0,4sCIRCLE (i05,Y"i+3)^{SsPAIflTdOSjYS-i-Si,} 0"5il*EKTI iSETURii
BSAH"C48"lQ05i9F4R2E5nsOR3HnC48HiCw}s22 € 5F4R2E5n!FSRX%s129TQ200STEP18!p^ f4jLi! IE-S1. TEP (l,-4), 4sfem
FRES?TUi3y 155 -6BSUS175iPRESET (107,232} j SDSUBi755PRESET{ 232) -00SUBi95sPRESETf 153,232) гB8SUB170535 fRESeTU71,232)sG0SUBi85sPRESET|189,232)sGaSII6l80sSGS0ei55
Kf=I}lEyst5FP-BDTKEN54Ci?LSElFfi8SiK$l=130THEN545ELSEIFASC{l (l}=136TfiE?!405ELSE540
GGSI!825!L0CA!E3O, 2-PRIhT'1Bc-m шднй сяай реаеткк достаточ-„sPRINTTAB (26)'ao арозрачеа, то часть света яе пята-' ,
РИМТШ (26}"вав? ди§ ракциа на вервая слое, а"1РИШ®С2Ь)"чаеть лрзяяяает до шдаадт „яоя яя
В55 PRINTTA8I26)'частично ведаввает дя§ равдй вз“?№ШТШ (26)вз?в8 зтороа „мое, веток проникнет“
РШШ8(26)"дальсе н г. яЛ'ШИТТАВДОГТмм образов по направлена“ диИ
PRMTAB (26)0 рагироваввего света (, ,) будетD s PRESET f 382,146}: 60SU8210: PRESET (3?i, i56) i80SU8215! PRESET (411,147)iGQSUB220
PRmTTflB (26)Bpacnpoc?paH8TbC8 ведаяыя когэревт-Е i PR ШТА8 (26) „ввх вмз s невесткой рашк-ткй so да.“ 575 ШЙШВШРЙвя омнчатеяышго результата bbo6-°!PRINTTAB{26) „ходи“ учет „х иятерферевций/ 580 L0CATE355iPRINTBdasZZ=2000iB0SUS2D:0D3U8155 .
К1−1Ю$$ 1Ш^вТЙЕМ^ВЛЕ1Р<�ШС (К$}*ШТИЕНЗтШРАЩК1)=136ТНШ"5а.8Е585 590 ¦ 603и&25г10ШР3032?Рй1Мг'Йакеидузн й=ета тучтш мш"*595 ?RIM7AB (26)"b вавравяевйян, удовлет-Борявдзк черв-„:PRIHTTA8(26}врен усяовиянг“
PRIHTTAB (32}!"d Cos = в У'.1ШТЕЗ, 8|Р1!1НТ"йв:Р8Е8ЕТ (264"73}5БЙВ1"18&!Р№§ ЕТ (305,-67){ШШ“
PRESET (338,73):GQ5U6180-LINE (349,66M350,73), 7,8
PRIMTTAB (32)Bd Cos = a jitt^PRESET (2ё55)sSOSUBiSSsPRESET13 94)
PRESET (337,(89)s88S0B185-LINE (349J2)-(350 589)?7?B
PRI"TTA8{32)"d Cos = fl acsPRESET{265"i06}:BQSUBi90sPRESET (298,
PRESET (337,105 b6GSlffit90-UHE (349,98H350,105h7,B
PRimAB (32)"Co5 *Cds * Cos = i, e: F0RXX=281T0470STEP&4:PRESET (X%, ii4} iSQSUBi85: NEXTX% 635 PRESET (294 415)sG0SUB2i0-PRESET (348)126)i60SUB215"PRESET{4i6Jli7):60S (iB220
ORASTOB^S, 6511б2В2682Р2026?2Р2о .
PRISTrrRINTTAB (26)Drss s, г, й целне mm- (ОДвм^яДОВДОДимиК* 650 PRESET (250,154)-GQSUB180?PRESET (273.154)i60SUB1853PRESET (297,154):GGSU8190 655 PR! fiTTAB (30)5d, d, d — яериодн реееток,"
PRESET"250,170}sGQS0Sia&-:PRESET{273?170)г6QSU8iS5sPRESET{ s170):S0SUB190
РЙШШ39}" s, рая воя sawpsBH яабда-„?ШШЩ49), айв“!8 штт шп'
PRESET (252,179)s GQSUB210 s PRESET{266,189)s80SU8215 s PRESET (289,180):SBSU8220
ШЙТОЩЗОГа дяш ешов"§- Шни. вЛ1Щ245,210Н246,2Ш, 7, ВШ=2О00!6Ш20!ШШ55
K$=INK??fslFK$=noT.HEM80Ei®IFASC (KI)=i30IHEH6a5ELSEIFftSC (KI)-i3kHEN545ElSEa80 685 LiaE (204,142)-(508,226)sO, BF! LlKE (205,143)-(507}225)s5,B
U3CATE26,l?nPSOTn Условия. язкдаунов воказввавт, чет „„гатОДЗД'нео*“, в’ооёце говоря, для я, а &-о я“ ' „
РШтаВШ0дшш вош“. лбаучить вавргвяевнё (, °!PRMTAB (26)E, К лая которого вивмвяотся 700 Р8ШШ8(26)азтн рсяевна! GiSPCC25tзPRESET (490э} s8QSM2t0sPRESETC2Q5s205) s69aSjOZ15iPRESEHSS?4i94H6QSUB 220 ' 705 Z2=150vi80SUB20iB0SUB155
КМЙКШsIFK$=D8THEK710ELSEIFASC (K$)=l30THE"715ELSE!FASC{^)=136Tfe590ELSE710715 80ЯЮ25'.иШАТШ, 28РйЩ'?аш обраш, * ШВ05 „рув?уре05РЙШШ|26)влря ЗЦШМ ябрвояача&шя ааарвяе-в
РК1НТТАВ (26)явий расярострэвевня „ве?а образует“:РВ18ТШ26)в"че?Ш№ яйракцввняне яакшувв"' 725 ттщ&гю ш SCSI ШЯ, а яшм я"яв?ШЙТШ (2й), удавве*ворввднй ринк шейвуве“!" 730 10САТЕЗ, 5: РйШЧ"
L0CATE29} 11 iPRIUT3 (5запонаня? что при ди&равди света"
PBIHTTAB (26) вна ливейво" и воверкностной реветкакв! ШИТАВ (26)"яамнувв волучаится дня 8СБХ япияс 745 РМНТТАВДОГюеммк волз.)o}ZZ=2000s80SU820:6DSU8155
KS=lHKEVI-IFK$-ueTHEfl75C€L3EIFASC (K?)=130THEII755EL8EiFftSC (K§)=i36THE?l590ELSE750
LGEATE32,2 siH PRШТгу сть йззеетсн свстеаа лоБерв-в1РМ8ШВ{23)ввойек часдаво отраваадиз й ш-гв
РШТМН28) „тнчно проаушкш свет (трехнер-„!Р81Г1ТТАВ (28)внаа roaorpa8Ka).*-LGCATE29,2,i
FORI=lT035-FGRVX=61T0101STEP20!:L!NE{24,li7,)-(204,VZ), 0: ЖХТ?Х
FGRV?.=61TQi01STEP20:LIHt (24sY7,)-(204fYX)13sNEXm, I •815 t82ATE4}6?0iPRIflTBdu-8RfiSBC7BH32s84E2F2H2Sl8E2B2H3B
LQCftTE32|?, 0-PRlKT*tseBa вея угяов мв®- 0':LIHE{480,B7)-{484,87)I7IB
РШТТЙ8(28)"падает плоская световая волна,"-PRIMTTAB (28)"Вторичные волна, отрамешще отя
PRINTTAB (2)"pasuax слоев- когерентны и будут интерферировать мзду собой“ 835 PRINTTfi3(2!"n0fl06H0 волнан, пбснааеввв в данной направлении разяичанаи“
PRINTTfiB{2)"чсгяии ди§ ракциовнон реветки. При этой, как и в случае ре-° 845 ШШЙ8(2Рвеш, вторнчнне ввавн будут ярашчесйа гать друг яруга"
РВ1г1ТТй8(2)чво ш вапрвяевняя, кроне тех, для ивгорнв разность jepejW, e7WB3,203E5F5Li0° 855 PRINTTA8(2)°HeiEfiy соседннш! шнааи является кратной ддине волн" a. H-L0CATE29,6,i:LIHE{445,210H446,215), 7, В
F0HX=2?T0ii5STEP, 5: V=((X-29>„36>/90+25:РВЕТ (X, Y}, 4iPSETtf4Y+20), 4: ШТХ
F0RX=Ii6TflI99STEP.5f/=(frii4)-„-36)}/90t6isF^?T (^Y), 4s^ET (XJY^), 4sHEHX
FORY=3n05iSTEP20:PSET (5i, Y), 4: LINE-STEP (2,3), 4{UKE-STEP (-4,2), 4! HE)iTY
FORY=32T052STEP20-PSET (179,Y)s41LINE-STEPMsi1,4sLINE-3T?P (-2,4), 4iHEXTV .880 10СЩ5И.""РЙ111Г0^11ЩМ|55)-(38⁵}, 7аЩТЕ29,“)1!С11Ш{52,Ы>),?Л12.35|ЗЛ4:81йШ^ '
K4=INKEY$dFKI-0"THE"885ELSEIFASC (Ks}=i3OTHEM89OaSEIFASE (K“)=136Tffiff§ klSE885
LIKt (216,3>-(509,253), l,3 °F:60SU830:FORY^9TOi5!lOCATElsYX, 0! PRISTSPC|63)!HEXTYX
L0CATE33,2,0 5 PRINTc Нз рисунка видно что0900 8S6l! aC7BH3i)0,42E5F5L10'1 SlOSATE41 <31РЙШТР- 2d SIftS, D: PSETC355,401s7-BRA5f'C7RlBR29BLiiR5e
L0CATE5,5:PRINT"d SiR0"-TAB (20)-„d SinOi':FCRX=43T0180STEP128-PSET (X, 72), 750RA-fC/R18R29BUiR5°-f!EXTX
F0RY=74TO62STEP-2-X={(Y-74)llO)/(-12)HO7.:PSET (X-ljY), 6iKEXTY
F0RY=80TQ62STEP-25PSET{117,Y), 61NEXTY
FQRY=74T062STEP-2: X=(1Y-74)*10)/12+127:PSET (X+l, Y), 6-NEXTY
LINE (226,i09)-(475,i29)"0,8F-LIfiE (227,110)-(474,123), 5, B
PSET (259,120), 7: DRAt!nC7RlBR29BUlR5!!sLiNE (333,li4)-(334,120), 7, B-BRAS', C78'(385,123R6BRi8R6,!
LOCАТЕ32, 10 s PR ШТa Это соотношение нашштея^10ШЕ32,1ШШаФорауяо“ ВША-ВРБГГОВ.*
L0CATE5,i3:PRnJT°8 опять для шавввв значений 4 н 0 ваксваувн поаучавтсяа!1!КЕ (304,199)-(310,199), 7
PRINT! йбШ’ТОМО Дйа дана ш>, удовлетворяв условий ЗУЯЬФЙ-БРБГГ0 В.ЕsZZ=i500sS0SUB202G0SUB155
Ki=IKKEY$jIFK$="r'THE"980ELSE!FASCti<*)=13STHE"985ELSEIFASC (K5)=136THt"785ELSE980
LIi1E (21aj3i-(509s253)} i. jBFiGGSUBBOsFORVX^TOISsLOChTEIjVK^H^F'F^tllSPCfQS)
ФИЗИЧЕСКОЕ ОСНОВУ ГОЛОГРАФИЯ (F0S8.8AS)46
REM Физические основы голографии (F083.BAS) iO CLEAR51CLS: PCLS i LOCATE?! i, 0:6QT020 15 ОДНШгШТ№ 1ШЯ20 дамШИШ&иШХМНЭ^ХМЙМгЩТтГО^
LINE (0,0)-(5l25256), 7,8iLOCAm9,8:PRINTa033H4BCKnE ОСНОВЫ Г0Я0ГРМГгШЕ (135,тН373,128), 7, В ' 30 F0SP=ITQ3-FORC=0TO7:LiKE{136,Hl}-{372,127), C, BFi2=200!6DSUB15-'EnCjSEXTP 35 CLSiPCLSsREH Кедр 1
PRiNTTAB (13)i"За^нксарованну" на Фоэдшдавке „втгр&ерев-“ У 75 PRINTTA8{8)$°ционнуб мртину доввш* Ш0ГРШ08. В!РМ"Т:РМЙТ
LlNE (l5U-(5 111 130))7,8FjLniEl85J7)-(475,55)sOJ8 °F!LIt{E (i05,72)-(439,i07), 0, BF125 lIHE{70,17)-(460,65)si, 8F-LIKE (90,77)-{430jli2), l,8 °F,.LIHE{l, 135)-(510}225)sl, 8F130 18CATE14,2:PRIHT°B гояограбкн исаольэуйтся йсточвйкн све? а{°
PRINTTAB (10)j"которые обладав? ввсокой степевьв вространс?-0
РВШТАВЦО^венной к врекевноа KorspeBTaocTii.":PRiHT
PRINTTA8(13J j"8 вастоя&ее вреня для этого испотувт'
PRIHTTAB (27}-„2 й 3 Б Р U.°rt.OCATE4,iO
PRERT“ Голография принципиально отличается о? оёвчяои § отогра§ киг' Щ PRIST0? ens что ва |отопдастйййе $шнруе"я, а &а?ев восстававяш-* Т7 165 PRINT® ется не ташсо аввдауда (чергш-бэгше и шв? раяыга1″
L8CATE15,21PRIMT °Основная идея гояогра§ ичеекого нетеда! C-LCCATE8,4
РШНРНа фотопластинку вавравлявтся две когеревтвкг 8Шй}в
PRIHT4 прчеа одна т ник надает яа шопласшку непосредственно"
PRINT" (0П0РЯ6Я/, а другая яосяе отрзшшя от об’екта9
PRIHT" (й Р Е Д 8 В Т Н ft Я). В области вошлапшя эти"
PRIHT3 воявн интерферируют, обрасук стоячки катгр^еревпионвии"
PRINT? рисунок^ ве вавасяд&и о? вревеяв в, с-лшватеяьна, регяст-®-
PRIST5 рвруевай^{отопаастивкой.} В этой рисунке { гояограаве }, в"
PRIHT" закодированной ёорне, содержится ВСЕ ошчесш инкарнация"
PRINT" об „б'ет,'тодо 8 „ибо“ шея? врвневв веяно меть“
PRINT0 „няветстввяао аркевТйрб&ашшк потока вонвкроватетввввго'
PRIST® (илн белого) света, которн“ ан§ рагйруя на гологравзе соз-9
PRINT" даст азяме трекерное шбрашвге об’екта.'S80SUB2165
K$=INKEY$} IFK$=n „ТНЕЙ265
IFASC (K$)=130THEN275ELStIF6SC (K$)=i36THEilll5ELSE265 m CLS-PCLSsREf! Кадр 4 ¦ „280 LIKE (l, i)-(510,255), 7, B:LlKE (2,2)-(509,254), l,8 °F:PRimAB (i7)-8noBCBHa сказанное ва прикере:“
LOCATES, 3 гР8ШаЗе LOCATES, Ш РЯШТя0бмк? и 310 10СЙТЕ175ШРШаФотэшвдкЕкг"^^
Al^isft2^ift3=m!M465tF0RIl=lTe7 $L0CATEt2,4sPRIllTe"Bftpm вша“?2"199-.6ШШ5 320 L0CftTE12,4:PRIHTSPCU3)s2=100:60SBBi5sfiEXTIX
LSCATE3,14iFRINF (оперная и предае? ва" шнас-Р1ШТц |арвнрувтсз вз одного аука)"
F0RiX=lT020:L0CATE12,5:PRI"TSPC (17):Z=100i BBSUB15
LOCATE!2,эsPRIIIT0вай йвд' sMWsSBSffilSslffiim
Y=65:F0RX=100TB45STEP-1:Y=Y+1
LINE С a, 55 'j (Xt-i), 3 В- FnRV-54T0Y3STEP5 s? К s ?} - O: -4 s V-t4 HEXTV s КЕТУШ1
FQRI=iT07:LOCATEX, 4sPRINTSPC (13)sZ=iOO:80S!i8i5
LOCATE!, 4sР8ШТв0ворная M-iHa":Z=iOOs6BSUB15:KEXTI:RETUR"
Y=33iF8RX=AlT0A23TEP-l-Y=YH:PSET (X, Y), 4sPSET (X, Y+7b45PSET (X, YU4b4
PSET (X, Y+21}, 4: PSET (X, Y+28MrPSET (X, Y+35), 4iHEXTX
Y=58:f0RX=A2T0A3:Y=Y+1 -PSET (X, Y), 4: P8ET (X, Y*7), 4"Р8ЕШ, УИ4), 4
PSET (X, Ym), 4! P3ET (X, Y+28), 4tPStT (X, Y+35}f4s"EXTX5RETUR-}485 K$=INKEY$:IFKf=°"THEfj485
IFASC (K$}=130THEN495EL3EIFASC (K$)=136THffil90ELSE485 495 CLSsPCLSjREH Кадр 5
IFASC (S^)=I30THEN53taSEIFASC (KS}-136THE?G75ELSE520 530 CLStPELSiREfJ Кадр 6
IFAS^tH3C>TeEN620ELSEIFflSCi?i5*136TfiEN275ELSE6i0 620 C1S-PCIS?REH Еэдр 7
L0CATE12,2:PR5HTBCXBB& ЬЖШВОВЯБШ Ш0ГРАШШ ШОРА"
LIMEt7Ss13)~tч532), i"BFsLXNE (30 577)-(300,173)?4,BsLIME{Ayа120)1205130)32t8 °F 1
LlHE (i20,125)-(150,i25), 2sPSET (130,123)52-DRA3sC2{!135,125!11303i27n
LINE1150,125?-{230^ 35) g2 sLIЙЕ (150
PSET (i92,i02))2sBRASaC2S200,100!ii94,i05″:PSET (192,i49), 2sDRAIioC2H200,150SU95,i45D650 11Щ225,85)4232465), да1НШЗЗ, 85Н238, Ш, 5, BF
LIKE (226,85)-(226,165), 0: LI.'€(228,85)4228,165), 0iCIRCLE (115,125), 40,3,5.81,.47
CIRCLE (185?125), 40,3,2.67,3<6i:PAINT (152,125), 3
S’EST0RE570-FBRIX=n05sREaBX%sYX!CIRCLE^YS}
DATA 270,125,264.122,266,129,265,117,268,135
RESTORE67O:F0RIMTO5-READXy., VK! CIRCLE (XX, YX) s2,7s"xXTI2
L0CATE40,48PRIHTD1- йс-точжп- излучения0 „РР1МТТА8(39)},!2- расешритеяь вучка*
PRIHTTAB (39)5°3- таграш^РЕШТАВ^?!^- ввше й80врш"й“"
PRINTTAB (39)-a5- дейетвитедьвое0: PRIRTTAB (42)jеИСЕБДОСКОпйЧБСКОЕе
PRINTTAB (42)"шбракенне (ваяук-°-1^1ШАВ (42>-0ане участки обката"
Р81ЙТ" В результате -ди§ рагда на 'вайявдав?м как вор-®-
Ш PRINT" гоаограиае 3 образуются т ву?"е й ваоборот)/
PRINT" кзобракевая: нише 4 в дев- 6- наблюдатель11
PRINT0 ствктельвое 5.' sL0CATE12, iOs PRINF1': L0CATE19, lOsPRINT⁰
LQCATE31,6:PRINTa3"sLQCATE26,95PRIHTt:4'!sL0CAT?33,9-PRIMTn5"5CIRCLE (290,i22)"4,5
PAlRT!290,122!, 5: LOCATE37,9iPRINT,!6:CIRCLE (290,122), 2,0:603U82165730 K$=INKEY$:IFKI="THEH730
IFASC (K$)=130TNEN740ELSEIFASC (K$)=i36THEN530ELSE730
CLS:LDCftTElS, 2iPRINTe Недостатка этого аетодаг"
PSET (290,i22), 0sF0RR=lT04-CIRCLE (290,i22), R50-ieTR
LOCATES, 12sPRINTc- нспользувтся только прозрачные плоские объекта}"
PRINT"' вкша рээреаащаа способности"
PRINT3 действительное, авнное изображения к недн§ рагироЕаняое°
PRINT" шучевве накладввзвтся й sesaajsT набявденяв.0i60SUB21S5770 K?=INK?Y$sIFK$="aTHEN770.
IFASC (K$)-130THEN780ELSE'IFASC (P)-136THE№ 2DELSE770780 CLS-PCL8sREii Кадр 8
LINE (1,1)-(511,255), 7, ВраЖ (80,20)-(450,120), 0,8FjLIKE (80,133)4450,205), 0,8 °F 790 LINE (70,25)4 440,127), 1, BF5LINE (70,138)4440,210), 1,3 °F 795 10СШ5,3"РйШ"1тйь4вавйе тааым ваа"т „йьтов в*
IFASC (KI)=130THEN355ELSEIFASC (K$)=I36THEN620EL8E845
CLSгPCLS?LOCATES, 2sREH Кадр 9 .
PRINFCXEHA З. ШТА и Й. УПЙШЕКСА (звуяяучевая cxesa)“
РЯШТШт^предлоаена в 1962 ro: LIt!E (30,72)-{334J204)!i, 3 870 LINE (235,SiH284,109), 7iLINE (124,167)-{152,183), 7-!(=229-Y=77 875
S8d FDRP=iTfi5:X=)ci-7iY=V+4!Li-iE (X, Y)-(X+5,V), 7: KEXTP3PSET{84,116), 4
Ш8аС4Ш8,ШШЗЗ, 17ЯЙ87.175,1314,159?Ш4,19Ш87,175″
Р5ЕТ (41>117), 4: ЭРйГС4Ш!ИШ4,12Щ4,127И41,1170-РА1КТ (78|115), 4
PSET (133,97J 53jORAUaC3rii57,11Ш151,115Н127,
PAlNTdSSJOD.SfPSEKlSa.mj^JDRAK^^^S^j^S0
Р8ЕТ (230,117), 4! ШГ'С4Щ43 585ЙШЛ03й274,Шй265,Ше
CIRCLE (io5s103), 3§}3,5,86,45iCIRCLE (219,103).30,3,2.7,3.6915 circle (162,175), 30,3,5,86,e45:circle (216,175), 30,3,2.7,3.6
PAIOT (192,i03)J3:PAIHT (189,175), 3-LIf{e (314,155)-j323,195)!3,8f
PSET{106Jll), 4:0RAii"C4Hli4,li3fil06,il5°-PSET (135,139)J4!0RA'i!'C4Hi38,145H14i, i39o
F®(249!16S}, 4iDRArC4ft257J167H25i, 169l'sPSET (249,i85), 45DRfirC4H257s185H251513r
PSET (230ail), 4iDRA!<' 4
PSET (265,123), 4iDRArC4f!265,131!1270,125I!5LINE (254s135)-(276,i39), 4
LISE (254,145)-{276,151), 4: Ll?jE{249,15i)-(265,i63), 4
PSETC268sI4iK4s6RKiHC4H27e5i39^703i3§ n3PSETC2^8si5ii,^t0RA"nC4H27^
PSETf 2a0,161}, 4 sORS^ЕС4-)2е55163fi262,159″ ?LIME (227,141) f2
LSKE (236,i41)-(238,m), 0: LnJE{246,i4i)-{247,141)50
Ш (2441тЬ250ЙйГШ27,14Ш38,127й252,ШЙ244|14Ш58гШа970 L0EATE44,5sPRIST" 1 aawp"
PRINTTA8(43)}"2 полупрозрачная* iPRlflTTAB (47)j"властина" 980 PR*NTTAB|43) j"3
PRI8TTftB{45h"4 8epEasa'sPRIHTTfl8(?3)f85 — ofiww"990 PRINTTAB (43}f 6 й<�шшшккй°
LOCATE?, 14: PRINTany?b опорного пучка: 1−2-4−3-6.°
Ш5 Uffii225, m)-(25S, i26), OjtIII{268jm)"f^l, 16&), 4sUHE (246,l38b{354lWMf4
Ш ШтШ8)}'вшдаго-в одной $а", а 8йвй-в!Р81ШЙВ{28)$'йувв в apomoiase/iPRIflT •
REN----ШШЙ----Вариант 1—(вовроев видош с 1 но 15)----(KIOAS)
REN —Вакод в SB® пот сообдеяяя оценки по кяавиве 30 CLEAR-80TQi40
AMNKEY'?-1FAI=""THEN40ELSEfi=A3C (A$)
IFA=26DRA=130THEH fflf N S0T0880,940,1000,1060,1120,1180,1240,1300,1360⁴²⁰, 1480,1540,1600,1650,171 060 IFA0260RA<�Я30ТНЕИ40 70 RETURN .
FOR 1=0 TO 8гК*Ш*в^ЩТШШ 90 FOfi IM TO ZlNEST ZZiRElM
Щ Z=s30?LIf"{45 246}-H88524)l7}S-EfiDSDg90sLIflE{452)16)"(48S, 24), 4JB-80SUB90
A$=IfJKEY$!lFA5="THEN100 ELSE A=ASC (A$)
IF Ш ® A-130 THEN Rf tURN ELSE 100
FOR I=lTO10-L0CftTE3,ljPRINTSPC (55):NEXTI-RETURN
F0RI=0T37{L0CAT?10,6+I:P3IN7SPC{55)jiNEXTI:RETURN150 t IKE f 25,190) -{135, 2C>7}, 1, SF i- FORI=0T06-P0KEsHF716 f 11 BEEP i KEST-
LINE (25,i90)-U35,207), 4., BF{LINEi360(190)-(475,207), 4, BF:RETURH
LINE (360,190)-(475,207), l,8FiF0RI=6T80STEP-liP0KE&HF716fIsBEEPsNEXTiRETURN
K4(0)=!i 1#МВД1Её напвается,.0
K$fl)=el. вдавще ваяв, вряв&мее к ушвввяеввй BBsJC$l2)"" какдеи точке пространства постаяпшй авв
ВДЗ)=Я- шебавйй|'$К${4)"°2. sr-вЁавве воаваав вревятствв!, яр&враде к ш-а 210 К$(5)=" лояеки" от аряшинейвого распространения света,*0
K§(4K3. гавншот шжаэатезя вреловлевйя света от „ро"}Щ7)"* цвета, обусловливайте рагяокенне беязи СБе?®-“ .
Kf (S)=5 на составляйте.9iRETURN
ШОК' № Ш0ГШШВ ПРОЕСХОДНТ 0ГШ8Р. Е БРЕДШАЯ (1)=" ВОЛНАБй? (ВЫВЕРИТЕ ЦРА8ИШШ- I HfeiiBOS
Ш,"Я°:Ш)=' ДОНШШЕ ШШ ШЧШСй Ш
К?(4)=°1, увеличении расстояния L некду экранов й°5Щ5)='> врепятствигв-„г К$(6)="2. увевьаевки L-„:i'$(7) ="3. при любой L.'sBETIIMt
Ж КЯ0)=“ ТЕНЬ ВТ ЗРЕРЩ СТШВНЩ ШЕЕ ОТЧЕТЛИВОЙ,“:Ш1)=П ШШ ВШВДОЕЯЬ.'.11
Ш3)=в1. увеличивает двину воанн света, в которой pac-„sK$H)=“ снатривается преднет-0
Ш5)*"2. увевьвает дянну волна света{°5К$(6)="3. оставляет Ses ибаеневия.".'RETURN
ЭД0)=а ПРИ ШЕРМИЩШ ДОХ. ШШ (ШЕЙ) ОСВЕЩЕННОСТЬ* :Щ1)=Е МШШША, ЕСМ Ш РАЗНОСТЬ X05fi.".°
Ш Kf (3)=°i. равна аелону чаеау йлвн волв-!,$К$(4)="2. равна вецеявау числу щт воав|"
K$(5)="3, равна нечетнону числу дяин полуволн."гЯЕТШ
Ще)=° УШВМЕ 8йШ8Ш 8 ЯЕЮЩШШ ШХЖЛЩ!)^ ПМУЧЕВВ&В С вОВДЫ РЕЗЕШ: dSin и = *.
К${2)=" В ЭТОЙ ФОРМУЛЕ к ДОШО Бт. п 360 Щ4)=° 1. чеши чксйов:" 1^(5)=" 2. пелав чисаон-33, паяуделвв число".":RETURN37?) тт-а в шон wm угол двфвдш be завей вглтк дав вош? (для днграгщаашз решет1. Кй}°
К?(2)="СВЕ?А ?пгК?(4)="1. S рй&анчвдз в частоте мебаний. и1К$(5)="2. С разлйчвен в скорости рсвространев433 '.ЙШ—!: С разятаея в интенсивности света/',*RETURN
К*{0)=" ЛВСпЕРСнЕй 1Шн&аетез,.!':К$(2)="1. 8й&вшос?Ь'вока&ателз преловяенкя света от^ШЗИ" его5bst-3.11
КЦЗ)'4 1. крашй евет5! г|Ш4)=,! 2= зелена* <�®е". в: К${5}=° 3. #rnmomn ise"=B-RETURNт mm*1 ш штт ипт ямшннй свбкш^кшк ври imsm зкрш о? ямцнпк рей ня?"
Расстояние яеяау нашвувавв Дй§ ркцжщ)оиа!К${4)=,! картин" уаевызате8. Е|К}{5)=°2, Рас-стзШ-srкеЕДу ааксйкунана дя^айдвоявой" (6)-я картина увеличатся гс 510 Щ7}="3. Карта ойаает ё§-з шев"яв8."5ЙЕ|®1!520 щои" mm ж сэдт тт,%щ ВРАШ I втмючкшк вошма ЯРЕГРШ"
Щ2)=в агЩЗ)=<�Ъ &ншв.в5&*Ш*в2. 1ейьзя. Е-Щ5)=аЗ, В одння щчш поте, в друт втва.^йЕТШК!
Kf (oj=" ш вптагъюш анмтпнш ввинг^кк!)"" в -овей ввга, mm вне®- .тою свт
LINE-(440,50), 7: LINE-(495,50), 7sLI"E (20,178)-(20f 15)!0?LINE-{435,15), 0зШЕ-{435,55), 0sLUiE-{490,55), 0: Ш
CATE47,13:PRIKFB l В S f И 0″ 740 L0CATE59,6:FRiNTaBD!LQCfilE5?j5PRIWVi^^ E59, lhPRlNTV
ЮШЕ7,ЗгРпМмВан предстоят ответить sa лредлошнне яте bob-„:PR1HT* роен, вкёрав однв (прзвкльвк й на Баш smnsi не“
РВШ" весшыж вредев8ШМи0}1ОШЕ7,7 $Р11ШР'8 езуча* вргвивдаго ответа шер зтегэ-вояраеа® 770 PRINT" внизу экрана выделяется чернна цветок, б bpothbhoh’sPRINT" с-лучае? нонер вопроса не вадеяяет-с в, а. верннй ответ" • .
РШТв оделяется сведав враноуг-овьнакш," iL0CbT?23Sl3sPHIflTM— BAFfiSBf 1 —1"sBDSOBiOOfGOSlffil30790 REH—le--------------800 810 1вШЕ5?, 5"Р8т"1″?даШ80.'В88Ш62 011ШТЕ8,111РВ111Т"ВШРЯЙ БРйВВЯЬйНй ОТВЕТ, ВЙ1&В ffi’IUFB Щ5ФРУ Iй 320
A$=IKKEYf:lFA$=""THEKB30 ,
IFA$=!i2nTHEKPR=PR+h508L!8150:LI№(20,224)-(45,236), l, BFs60SUB100:8G3UB50850 fiV=ftSC{A$)
IF AV>51 OR AV<49 THEM 830 ELSE G08UBi70sLINE (30,80)-(443,lI2), 4, BF:60Sl!3100:80SD'850 870 REH----2b-—-*-—-—-----—880 ?J~2i6QSUB8O!LIME (3O, 8O)-(443,li2)}2sBF-L0CATE5?, 5! PRI!lT"2B:60SUB13O-60S0B16Oi80SUB240iB0SUB620
А1−1йШ$:!РАЬпиТНЕШ90Е13Ей-й8С{А?}
IFftl-31! HEKPR=PR-:-2- SQSUB1 SOs LIKE (S3,224) {109, 236)11,Br!G0SUB100!68SUB5S 970 AV=ASC (AI)
ЙЕН —Выход в 8EBS5. после сообщения оценки во кгавнше 40 €L?ftR:6flT0650
А$=ЖЕ?$: IFft? s"*ТН?Н50ЕЦзЕА=Й5С-Ш) .
IFfi=26QRft=130TSB? OS U SQT0890,950,1010,1070,1130,1190,1250,1310,1370,1430,1490,1550,ШО, 1660, 1720 70 IFA<>26QRA<>130TKEH50 SO RETURN
FOR 1=0 TO 9: K$(i)=0GtHEni:RETURH 100 FOR ZZ=i TO I{NEXT ZZ.-REHM110 2=30″.LIME (452,16)-(48B, 24), 7,8-BI)SUBi0O-LlKE (452,i6)-(488,24), 4, B-60SUBi00 .
А$=1Ш'$:1РА$="СТНЕЙ110- ELSE A=ASC (A5)
IF A=26 8R A=130 THEH RETURN ELSE 110
FOR I=lTQiOiLOCATE3,IjPRlKTSPC (55)?HEXTIiRET®8
F8RI=0T87:L0CATE10,6+IiPRI?JTSPC (55)-sKEXTI-RETliRf{
LINE (25,i9Oj-(i35,2O7}afBFlF®MIO6?P0KE?(HF7isJisBEEPs?jEXTsiETl!R?l
LM (25,190}-(1 355 207}, 4, BF:LI!JE (360,190)-(475,207)J4s8 °F:RETURri
LIK?(360,i90)-(475,2i}7), i,8F-FQRI=6TGOSTEP~l:POKESHF716,I}8EEPsSEXT-R?TURS
K$(0)=° ЯВФРЩВЕ&- называется.,°
K${1}='1, наложение вояк, приводите к установлений вп-К$(2И' шдо» точке пространства постоянной авпжудн3. •
Щ3)=в шебанн"|°|Щ4}=02, огибание вояааан препятствии, приводящее к otu-s: 220 Щ5)=" ягнению от прякоЬнейного распространения света-«
Щ6)="3= еавнсивость показателя преяоввейкя света от егопгК$(7)=а цвета, обусвоьпнвав^се рашаевие. беаого света* 240 Ш8)=а на составляйте, „-.RETIM
Ш0)=в ПРИ Ш08 УСЛОВИЙ ПРОВСХОЛКТ 0Г8ВШБ ПРБДНЕХ6J 1 ≥Q 3ОЩШ? {ВЩРН1 В НРШПЫШ&- I НЙВБОЛ EE"iK${2)=“ ПОЛВЙЙ ОТВЕТ).»
К${0)=" УСЛОВИЕ ЙЙКСН8Ш В ДИФРАКЦИОННОЙ Ш>ШЕ,':!($Ш=" ЙШЕШОё С ДОЩМ РЕЙЕШг ffiin, а = U,
В ЭТ08 ФОРМУЛЕ к Я0Ш0 ВВ! Ь." 370 Ш4)=" 1. четннн чнсйэиг^К$(5)=я 2. цегшн числоа-«:К*(6}=» 3, пелуцеяык чисш,*-ШШ
К${0)=в В МОК СЛУЧАЕ УШ ДИ^РАКЦИЕ BE ЗАВЗСВТ 0! азЩ1}=° ДШН ВОБВН 1 {длв ди§?зкщшшй реват пГ
К$(2)=аСВБТЙ ?в:К$(4)=п1. С раэличиеи в частоте колебании.":К${5)="2. С ргвичиеа в скорости распространен1. Нй, в
К$(6)="3. С раш: чкен в интенсивности света.0sRETURN
Kf (0)=° ЯйСПЕРСВЕй называется.*!К$(2)=01, еависиность вошатеяя презоияения света от"гК$(3}=" его цвета."
К?{4)-°2. «гавйсиность вовазатеаж арбяавяевия света g? e:Kt (5}»" длнвв велвв (вяя' частота) световой.воавн." 470 KS (6)=B35 завйсйюкть вешателя пршвяеввв света от""Щ7)=° угла падения светового пучка на экран."I RETURN
Щ’ОК йРБ ПРБЛОШБНйй БЕЛОГО ЖП СТЕШаШк-К$Ш=0 ЗРИЗШ ЯЙЯБОЛЬЕББ 01КЯ0ВЕНЕБ ВДНХШЕТ., 0 490 Щ3)=" I, красвв" свет^ИС^И* 2. ггяекки свет.0!К1{5)=" 3. § cb?t.°iRETURR500 к$(0)=° ш тттт wim доредношго сдЕЕТРй°гк$(1≥в прв уяйлбввй ашнд от ямршвонню m ВДВ?"
КНЗ)=(, 1. Расстояние вегду ваксиаувам ди|ракцконвон0?К$(4)=в жартвйй увеаьаатсз. а-!(${5)=°2. Расстояниевещ ааксйвунаав лй§ ракаввш8°!Щ&.Ив картава увеличатся, 0 520 КЦ7)=аЗ, Картина останется бег «задавн*.*-.RETURN
Щ0)=п НОШ, 18 еводаь ДОРАВДВ ПРОСТО К 0ГЩтИв:"Ш*в ВОГШАйЕ ПРБГРЙД?»
К№" Я-МЩ-Ч> H8"m."jKf (5)^3. В йдйшг случаях вехво, в других вешвЛШШ
K$(0)=u Ш НЗЙЕИЙТСЯ ШТШ ЙНТЕРФЕРЕНМШ B0IS0C: K$(1}=" В 0HBSE МГй5 ЕСЯН В88СТ0 КРАСНОГО СВЕТА"
МО Ш2)='! ВОСПОЛЬЗОВАТЬСЯ ФЯОЯЕ1Г0ВН8? иiК$Н)1. Расстоавие вещ ваксивувани уветатся," '
К$С5|="2″ Расстояние веад ваксивунааа Ивтер§ еревцшгавне пояасв о? красного в*
Щ7)=° §-йбаетово№ света штжмсл друг- на друга."iRETURH
Щ0)=" ПРИ ПНТЕРФЕРЕНЦай ШРЕНШХ СВЕТОВЫХ ВОЙН."
REK------------врограава----------------------------------
LBCATE.nJieLStf^LSsBII®-!!^^^^ *A (0):XX{12)=0:LUmfO):PAIf}T (0,0), 4: DIH^(16)
LIRE (1,1)-{510,254), 0, В:иКЕ (6,6)Н504}250), 0, В5РАШ{2,2), 5,0:L1NE (3,3)^507,253), 7, BsLI"E (15,ll)-{440,li0!LINE-{440,50), 0sLHjE-(495,50), 0, B^IKE-(495,i83)s0,8tLIKE-{15,183), 0,8:Ll"E-(15,ll), 0 670 PAINT{100,12), 2,0jl.l№(15,i83i-(15,il), 7-LIHE-{440,il)s7
LINE-(440,50>, 7: LIHE-C495,50), 7-LINE (205i73)-(20,15), 0-L1"E-(435,15), 0: LIKE-(435,55), 0sLINE-<4?0,55), 0iLI? l
CATE47,13jPRIBT°H S В E P H 0° 750 L0CATE59,&:PRINTrb°!L0CATE59,7!PRINTV:L0CATE59,8sPRINTV:LCCATE59595PRI"T0p" :L8CATE59,i0:PRmV:l0CAT E59, il:PRINTec°
LBCATE7,3-PRINTeBaB аредетовт ответить на вредложеввне шж Bon-«:PRIKTD роев, вкёрав одвв (врзвильнн й на Ваш взгляд) us*
FRIST» яесшшх вредшеннш:. «sLBCATE7,7iPRM"B случае правильного ответа кокер этого шзроеа». 780 PRINT1 внизу экрана вндеяяется чернив цветов, в вротиввон"sPRINT" случае, вовер вопроса ве ввдеяяетс з" а вервий ответ0 ,
IFfi$=e i UTHENPR=PR¹:60SU8160:LINE (20,224)-(45,236 i, 1,8 °F!S0SU8i10:G0SU860 860 AV=A3C (AI)
IFft$=э2!iTHEKPR=PR+2:SOSIi&-l60:LIliE (52,224) -{77,236}, i, BFiG0SUB110s60SUB60920 АУ=Й86(А$). :¦
IFAV>5iORAV<49THES900ELSE60SUB180tLINE (27,95)-(384}ill), 4, BF560SUB110s60SUB60 940 REH----3в-(13)---------------
H=3i60SUB90: LIHE (27,95} f 384, 111), 2, BF i LQC6TE5?, 5 г PRINTS": 80SUB140:60SU8170:80SUB530 s 60SUB630
A"=IRKEY$-IFA$=°°THEN960ELSEA=ASC (A$)
IFft§=®2"THEMFR=PRs-2^ BOSUBIAO- LIME (63,22ч)-110?j236)? 15 BF980 AV=ASC (A$)
КОНТРОЛЬ ЗВАНИЙ. ШЕСТВЕШЕ ЗАДАЧИ. (8Ш.8АЗ)
ЙЕН Блок контроля ттй (BKZ8.BAS)10 LOCATE, 0: tt?AR8500
OIK А$(4), ОТ$(260)-Ш=О-Ш0 120
FGRYMTDI5-LOCATE!?Y%sPR'M" Равливовка зол stsst
PRINTS «:"EXTYS$L0CATE2,7!pRIf!Ta0tBEI: °:RETURf{ 55 RE» g/П ВВОДА 01ВЕТЙ С ШВБМУРЬ! 60 IF MZ%≤12 THEN PPX=0 ELSE PP7.=12
R=0-F0RSS2=((Ш-РР2)М)-9Т0<{NZX-PPZ)"10+9)-10:REri 9 строк ответов70 ft=R* 1- IFR<2THERL0CATE9,7, i sLIKEISPUT 0Т$Ш)'.Ш080
PRINTTABd)|iLI>4EINPUT QT$(SS?)
IF RIGHTKOWSSXhD-T THEN85 ELSE MEXT SS%85 RETURH90 80SU625: BEEP:REH Ватте <Ю
LINE (385,225M491,237), 4, BF:LIHE (384,224)-(492,238), 0, B
L0CHTE49, i5sPRIflISPC (i51- Z2=700tS0SHS25:LDCATE50? 15sF'RIfITcHasaKTS <�Ш>П-П=70Й-808Ш?25 105 A$=IHKEY$iIFA$=uoTHER100ELSEIFASC (A$)=13TKEM RETUR'1 ELSE100
MZ%=N2X+liCLS:L0CATE2,1 iPRIWTB3asa4a°H2%iDRA"nC2BHS, 14R45"5RETURNiREH ГШ-новер задачи 1−12.
KIS=NZ?:-H:€LSiLQCATE251 sPRIMTp3aaa4aB55Z%iDRSSBC2BMS, 14 873°iRETlSRKsREfi ШНкшер задачи 13−24 120 LOCATE,.OiCLSsPCLS4125 1ШЕи, 1>-1510,255>|7,8|&ВА9иС7ВЙ20,2Ш255.Ш1490?20й^70а25″
DRA3,C7H490,235i1244,215fl20,235ti40,125H20,20"sPAI"T (2,2}, 2,7
PRINT Ш1(27}-0З^ШЖ25,ШШ8ББ M W Ц"
L0CATE17,8sPRINT°KS 00 SH 11 PP 00 SI ЯЯ"
L0CATE2i, 10: PRHIT"33 HR M SH BB }lfiss8BSUB30
CLS:L3CATE9,7:PRIHTeSK Ш ЧЧ EE Й -IT 88 EE SH ЙН Щ EE6 '
LGCATE21,9sFRlNT°33 M I M ЧЧ B8″!2X=4000:S0SUB25sCLSf:PRIM7CHR5(27"2″
CLSsREti эту строку поток стереть!
LINE (2,2H509,254}, l, BFiL0CATE8,l:PRI<)riekcs, ваписгнвнй ввже прочтите ОЧЕНЬ ВНВШЕЙЬНО." 170 LIfJE{50,14)-(458,14)?4:PRIHT
PRIST" чаш экрана taw ввгяада? так?), Набор шяоЗ стро-°235 г’ЗШР ки Е: а?зачйва"те'йажатйеи клавиш ВВОН (енввея sD
DRA8*C78"347,193D10L9Q3H5E5D3R5L<6R48H355,19 1017L29U17R29″
PRINT3 конце строки ваповивает её зтон). Цосл"рин «иввояон в ков-„
PRINT* -t>s ответа НЕ ЗШДТЕ поставят* знак *, 0-Zy,=4000:8Q3U890
CLSsB0SUS40:LIUE (2,2)-(509,254), ljBF3REfi ВТОРОЙ Ш ¦
L0CATE26,l!PRINTaB Р 8 $ В P':LINE (192,13)-(293,13), 4sL0CATE2.3
PRINFBOnPOC- Что такое 0№?"'.GQSUB45:Z'M000t6BSIJB25
А1Ц)=а0*ВЕ?г Оптика это раедея Ihskeb, б квЩ’Ж иеучет-ся оя-1°
А1(2)="тическое излучен (свет), яроцесгн его распрвегравенвв!*
А*(3)=°и явленна, наблвдзенве при вгаинояействии света и ве*ест-Г-А$(4)=*ваЛ1'
FQRI7.=lT04sFQR8X=lTQ60:^$=HI0 $(ft5{I%)JeX^>:IFK"$=utaAHDI7.=4THEN295ELSEIFKH$=u“, THeH NEXTIX 290 L0CATE2,6*IX:PRINT LEFT?(А$Ш), B7.)sZX=120s60SU825!IIEXTBX> HEXTII
BEEP s FOR I? i=1TQ9 iLOCATE5,10 s PRI NT» «:ZZ=500:8Q3UB25-L8CATE5,10:PRKJTor :ZX=500s60SU825:f!EXTI7.
ШАТЕ2,11 iPRIST»! S! He «ав»?ь шш? , призвак окоетаивя отвега. 0305 иШЕЙ, 1Ш1НТвВавй ответа ааанка замает на явсх,"
ШАТЕ13,13sPftliJFa у^ктэйь проверит hi: правильность.8sZX=5000s60BU890
CLSiS0SUB40.iREfi СЛЕД. gfifiP
L0CATE20 j 3,11 PR I fiTп В рг д ставьте ct пояглуйста,'11 325 LOCATES, 5sPRINTSPC (50) !
L0CATE545iLINEIMPUTHBaisa «-FA$iIF FAS=80THEN Ffi"=!i 0
L$=LEFT$(FAI, l):IFA8C (L4)>191ANi)ASC (L?)<256THEN355
ИЭДЖЯВДМитЧа&мн se нм» начинайся с '"l*"'* яерё!""е sa русский""
Р8ШТАВ{4) «алфавит, а повторите ввод.»
Z2=3000г 80SUB25: BEEP: LOCATES, 6 sPRIHTSPC (50):PRINTSPC (60): 68T8325
IFASC{L$≠2340RASE (lf)=255GRA8C{LI)=2490RA8C{Lt)=248THEN365
IFASC (L$)=2020RASCfL*)=2230RASC (L$)=2i78RASC{L$)=216Tlffi$ 365EL8E370, 365'BEEPiLOCATES}бгРЙТЙГФайМаий ее saset начинаться с- буква '*Ue<, яовторите вводге1б9Т0350
IFASC (Li)>223ANDASC (iJ)<256THEfl385375 8EEPsL0CATE5,6:PRIflTcEsB!mHTe, т §-авшпш принято аншь с бозыэой буква." 380 PR1NTTAB (4)"Повторите ввод. п?80Т035& 385 L8CATE5,6:PRIKTSPC{50)
LOCATES, 6: LI"ElNPUT"Ras г- °-MsIF 1Н"=ааТНЕЙ 1И*=" П
L$=LEFT${IHf, l)5lFASC (L$)>19iA!iOASC (L$)<256THEN415
BEEP-L0CATE5s7!PRII5Ts8ss ве шяет начинайся с яеревдвте на русский"
РВШТТАВНГапбавйт и повторите ввод.0410 2%=30001G0SU825 г ВЕЕРiLOCATES, 7 s PRINTSPC (50)"PRIHTSPC С 60) i
IFASC (L$)=2340RASC{L$)=2558RASC (L$)=2490RASC (L$)=248THEN425
IFABC (L$)=2020RASC (Lf)=2230RASC (L$)=2170RASC (L4)=216THEfJ425ELSE430425 8EEFiLflCATE5,7:PRIMrSsH не mm? начинаться с буква 'W, повторите вад^гбОШО
IF ASC (L$) >223ftflD ASC {L$) <256THEf!445
BEEP г LOCATES, 71 PR IHT" Извин? но иая принято писать с ёояызой букве/0 440 РЙШТЙВИГвовторкте ввод. л:60Т04Н" 445 LOCATES, 7: PRI8TSPC (50): '
LOCATES, 7: LI"ElNPUTaKaKaa сегодня дата (05.04.95) C-DA$-IF 0А$="иТНЕЙ 0А$=" «
IF VAL (dID$(0A$U, 2))>0 AND VAL (HI0HDA$, i,2))<32 ТНЕЙ 460 EL8E480
IF Ж{ЙШ (САМ, 2))>0 AND VAL (HID$(0A"S4,2))<13 THEM 465 EL8E480
IFLEfU OA*)=7THEN0ft$=» 8+0A$ ¦
IF VAL (HID$(DA$, 7,2))≥(«A® VAL (HID$(0A$, 7,3))≤9? THEK475 ELSE480
IF {timf (f)Ats3,lHV) fifSD (HID$(BA$, 6,1)=V) THEM 495 ELSE480
BEEP: L0CATE5? S: PR I „}T“ Вк 'вепраьвльво ввели дату ~
PRINTTA8(4)"ilOBTopaTe ввод."5
ZX=2000:80SUB25 г ВЕЕР: LOCATES, 8: PRINTSPC{50) — PRIflTSPC (60) — 80T8445
CLS:L0CATE5,2-PRIf"T !eгР"1КТй Вашв ответа на качественные гадания будут шисанн на 500 PRINT» диск, возтоку Bas необходим ввести У8ВШЫГОЕ ивя |аияа, я 505 РйЭДГ в который произойдет' завись.0
PRINT" йня №а ЯоШв бить НЕ БОЛЕЕ 6 букв ЗАТЕВСЕОГО"
FRJRF аа|авнта, наарннер, 4 буква |анилий н'2 ввенв (Иванов®-
PRINT" Петр ння §-айааг IVAKPE)."525 LOCATES.11:PRIRTSPC (
LOCATES, И, 1 гШЕЮТРёня |зГша ?U-FF$ 535 IFL0I (FWK=MH01555 .-.
BEEPsl8EftTE3,12sPRi"T"B дан" faSaa мшь &-Ш Ш БОШ, а свнвоавв." 545 PRINT" Повторите ввод."
Z%=5000:B0SUB25:ВЕЕР г L0CATE3,12,0s PRIMTSPC <60):PRINTSPC С 60>:60Т525 555 FGR87,=1T0LEH (FF$) «' .
IF ASC (WD$(FF?, ВХ11))>64 &-Ш ASCffiID$(FF$, BM) K91 THE» ЯЕПВХ:60Т0570
BEEPsLOCATES, 12: PRINTвВ ияенй йайла должна бнть ШШ ЗШШНЕ ЙАХННСКЙВ БУШ."JGQTQ545
CLS:L0CATE7,3,0:PRINT°8m, fiIK$°, сегодня «.а
LOCATES? 5: PRINT"Ваши ответа буду? записаны в fiBft Файла
LQCATE10,7:PRINT FF§ a$i, OAT яервав часть ответов,»:L0CATE10,8:PSIHT FF$°$ 2.0AT — вторая часть ответов,' 585 L0CAT?26,I3-PRINTeXeaa" успеха! J:Z/S=1000i60S0B90590 8DSUB40:60SUBA10:LOCATE 131iiPRIЙТЯВа рисунке скшавдески изображены воанн краевого,"
PRINTT68{ 12) «Фиолетового a штзго света, Кйшу цвету еоответ-0
PR1HTTABU2) „ствует издан война? кайСАТЕ355-РйШ!!а)ПАВ{гЗ)мё)вШН5)пв)!!
FORX^-jiTOISOSTEPaSlPSETCX, 70i-SIM342, 70:!-8№(0.}75ЙЕШ 610 8Q8UB45! BQSUB55−80SUB40{8QSUB110
LQCATE13,2:PRINT°Kose6aBB8 какого вектора Б мш В в световой волне“ 620 OPilf С7Б1Ш4- 15RiOH2F2B3i' 50RA9BC78H342, i5RiOH2F203n 625 РВШШ (Щ8деиствуш- ва сетчатку raasa v.
L0CAI?l3?i?PnTHTaBory? т яве &-тщи на небе когерш-ншн0 640 PRIUTTftB (12)"всточавкавй света?» 645 B0SUB45: BDSUB55:6DSLIB110
LQCATtl3,l!PRIKTe06i, HCHHTe, почену неметея цвет атичьйх перш11
РЙЩШ8(12)в (напривер, ветушшого), нерпаяутра, Еевчуга, хйтя-" 865 PaiHT" нового покрова йноги* васемавк арв повороте на ра&вне у&trade-&bdquo-° 870 S0SUB45−60SUB55: 10 875 10ЩЁ12,1,0|Рй1йГ8с?очанв тщ was на&вдатезя в вевроврачвое тево"
LQC6TE2S, 2? PR ЩТ"расяоаойенн т, как показано на ри-а"ШЙТТА8(27)"сувве (расстояние от иша на&вда-6 885 РВШШ27) Чш до вставш Ш? а .йвшв —
LQCAT?13,l5PRINTf'fl04eKy s йеатраяьйО:1 частя спектра, волучеяаого яас '
PRINTTASj 12) «экране при освеаеннн й^ракцйонноя ревеш*. белив» 990 PRIUTTАВ (12)0светой, всегда: нЬщмся Йеяая пойоска? вг8ШВ45!8081Ш55.*Ш!ВШ г 995 UCftTE13, lsP8JRIBKas мэненяется картина дв^ракцковного спектра*

Заполнить форму текущей работой