盒子论坛 v2.1

SPC中的各种图如点线图、盒须图、正态分布图都可以用TeeChart来实现。
正态分布是用点图来实现：
procedure TForm1.DrawN;
var
  A,X,S,Y :double;
  U,E :double;
  F :double;
  I :double;
begin

  U :=28.6528;
  S :=3.2422;
  E :=-0.5*power(28.5-U,2)/(S*S);
  A:=1/(S*SQRT(2*PI));
  F :=A*Exp(E);
  F :=42/F;
  I :=18.9262;
  while I <38.3794 do
    begin

      E :=-0.5*power(I-U,2)/(S*S);
      Y :=Exp(E);
      Y :=A*Y;
      Y :=F*A*Exp(E);
      Chart1.SeriesList[1].AddXY(I,Y) ;
      I :=I+0.0035;
    end;
  I :=2;
  while I<=42 do
    begin

      Chart1.SeriesList[1].AddXY(18.9262,I,'',clGreen);
      I :=I+0.005;
    end;

  //EdtF.Value :=F;
end;

Series2: TPointSeries;
----------------------------------------------
-

作者：

kenliaoliao (ben)	★☆☆☆☆	-
	普通会员

2016/10/25 10:39:25

4楼：

效果如下：

此帖子包含附件:

大小:49.1K

----------------------------------------------
-

作者：

bokonger (bokonger)	★☆☆☆☆	-
	盒子活跃会员

2016/10/25 12:43:50

5楼：

kenliaoliao，非常感谢大师的指点，我安装哪个teechart试试看先，是专业版本才有这功能吧，还是Delphi7就自己本身的控件就可以
----------------------------------------------
-

作者：

kenliaoliao (ben)	★☆☆☆☆	-
	普通会员

2016/10/25 18:49:18

6楼：

标准版也能画，正态分布是有无数个点画出来的。代码中的0.0035根据自己的情况来调整
----------------------------------------------
-

信息

登陆以后才能回复