|
发表于 2006-6-5 20:31:03
|
显示全部楼层
回复 #36 文武氏 的帖子
版主与文武式两位前辈 ,所言正是时下用易经测市所面对的问题;
贴一篇飞狐软件可用formula , 请高人编修改进 共同分享进步!!
梦仙阁小成图预测法
input1(5,1,500),P2(10,1,500),P3(20,1,500),P4(30,1,500),P5(60,1,500),P6(120,1,500);
MA1:MA(CLOSE,P1);
MA2:MA(CLOSE,P2);
MA3:MA(CLOSE,P3);
MA4:MA(CLOSE,P4);
MA5:MA(CLOSE,P5);
MA6:MA(CLOSE,P6);
EXPLAIN((CLOSE <> 0),'*******************************************');
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);
KBXC:=IF((KBXC = 0),8,KBXC);
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);
SBXC:=IF((SBXC = 0),8,SBXC);
GA1:='乾';
GA2:='兑';
GA3:='离';
GA4:='震';
GA5:='巽';
GA6:='坎';
GA7:='艮';
GA8:='坤';
T1:='';
TT1:='';
T2:='';
TT2:='';
T3:='';
TT3:='';
T4:='';
TT4:='';
T5:='';
TT5:='';
T6:='';
TT6:='';
T7:='';
TT7:='';
T8:='';
TT8:='';
T3:=IF((KBZC = 1),GA1,T3);
T3:=IF((KBZC = 2),GA2,T3);
T3:=IF((KBZC = 3),GA3,T3);
T3:=IF((KBZC = 4),GA4,T3);
T3:=IF((KBZC = 5),GA5,T3);
T3:=IF((KBZC = 6),GA6,T3);
T3:=IF((KBZC = 7),GA7,T3);
T3:=IF((KBZC = 8),GA8,T3);
TT3:=IF((T3 = '乾'),'111',TT3);
TT3:=IF((T3 = '兑'),'110',TT3);
TT3:=IF((T3 = '离'),'101',TT3);
TT3:=IF((T3 = '震'),'100',TT3);
TT3:=IF((T3 = '巽'),'011',TT3);
TT3:=IF((T3 = '坎'),'010',TT3);
TT3:=IF((T3 = '艮'),'001',TT3);
TT3:=IF((T3 = '坤'),'000',TT3);
T6:=IF((KBXC = 1),GA1,T6);
T6:=IF((KBXC = 2),GA2,T6);
T6:=IF((KBXC = 3),GA3,T6);
T6:=IF((KBXC = 4),GA4,T6);
T6:=IF((KBXC = 5),GA5,T6);
T6:=IF((KBXC = 6),GA6,T6);
T6:=IF((KBXC = 7),GA7,T6);
T6:=IF((KBXC = 8),GA8,T6);
TT6:=IF((T6 = '乾'),'111',TT6);
TT6:=IF((T6 = '兑'),'110',TT6);
TT6:=IF((T6 = '离'),'101',TT6);
TT6:=IF((T6 = '震'),'100',TT6);
TT6:=IF((T6 = '巽'),'011',TT6);
TT6:=IF((T6 = '坎'),'010',TT6);
TT6:=IF((T6 = '艮'),'001',TT6);
TT6:=IF((T6 = '坤'),'000',TT6);
T4:=IF((SBZC = 1),GA1,T4);
T4:=IF((SBZC = 2),GA2,T4);
T4:=IF((SBZC = 3),GA3,T4);
T4:=IF((SBZC = 4),GA4,T4);
T4:=IF((SBZC = 5),GA5,T4);
T4:=IF((SBZC = 6),GA6,T4);
T4:=IF((SBZC = 7),GA7,T4);
T4:=IF((SBZC = 8),GA8,T4);
TT4:=IF((T4 = '乾'),'111',TT4);
TT4:=IF((T4 = '兑'),'110',TT4);
TT4:=IF((T4 = '离'),'101',TT4);
TT4:=IF((T4 = '震'),'100',TT4);
TT4:=IF((T4 = '巽'),'011',TT4);
TT4:=IF((T4 = '坎'),'010',TT4);
TT4:=IF((T4 = '艮'),'001',TT4);
TT4:=IF((T4 = '坤'),'000',TT4);
T2:=IF((SBXC = 1),GA1,T2);
T2:=IF((SBXC = 2),GA2,T2);
T2:=IF((SBXC = 3),GA3,T2);
T2:=IF((SBXC = 4),GA4,T2);
T2:=IF((SBXC = 5),GA5,T2);
T2:=IF((SBXC = 6),GA6,T2);
T2:=IF((SBXC = 7),GA7,T2);
T2:=IF((SBXC = 8),GA8,T2);
TT2:=IF((T2 = '乾'),'111',TT2);
TT2:=IF((T2 = '兑'),'110',TT2);
TT2:=IF((T2 = '离'),'101',TT2);
TT2:=IF((T2 = '震'),'100',TT2);
TT2:=IF((T2 = '巽'),'011',TT2);
TT2:=IF((T2 = '坎'),'010',TT2);
TT2:=IF((T2 = '艮'),'001',TT2);
TT2:=IF((T2 = '坤'),'000',TT2);
T5:=(STRRIGHT(TT6,1) + STRLEFT(TT3,2));
TT5:=IF((T5 = '111'),'乾',TT5);
TT5:=IF((T5 = '110'),'兑',TT5);
TT5:=IF((T5 = '101'),'离',TT5);
TT5:=IF((T5 = '100'),'震',TT5);
TT5:=IF((T5 = '011'),'巽',TT5);
TT5:=IF((T5 = '010'),'坎',TT5);
TT5:=IF((T5 = '001'),'艮',TT5);
TT5:=IF((T5 = '000'),'坤',TT5);
T8:=(STRRIGHT(TT6,2) + STRLEFT(TT3,1));
TT8:=IF((T8 = '111'),'乾',TT8);
TT8:=IF((T8 = '110'),'兑',TT8);
TT8:=IF((T8 = '101'),'离',TT8);
TT8:=IF((T8 = '100'),'震',TT8);
TT8:=IF((T8 = '011'),'巽',TT8);
TT8:=IF((T8 = '010'),'坎',TT8);
TT8:=IF((T8 = '001'),'艮',TT8);
TT8:=IF((T8 = '000'),'坤',TT8);
T7:=(STRRIGHT(TT2,1) + STRLEFT(TT4,2));
TT7:=IF((T7 = '111'),'乾',TT7);
TT7:=IF((T7 = '110'),'兑',TT7);
TT7:=IF((T7 = '101'),'离',TT7);
TT7:=IF((T7 = '100'),'震',TT7);
TT7:=IF((T7 = '011'),'巽',TT7);
TT7:=IF((T7 = '010'),'坎',TT7);
TT7:=IF((T7 = '001'),'艮',TT7);
TT7:=IF((T7 = '000'),'坤',TT7);
T1:=(STRRIGHT(TT2,2) + STRLEFT(TT4,1));
TT1:=IF((T1 = '111'),'乾',TT1);
TT1:=IF((T1 = '110'),'兑',TT1);
TT1:=IF((T1 = '101'),'离',TT1);
TT1:=IF((T1 = '100'),'震',TT1);
TT1:=IF((T1 = '011'),'巽',TT1);
TT1:=IF((T1 = '010'),'坎',TT1);
TT1:=IF((T1 = '001'),'艮',TT1);
TT1:=IF((T1 = '000'),'坤',TT1);
TANB:=((((((((((((((('天盘:' + TT1) + ' ') + T2) + ' ') + T3) + ' ') + T4) + ' ') + TT5) + ' ') + T6) + ' ') + TT7) + ' ') + TT8);
EXPLAIN(CLOSE,TANB);
D1:='乾';
D2:='兑';
D3:='离';
D4:='震';
D5:='巽';
D6:='坎';
D7:='艮';
D8:='坤';
D:=((((((((((((((('地盘:' + D1) + ' ') + D2) + ' ') + D3) + ' ') + D4) + ' ') + D5) + ' ') + D6) + ' ') + D7) + ' ') + D8);
EXPLAIN(CLOSE,D);
EXPLAIN((CLOSE <> 0),'-------------------------------------------');
KXGX:='';
KXGX:=IF(((((HIGH - OPEN) = 0) AND ((LOW - CLOSE) = 0)) AND ((CLOSE > OPEN) OR (CLOSE = OPEN))),'乾',KXGX);
KXGX:=IF(((((HIGH - OPEN) <> 0) AND ((LOW - CLOSE) = 0)) AND ((CLOSE > OPEN) OR (CLOSE = OPEN))),'兑',KXGX);
KXGX:=IF(((((HIGH - OPEN) <> 0) AND ((LOW - CLOSE) <> 0)) AND ((CLOSE > OPEN) OR (CLOSE = OPEN))),'离',KXGX);
KXGX:=IF(((((HIGH - OPEN) = 0) AND ((LOW - CLOSE) <> 0)) AND ((CLOSE < OPEN) OR (CLOSE = OPEN))),'震',KXGX);
KXGX:=IF(((((HIGH - OPEN) = 0) AND ((LOW - CLOSE) <> 0)) AND ((CLOSE > OPEN) OR (CLOSE = OPEN))),'巽',KXGX);
KXGX:=IF(((((HIGH - OPEN) <> 0) AND ((LOW - CLOSE) <> 0)) AND ((CLOSE < OPEN) OR (CLOSE = OPEN))),'坎',KXGX);
KXGX:=IF(((((HIGH - OPEN) <> 0) AND ((LOW - CLOSE) = 0)) AND ((CLOSE < OPEN) OR (CLOSE = OPEN))),'艮',KXGX);
KXGX:=IF(((((HIGH - OPEN) = 0) AND ((LOW - CLOSE) = 0)) AND ((CLOSE < OPEN) OR (CLOSE = OPEN))),'坤',KXGX);
GONG:='';
GONG:=IF((KXGX = '乾'),D1,GONG);
GONG:=IF((KXGX = '兑'),D2,GONG);
GONG:=IF((KXGX = '离'),D3,GONG);
GONG:=IF((KXGX = '震'),D4,GONG);
GONG:=IF((KXGX = '巽'),D5,GONG);
GONG:=IF((KXGX = '坎'),D6,GONG);
GONG:=IF((KXGX = '艮'),D7,GONG);
GONG:=IF((KXGX = '坤'),D8,GONG);
GONGA:=(('用宫:' + GONG) + '宫');
EXPLAIN(CLOSE,GONGA);
EXPLAIN((CLOSE <> 0),'-------------------------------------------');
TG1:=GONG;
TG1:=IF(((GONG = D1) AND (TT1 <> GONG)),TT1,TG1);
TG1:=IF(((D1 = TT1) AND (TG1 = '')),TT1,TG1);
TG1:=IF(((GONG = D2) AND (T2 <> GONG)),T2,TG1);
TG1:=IF(((D2 = T2) AND (TG1 = '')),T2,TG1);
TG1:=IF(((GONG = D3) AND (T3 <> GONG)),T3,TG1);
TG1:=IF(((D3 = T3) AND (TG1 = '')),T3,TG1);
TG1:=IF(((GONG = D4) AND (T4 <> GONG)),T4,TG1);
TG1:=IF(((D4 = T4) AND (TG1 = '')),T4,TG1);
TG1:=IF(((GONG = D5) AND (TT5 <> GONG)),TT5,TG1);
TG1:=IF(((D5 = TT5) AND (TG1 = '')),TT5,TG1);
TG1:=IF(((GONG = D6) AND (T6 <> GONG)),T6,TG1);
TG1:=IF(((D6 = T6) AND (TG1 = '')),T6,TG1);
TG1:=IF(((GONG = D7) AND (TT7 <> GONG)),TT7,TG1);
TG1:=IF(((D7 = TT7) AND (TG1 = '')),TT7,TG1);
TG1:=IF(((GONG = D8) AND (TT8 <> GONG)),TT8,TG1);
TG1:=IF(((D8 = TT8) AND (TG1 = '')),TT8,TG1);
DP1:=GONG;
TG:=IF((TG1 = DP1),'旁推法推宫结果:','正推法推宫结果:');
TTG1:='';
TTG1:=IF(((TG1 = DP1) AND (TG1 = '震')),'巽',TTG1);
TTG1:=IF(((TG1 = DP1) AND (TG1 = '艮')),'兑',TTG1);
TTG1:=IF(((TG1 = DP1) AND (TG1 = '离')),'坎',TTG1);
TTG1:=IF(((TG1 = DP1) AND (TG1 = '乾')),'坤',TTG1);
TTG1:=IF((((TG1 = DP1) AND (TG1 = '坤')) AND (TTG1 = '')),'乾',TTG1);
TTG1:=IF((((TG1 = DP1) AND (TG1 = '坎')) AND (TTG1 = '')),'离',TTG1);
TTG1:=IF((((TG1 = DP1) AND (TG1 = '兑')) AND (TTG1 = '')),'艮',TTG1);
TTG1:=IF((((TG1 = DP1) AND (TG1 = '巽')) AND (TTG1 = '')),'震',TTG1);
TG1:=IF((TG1 = DP1),TTG1,TG1);
EXPLAIN(CLOSE,TG);
TG2:=TG1;
TG2:=IF(((D1 = TG1) AND (TT1 <> TG1)),TT1,TG2);
TG2:=IF(((D2 = TG1) AND (T2 <> TG1)),T2,TG2);
TG2:=IF(((D3 = TG1) AND (T3 <> TG1)),T3,TG2);
TG2:=IF(((D4 = TG1) AND (T4 <> TG1)),T4,TG2);
TG2:=IF(((D5 = TG1) AND (T5 <> TG1)),TT5,TG2);
TG2:=IF(((D6 = TG1) AND (T6 <> TG1)),T6,TG2);
TG2:=IF(((D7 = TG1) AND (T7 <> TG1)),TT7,TG2);
TG2:=IF(((D8 = TG1) AND (T8 <> TG1)),TT8,TG2);
DP2:=IF((TG2 <> TG1),TG1,DP1);
DP2:=IF((DP2 = TG2),DP1,DP2);
TG2:=IF(((TG2 = DP1) AND (DP2 = TG1)),TG1,TG2);
DP2:=IF(((TG2 = TG1) AND (DP2 = TG1)),DP1,DP2);
TG3:=TG2;
TG3:=IF((((D1 = TG2) AND (TT1 <> TG1)) AND (TT1 <> TG2)),TT1,TG3);
TG3:=IF((((D2 = TG2) AND (T2 <> TG1)) AND (T2 <> TG2)),T2,TG3);
TG3:=IF((((D3 = TG2) AND (T3 <> TG1)) AND (T3 <> TG2)),T3,TG3);
TG3:=IF((((D4 = TG2) AND (T4 <> TG1)) AND (T4 <> TG2)),T4,TG3);
TG3:=IF((((D5 = TG2) AND (TT5 <> TG1)) AND (TT5 <> TG2)),TT5,TG3);
TG3:=IF((((D6 = TG2) AND (T6 <> TG1)) AND (T6 <> TG2)),T6,TG3);
TG3:=IF((((D7 = TG2) AND (TT7 <> TG1)) AND (TT7 <> TG2)),TT7,TG3);
TG3:=IF((((D8 = TG2) AND (TT8 <> TG1)) AND (TT8 <> TG2)),TT8,TG3);
DP3:=IF(((TG3 <> TG2) AND (TG3 <> TG1)),TG2,DP2);
DP3:=IF((DP3 = TG3),DP2,DP3);
TG3:=IF(((TG3 = DP2) AND (DP3 = TG2)),TG2,TG3);
DP3:=IF(((TG3 = TG2) AND (DP3 = TG2)),DP2,DP3);
TG3:=IF((TG = '旁推法推宫结果:'),TG2,TG3);
DP3:=IF((TG = '旁推法推宫结果:'),DP2,DP3); |
|