CLS '**************************** '**GRAFICO TRIDIMENSIONAL** '**************************** LARGURA = 320: ALTURA = 200: VA = -1 XFAL = 5: ZFAL = 2 TAMANHO = INT(LARGURA / XFAL / 2) PROF = INT(ALTURA / ZFAL / 3) LOCATE 10, 3: PRINT "CALCULANDO" '************************* '**CALCULA O GRAFICO** '**OBSERVAR TEXTO PARA** '**VARIA€OES** '************************* INICIO = 5 DIM G(TAMANHO, PROF) FOR A = -PROF / 2 TO PROF / 2 FOR B = -TAMANHO / 2 TO TAMANHO / 2 LOCATE 23, 3: PRINT "A>"; A: LOCATE 23, 12: PRINT "B>"; B X = A * 18 / TAMANHO: Z = B * 18 / PROF Y = (SIN(X) + COS(Z)) / 60 G(B + TAMANHO / 2, A + PROF / 2) = Y * VA * ALTURA NEXT B, A '*********************** '**DESENHA PLANO X-Y** '*********************** SCREEN 1 FOR Z = 1 TO PROF XBASE = XFAL * Z ZBASE = ALTURA / 2 + Z * ZFAL + INICIO * VA XVELHO = XBASE + XFAL ZVELHO = 191 - ZBASE + ZFAL + G(1, Z) FOR X = 1 TO TAMANHO XNOVO = XBASE + X * XFAL ZNOVO = 191 - ZBASE + X * ZFAL + G(X, Z) LINE (XVELHO, ZVELHO)-(XNOVO, ZNOVO) XVELHO = XNOVO: ZVELHO = ZNOVO NEXT X, Z '************************* '**DESENHA O PLANO Z-Y** '************************* FOR X = 1 TO TAMANHO XBASE = XFAL * X + PROF * XFAL ZBASE = ALTURA / 2 - X * ZFAL + PROF * ZFAL + INICIO * VA ZVELHO = 191 - ZBASE + ZFAL + G(X, PROF - 1) XVELHO = XBASE - XFAL FOR Z = 0 TO PROF - 1 XNOVO = XBASE - Z * XFAL ZNOVO = 191 - ZBASE + Z * ZFAL + G(X, PROF - Z) LINE (XVELHO, ZVELHO)-(XNOVO, ZNOVO) XVELHO = XNOVO: ZVELHO = ZNOVO NEXT Z, X END