26.1.. Prikaz sinusoidalne promjene. Napisati program koji prikazuje promjenu trofaznog napona. Faza druge sinusoide je pomjerana za -120 stepeni a traća sinusoida je pomjerana za +120 stepeni.
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 ...). To su vrijednosti 3 sinusoide. Prikaz izračunatih vrijednosti sinusuoida tj. vrijednosti iz matrice se izvodio na kraju (REM ipis na ekran iz matrice).
Listing programa:
REM 26011350
CLS
REM inicijalizacija
DIM sin1(20, 36) AS STRING
DIM bod AS STRING
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
REM koordinate sinusoida 0, - 120 stepeni, + 120 stepeni
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"
xmin = 10 - INT(10 * SIN((i - 120) * 3.14 / 180)): REM koordinate -120 stepeni
sin1(xmin, y) = "-"
xplus = 10 - INT(10 * SIN((i + 120) * 3.14 / 180)): REM koordinate -120 stepeni
sin1(xplus, y) = "+"
NEXT i
REM ipis na ekran iz matrice
FOR i = 1 TO 20
FOR j = 0 TO 36
PRINT sin1(i, j);
NEXT j
PRINT
NEXT i
END
Ispis na ekranu:
Index
|
|