Постановка задачи Составление блок - схемы Составление программы Анализ результатов

S S»S» С В А Схема. Ход лучей в трехгранной призме. α β

SIN(α) / SIN(β) = n

Так,как n = n 2 / n 1, а n 2 / n 1 = v / c, получаем: SIN(α) / SIN(β) = v / c

SIN(β) = SIN(α) * c / v

v = λ * ν, поэтому SIN(β) = ( SIN(α) * c ) / (λ *ν)

с – скорость света, с = 3*10 8 м / с ν = частота падающего света, ν = 6*10 14 гц λ = длины волн, соответствующие основным волнам, имеющихся в падающем луче. λ = а*10 -7 м волны Красный Оранж.ЖелтыйЗеленыйГолубойСинийФиолет. а6,235,785,464,914,614,354,06

После упрощений получаем: SIN(β) = 5*SIN(α) / a

Смещение луча от оси равна: X = D*tg(β), где D – расстояние то призмы до экрана.

Так,как tg(β) = SIN(β) / COS(β) а,COS(β) = 1 – SIN 2 (β) Получаем: X = d* SIN(β) / 1 – SIN 2 (β)

НАЧ α,D λ ( I ) X(I) SIN(I) КОН Вычерчивание призмы,лучей,спектра Блок – схема.

Программа SCREEN 9 DIM U(7) DATA 5,1,9,2,42,41,4 FOR Y = 1 TO 7 READ U(Y) NEXT 5 CLS 6 REM "Дисперсия света" 10 PRINT "Введите угол падения,А " 11 INPUT a 12 PRINT "Введите растояние до экрана,D" 13 INPUT D 14 REM "Вводим длины волн,L" 20 DIM L(7) 21 DATA 4.06,4.35,4.62,4.91,5.46,5.78, FOR I = 1 TO 7 40 READ L(I) 50 NEXT I 55 REM "Вычисляем углы преломления" 70 FOR I = 1 TO 7 80 S(I) = (5 * SIN(a * 3.14 / 180)) / L(I) 90 NEXT I 95 REM "Вычисляем смещения" 100 FOR I = 1 TO X(I) = (D * S(I)) / SQR(1 - S(I) * S(I)) 118 NEXT 119 CLS 120 REM "Вычерчиваем лучи и призму" 121 LINE (30, 80)-(100, 60) 122 LINE (100, 60)-(110, 60) 123 PSET (120, 40) 124 DRAW "m120,40 m105,70 m90,40 m120,40" 125 LINE (110 + D, 20)-(110 + D, 200) 126 PSET (30, 80) 127 DRAW "m35,80 m25,80 m30,80 m30,75 m30,85 m30,80 m27,77 m32,82 m30,80 m32,77 m27,82" 128 PRINT at(3, 6); "S" 130 FOR I = 1 TO LINE (110, 60)-(110 + D, 60 + X(I)), U(I) 141 CIRCLE (120 + D, 60 + X(I)), 2, U(I) 150 NEXT I 160 LINE (115 + D, 20)-(125 + D, 200),, B 170 LINE (20, 10)-(130 + D, 210),, B 180 END

Результат