- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2002-8-3
|
|
简化一下你开头公式部分呀:
KBZ:=INTPART(OPEN);{取得开盘整数部分}
KBX:=INTPART(FRACPART(OPEN)*100+0.5);{取得开盘小数部分}
KBZA:=NUMBERSUM(KBZ,0);{开盘价整数部分各数字之和}
KBXA:=NUMBERSUM(KBX,0);{开盘价小数部分各数字之和}
KBZB:=IF(KBZA>16,KBZA-16,KBZA);
KBXB:=IF(KBXA>16,KBXA-16,KBXA);
KBZC:=IF(KBZB>8,KBZB-8,KBZB);{主卦上卦数}
KBXC:=IF(KBXB>8,KBXB-8,KBXB);{主卦下卦数}
SBZ:=INTPART(CLOSE);{取得收盘整数部分}
SBX:=INTPART(FRACPART(CLOSE)*100+0.5);{取得收盘小数部分}
SBZA:=NUMBERSUM(SBZ,0);{收盘价整数部分各数字之和}
SBXA:=NUMBERSUM(SBX,0);{收盘价小数部分各数字之和}
SBZB:=IF(SBZA>16,SBZA-16,SBZA);
SBXB:=IF(SBXA>16,SBXA-16,SBXA);
SBZC:=IF(SBZB>8,SBZB-8,SBZB);{变卦上卦数}
SBXC:=IF(SBXB>8,SBXB-8,SBXB);{变卦下卦数} |
|
|