楚河汉界的源码
本文来自：股神之路论坛 作者：上善若水AA 点击2130次
楚河汉界号称是最强悍的股票软件。这是转过来的源码。但是导入不了飞狐。不知道老师们有没有办法把这个源码导入大智慧或者同花顺。但还是希望老师们做一个楚河汉界的破解版。谢谢！{楚河漢界}
TD:=DATATYPE;
TT5:=IF((TD = 1),"CHUS.TT1#min5",IF((TD = 2),"CHUS.TT1#min15",IF((TD = 3),"CHUS.TT1#min60",IF((TD = 4),"CHUS.TT1#min60",IF((TD = 5),"CHUS.TT1#day",IF((TD = 6),"CHUS.TT1#week","CHUS.TT1#year"))))));
TT6:=IF((TD = 1),"CHUS.TT2#min5",IF((TD = 2),"CHUS.TT2#min15",IF((TD = 3),"CHUS.TT2#min60",IF((TD = 4),"CHUS.TT2#min60",IF((TD = 5),"CHUS.TT2#day",IF((TD = 6),"CHUS.TT2#week","CHUS.TT2#year"))))));
A3:=IF((TD = 1),"CHUS.TT3#min5",IF((TD = 2),"CHUS.TT3#min15",IF((TD = 3),"CHUS.TT3#min60",IF((TD = 4),"CHUS.TT3#min60",IF((TD = 5),"CHUS.TT3#day",IF((TD = 6),"CHUS.TT3#week","CHUS.TT3#year"))))));
A4:=IF((TD = 1),"CHUS.TT4#min5",IF((TD = 2),"CHUS.TT4#min15",IF((TD = 3),"CHUS.TT4#min60",IF((TD = 4),"CHUS.TT4#min60",IF((TD = 5),"CHUS.TT4#day",IF((TD = 6),"CHUS.TT4#week","CHUS.TT4#year"))))));
XC:=IF((TD = 1),"CHUS.TT5#min5",IF((TD = 2),"CHUS.TT5#min15",IF((TD = 3),"CHUS.TT5#min60",IF((TD = 4),"CHUS.TT5#min60",IF((TD = 5),"CHUS.TT5#day",IF((TD = 6),"CHUS.TT5#week","CHUS.TT5#year"))))));
XD:=IF((TD = 1),"CHUS.TT6#min5",IF((TD = 2),"CHUS.TT6#min15",IF((TD = 3),"CHUS.TT6#min60",IF((TD = 4),"CHUS.TT6#min60",IF((TD = 5),"CHUS.TT6#day",IF((TD = 6),"CHUS.TT6#week","CHUS.TT6#year"))))));
FILLRGN(((XC >= XD)),EMA(TT5,4),EMA(TT6,4)),color9966CC;
FILLRGN(((XC < XD)),EMA(TT5,4),EMA(TT6,4)),colorFFFF00;
FILLRGN(((EMA(CLOSE,8) >= EMA(CLOSE,20))),EMA(A3,4),EMA(A4,4)),colorFF99CC;
FILLRGN(((EMA(CLOSE,8) < EMA(CLOSE,20))),EMA(A3,4),EMA(A4,4)),colorFFFF99;
FO:=OPEN;
FH:=HIGH;
FL:=LOW;
FC:=CLOSE;
KK:=IF(((FC >= FO) AND ((FC >= REF(FC,1)) OR (REF(FC,1) >= REF(FO,1)))),1,IF(((FC < FO) AND ((FC < REF(FO,1)) OR (REF(FC,1) < REF(FO,1)))),(0 - 1),0));
明日轉折: (ROUND(((FO + FC) / 2))),SHIFT1,LINETHICK0,colorFFFF;
今日轉折:=ROUND(IF((KK = 1),MIN(FC,FO),IF((KK = (0 - 1)),MAX(FC,FO),IF((REF(KK,1) = 1),MIN(FC,FO),IF((REF(KK,1) = (0 - 1)),MAX(FC,FO),((FC + FO) / 2))))));
DRAWNUMBER((ISLASTBAR),明日轉折,ROUND(明日轉折),2),SHIFT3;
STICKLINE((((FC > FO))),FH,FL,0.4,0),colorFF;
STICKLINE((((FO > FC))),FH,FL,0.4,0),colorFF0000;
STICKLINE(KK = 1 AND FC >= FO,FO,FC,8,0),colorFF;
STICKLINE(KK = 1 AND FC < FO,FO,FC,8,0),colorFF;
STICKLINE(KK = (0 - 1) AND FC >= FO,FO,FC,8,0),colorFF0000;
STICKLINE(KK = (0 - 1) AND FC < FO,FO,FC,8,0),colorFF0000;
STICKLINE(KK = 0 AND FC >= FO,FO,FC,8,0),colorFF;
STICKLINE(KK = 0 AND FC < FO,FO,FC,8,0),colorFF;
{楚河漢界引用公式}
{公称名称: CHUS}
AAA:=1;TT:=1;
RC:=(REF(CLOSE,1) * AAA);
XA:=IF((RC > HIGH),RC,0);
XB:=IF(((HIGH >= RC) AND (RC > LOW)),HIGH,0);
XC:=IF((RC <= LOW),HIGH,0);
XD:=((XA + XB) + XC);
YA:=IF((RC > HIGH),LOW,0);
YB:=IF(((HIGH >= RC) AND (RC > LOW)),LOW,0);
YC:=IF((RC <= LOW),RC,0);
YD:=((YA + YB) + YC);
ATR:=SMA((XD - YD),20,1);
TT1: (EMA(CLOSE,20) + (2 * ATR)),LINETHICK0;
TT2: (EMA(CLOSE,20) - (2 * ATR)),LINETHICK0;
TT3: ((((TT1 + TT1) + TT1) + TT2) / 4),LINETHICK0;
TT4: ((((TT1 + TT2) + TT2) + TT2) / 4),LINETHICK0;
TT5: EMA(CLOSE,8),LINETHICK0;
TT6: EMA(CLOSE,20),LINETHICK0;
