請問各位前輩們： 如何用canvas畫出完美的數學曲線?? 因為canvas上的pixel是以integer為單位， 產生數學的函數圖形時，常不能把實數的值表表現出來， 使得曲線都是斷斷續續的點。 請問..該如何產生個漂亮的數學曲線圖呢？

avalokita 您好：    底下程式碼供您參考。 < class="code">function fn(x: double):double; var pi : double; begin pi := 3.141592653; result := exp(-0.01*x)*sin(6*x*pi/180); end; procedure TForm1.Button1Click(Sender: TObject); var y : array[0..300] of single; x, sx, sy : integer; scale: double; begin sx := 100; // 設定描繪原點 sy := 200; scale := 150; for x:=0 to 300 do y[x] := scale*fn(x); // 放大函數值 // 連線方式： Form1.Canvas.MoveTo(sx 0, round(sy-y[0])); for x:=1 to 300 do begin Form1.Canvas.LineTo(sx x, round(sy-y[x])); end; // 畫點方式： Form1.Canvas.Pen.Width := 2; Form1.Canvas.Pen.Color := clRed; sy := 300; for x:=0 to 300 do begin Form1.Canvas.MoveTo(sx x, round(sy-y[x])); Form1.Canvas.LineTo(sx x, round(sy-y[x])); end; end; RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

richtop 謝謝您~~~ 我果然畫出漂亮的曲線了.... 真的很謝謝~~