Code-Beispiel

Grafische Darstellung der Funktion z=x²-y²

Lizenz:	Erster Autor:	Letzte Bearbeitung:
Freeware (proprietär)	Sundboy60	12.07.2023

Es wird die Funktion z=x²-y² grafisch dargestellt.
Die Quelldatei stammt ehemals vom 'robotron Z9001'.
(Aus frühester Steinzeit!)
Ich habe sie auf meinen Bildschirm mit 1.920x1.080 Pixel angepasst.

'' -------------------------------------------------------------------

'' Datei: Funktion z=x²-y².bas (robotron Z9001)

'' (p) Sundboy60, 1985 bis 2023, letzte Aenderung 12.07.2023

'' -------------------------------------------------------------------

    #INCLUDE "fbgfx.bi"

    DIM AS INTEGER XB, YH : SCREENINFO XB, YH

    '' bei meinem Bildschirm ergab dies: XBxYH=1920x1080

    SCREENRES (XB, YH, , , FB.GFX_NO_FRAME, )

    SETMOUSE , , 0 : COLOR 15 : WIDTH 1, 1

    ?,,, !" Darstellung der Funktion: z = x\253 - y\253"

    ?, !"\9Sundboy60 (1995-" & RIGHT(DATE, 4) & ")"

    DIM AS DOUBLE W = ATN(1) / 2, CO = COS(W), SI = - SIN(W)

    DIM AS DOUBLE F1 = XB / 10, F2 = SQR(XB), F3 = 25

    DIM AS DOUBLE ZR, XP, YP, S1 = F3 / 100, S2 = S1 / 100

    FOR DL AS INTEGER = 1 TO 2

        FOR XR AS DOUBLE = - 3 TO 3 STEP S1

            FOR YR AS DOUBLE = - 4 TO 3 STEP S2

                '' temporaere Pausenschleife:

                FOR P AS INTEGER = 1 TO 25000 : NEXT

                ZR = XR ^ 2 - YR ^ 2

                XP = FIX(F1 * XR + F3 * YR * CO + XB / 2)

                YP = FIX(F2 * ZR + F3 * YR * SI + YH / 1.6)

                PSET (XP, YP), 10

        NEXT : NEXT : SWAP S1, S2

    NEXT : ?, !"\9[Taste] Programmende" : GETKEY : END

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 12.07.2023 von Sundboy60 angelegt.
Die aktuellste Version wurde am 12.07.2023 von Sundboy60 gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.