楚 楚辞 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-09 #1 请问各位富翁兄弟： 本人乃一菜鸟级别，请问如何做一个正弦或余弦函数的图像？三十分送！
S smallbee Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-09 #2 当时我是一个菜鸟的时候也做个这个问题。（现在也是菜鸟。^_^） 你可以设置一系列的点，然后组成这个正旋余旋的曲线。 比如使用canvas里的Lineto，呵呵，虽然笨了一点。只要点数足够的多， 那么也可以显示的蛮好。 ^_^ 2个菜鸟 over
当时我是一个菜鸟的时候也做个这个问题。（现在也是菜鸟。^_^） 你可以设置一系列的点，然后组成这个正旋余旋的曲线。 比如使用canvas里的Lineto，呵呵，虽然笨了一点。只要点数足够的多， 那么也可以显示的蛮好。 ^_^ 2个菜鸟 over
楚 楚辞 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-09 #3 smallbee:你好！我想问canvans是什么？在哪里可以找的到？
S smallbee Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-09 #4 晕…… 你自己先看看吧。其实，Form里面也有一个Canvas属性。 Image里面也有这个属性。你找一本delphi的书看看， 都有介绍的。
楚 楚辞 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-10 #5 哦你是说我可以做一个画图程序这样我就可以画出函数图像，是这样吗请赐教谢谢！
G gil2002 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-18 #6 因为delphi的原点在左上角，所以要考虑把函数进行平移，才能画出图
L LeeChange Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-18 #7 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i:=1 to Widthdo Canvas.Pixels[i, Round(sin(i*3.14/180)*100)+200]:=clBlack end;
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i:=1 to Widthdo Canvas.Pixels[i, Round(sin(i*3.14/180)*100)+200]:=clBlack end;
X xin421 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-29 #8 我有现成的程序，你如果要就给你。方法就是，你改动源码中的一个函数，随便是什么函数或者一种映射关系也可以。然后运行，会问你区间，你给了区间就显示图像。我喜欢玩这个，用来在工程技术中解决二分法求根之前看看根的区间在哪里。
我有现成的程序，你如果要就给你。方法就是，你改动源码中的一个函数，随便是什么函数或者一种映射关系也可以。然后运行，会问你区间，你给了区间就显示图像。我喜欢玩这个，用来在工程技术中解决二分法求根之前看看根的区间在哪里。
楚 楚辞 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-06 #9 谢谢大家，该结这个贴了！xin421你把原码发到我邮箱来吧！wwei656@163.com记住一定要发，急着用！
