相關標簽:

 

A:=SUMBARS(V,CAPITAL*1);{累計換手=100%的周期}
A2:=SUM(COST(20),A)/A;{在A周期里獲利20%的平均價}
A10:=SUM(COST(10),A)/A;{在A周期里獲利10%的平均價}
A3:=SUM(COST(30),A)/A;{在A周期里獲利30%的平均價}
A4:=SUM(COST(40),A)/A;{在A周期里獲利40%的平均價}
A5:=SUM(COST(50),A)/A;{在A周期里獲利50%的平均價}
E:=LLV(L,250)=L;{一年中最低價的位置}
E1:=BARSLAST(E);{求得一年中最低價的位置到現(xiàn)在的周期}
莊家成本:(5*A10+4*A2+3*A3+2*A4+A5)/15, CIRCLEDOT,COLORRED;{求出啟動點的價位}
持股成本線:=DMA(AMOUNT/V/100,V/CAPITAL),COLORRED,LINETHICK2;
水平面:MA(CLOSE,89),COLORFFA2FF;
{MA(CLOSE,321),CIRCLEDOT;}
BBI:(MA(CLOSE,M1)+MA(CLOSE,M2)+MA(CLOSE,M3)+MA(CLOSE,M4))/4;
IF(BBI>REF(BBI,1),BBI,DRAWNULL),COLORRED,LINETHICK2;
IF(BBI<REF(BBI,1),BBI,DRAWNULL),COLORYELLOW,LINETHICK2;
MA3:MA(C,3),COLORBLUE,LINETHICK1;
MA24:MA(CLOSE,24),COLOR00E300,LINETHICK1;
MA3角度:(ATAN((MA3/REF(MA3,1)-1)*100)*180/3.1416),NODRAW;
V2:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);
STICKLINE(V2>=1,O,C,1.2,0),COLORYELLOW;
MA13:=MA(CLOSE,13);
X1:=(C+L+H)/3;
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;
EMA8:=EMA(C,8);
A1:=MIN(O,C);
B1:=ABS(O-C);
T1:=FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10);
STICKLINE(T1,A1,A1+B1/4,1.5,0),COLOR007575;
STICKLINE(T1,A1+B1/4,A1+B1/2,1.5,0),COLORFF0000;
STICKLINE(T1,A1+B1/2,A1+B1*3/4,1.5,0),COLOR007575;
STICKLINE(T1,A1+B1*3/4,A1+B1,1.5,0),COLORFF0000;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
{DRAWTEXT(CROSS(FF,MA15),(LOW * 0.97),1),COLORA6E500;
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.04),2),COLOR1880FF;}
STICKLINE(CROSS(FF,MA15),A1,A1+B1/2,1.5,0),COLOR7F017F;
STICKLINE(CROSS(88,RSI),A1+B1,A1+B1/2,1.5,0),COLORGREEN;
T2:=COUNT(CROSS(BBI,3),3)=1 AND CROSS(C,BBI);
DRAWTEXT(T2,H*1.05,3),COLORWHITE;
STICKLINE(T2,O,C,1.5,0),COLORRED;
T12:=V2>=1;
T0:=BARSLAST(T12);
L1:=REF(L,T0);
H1:=REF(H,T0);
STICKLINE(REF(T12,1) OR REF(T12,2) OR REF(T12,3),H1,H1,6,-1),COLORWHITE;
STICKLINE(REF(T12,1) OR REF(T12,2) OR REF(T12,3),L1,L1,6,-1),COLORWHITE;
{T11:=REF(T12,3) AND COUNT(L<L1,4)=0 AND COUNT(L>H1,4)>1;
DRAWTEXT(T11,H*1.05,4),COLORWHITE;
STICKLINE(T11,O,C,2,0),COLORFF00FF;}
{(REF(V2>=1,3) OR REF(V2>=1,2) OR REF(V2>=1,1)) };
L11:=MIN(REF(L,1),L);
L10:=MIN(L11,REF(L,2));
L21:=MAX(REF(L,1),L);
L20:=MAX(L21,REF(L,2));
T111:=(REF(V2>=1,3) OR REF(V2>=1,2) OR REF(V2>=1,1)) AND
((L10>L1 AND L20>H1) OR (L11>L1 AND L21>H1));
T11:=T111 AND REF(T111,1)=0;
STICKLINE(T11,O,C,1.5,0),COLORFF00FF;
高:=REF(HHV(H,N),M);
低:REF(LLV(L,N),M),COLORBLUE;
H19:=高-(高-低)*0.191;
H38:=高-(高-低)*0.382;
H中:=高-(高-低)*0.5;
H61:=高-(高-低)*0.618;
H80:高-(高-低)*0.809,COLORMAGENTA;
頂點:REFDATE(高,DATE),POINTDOT,LINETHICK2,COLORWHITE;
%19.8:REFDATE(H19,DATE),POINTDOT,LINETHICK2,COLORYELLOW;
%38.2:REFDATE(H38,DATE),POINTDOT,LINETHICK2,COLORGREEN;
%50:REFDATE(H中,DATE),POINTDOT,LINETHICK2,COLORRED;
%61.8:REFDATE(H61,DATE),POINTDOT,LINETHICK2,COLORMAGENTA;
%80.9:REFDATE(H80,DATE),POINTDOT,LINETHICK2,COLORBLUE;
低點:REFDATE(低,DATE),POINTDOT,LINETHICK2,COLORWHITE;
DRAWTEXT(ISLASTBAR,頂點,5),COLORWHITE;
DRAWTEXT(ISLASTBAR,低點,6),COLORWHITE;
STICKLINE(T1,A1,A1+B1/2,2,0),COLOR007575;
STICKLINE(T1,A1+B1/2,A1+B1,2,0),COLORBLUE;
STICKLINE(T11 AND T12,A1,A1+B1/2,2,0),COLORFF00FF;
STICKLINE(T11 AND T12,A1+B1/2,A1+B1,1.2,0),COLORYELLOW;
STICKLINE(T1 AND T12,A1+B1/3,A1+B1,1.2,0),COLORYELLOW;
STICKLINE(T1 AND T12,A1,A1+B1/3,2,0),COLOR007575;
STICKLINE(T1 AND T12,A1+B1/3,A1+B1*2/3,2,0),COLORBLUE;
STICKLINE(T2 AND T12,A1+B1/2,A1+B1,2,0),COLORRED;
STICKLINE(T2 AND T12,A1,A1+B1/2,1.2,0),COLORYELLOW;
【箱底】:TROUGH(CLOSE,10,1)*1.02,COLORWHITE;
VAR111:=(C+H+O+L)/4;
賣出:=XMA(VAR111,20)*(1+80/1000),DOTLINE;
買入:=XMA(VAR111,32)*(1-100/1000),DOTLINE;
STICKLINE(買入>LOW AND 買入<HIGH,買入,MIN(MIN(OPEN,CLOSE),買入),1.2,0),COLORMAGENTA;
STICKLINE(買入>MIN(C,O) AND 買入<MAX(C,O),買入,MIN(OPEN,CLOSE),1.3,0),COLORMAGENTA;
STICKLINE(買入>LOW AND 買入<HIGH,買入,LOW,0,0),COLORMAGENTA;
STICKLINE(買入>HIGH,OPEN,CLOSE,1.3,0),COLORMAGENTA;
STICKLINE(買入>HIGH,HIGH,LOW,0,0),COLORMAGENTA;
VAR1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));
VARD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2));
VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR10:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR11:=(REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR12:=(REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR13:=(REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR14:=(REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR15:=(REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR16:=(REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR17:=(REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR18:=(REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
YXF:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);RSV9:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K1:=SMA(RSV9,3,1);
DK1:=K1-REF(K1,1);
買:=IF(DK1>7 AND REF(DK1,1)<0 AND (DK1-REF(DK1,1))>9,50,0);DRAWICON(買=50 AND (FILTER(YXF=1,5) ) AND ((REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1)) AND VAR1)
OR (REF("KDJ.J",1)<0 AND "KDJ.J">0) AND (FILTER(YXF=1,5) ) AND ((REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1)) AND VAR1)
,L*0.98,1);M1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);
M2:=MA(M1,30);
D1:=(HHV(C,10)/C-1)*100;
D2:=COUNT(M2>M1,10);
V5:=MA(VOL,5);
V60:=MA(VOL,60);
D3:=COUNT(VOL>V60,10);
D4:=SUM(VOL,8)/8;
D5:=SUM(VOL,3)/3;
ZF:=(C-REF(C,1))/REF(C,1)*100;
V轉:DRAWTEXT(HHV(D1,2)>15 AND D2=10 AND (D4>D5 OR LLV(VOL,10)<V60) AND C>=O AND ZF>=0,L,'轉'),COLORGREEN;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;