[Delphi]根据 高斯正态分布随机函数RandG发生的…

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Math;

type

TfrmMain = class(TForm)
imgAxis: TImage;
btnRandG: TButton;
GroupBox1: TGroupBox;
Splitter1: TSplitter;
grpControl: TGroupBox;
chkLogFrequency: TCheckBox;
chkDrawEdge: TCheckBox;
chkDrawLines: TCheckBox;
cboxCopyMode: TComboBox;
procedure FormShow(Sender: TObject);
procedure btnRandGClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
totalCount :Integer;
sampleDatas :array[1..1000] of Integer;
procedure DrawAxis;
procedure GaussIt(const ASampleData:Extended);
procedure ReDraw;
procedure DrawEdge;//画边

procedure Log(const logName:string);
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}
procedure TfrmMain.DrawAxis;
begin
imgAxis.Canvas.Pen.Color :=clLime;
imgAxis.Canvas.Pen.Mode :=pmXor;
imgAxis.Canvas.MoveTo(imgAxis.Width div 2,imgAxis.Height);
imgAxis.Canvas.LineTo(imgAxis.Width div 2,0);
imgAxis.Canvas.MoveTo(0,imgAxis.Height -10);
imgAxis.Canvas.LineTo(imgAxis.Width,imgAxis.Height -10);
end;
procedure TfrmMain.ReDraw;
var
bmp :TBitmap;
i :Integer;
begin//根据数组里面的数和totalCount重新画图
bmp :=TBitmap.Create;
try
bmp.Width :=imgAxis.Width;
bmp.Height:=imgAxis.Height;
bmp.Canvas.Brush.Color :=clBlack;
bmp.Canvas.FillRect(bmp.Canvas.ClipRect);
bmp.Canvas.Pen.Color :=clRed;
bmp.Canvas.Pen.Width :=1;
//根据Image高度和1->1000发生的频数设置画线的高度
//应该计算出图像所能反映的最小分辨率，应能体现到频数有1的变化
for i:=1 to 1000 do
begin
sampleDatas[i] :=(sampleDatas[i]*(bmp.Height-10)) *250 div totalCount;//频数->频率->实际图像高度值
sampleDatas[i] :=bmp.Height-10 -sampleDatas[i];//高度转换为实际坐标
bmp.Canvas.MoveTo(i,bmp.Height-10);
if chkDrawLines.Checked then
bmp.Canvas.LineTo(i,sampleDatas[i]);
end;
//Log(''''height.txt'''');
if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmBlackness'''' then
imgAxis.Canvas.CopyMode :=cmBlackness
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmDstInvert'''' then
imgAxis.Canvas.CopyMode :=cmDstInvert
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmMergeCopy'''' then
imgAxis.Canvas.CopyMode :=cmMergeCopy
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmMergePaint'''' then
imgAxis.Canvas.CopyMode :=cmMergePaint
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmNotSrcCopy'''' then
imgAxis.Canvas.CopyMode :=cmNotSrcCopy
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmNotSrcErase'''' then
imgAxis.Canvas.CopyMode :=cmNotSrcErase
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmPatCopy'''' then
imgAxis.Canvas.CopyMode :=cmPatCopy
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmPatInvert'''' then
imgAxis.Canvas.CopyMode :=cmPatInvert
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmPatPaint'''' then
imgAxis.Canvas.CopyMode :=cmPatPaint
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmSrcAnd'''' then
imgAxis.Canvas.CopyMode :=cmSrcAnd
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmSrcCopy'''' then
imgAxis.Canvas.CopyMode :=cmSrcCopy
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmSrcErase'''' then
imgAxis.Canvas.CopyMode :=cmSrcErase
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmSrcInvert'''' then
imgAxis.Canvas.CopyMode :=cmSrcInvert
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmSrcPaint'''' then
imgAxis.Canvas.CopyMode :=cmSrcPaint
else if cboxCopyMode.Items[cboxCopyMode.ItemIndex]=''''cmWhiteness'''' then
imgAxis.Canvas.CopyMode :=cmWhiteness;

imgAxis.Canvas.CopyRect(imgAxis.Canvas.ClipRect,bmp.Canvas,bmp.Canvas.ClipRect);
//imgAxis.Canvas.Draw(0,0,bmp);//这个不能控制CopyMode
finally
bmp.Destroy;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有