不记得了
1.  定好坐标轴,
    画好坐标轴,标好原点和X轴Y轴
2.  根据正弦值的变化画点,X变化,Y变化,画好点.就画好了.

SCREEN 12

LOCATE 16, 1
PRINT "x";
LOCATE 1, 42
PRINT "y";

FOR i = -2 TO 2
  LOCATE 16, i * 12 + 39
  PRINT i;
  LOCATE 16-i*6, 39
  PRINT i;
  LINE (i * 96 + 320, 239)-(i * 96 + 320, 237)
  LINE (321, i * 96 + 239)-(323, i * 96 + 239)
NEXT

  LINE (0, 240)-(639, 240)
    LINE (636, 237)-(639, 240)
    LINE (636, 243)-(639, 240)
  LINE (320, 0)-(320, 479)
    LINE (317, 3)-(320, 0)
    LINE (323, 3)-(320, 0)

FOR i = 0 TO 639
  PSET (i, SIN((i - 320) / 96) * 96 + 240), 4
NEXT

非常的感谢 moz 你！
我做了好长时间没有做出来的！
谢谢你！！！1
希望下次的到你帮助啊 ！！！！
我打90分！！

MOZ好棒.
程序做出来的图像上函数线还是红色的.
我喜欢.

之前把 y 轴画反了,对不起.

[em11]我来献丑,如有不妥，恳请moz指正。
screen 12:cls:pi=3.1415926
do
  for j=1 to 7
    for i=0 to 640
      pset(i,50*sin(4*pi*i/640)+j*55),j
      preset(i-200,50*sin(4*pi*(i-200)/640)+j*55)
      for n=0 to 40:next n
    next i
    for i=640 to 0 step -1
      pset(i,50*sin(4*pi*i/640)+j*55),j
      preset(200-i,50*sin(4*pi*(1-i)/640)+j*55)
      for n=0 to 40:next n
    next i
  next j
loop until inkey$<>""

不敢当不敢当，
但我不明白你为什么要用上do循环。
还要画上那么多的线条。

不知道我为什么运行不了?,,,,

REM 花了两分钟写的，测试过没问题代码如下:
CONST PI = 3.14159265358979#, R = 100, c = 15, cp = 1, SWIDTH = 640, SHEIGHT = 480
X = 0: Y = 0: HWIDTH = SWIDTH / 2: HHEIGHT = SHEIGHT / 2
SCREEN 12
WINDOW (-HWIDTH, -HHEIGHT)-(HWIDTH, HHEIGHT)
LOCATE 15, 42: PRINT "O"
LOCATE 2, 42: PRINT "X"
LOCATE 15, 78: PRINT "Y"
LINE (-HWIDTH, 0)-(HWIDTH, 0), cp
LINE (0, -HHEIGHT)-(0, HHEIGHT), cp
PSET (-HWIDTH, R), c
FOR i = -HWIDTH TO HWIDTH
   IF (0 = i) THEN
       LINE -(0, R), c
   ELSE
       X = i
       Y = R * COS(i * 2 * PI / HWIDTH)
       LINE -(X, Y), c
   END IF
NEXT i

还是运行不了....


"NTVDM CPU 遇到无效指令
....."