【图】成本型带量攻击原码

成本型带量攻击

input:N1(5,0,100),N2(13,0,100),N3(34,0,100);
VAR0:=(REF(HIGH,1) * AMOUNT);
VAR1:=(REF(HIGH,10) * AMOUNT);
VAR2:=(HIGH * 1.01);
VAR3:=(((VAR2 * VOL) + (VAR1 * (CAPITAL - VOL))) / CAPITAL);
VAR4:=(REF(LOW,1) * 0.9);
VAR5:=(LOW * 0.9);
VAR6:=(((VAR5 * VOL) + (VAR4 * (CAPITAL - VOL))) / CAPITAL);
VAR7:=EMA(VAR6,10);
VAR8:=EMA(VAR3,30);
VAR9:=((VAR8 * 3) + 2);
VARA:=IF((CLOSE <= VAR7),VAR9,VAR8);
PP:=((VAR8 * 3) + 2);
QQ:=IF((VARA = PP),9,0);
DRAWTEXT(FILTER(QQ,21),(LOW - 0.2),'热身'),ALIGN0,colorFF;
MFQ:=(FILTER(QQ,21) = 1);
jj:=(AMOUNT / (100 * VOL));
吸筹成本:COST(LLV((LOW * 0.191),21)),colorFF00FF;
短线成本:EMA(jj,N1),colorFF00;
中线成本:EMA(jj,N2),colorFFFF;
长线成本:EMA(jj,N3),colorFFFF00;
无穷成本:DMA(CLOSE,(VOL / CAPITAL));
关注点选股:=FILTER((CROSS(短线成本,中线成本) AND (MA(CLOSE,3) > MA(CLOSE,5))),21);
DRAWTEXT(关注点选股,(LOW - 0.188),'增量'),ALIGN2,colorFF00FF;
CB:=INTPART(SMA((VOL * CLOSE),3,1));
三日均量:=INTPART(SMA((VOL * CLOSE),5,1));
五日均量:=INTPART(SMA((VOL * CLOSE),10,1));
十日均量:=INTPART(((CLOSE * VOL) - REF(五日均量,1)));
能量选股:(FILTER(((CROSS(十日均量,CB) AND (CB > 三日均量)) AND (MA(CLOSE,3) > MA(CLOSE,5))),21) = 1),LINETHICK0,colorFF;
DRAWICON((能量选股 AND (MA(CLOSE,3) > MA(CLOSE,5))),LOW,12);
DRAWTEXT((能量选股 AND (MA(CLOSE,3) > MA(CLOSE,5))),(LOW - 0.13013),'★带量攻击'),ALIGN0,colorFFFF;
能量增减:=((VOL * (((OPEN + CLOSE) + LOW) + HIGH)) / 400000);
A:=REF(CLOSE,1);
LC:=((SMA(MAX((CLOSE - A),0),N1,1) / SMA(ABS((CLOSE - A)),N1,1)) * 100);
P1:=((SMA(MAX((CLOSE - A),0),N2,1) / SMA(ABS((CLOSE - A)),N2,1)) * 100);
P2:=((SMA(MAX((CLOSE - A),0),N3,1) / SMA(ABS((CLOSE - A)),N3,1)) * 100);
P3:=EMA(能量增减,10);
MA10:=EMA(能量增减,30);
MA30:=(CROSS("KDJ.J",P3) AND ((CLOSE / REF(CLOSE,1)) > 0.91));
SG:=(CROSS("KDJ.J",MA10) AND ((CLOSE / REF(CLOSE,1)) > 0.91));
XG:=(CROSS(LC,P1) AND ((CLOSE / REF(CLOSE,1)) > 0.91));
SG1:=(CROSS(P1,P2) AND ((CLOSE / REF(CLOSE,1)) > 0.91));
SG2:=(CROSS(LC,P2) AND ((CLOSE / REF(CLOSE,1)) > 0.91));
SG3:=FILTER((MA30 AND SG),10);
JS:=FILTER((XG AND SG1),10);
JC:=(SG3 AND JS);
DRAWICON(FILTER(JC,10),LOW,10);
DRAWICON(FILTER(JS,10),LOW,1);
DRAWICON(FILTER(SG3,10),LOW,4);
DRAWTEXT(SG3,(LOW - 0.02118),'奇袭'),colorFF00;

[ 本帖最后由 蝶恋花 于 2006-1-24 21:53 编辑 ]股票论坛 www.55188.com