Tuesday, July 13, 2010

生命灵数

人的个性是否能依照生日的日期而探出一些头绪?曾觉得此类的东西带有几分的荒谬,但自从友人介绍了一套依生日日期而探讨他人的个性后,自己也依照该套方法对友人进行了一系列的探讨,发觉当中带有多少的准确度。大体上,该方法把人类的性格分为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";
}

No comments: