u A100:20: *** LISSAJOU.BAC *** GE0.001:SZ1GE:PP3.141592 " *** LISSAJOU ***" :"Hinweise ab Zeile 30000!"!::SR$"Taste":150:210(!100::M!$"Frequenz in X - Richtung: ";FXr!."Frequenz in Y - Richtung: ";FY!8"Phasendifferenz"!B"(Vielfaches von Pi) ";PH!L600:HO0:VE0:CN1:620:CN0!VHO0.9999:VE0:630!`HO0.9999:VE0.9999:630"jHO0:VE0.9999:630*"tHO0:VE0:630M"~UX1FX:UY1FY:PAPHPP:1350e"UM2PPKV:SCUMSZ"HO0.5:VE0.50.49(PA):620"T0 UM SC"HO0.50.49(FXT):VE0.50.49(FYTPA)"630"T"SD20:450:250"IN$"" 1220 #210:100+#"Noch einmal (Y/N) ?":210<#IN89 1010E#950L# d#  Unterprogramm KGV# Ermittelt kleinstes gemeinsames Vielfaches# von UX und UY.#( Dabei wird bis zur Genauigkeit von ge#2 gerechnet.#< #FN1:M1$PSUXM:UUYN:DFSU'$Z(DF)GE DF0>$dDF0 NN1:1360U$nDF0 MM1:1360`$xKVS:g$0u $:u Das Programm zeichnet die von osillographischen$Du Messungen her bekannten Lissajous - Figuren$Nu auf den Bildschirm.%Xu Die beiden zu ueberlagernden Frequenzen sowieR%bu deren Phasenlage zueinander koennen interaktivj%lu geaendert werden.%vu Ein geschlossener Kurvenzug kann sich nur dann%u ergeben, wenn die beiden Frequenzen im Ver-&u haeltnis ganzer rationaler Zahlen zueinander &u stehen.<&u Empehlung: Fx=34; Fy=38; Phase=0.5o&u Das Ende der Berechnung wird durch einen In-&u tervallton akustisch signalisiert. Durch ein-&u maliges Betaetigen einer Taste wird der Ton 'u abgeschaltet, die Grafik kann in Ruhe betrach-B'u tet werden, bei Betaetigung einer weiteren Tastex'u wird der Bildschirm geloescht und das Programm 'u fortgesetzt.'u '} *********************************************' } * *.(} * LISSAJOU.BAC *b(} * Erzeugung von Lissojous - Figuren *((} * *(2} * Heimo Ponnath, Hamburg 1989 *(<} * *2)F} *********************************************f)P} * *)Z} * entnommen aus: *)d} * Ponnath,H.: Grafik - Leckerbissen fuer **n} * Feinschmecker *6*x} * in: DOS extra 12/90, Seite 135 ff. *j*} * **} **********************************************} * *+} * Anpassung an Basicode auf KC compact: *:+} * *n+} * Frank Berndt *+} * Rudolf-Hable Str. 5 *+} * O-8106 Radeburg * ,} * *>,} * 03.01.1991 *r,} * *,} *********************************************,} Erstausstrahlung: Deutschlandsender Kultur,~-spezial 910123 *,}