publicdata.~pas

噪声对通信系统的影响试验程序 模仿各种噪声对不同通信系统的影响 具有很强的学习价值

unit publicdata;

interface
   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Buttons, ToolWin, Menus;
 var
 tempogoo:integer;
 BaseSignal: array[0..10000] of double;
 length:integer;
 ReceiveSignal:array[0..10000] of double;
 BaseAddNoise: array [0..131072] of double;
 Noise:array [0..131072] of double;
 

implementation
//function get(i:integer):integer;cdecl;external 'dll5.dll';
function gaussdll(u:double;dalta:double):pointer;cdecl;external 'dll5.dll';

end.