DIBUJO ASISTIDO POR ORDENADOR LISTADO 2

    DECLARE FUNCTION F! (X!)
    CONST PI = 3.141592654#
    XMIN = -2 * PI: XMAX = 2 * PI
    YMIN = -2: YMAX = 2
    XS = XMAX - XMIN
    YS = YMAX - YMIN
    XC = .5 * (XMIN + XMAX)
    YC = .5 * (YMIN + YMAX)
    IF (XS / 4 > YS / 3) THEN
    SXMIN = XMIN
    SXMAX = XMAX
    SYMIN = YC - .5 * XS * 3 / 4
    SYMAX = YC + .5 * XS * 3 / 4
    ELSE
    SXMIN = XC - .5 * YS * 4 / 3
    SXMAX = XC + .5 * YS * 4 / 3
    SYMIN = YMIN
    SYMAX = YMAX
    END IF
    ' 640x480
    SCREEN 12
    WINDOW (SXMIN, SYMAX)-(SXMAX, SYMIN)
    LINE (XMIN, YMIN)-(XMAX, YMIN)
    LINE (XMAX, YMIN)-(XMAX, YMAX)
    LINE (XMAX, YMAX)-(XMIN, YMAX)
    LINE (XMIN, YMAX)-(XMIN, YMIN)
    LINE (XC, YMIN)-(XC, YMAX)
    LINE (XMIN, YC)-(XMAX, YC)
    NP = 100
    PX = (XMAX - XMIN) / NP
    X0 = XMIN
    Y0 = F(X0)
    FOR I = 1 TO NP
    X1 = X0 + PX
    Y1 = F(X1)
    LINE (X0, Y0)-(X1, Y1)
    X0 = X1
    Y0 = Y1
    NEXT I
    FUNCTION F (X!)
    F = SIN(X) 
    END FUNCTION

Índice