dioptria.bas kompilator GWBasic
Krótka instrucja obsługi programu "dioptria.bas"

Program służy do obliczania powiększenia przedmiotów oglądanych przez soczewki grube -
kule i cylindry. Zakłada się dwie płaszczyzny refrakcyjne, o takich samych promieniach
"R" i odległe od siebie od 2R. Kula (cylinder) znajduje się w powietrzu
(współczynnik załamania n1=1.0)
--------------------------------------------------------------------------------
Program napisany jest w języku Basic, dołączony kompilator+intepreter GWBasic,
pod DOS-em

Ładowanie F4 "dioptria"

Uruchamianie F2

Wyjście z Basicu przez  "system"
--------------------------------------------------------------------------------
Progam pyta o współczynnik załamania "n", promień kuli i odleglość przedmiotu
od kuli (czyli powierzchni załamującej, znajdującej się dalej od naszego oka)
Oblicza odleglość Q1 obrazu powstającego przez załamanie na pierwszej powierzchni
i powiększenie I1.

Ten obraz staje się przedmiotem dla drugiej powierczhni załamaującej: program
wylicza odległość nowego obrazu Q2 (od drugiej, czyli przedniej powierzchni),
powiększenie I2 przez drugą powierzchnię załamującą i
całkowite powiększenie I, w stosunku do przedmiotu (oryginalnego).

Ujemny znak powiększenia, w przyjętej tu konwencji znaków oznacza obraz nieodwrócony.
[Jednoskti pomiaru odległości są nieistotne, oby stosowane konsekwetnie]