快速扫描各宫的飞化

编辑了一个小程式能快速的扫描各宫的飞化，如：

- 命宫化忌入夫妻宫冲官禄宫
- 田宅宫化可入命宫冲迁移宫

等等。与大家分享。

程式如下：

回圈:dz=0 到 11
     回圈:hx=0 到 3
           如果:hx=0
                 设定:化象='化禄'
           如果:hx=1
                 设定:化象='化权'
           如果:hx=2
                 设定:化象='化科'
           如果:hx=3
                 设定:化象='化忌'
           回圈:hg=0 到 11
                 如果:#{宫名$(dz)}#宫有:#{化象}#入#{宫名$(hg)}#宫
                       如果:dz=hg
                             #{宫名$(dz)}#宫 自#{化象}#<BR>
                       如果:dz<>hg
                             #{宫名$(dz)}#宫 #{化象}# 入 #{宫名$(hg)}#宫 冲 #{宫名$((hg+6)%12)}#宫<BR>

x0

感謝您的分享

x0