26.1.. Prikaz sinusoidalne promjene. Napisati program koji prikazuje promjenu naizmjeničnog napona u funkciji vremena.
Opis rješenja: Poslije deklarisanja varijable u matrici se postavljaju vrijednosti koordinatnog sitema (REM koordinatni sistem). Zatima se izračunavaju vrijednosti tri sinusoide i smješta u matricu sin1 (REM koordinate sinusoida ...). Prikaz izračunatih vrijednosti sinusuoida tj. vrijednosti iz matrice se izvodio na kraju (REM ipis na ekran iz matrice). Ispis matrice po x-osi je ograničen sa varijablom t. Ovim se postiže dinamika tj. kako nastaje sinusoida.
Listing programa:
REM 26011320 Nastajanje sinusoide
DIM sin1(20, 36) AS STRING
DIM bod AS STRING
GOSUB 900: REM inicijalizacija
GOSUB 100: REM nove vrijednosti
FOR t = 1 TO 28: REM 36 max za sinusoidu dovoljno je 28
CLS
GOSUB 300: REM prikaz na ekranu
GOSUB 400: REM kasni
NEXT t
GOTO 990: REM idi na kraj
100 REM koordiantni sistem
REM koordinate sinusoida 0
FOR i = 0 TO 360 STEP 15
y = INT(i / 15)
REM sin1(x, y) = "0"
x = 10 - INT(10 * SIN(i * 3.14 / 180)): REM koordinate bez pomaka
sin1(x, y) = "0"
NEXT i
RETURN
300 REM ispis na ekran
REM ipis na ekran iz matrice
PRINT "NASTAJANJE SINUSOIDE U FUNKCIJI VREMENA"
PRINT
FOR i = 1 TO 20
FOR j = 0 TO t
PRINT sin1(i, j);
NEXT j
PRINT
NEXT i
RETURN
400 REM ispis na ekran
REM ipis na ekran iz matrice
FOR kas = 1 TO 20000
FOR kas2 = 1 TO 2000
tt = tt + 1
NEXT kas2
NEXT kas
RETURN
900 REM inicijalizacija
REM koordinatni sistem podesavanje memorije za ispis
FOR i = 0 TO 20
FOR j = 0 TO 36
IF i <> 10 THEN
sin1(i, j) = " ": REM prazno
ELSE
sin1(i, j) = ".": REM x osa
END IF
NEXT j
NEXT i
RETURN
990 END
Ispis na ekranu:
Index
|