| |
| |
|
p.specht
 | Auf Oszilloskopen mit Leuchtröhre sah man früher oft interessante Figuren, die von einem in x- und in y-Achsenrichtung mit unterschiedlichen Frequenzen und Phasenlagen angesteuerten Leuchtpunkt erzeugt wurden. Im nachfolgenden Programm kann man sich diesbezüglich durch geeignetes Umprogrammieren austoben.
Wer immer Lust hat, Regler und Drehknöpfe einzubauen, ist dazu herzlich eingeladen. Berühmt sind die mit XProfan erreichbaren Grenzfrequenzen aber nicht, da müssten wir schon mit Inline-Assembler oder XPSE ran. Feel free!
WindowTitle "Lissajou-Figuren":WindowStyle 24:Window 0,0-%maxx,%maxy:cls 0:showmax
declare xg&,xh&,yg&,yh&,pi2!,w!,x!,y!,phi!,n!,ewig&
xg&=width(%hwnd):xh&=xg&\2:yg&=height(%hwnd):yh&=yg&\2:pi2!=2*pi()
Repeat
n!=0
whileloop 0,xg&,6
n!=n!+0.1
phi!=&Loop*pi2!/xg&
MCLS xg&,yg&,0:StartPaint -1
usepen 0, 1 ,$00FF00
moveto xh&,yh&+300*sin(phi!)
whileloop 0,xg&+5,6
w!=&Loop*pi2!/xg&
y!=sin(n!*w!+phi!)
lineto xh&-500*sin(w!) , yh&+300*y!
Endwhile
EndPaint:MCopyBMP 0,0 - xg&,yg& >0,0;0
endwhile
until ewig&
|
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 23.05.2021 ▲ |
|
| |
|
(931)
Deutsch
English
Français
Español
Italia