生命灵数

人的个性是否能依照生日的日期而探出一些头绪？曾觉得此类的东西带有几分的荒谬，但自从友人介绍了一套依生日日期而探讨他人的个性后，自己也依照该套方法对友人进行了一系列的探讨，发觉当中带有多少的准确度。大体上，该方法把人类的性格分为9大类（另加2较特别的个性而共成为11类），大略如下：

a. 领导，开拓，独立型
b. 合作，适应，伙伴，同理他人型
c. 表达，社交，艺术，享受生活型
d. 基础，命令，服务，逐渐成长型
e. 自由，探险，开拓型
f. 责任，保护，平衡型
g. 思考，同理，智慧，敏锐型
h. 实际，地位，权力，目标型
i. 博爱，施舍型
j. 灵性，灵感，全美，远见型
k. 主力建设，有力动力，领导型

当然，若从以上的大略分法，似乎看不出什么的准确度，因为所有的解释似乎都很广泛，故又如何能精确的分析他人的个性呢？熟不知，以上所说乃大略之说，但实际的解说还蛮详细，故能为个人的个性给个详细的解说，进而分析其准确度；而非广泛的概论各别个性，而敷衍似的设个准确度。
在为朋友及陌生人（友人的友人）的测验中，我首先询问他们的生日，进而依照该系统对于他们的个性做个分析，之后他们再给我他们自觉的准确度。前后做了不下20个测验，几乎大部分的人都认为其准确度为八成左右，奇否？
人的个性是否是由生日日期所定？若如此，能否说生命已注定？我相信人的造作将对自己未来产生影响的看法，而并非所谓的宿命论。我们的未来生命掌握在自己的手中，而我们现在的生活乃由过去的我所造作之影响：前擦那影响现在，而现在将影响后一擦那。若将时间的单位扩张，则昨天影响今天，而明天受今天影响，以致前一世影响今世，而今世将影响后世。以此看来，如果人的个性能从个人的生日计算出来，那么只能说过去世的我所造作影响了今世的投胎，而已出世的我，依然延续着过去的习气，而成为今世的个性。细思维后，若此说法成立，则先前须具备三个前题，如下：

H1：人的造作将影响自己的下一刹那。
H2：轮回成立。
H3：有某种‘东西’在轮回及生活过程中持续不断的延续。

如果是这样，‘能从生日晓得各人的个性’也不再神秘了。间接中，它更肯定了我们的行为能影响未来的个性。也是因为如此，如果此生有尝试去自主自己的行为，那么过去的习气将能逐渐淡化，进而‘计算生命灵数’的这一套方法就不再合适。故，生命操之在我，也只有自己能改变自己的生命。
我所说的改变自己的个性，并不是说从一种个性改到另一种，而又接着改到另一种，如此不断的变化，最终又得回到原来的个性。若是如此，在生命的长流中，人岂不是只能在原地的徘徊？改变自己，是指让生命升华，而非徘徊；让生命项项圆满，而非取此项弃他项，也因如此，若有人能升华多项，则生命灵数也无法适用，因为该人在也不属于任何的一类型，而已超越了多型，以致圆满。
以此推理，人莫执著种种所谓的‘算命术’，如风水、八字、占卜、面相、手相、占星、灵数等。若该术似乎有所契合，能如赏戏般，观而忘之；若如天方夜谭，则闻而忘之。须知，生命掌握在自己的手中，也没有必要去使用任何的方法去探知自己的过去未来。若欲晓得自己的过去未来，那么看看自己的现在，就能晓得自己的过去，也能预测自己的未来。若执著此类的‘算命术’，人不但不会进步，而且还极有可能堕入歧途，无法自拔，丧失自我！
以智慧作为引导，以慈悲作为力量，这才是正道啊！
共勉。

附录：（依照生命灵数的算法，计算出共600年的个性比率。若有兴趣，可以参考我计算的方程式[Perl语言]。切记，此些既是戏论，看而忘之吧！）

# A script to do statistical analysis for personal type distribution, according to Numerology - in Perl Programing language

# Install ActivePerl to execute it.

use ActiveState::DateTime qw(is_leap_year days_in_month check_date month_name_short month_name_long gmt_offset);

#input parameter

$yyyy=1950;

$mm=1;

$dd=1;

$sample_size=365;

$type{1}=0;

$type{2}=0;

$type{3}=0;

$type{4}=0;

$type{5}=0;

$type{6}=0;

$type{7}=0;

$type{8}=0;

$type{9}=0;

$type{11}=0;

$type{22}=0;

#validity check

die "Invalid input date\n" if !(check_date($yyyy,$mm,$dd));

$max_days=days_in_month($yyyy,$mm);

$dd--; #for the first time since will be added immediately enter the loop

for ( $i=1; $i<=$sample_size; $i++) { $dd++; if ($dd<=$max_days){ $temp=&sub_calc_type; $type{$temp}++; print "$dd $mm $yyyy -> $temp\n";

}

else{

$dd=1;

if ($mm<12) {$mm++;$max_days=days_in_month($yyyy,$mm);} else { $mm=1; $yyyy++; } $type{$temp}++; print "$dd $mm $yyyy -> $temp\n";

}

}

&display_statistic;

print "Press any key...\n";

;

exit;


sub sub_calc_type {
my @split; my $total; my $type;
$total=$yyyy+$mm+$dd;
@split=split(//,$total);
$type=&reduce(@split);
return $type;
}

sub reduce{
my @split; my $a; my $t;
$t=0;
@split=@_;
foreach $a(@split){$t+=$a;}
if (exists $type{$t}) { return $t; }
else { @split=split(//,$t); &reduce(@split);}
}

sub display_statistic {
my $var; my $tot;
$tot=0;
print "\n";
print "Statistic(%):\n";
print "-------------\n";
foreach $key(1,2,3,4,5,6,7,8,9,11,22) {

$tot+=$type{$key};
$var=sprintf "%.1f", (($type{$key}/$sample_size)*100);
print "$key : $var ($type{$key})\n";
#print "$key : $type{$key}\n";
#print "\n";
}
print "Total: $tot\n";
}