function_sin_plot.bas

1 REM *****************************
2 REM Vykreslení průběhu funkce sin
3 REM 
4 REM Uprava pro GW-BASIC
5 REM 
6 REM *****************************
7 REM
8 REM
9 REM
20 GOSUB 1000: REM SET_GRAPHICS
30 GOSUB 2000: REM DRAW_AXIS
40 REM PLOT FUNCTION
50 FOR X=0 TO 319
60   Y=79-70*SIN((X-160)*90/80*3.14/180)
70   IF Y<0 OR Y>159 THEN GOTO 90
80   PSET (X,Y), 2
90 NEXT X
999 STOP 
1000 REM
1010 REM SET GRAPHICS MODE
1020 REM
1030 SCREEN 9
1060 RETURN
2000 REM
2010 REM DRAW AXIS
2020 REM
2040 LINE (160,0)-(160,159)
2050 LINE (0,80)-(319,80)
2060 RETURN