{叠伏系统1}

STICKLINE(C>0,85,92,10,0),COLOR408000;
STICKLINE(C>0,15,8,10,0),COLOR408000;
HDZ:EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3);
DRAWBAND(HDZ,RGB(255,000,139),10,RGB(255,255,71));
STICKLINE(C>0,90,10,10,0),COLORBLACK;
VAR1:=REF(LOW,1);
VAR2:=SMA(ABS(LOW-VAR1),3,1)/SMA(MAX(LOW-VAR1,0),3,1)*100;
VAR3:=EMA(IF(CLOSE*1.2,VAR2*10,VAR2/10),3);
VAR4:=LLV(LOW,38);
VAR5:=HHV(VAR3,38);
VAR6:=IF(LLV(LOW,90),1,0);
VAR7:=EMA(IF(LOW<=VAR4,(VAR3+VAR5*2)/2,0),3)/618*VAR6;
VAR8:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
VAR9:=SMA(VAR8,13,8);
主力吸货:VAR7,COLOR0000FF,NODRAW;
吸筹1:STICKLINE(VAR7,0,VAR7*0.2,6,0),COLOR0000FF;
吸筹2:STICKLINE(VAR7,0,VAR7*0.2,5,0),COLOR6600FF;
吸筹3:STICKLINE(VAR7,0,VAR7*0.2,4,0),COLORBB00FF;
吸筹4:STICKLINE(VAR7,0,VAR7*0.2,3,0),COLORFF00FF;
吸筹5:STICKLINE(VAR7,0,VAR7*0.2,2,0),COLORFF33FF;
吸筹6:STICKLINE(VAR7,0,VAR7*0.2,1,0),COLORFF66FF;
吸筹7:STICKLINE(VAR7,0,VAR7*0.2,0,0),COLORFF99FF;
HDY:EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3),COLORLIBLUE;
风险:=CEILING(SMA(VAR9,13,8)),LINETHICK2,COLORGREEN;
涨跌:=MA(3*SMA((C-LLV(L,34))/(HHV(H,34)-LLV(L,34))*100,5,1)-2*
SMA(SMA((C-LLV(L,34))/(HHV(H,34)-LLV(L,34))*100,5,1),3,1),5),LINETHICK2,COLORRED;
VARR1:=DYNAINFO(5);
VARR2:=BARSCOUNT(HIGH);
VARR3:=(SMA((HIGH / HHV(CLOSE,120)),3,1) * 100);
VARR4:=IF((VARR2 > 20),VARR3,0);
VARR5:=IF((HIGH < VARR1),0,IF((LOW > VARR1),1,(((VARR1 - HIGH) + 0.009) / ((LOW - HIGH) + 0.009))));
VARR6:=(DMA(VARR5,(VOL / CAPITAL)) * 60);
VARR7:=IF((((VARR6 > 0) AND (VARR6 > REF(VARR6,1))) AND (VARR4 >= 88)),VARR6,0);
VARR8:=((3 * SMA((((CLOSE - HHV(HIGH,55)) / (LLV(LOW,55) - HHV(HIGH,55))) * 100),5,1)) - (2 * SMA(SMA((((HIGH - HHV(HIGH,55)) / (LLV(LOW,55) - HHV(HIGH,55))) * 100),5,1),3,1)));
VARR9:=EMA(VARR8,8);
VARR10:=((3 * SMA((((HIGH - HHV(HIGH,89)) / (LLV(LOW,89) - HHV(HIGH,89))) * 100),5,1)) - (2 * SMA(SMA((((HIGH - HHV(HIGH,89)) / (LLV(LOW,89) - HHV(HIGH,89))) * 100),5,1),3,1)));
VARR11:=(EMA(VARR10,3) - 10);
{STICKLINE(((VARR7 > 0) AND ((VARR11 < 20) OR ((VARR11 > REF(VARR11,1)) AND (VARR11 < 50)))),0,VARR7,1,0),COLORLIGRAY;
STICKLINE(((VARR7 > 0) AND ((VARR11 < 20) OR ((VARR11 > REF(VARR11,1)) AND (VARR11 < 50)))),0,VARR7,1,0),COLORWHITE;
STICKLINE(((VARR7 > 0) AND ((VARR11 < 20) OR ((VARR11 > REF(VARR11,1)) AND (VARR11 < 50)))),0,VARR7,0,0),COLORFF99FF;}
STICKLINE(HDY<5,0,VAR7*0.2,1,0),COLORYELLOW;
IF(HDY>REF(HDY,1),HDY,DRAWNULL),COLORRED;

---------------------------------------------------------

{叠伏系统2}

CC:=FORCAST(C,3); OO:=FORCAST(O,3); HH:=FORCAST(H,3); LL:=FORCAST(L,3);
SHORT:=21; LONG:=34; M:=13;
{1.MACD}
DIFFFF:=EMA(CC,SHORT) - EMA(CC,LONG);
DEAAA:=EMA(DIFFFF,M);
MKCD:=WMA((DIFFFF-DEAAA),3)*400,COLOR00FF00,LINETHICK2;
{IF(MKCD>REF(MKCD,1),MKCD,DRAWNULL),COLOR0000FF,LINETHICK2;}
{2.MACD的BTX}
{差可能是正,是负-----相当与DIFF}
DC:=WMA(CC,SHORT/2)-WMA(CC,LONG/2); {收盘价的DIFF}
DK:=WMA(OO,SHORT/2)-WMA(OO,LONG/2); {开盘价的DIFF}
DH:=(WMA(HH,SHORT/2)-WMA(HH,LONG/2))*1.8; {最高价的DIFF}
DL:=(WMA(LL,SHORT/2)-WMA(LL,LONG/2))*1.8; {最低价的DIFF}
VARVA1:=DC>REF(DC,1) AND DC>REF(DC,2);
VARVA2:=REF(VARVA1,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);
VARVA3:=REF(VARVA2,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);
VARVA4:=REF(VARVA3,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);
VARVA5:=REF(VARVA4,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);
VARVA6:=REF(VARVA5,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);
VARVA7:=REF(VARVA6,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);
VARVA8:=REF(VARVA7,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);
VARVA9:=REF(VARVA8,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);
VARA:=REF(VARVA9,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);
VARB:=REF(VARA,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);
VARC:=REF(VARB,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);
STICKLINE(VARVA1 OR VARVA2 OR VARVA3 OR VARVA4 OR VARVA5 OR VARVA6 OR VARVA7 OR VARVA8 OR VARVA9 OR VARA OR VARB OR VARC,DC,REF(DC,1),3,0),COLOR0F33AA;
STICKLINE(VARVA1 OR VARVA2 OR VARVA3 OR VARVA4 OR VARVA5 OR VARVA6 OR VARVA7 OR VARVA8 OR VARVA9 OR VARA OR VARB OR VARC,DC,REF(DC,1),2,0),COLOR0F66CC;
STICKLINE(VARVA1 OR VARVA2 OR VARVA3 OR VARVA4 OR VARVA5 OR VARVA6 OR VARVA7 OR VARVA8 OR VARVA9 OR VARA OR VARB OR VARC,DC,REF(DC,1),1,0),COLOR0F99DD;
VARD:=DC VARE:=REF(VARD,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);
VARF:=REF(VARE,1) AND DC<