BDYS多空跑道源码
文章出处:易坚 发布时间:2005-12-02
input:N(10,1,100);
CC:=(((HIGH + LOW) + (3 * CLOSE)) / 5);
VAR1:=EMA(CC,5);
VAR2:=EMA(CC,13);
VAR3:=EMA(CC,21);
VAR4:=EMA(CC,34);
HLA:=((((VAR1 + VAR2) + VAR3) + VAR4) / 4);
MA0:=EMA(HLA,4);
MA1:=EMA(HLA,5);
MA2:=EMA(HLA,6);
MA3:=EMA(HLA,7);
MA4:=EMA(HLA,8);
MA5:=EMA(HLA,9);
MA6:=EMA(HLA,10);
MA8:=EMA(HLA,12);
MA10:=EMA(HLA,14);
MA11:=EMA(HLA,15);
MA12:=EMA(HLA,16);
MA13:=EMA(HLA,17);
MA14:=EMA(HLA,18);
MA15:=EMA(HLA,19);
MA16:=EMA(HLA,20);
AR2:=EMA(CLOSE,12.5)-EMA(CLOSE,25);
AR3:=EMA(AR2,15);
AR4:=(AR2-AR3)*2;
AR5:=IF(AR4>0.3,POW(AR4,3)*5/10+POW(AR4,2),0);
AR6:=(AR5 - REF(AR5,1));
R1:=((((HHV(HIGH,9) - CLOSE) / (HHV(HIGH,9) - LLV(LOW,9))) * 100) - 70);
R2:=(SMA(R1,9,1) + 100);
R3:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
R4:=SMA(R3,3,1);
R5:=(SMA(R4,3,1) + 100);
R6:=(R5 - R2);
Q:=IF((R6 > 100),(R6 - 100),0);
OQ:=(Q - REF(Q,1));
VR1:=DMA((((((3 * HIGH) + LOW) + OPEN) + (2 * CLOSE)) / 7),(VOL / ((SUM(AMOUNT,3) / ((AMOUNT / VOL) / 100)) / 100)));
VR2:=((((((((100 * (MA(CLOSE,13) - REF(MA(CLOSE,13),1))) / REF(MA(CLOSE,13),1)) > 0) OR (((100 * (VR1 - REF(VR1,1))) / REF(VR1,1)) > 0)) OR (SMA(SMA((((CLOSE - LLV(LOW,60)) / (HHV(HIGH,60) - LLV(LOW,60))) * 100),5,1),10,1) > 80)) OR (SMA((((CLOSE - LLV(LOW,60)) / (HHV(HIGH,60) - LLV(LOW,60))) * 100),5,1) > 80)) OR (((3 * SMA((((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100),3,1)) - (2 * SMA(SMA((((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100),3,1),3,1))) > 0)) OR CROSS(SMA(SMA((((CLOSE - LLV(LOW,60)) / (HHV(HIGH,60) - LLV(LOW,60))) * 100),5,1),10,1),SMA((((CLOSE - LLV(LOW,60)) / (HHV(HIGH,60) - LLV(LOW,60))) * 100),5,1)));
VR3:=(((((100 * (MA(CLOSE,13) - REF(MA(CLOSE,13),1))) / REF(MA(CLOSE,13),1)) < 0) AND (((100 * (VR1 - REF(VR1,1))) / REF(VR1,1)) < 0)) AND (((100 * (CLOSE - VR1)) / VR1) < 0));
分:FORCAST(CLOSE,120),LINETHICK2,colorFFFFFF;
快:WMA(CC,30),CIRCLEDOT,colorFFFFFF;
慢:WMA(CC,60),CIRCLEDOT,colorFFFF00;
上:DMA(COST(99),VOL/SUM(CLOSE/CLOSE,0)),LINETHICK2,colorFF0000;
中:DMA(COST(50),VOL/SUM(CLOSE/CLOSE,0)),LINETHICK2,colorFF;
下:DMA(COST(1),VOL/SUM(CLOSE/CLOSE,0)),LINETHICK2,colorFF00;
DRAWTEXT(CROSS(0,OQ),HIGH*1.05,'卖'),colorFFFF;
DRAWICON(REF(AR6,1)>0 AND AR6<0,HIGH*1.05,2);
DRAWICON(REF(AR6,1)<0 AND AR6>0,LOW*0.95,1);
DRAWTEXT(CROSS(OQ,0),LOW*0.95,'买'),colorFF00;
STICKLINE(VR2 AND OPEN>=CLOSE,OPEN,CLOSE,7,0),colorFF;
STICKLINE(VR2 AND OPEN
STICKLINE(VR2 AND OPEN>CLOSE,HIGH,OPEN,0.8,0),colorFF;
STICKLINE(VR2 AND OPEN>CLOSE,LOW,CLOSE,0.8,0),colorFF;
STICKLINE(VR2 AND OPEN<=CLOSE,HIGH,CLOSE,0.8,0),colorFF;
STICKLINE(VR2 AND OPEN<=CLOSE,LOW,OPEN,0.8,0),colorFF;
STICKLINE(VR3,OPEN,CLOSE,7,0),colorFFFF00;
STICKLINE(VR3 AND OPEN>CLOSE,OPEN,CLOSE,7,0),colorFFFF00;
STICKLINE(VR3 AND OPEN
STICKLINE(VR3 AND OPEN<=CLOSE,HIGH,LOW,0.8,0),colorFFFF00;
STICKLINE(VR3 AND OPEN>CLOSE,OPEN,HIGH,0.8,1),colorFFFF00;
STICKLINE(VR3 AND OPEN>CLOSE,LOW,CLOSE,0.8,0),colorFFFF00;
PARTLINE(CLOSE>MA0,MA0),colorFFFF;
PARTLINE(CLOSE < MA0,MA0),colorFF0000;
PARTLINE(CLOSE > MA1,MA1),colorFF;
PARTLINE(CLOSE < MA1,MA1),colorFF00;
PARTLINE(CLOSE > MA2,MA2),colorFF;
PARTLINE(CLOSE < MA2,MA2),colorFF00;
PARTLINE(CLOSE > MA3,MA3),colorFF;
PARTLINE(CLOSE < MA3,MA3),colorFF00;
PARTLINE(CLOSE > MA4,MA4),colorFF;
PARTLINE(CLOSE < MA4,MA4),colorFF00;
PARTLINE(CLOSE > MA5,MA5),colorFF;
PARTLINE(CLOSE < MA5,MA5),colorFF00;
PARTLINE(CLOSE > MA6,MA6),colorFF;
PARTLINE(CLOSE < MA6,MA6),colorFF00;
PARTLINE(CLOSE > MA8,MA8),POINTDOT,LINETHICK2,colorFFFF;
PARTLINE(CLOSE < MA8,MA8),POINTDOT,LINETHICK2,colorFF0000;
PARTLINE(CLOSE > MA10,MA10),colorFF;
PARTLINE(CLOSE < MA10,MA10),colorFF00;
PARTLINE(CLOSE > MA11,MA11),colorFF;
PARTLINE(CLOSE < MA11,MA11),colorFF00;
PARTLINE(CLOSE > MA12,MA12),colorFF;
PARTLINE(CLOSE < MA12,MA12),colorFF00;
PARTLINE(CLOSE > MA13,MA13),colorFF;
PARTLINE(CLOSE < MA13,MA13),colorFF00;
PARTLINE(CLOSE > MA14,MA14),colorFF;
PARTLINE(CLOSE < MA14,MA14),colorFF00;
PARTLINE(CLOSE > MA15,MA15),colorFF;
PARTLINE(CLOSE < MA15,MA15),colorFF00;
PARTLINE(CLOSE > MA16,MA16),colorFFFF;
PARTLINE(CLOSE < MA16,MA16),colorFF0000;
CC:=(((HIGH + LOW) + (3 * CLOSE)) / 5);
VAR1:=EMA(CC,5);
VAR2:=EMA(CC,13);
VAR3:=EMA(CC,21);
VAR4:=EMA(CC,34);
HLA:=((((VAR1 + VAR2) + VAR3) + VAR4) / 4);
MA0:=EMA(HLA,4);
MA1:=EMA(HLA,5);
MA2:=EMA(HLA,6);
MA3:=EMA(HLA,7);
MA4:=EMA(HLA,8);
MA5:=EMA(HLA,9);
MA6:=EMA(HLA,10);
MA8:=EMA(HLA,12);
MA10:=EMA(HLA,14);
MA11:=EMA(HLA,15);
MA12:=EMA(HLA,16);
MA13:=EMA(HLA,17);
MA14:=EMA(HLA,18);
MA15:=EMA(HLA,19);
MA16:=EMA(HLA,20);
AR2:=EMA(CLOSE,12.5)-EMA(CLOSE,25);
AR3:=EMA(AR2,15);
AR4:=(AR2-AR3)*2;
AR5:=IF(AR4>0.3,POW(AR4,3)*5/10+POW(AR4,2),0);
AR6:=(AR5 - REF(AR5,1));
R1:=((((HHV(HIGH,9) - CLOSE) / (HHV(HIGH,9) - LLV(LOW,9))) * 100) - 70);
R2:=(SMA(R1,9,1) + 100);
R3:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
R4:=SMA(R3,3,1);
R5:=(SMA(R4,3,1) + 100);
R6:=(R5 - R2);
Q:=IF((R6 > 100),(R6 - 100),0);
OQ:=(Q - REF(Q,1));
VR1:=DMA((((((3 * HIGH) + LOW) + OPEN) + (2 * CLOSE)) / 7),(VOL / ((SUM(AMOUNT,3) / ((AMOUNT / VOL) / 100)) / 100)));
VR2:=((((((((100 * (MA(CLOSE,13) - REF(MA(CLOSE,13),1))) / REF(MA(CLOSE,13),1)) > 0) OR (((100 * (VR1 - REF(VR1,1))) / REF(VR1,1)) > 0)) OR (SMA(SMA((((CLOSE - LLV(LOW,60)) / (HHV(HIGH,60) - LLV(LOW,60))) * 100),5,1),10,1) > 80)) OR (SMA((((CLOSE - LLV(LOW,60)) / (HHV(HIGH,60) - LLV(LOW,60))) * 100),5,1) > 80)) OR (((3 * SMA((((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100),3,1)) - (2 * SMA(SMA((((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100),3,1),3,1))) > 0)) OR CROSS(SMA(SMA((((CLOSE - LLV(LOW,60)) / (HHV(HIGH,60) - LLV(LOW,60))) * 100),5,1),10,1),SMA((((CLOSE - LLV(LOW,60)) / (HHV(HIGH,60) - LLV(LOW,60))) * 100),5,1)));
VR3:=(((((100 * (MA(CLOSE,13) - REF(MA(CLOSE,13),1))) / REF(MA(CLOSE,13),1)) < 0) AND (((100 * (VR1 - REF(VR1,1))) / REF(VR1,1)) < 0)) AND (((100 * (CLOSE - VR1)) / VR1) < 0));
分:FORCAST(CLOSE,120),LINETHICK2,colorFFFFFF;
快:WMA(CC,30),CIRCLEDOT,colorFFFFFF;
慢:WMA(CC,60),CIRCLEDOT,colorFFFF00;
上:DMA(COST(99),VOL/SUM(CLOSE/CLOSE,0)),LINETHICK2,colorFF0000;
中:DMA(COST(50),VOL/SUM(CLOSE/CLOSE,0)),LINETHICK2,colorFF;
下:DMA(COST(1),VOL/SUM(CLOSE/CLOSE,0)),LINETHICK2,colorFF00;
DRAWTEXT(CROSS(0,OQ),HIGH*1.05,'卖'),colorFFFF;
DRAWICON(REF(AR6,1)>0 AND AR6<0,HIGH*1.05,2);
DRAWICON(REF(AR6,1)<0 AND AR6>0,LOW*0.95,1);
DRAWTEXT(CROSS(OQ,0),LOW*0.95,'买'),colorFF00;
STICKLINE(VR2 AND OPEN>=CLOSE,OPEN,CLOSE,7,0),colorFF;
STICKLINE(VR2 AND OPEN
STICKLINE(VR2 AND OPEN>CLOSE,LOW,CLOSE,0.8,0),colorFF;
STICKLINE(VR2 AND OPEN<=CLOSE,HIGH,CLOSE,0.8,0),colorFF;
STICKLINE(VR2 AND OPEN<=CLOSE,LOW,OPEN,0.8,0),colorFF;
STICKLINE(VR3,OPEN,CLOSE,7,0),colorFFFF00;
STICKLINE(VR3 AND OPEN>CLOSE,OPEN,CLOSE,7,0),colorFFFF00;
STICKLINE(VR3 AND OPEN
STICKLINE(VR3 AND OPEN>CLOSE,OPEN,HIGH,0.8,1),colorFFFF00;
STICKLINE(VR3 AND OPEN>CLOSE,LOW,CLOSE,0.8,0),colorFFFF00;
PARTLINE(CLOSE>MA0,MA0),colorFFFF;
PARTLINE(CLOSE < MA0,MA0),colorFF0000;
PARTLINE(CLOSE > MA1,MA1),colorFF;
PARTLINE(CLOSE < MA1,MA1),colorFF00;
PARTLINE(CLOSE > MA2,MA2),colorFF;
PARTLINE(CLOSE < MA2,MA2),colorFF00;
PARTLINE(CLOSE > MA3,MA3),colorFF;
PARTLINE(CLOSE < MA3,MA3),colorFF00;
PARTLINE(CLOSE > MA4,MA4),colorFF;
PARTLINE(CLOSE < MA4,MA4),colorFF00;
PARTLINE(CLOSE > MA5,MA5),colorFF;
PARTLINE(CLOSE < MA5,MA5),colorFF00;
PARTLINE(CLOSE > MA6,MA6),colorFF;
PARTLINE(CLOSE < MA6,MA6),colorFF00;
PARTLINE(CLOSE > MA8,MA8),POINTDOT,LINETHICK2,colorFFFF;
PARTLINE(CLOSE < MA8,MA8),POINTDOT,LINETHICK2,colorFF0000;
PARTLINE(CLOSE > MA10,MA10),colorFF;
PARTLINE(CLOSE < MA10,MA10),colorFF00;
PARTLINE(CLOSE > MA11,MA11),colorFF;
PARTLINE(CLOSE < MA11,MA11),colorFF00;
PARTLINE(CLOSE > MA12,MA12),colorFF;
PARTLINE(CLOSE < MA12,MA12),colorFF00;
PARTLINE(CLOSE > MA13,MA13),colorFF;
PARTLINE(CLOSE < MA13,MA13),colorFF00;
PARTLINE(CLOSE > MA14,MA14),colorFF;
PARTLINE(CLOSE < MA14,MA14),colorFF00;
PARTLINE(CLOSE > MA15,MA15),colorFF;
PARTLINE(CLOSE < MA15,MA15),colorFF00;
PARTLINE(CLOSE > MA16,MA16),colorFFFF;
PARTLINE(CLOSE < MA16,MA16),colorFF0000;

绝对准确的买卖指标原码(价值