超短线核武器
本帖最后由 wen98 于 2015-4-28 18:49 编辑回馈178448，奉上自编超短线波段源码
VAR1:=(2*CLOSE+OPEN)/3;
VAR2:=(CLOSE-MA(CLOSE,2))/MA(CLOSE,2)*100;
VAR3:=(EMA(VAR2,1)+EMA(VAR2,3)+EMA(VAR2,6))/2;
A1:=EMA(VAR3,2);
A2:=EMA(A1,2);
A3:=EMA(A2,2);
DRAWICON(CROSS(A1,A3),A3-2,1);
DRAWICON(CROSS(A3,A1),A3+2,2);
STICKLINE((A1 >= A3),A1,A3,4,1),COLORRED;
STICKLINE((A1 >= A3),A1,A3,4,1),COLORRED;
STICKLINE((A1 >= A3),A1,A3,4,1),COLORRED;
STICKLINE((A1 >= A3),A1,A3,4,1),COLORRED;
STICKLINE((A1 >= A3),A1,A3,4,1),COLORRED;
STICKLINE((A1 >= A3),A1,A3,4,1),COLORRED;
STICKLINE((A1 <= A3),A1,A3,4,1),COLORGREEN;
STICKLINE((A1 <= A3),A1,A3,4,1),COLORGREEN;
STICKLINE((A1 <= A3),A1,A3,4,1),COLORGREEN;
STICKLINE((A1 <= A3),A1,A3,4,1),COLORGREEN;
STICKLINE((A1 <= A3),A1,A3,4,1),COLORGREEN;
STICKLINE((A1 <= A3),A1,A3,4,1),COLORGREEN;
具体用法，请狂顶，加分，本人一定知恩图报 A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1));
B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1);
分水岭:IF(MA(CLOSE,17)<B,B,MA(CLOSE,17)),COLORFF00FF,LINETHICK1;
PMA:=分水岭;
DD:=分水岭<REF(分水岭,1);
IF(DD,分水岭,DRAWNULL),COLOR00FF00,LINETHICK1;
操作线:分水岭-(EMA(C,3)-分水岭),COLOR00FFFF,LINETHICK1;
S:=(PMA>操作线);
IF(S,分水岭,DRAWNULL),COLOR00FF00,POINTDOT,LINETHICK1;
PM:MA(C,5),COLORFFFFCC,LINETHICK1;
IF(PM>REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK1;
IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED;
IF(PM<REF(PM,1),PM,DRAWNULL),COLORFF9900,LINETHICK1;
DRAWTEXT(CROSS(分水岭,操作线),分水岭-0.1,'三底背离');
A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));
B1:=REF(C,A1+1)>C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA");
DRAWTEXT(B1>0,L-0.02,'M底背离'),COLOR00FFFF;
A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
DRAWTEXT(B2,L-0.10,'K底背离'),COLORFF00FF;
A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
DRAWTEXT(B3>0,L-0.18,'R底背离'),COLOR0000FF;
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));
D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF");
DRAWTEXT(D1>0,H+0.16,'M顶背离'),COLOR00FF00;
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K");
DRAWTEXT(D2>0,H+0.08,'K顶背离'),COLORFFFFCC;
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
DRAWTEXT(D3>0,H+0.04,'R顶背离'),COLORFF9900; #在这里快速回{主图} N:=20; N1:=7; N2:=69; T1:=IF((DATE<=1341231),1,0); M3:=EMA(CLOSE,3); M8:EMA(CLOSE,8),CoLor008000; M13:EMA(M8,13),CoLor0000FF; M62:EMA(M8,55),CoLorF0F000; VAR1:=EMA(M13,62); M81:EMA(M62,81),CoLor00FFFF; M144:EMA(VAR1,144),Linethick2,CoLor0000FF; M250:EMA(VAR1,250),POINTDOT,Linethick2,CoLorF00FF0; VAR2:=(CLOSE+HIGH+LOW)/(3); VAR3:=(EMA(VAR2,10))*(T1); VAR4:=(REF(VAR3,1))*(T1); STICKLINE((VAR3>VAR4),VAR3,VAR4,4,0),CoLor00FFFF; STICKLINE((VAR3<VAR4),VAR3,VAR4,4,0),CoLorFF0000; VAR5:=((REF(HIGH,1)+REF(LOW,1))/(2))*(T1); VAR6:=MA(CLOSE,N)+((2)*(STD(CLOSE,N)))*(T1); DRAWTEXT(CROSS(VAR3,VAR4),(VAR3)*(0.98),'★'),CoLor00FFFF; DRAWTEXT(CROSS(VAR5,VAR6),(HIGH)*(1.04),'↓卖'),CoLor008000; VAR7:=REF(CLOSE,1); VAR8:=((SMA(MAX(CLOSE-VAR7,0),N1,1))/(SMA(ABS(CLOSE-VAR7),N1,1)))*(100); VAR9:=CROSS(N2,VAR8); VARA:=(FILTER(VAR9,4))*(T1); DRAWTEXT(VARA,(HIGH)*(1.04),'↓卖'),CoLorFFFFFF; VARB:=((2)*(CLOSE)+HIGH+LOW)/(4); VARC:=LLV(LOW,34); VARD:=HHV(HIGH,34); VARE:=(EMA(((VARB-VAR1)/(VAR5-VAR1))*(100),7))*(T1); VARF:=(EMA((0.667)*(REF(VARE,1))+(0.333)*(VARE),5))*(T1); DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),8))/(8)>0.6) AND (VOL>=(1.5)*(MA(VOL,5))) AND COUNT((VARE>=VARF),3) AND (REF(LOW,1)=LLV(LOW,120)),1,0),LOW,'●买进'),CoLorFF00FF; DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),13))/(13)>0.6) AND COUNT((VARE>VARF),6) AND (REF(LOW,5)=LLV(LOW,120)) AND REF((CLOSE>=OPEN),4) AND REF((CLOSE>OPEN),3) AND REF((CLOSE>OPEN),2) AND REF((OPEN>CLOSE),1) AND (OPEN>REF(CLOSE,1)),1,0),LOW,'●买进'),CoLor00FFFF; VAR10:=(MA(CLOSE,80)-(MA(CLOSE,10))/(3))*(T1); DRAWTEXT(IF((CLOSE<VAR10) AND ((VOL)/(240)>(MA(VOL,5))/(240)) AND (CLOSE>(REF(CLOSE,1))*(1.08)) AND (CLOSE<(MA(CLOSE,13))*(1.3)),1,0),LOW,'●抄底'),CoLor0000FF;复# N1 1 100 10
N2 1 100 3
N3 1 100 6
PJJ:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9);
JJ:=REF(EMA(PJJ,3),1);
QJJ:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
XVL:=(IF((CLOSE > OPEN),(QJJ * (HIGH - LOW)),IF((CLOSE < OPEN),(QJJ * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2))) + IF((CLOSE > OPEN),(0 - (QJJ * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (QJJ * (HIGH - LOW))),(0 - (VOL / 2)))));
ZLL:=(VOL / CAPITAL);
HSL1:=IF((ZLL > 10),10,ZLL);
HSL:=((XVL / 20) / 1.15);
攻击流量:=(((HSL * 0.55) + (REF(HSL,1) * 0.33)) + (REF(HSL,2) * 0.22));
STICKLINE(((HSL * 0.4) >= 0),((HSL/1000) * 1.0),0,1,0),COLORRED;
STICKLINE(((HSL * 0.4) < 0),((HSL/1000) * 1.0),0,1,0),COLORBLUE;
力度: (HSL / 1000),LINETHICK0;
A1:=SUM(力度,N1);
A2:=EMA(A1,N2);
A3:=EMA(A1,N3);
累积能量:A1,NODRAW;
买: DRAWICON(CROSS(A1,A3),A3-2,1);
卖: DRAWICON(CROSS(A3,A1),A3+2,2);
持股:STICKLINE((A1 >= A3),A1,A3,4,1),COLORRED;
持币:STICKLINE((A1 <= A3),A1,A3,4,1),COLORGREEN; 重磅出击重磅出击 ddddddddddddddddddddddddd 看看，顶你 是真的吗？我也来试试！！！ 学习学习。 怎用？？？？？？？？ 学习学习.研究研究 学习学习.研究研究.已收藏. 它山之石，学习借鉴。 它山之石，学习借鉴。 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 我狂顶！支持源码！ 太过频繁，会被累死。 mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm