基本操作之——正弦函数绘制

1.周期为2pi正弦函数绘制

dev_close_window ()
dev_open_window (0, 0, 512, 512, 'black', WindowID)
dev_set_part (0, 0, 511, 511)
old_x := 0
old_y := 0
Rate:= 1
dev_set_color ('red')
for x := 1 to 511 by 4
    y := -sin(x / 511.0 * 2 * 3.1416*Rate) * 255
    dev_disp_text('周期为'+(2/Rate)+'PI正弦函数', 'window', 'center', 'center',     'black','box_color', '#00ffffc0')
    disp_line (WindowID, old_y + 256, old_x, y + 256, x)
    old_x := x
    old_y := y
endfor

 

2.周期为pi/2正弦函数绘制

dev_close_window ()
dev_open_window (0, 0, 512, 512, 'black', WindowID)
dev_set_part (0, 0, 511, 511)
old_x := 0
old_y := 0
Rate:=4.0
dev_set_color ('red')
for x := 1 to 511 by 4    
    y := -sin(x / 511.0 * 2 * 3.1416*Rate) * 255    
    dev_disp_text('周期为'+(2/Rate)+'PI正弦函数', 'window', 'center', 'center', 'black','box_color', '#00ffffc0')
    disp_line (WindowID, old_y + 256, old_x, y + 256, x)
    old_x := x
    old_y := y
endfor