DIBUJO ASISTIDO POR ORDENADOR LISTADO 3

    DECLARE FUNCTION FY! (T!)
    CONST PI = 3.141592654#
    TMIN = -2 * PI: TMAX = 2 * PI
    XMIN = -10: XMAX = 10
    YMIN = -10: YMAX = 10
    XS = XMAX - XMIN
    YS = YMAX - YMIN
    XC = .5 * (XMIN + XMAX)
    YC = .5 * (YMIN + YMAX)
    BORDER = 1.05
    IF (X3 / 4 > Y5 / 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 (BORDER * SXMIN, BORDER * SYMAX)-(BORDER * SXMAX, BORDER * 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: PT = (TMAX - TMIN) / NP
    T = TMIN: X0 = FX(T): Y0 = FY(T)
    FOR I = 1 TO NP
    T = T + PT: X1 = FX(T): Y1 = FY(T)
    LINE (X0, Y0)-(X1, Y1)
    X0 = X1: Y0 = Y1
    NEXT I
    FUNCTION FX (T!)
    FX = T * SIN(T)
    END FUNCTION
    FUNCTION FY (T!)
    FY = T * COS(T)
    END FUNCTION

Índice