已知起点、终点，如何画正弦函数曲线 ( 积分: 100 )

已知起点、终点，如何画正弦函数曲线？

已知起点、终点，如何画正弦函数曲线？

起点、终点仅仅决定了周期，峰值呢？不给峰值画什么？给你个例子：
procedure TForm1.Button1Click(Sender: TObject);
const
A = 60; //峰值
x0 = 40; //起点
x1 = 100; //终点
y0 = 80; //纵向偏移
omiga = 2*Pi/Abs(x1 - x0);
var
x, y: Integer;
begin
Canvas.Pen.Color := clGreen;
Canvas.MoveTo(x0, y0);
for x := x0 to x1 do
begin
y := Round(A*Sin(omiga*(x - x0))) + y0;
Canvas.LineTo(x, y);
end;
end;

自己去这个地方看，你需要的东西：
http://www.efg2.com/Lab/Graphics/SimpleGraph.htm

多人接受答案了。