1、在窗口上添加字
dev_open_window (0, 0, 512, 512, 'black', WindowHandle) set_display_font (WindowHandle, 16, 'mono', 'true', 'false') for Index := 1 to 5 by 1 disp_message (WindowHandle, 'Step '+Index, 'window', 30*Index, -1, 'black', 'true') disp_continue_message (WindowHandle, 'black', 'true') stop () endfor
2、在图上绘制多条曲线
*Ret为vector Ret:={[],[],[],[],[]} for Index := 1 to 5 by 1 for Index1 := 1 to 121 by 1 Ret.at(Index):=[Ret.at(Index),Index*Index1] endfor endfor X:=[] for Index := 1 to 121 by 1 X:=[X,Index] endfor X:=[] for Index := 1 to 121 by 1 X:=[X,Index] endfor XLabel := 'x' YLabel := 'y' Color := ['medium slate blue','yellow','red','green','pink'] GenParamName := [] GenParamValue := [] plot_tuple (WindowHandle, X, [Ret.at(0),Ret.at(1),Ret.at(2),Ret.at(3),Ret.at(4)], XLabel, YLabel, Color, GenParamName, GenParamValue) disp_message (WindowHandle, Methods, 'window', 100, 100, Color, 'false')