通达信自动预测赢家主图指标 源码分享
通达信自动预测赢家主图指标 源码分享
通达信自动预测赢家主图指标 源码分享
通达信自动预测赢家主图指标 源码分享
{---------------------源码开始---------------------}
自动预测周期:=10;
全画开关:=1;
最高:=30;
最低:=10;
VAR1:=BARSCOUNT(C);
VAR2:=CONST(VAR1);
VAR3:=VAR2-VAR1;
K线计数:VAR3+1,NODRAW,COLORYELLOW;
{自动预测周期}
DRAWKLINE(H,O,L,C);
A1:=(REF(HIGH,自动预测周期) = HHV(HIGH,(自动预测周期 + 1)));
B1:=FILTER(A1,自动预测周期);
C1:=BACKSET(B1,(自动预测周期 + 1));
D1:=FILTER(C1,自动预测周期);
A2:=(REF(LOW,自动预测周期) = LLV(LOW,(自动预测周期 + 1)));
B2:=FILTER(A2,自动预测周期);
C2:=BACKSET(B2,(自动预测周期 + 1));
D2:=FILTER(C2,自动预测周期);
E1:=((REF(LLV(LOW,自动预测周期),1) + REF(HHV(HIGH,自动预测周期),1)) / 2);
E2:=((HIGH + LOW) / 2);
H1:=(((D1 AND NOT((D2 AND (E1 >= E2)))) OR ISLASTBAR) OR (BARSCOUNT(CLOSE) = 1));
L1:=(D2 AND NOT((D1 AND (E1 < E2))));
H2:=(D1 AND NOT((D2 AND (E1 >= E2))));
X1:=REF(BARSLAST(H1),1) + 1;
F1:=BACKSET((H1 AND (COUNT(L1,X1) > 0)),LLVBARS(IF(L1,LOW,10000),X1));
G1:=(F1 > REF(F1,1));
I1:=BACKSET(G1,2);
LD:=(I1 > REF(I1,1));
L2:=((LD OR ISLASTBAR) OR (BARSCOUNT(CLOSE) = 1));
X2:=(REF(BARSLAST(L2),1) + 1);
F2:=BACKSET((L2 AND (COUNT(H2,X2) > 0)),HHVBARS(IF(H2,HIGH,0),X2));
G2:=(F2 > REF(F2,1));
I2:=BACKSET(G2,2);
HD:=(I2 > REF(I2,1));
{全画}{六六公式网WWW.66gsw.COM}
IF(全画开关=1,DRAWLINE(LD,L,HD,H,0),DRAWNULL)COLORRED;
IF(全画开关=1,DRAWLINE(HD,H,LD,L,0),DRAWNULL)COLORGREEN;
DRAWTEXT(全画开关=1 AND LD AND BARSLAST(HD)<BARSLAST(REF(LD,1)) ,L*0.98,'Ａ'),COLORRED;
DRAWNUMBER(全画开关=1 AND LD AND BARSLAST(HD)<BARSLAST(REF(LD,1)) ,L*0.98,L),COLORRED;
DRAWTEXT(全画开关=1 AND HD,H*1.01,'Ｂ'),COLORGREEN;
DRAWNUMBER(全画开关=1 AND HD,H*1.01,H),COLORGREEN;
最高价格:=HHV(REF(HIGH,最高-1),2),NODRAW;
最低价格:=LLV(REF(LOW,最低-1),2),NODRAW;
高低比:=最高价格/最低价格;
高低比平方:=SQRT(高低比);
再平放:=SQRT(高低比平方);
短高点B:=最低价格*(SQRT(高低比)+再平放-1)NODRAW;
短高点:CONST(短高点B),NODRAW;
短中点:CONST(最高价格/高低比平方),NODRAW;
VAR12:=最低价格*SQRT(SQRT(最高价格/最低价格));
短低点:CONST(VAR12),NODRAW;
求最高值:=REFDATE(HHV(HIGH,最高),DATE);
求最低值:=REFDATE(LLV(LOW,最低),DATE);
{DRAWLINE(CURRBARSCOUNT=最低,短高点,ISLASTBAR,短高点,0)POINTDOT,LINETHICK4,COLORMAGENTA;{C3横线}
DRAWLINE(CURRBARSCOUNT=最低,短高点,CURRBARSCOUNT,短高点,0)DOTLINE,LINETHICK1,COLORMAGENTA;{C3横线}
DRAWLINE(CURRBARSCOUNT=最低,短中点,CURRBARSCOUNT,短中点,0)DOTLINE,LINETHICK1,COLORMAGENTA;{C2横线}
DRAWLINE(CURRBARSCOUNT=最低,短低点,CURRBARSCOUNT,短低点,0)DOTLINE,LINETHICK1,COLORMAGENTA;{C1横线}
DRAWTEXT(CURRBARSCOUNT=最低,短高点*1.01,STRCAT(' C3:',CON2STR(短高点,2))),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=最低,短中点*0.99,STRCAT(' C2:',CON2STR(短中点,2)))COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=最低,短低点*0.97,STRCAT(' C1:',CON2STR(短低点,2)))COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=最高,H,'( 高B )'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=最低,L,'( 低A )'),COLORYELLOW;
DRAWICON(CURRBARSCOUNT=最低,L,38);{历史低点标记}
DRAWICON(CURRBARSCOUNT=最高,H,39);{历史高点标记};
DRAWLINE(CURRBARSCOUNT=最低,L,CURRBARSCOUNT=最高,H,0)COLORMAGENTA,LINETHICK2;{最高到低点划线}
DRAWLINE(CURRBARSCOUNT=最高,H,CURRBARSCOUNT=最低,L,0)COLORMAGENTA,LINETHICK2;{最低到高点划线};
DRAWLINE(CURRBARSCOUNT=最低,L,短高点,短高点,-1)DOTLINE,LINETHICK1,COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=最低,L,短高点,0,0),COLORMAGENTA;
{----------------------源码结束---------------------}
|
