delphi数值算法集光盘源代码,用于delphi7科学出版社出版.

源代码在线查看: gasdev.txt

软件大小: 1429 K
上传用户: awake2
关键词: delphi7 delphi 数值算法 光盘
下载地址: 免注册下载 普通下载 VIP

相关代码

				Function GASDEV:real;
				var
				   V1,V2,FAC,R:real;
				begin
				    If ISET^= 0 Then
				    begin
				      repeat
				        V1:=2 * Random - 1;
				        V2:=2 * Random - 1;
				        R:=Sqr(V1) + Sqr(V2);
				      until (R < 1);
				      FAC:=Sqrt(-2 * Ln(R) / R);
				      GSET^:=V1 * FAC;
				      GASDEV:=V2 * FAC;
				      ISET^:=1;
				    end
				    Else
				    begin
				      GASDEV:=GSET^;
				      ISET^:=0;
				    end;
				end;			

相关资源