掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Chartでグラフをきれいに表示させるには？？ (ID：5376)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
補間用コンポーネントTInterpolateで遊んでみました。 procedure TForm1.Button1Click(Sender: TObject); var NDiv,Ns,i: Integer; XDiv: double; X,Y: array[1..6] of double; begin Chart1.Series[0].Clear; Chart1.Series[1].Clear; Interpolate1.Method := CSpline; Interpolate1.Interval := Regular; Ns := 6; for i:=1 to Ns do begin X[i] := i; Y[i] := (3*Power(X[i],3))+(0.45*Power(X[i],2))+(0.03*X[i])+6; Chart1.Series[0].AddXY(X[i],Y[i]); end; NDiv := 1000; XDiv := (X[Ns]-X[1])/NDiv; Interpolate1.DKnot(Ns,@X,@Y); for i:=0 to NDiv do Chart1.Series[1].AddXY(XDiv*i,Interpolate1.Value(XDiv*i)); end; それらしく「滑らかな曲線」になっていると わたしなりには思うんですけど。。。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.