进程创建速度

《Erlang Programming》这本书里给了一个测试大概的进程创建速度的程序，如下
myring.erl

-module(myring).
-export([start/1, start_proc/2]).

start(Num) ->
	start_proc(Num, self()).
start_proc(0, Pid) ->
	Pid ! ok;
start_proc(Num, Pid) ->
	NPid = spawn(?MODULE, start_proc, [Num-1, Pid]),
	NPid ! ok,
	receive ok -> ok end.

从程序中我们可以看出，这是个随创建随结束的过程，所以运行时，即使在启动shell时，没有指定最大进程数，也不会出现溢出错误。

那么在没有结束进程的情况下，创建速度又会是怎样的呢？

粗略的修改了下程序，如下

-module(myring1).
-export([start/1, start_proc/3]).

start(Num) ->
	spawn(?MODULE, start_proc, [Num-1,self(), self()]),
	receive ok -> ok end.
start_proc(0,NPid,Pid) ->
	Pid ! ok,
	NPid ! ok;
start_proc(Num,NPid,Pid) ->
	spawn(?MODULE, start_proc, [Num-1,self(),Pid]),
	receive ok -> 
		NPid ! ok,
		ok 
	end.

由于创建过程中没有销毁，所以在启动shell时要指定启动参数（3G内存所能启动进程数的级别就是100多万，所以指定200万足以）

werl.exe +P 2000000

测试结果

11> timer:tc(myring, start, [1400000]).
{2281000,ok}

13> timer:tc(myring1, start, [1400000]). 
{2484000,ok}

需要注意的是，由于myring1程序给shell的进程所发送msg多了一个，所以如果多次执行的话，要flush()一下。

从结果上来看140万的进程数，在途中没有结束进程的情况下，会多了0.2秒，虽然还不到10%（多次运行，结果相差不大）。
搞不清楚，多出的时间是由OS引起的，还是evm引起的。