蛮不错的主图公式
2015-9-23 12:02:08点击:
蛮不错的主图公式,各位可以看看
INPUT:ZF(5,0,50); DRAWGBKlast(c>0,strip(RGB(0,0,190),RGB(0,40,0),0)); {K线} STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred; STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,0,0),colorred; STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),colorcyan; STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),OPEN,CLOSE,0,0),colorcyan; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR006600; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR008800; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000066; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000088; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR0000AA; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0000BB; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR0000CC; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000DD; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000EE; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF; {通道} CC:=WMA(C,3); HH:=HHV(H,3); LL:=LLV(L,3); ZC:=(2*CC+HH+LL)/4; WM3:WMA(ZC,3),COLORFF9900; PARTLINE(WM3 ,(WM3>REF(WM3,1))-1,rgb(0,150,255),1,rgb(255,150,0) ),LINETHICK2,LAYER0; MID : WMA(ZC,18),COLOR00ffFF,DOTLINE; UPPER: MID + 2*STD(ZC,18),COLOR0077FF; LOWER: MID - 2*STD(ZC,18),COLORFF9900; FILLRGN(UPPER,MID,UPPER>MID,RGB(60,0,60)),LAYER7; FILLRGN(LOWER,MID,LOWER<MID,RGB(20,20,20)),LAYER7; {ZIG买卖} 级买1:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3); 级卖1:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3); 级买2:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3); 级卖2:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3); 级买3:=ZIG(3,30)>REF(ZIG(3,30),1) AND REF(ZIG(3,30),1)<=REF(ZIG(3,30),2) AND REF(ZIG(3,30),2)<=REF(ZIG(3,30),3); 级卖3:=ZIG(3,30)<REF(ZIG(3,30),1) AND REF(ZIG(3,30),1)>=REF(ZIG(3,30),2) AND REF(ZIG(3,30),2)>=REF(ZIG(3,30),3); 级买4:=ZIG(3,55)>REF(ZIG(3,55),1) AND REF(ZIG(3,55),1)<=REF(ZIG(3,55),2) AND REF(ZIG(3,55),2)<=REF(ZIG(3,55),3); 级卖4:=ZIG(3,55)<REF(ZIG(3,55),1) AND REF(ZIG(3,55),1)>=REF(ZIG(3,55),2) AND REF(ZIG(3,55),2)>=REF(ZIG(3,55),3); 级买5:=ZIG(3,79)>REF(ZIG(3,79),1) AND REF(ZIG(3,79),1)<=REF(ZIG(3,79),2) AND REF(ZIG(3,79),2)<=REF(ZIG(3,79),3); 级卖5:=ZIG(3,79)<REF(ZIG(3,79),1) AND REF(ZIG(3,79),1)>=REF(ZIG(3,79),2) AND REF(ZIG(3,79),2)>=REF(ZIG(3,79),3); 买:=(级买1+级买2+级买3+级买4+级买5); 卖:=(级卖1+级卖2+级卖3+级卖4+级卖5); DRAWTEXT(买>=2,L-0.12,''+NUMTOSTRN(买,0)+'级买'),COLOR00FFFF,LINETHICK3,ALIGN1,LAYER0; DRAWTEXT(买>=2,L-0.03,'★'),COLOR0000FF,LINETHICK3,ALIGN1,LAYER0; DRAWTEXT(卖>=2,H+0.2,''+NUMTOSTRN(卖,0)+'级卖'),COLOR00FFFF,LINETHICK3,ALIGN1,LAYER0; DRAWTEXT(卖>=2,H+0.12,'★'),COLOR00FF00,LINETHICK3,ALIGN1,LAYER0; {股价趋势:} Z10:ZIG(3,ZF),COLOR00FF00,LINETHICK2,LAYER3; PARTLINE(Z10,Z10>REF(Z10,1),rgb(255,50,0) ),LINETHICK2,LAYER3; 持有:LAST(Z10>REF(Z10,1)),PRECIS0 ,LINETHICK0; 空仓:LAST(Z10<REF(Z10,1)),PRECIS0,LINETHICK0; X:=BARSLAST(DISPSTATUS=1)+1; JD:=HHvall(HHv(H,X))*1.06; DRAWTEXT(barstatus=2 AND 持有>0,JD,'★升势【第'+NUMTOSTRN(持有,0)+'天】'),ALIGN2,Color00FFff,linethick4,LAYER0; DRAWTEXT(barstatus=2 AND 空仓>0,JD,'★跌势【第'+NUMTOSTRN(空仓,0)+'天】'),ALIGN2,ColorFF00FF,linethick4,LAYER0; Low1:=TROUGH(3,ZF ,1); High1:=PEAK(3,ZF,1); STICKLINE(BARSTATUS=2 AND 持有>0,Low1,Low1,150,1),COLOR00FF00,LINETHICK2,LAYER4; STICKLINE(BARSTATUS=2 AND 持有>0,Low1*1.03,Low1*(1+ZF/100),25,0),COLOR0099DD,LINETHICK1,LAYER6; STICKLINE(BARSTATUS=2 AND 持有>0,Low1,Low1*1.03,25,0),COLORFF9900,LINETHICK1,LAYER5; STICKLINE(BARSTATUS=2 AND 空仓>0,High1,High1*(1-ZF/100),25,0),COLORff9900,LINETHICK1,LAYER5; STICKLINE(BARSTATUS=2 AND 空仓>0,High1*(1-ZF/100),High1*(1-ZF/100),25,0),COLOR00ffFF,LINETHICK1,LAYER5; STICKLINE(BARSTATUS=2 AND 空仓>0,High1,High1,150,1),COLOR0099ff,LINETHICK2,LAYER4; DRAWTEXT(barstatus=2 AND 空仓>0,High1,' 【'+NUMTOSTRN(High1,2)+'元】'),ALIGN1,Color00FFFF,linethick1,LAYER0; DRAWTEXT(barstatus=2 AND 持有>0,Low1,' 【'+NUMTOSTRN(Low1,2)+'元】'),ALIGN1,Color00FFFF,linethick1,LAYER0; DRAWTEXTABS(3,10,IFS((持有>0),'【ZIG(3,'+ZF+')】低点转折上涨小于【'+ZF+'%='+NUMTOSTRN(Low1*(1+ZF/100),2)+'元】时如果【C='+C+'元】低于【转折价='+Low1+'元】趋势将向下飘逸','')),LINETHICK2,Color00FFFF; DRAWTEXTABS(3,10,IFS((空仓>0),'【ZIG(3,'+ZF+')】高点转折下跌小于【'+ZF+'%='+NUMTOSTRN(High1*(1-ZF/100),2)+'元】时如果【C='+C+'元】高于【转折价='+High1+'元】趋势将向上飘逸','')),LINETHICK2,Color9999FF; {RSI.KDJ} var6:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(var6,3,1); D:=SMA(K,3,1); J:=(3*K-2*D); LC:=REF(C,1); RSI:((SMA(MAX((C - LC),0),3,1) / SMA(ABS((C - LC)),3,1)) * 100),LINETHICK0; DRAWTEXT(DISPSTATUS=2,JD*0.98,'【RSI:'+NUMTOSTRN(RSI,0)+'】'),COLOR00FFFF,LINETHICK2,ALIGN2; DRAWTEXT(DISPSTATUS=2,JD*0.965,'【J:'+NUMTOSTRN(J,1)+'】'),COLOR00FF00,LINETHICK2,ALIGN2; {高抛低吸} SJ:=WMA(((2*C+H+L)/4-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2); ZJ:=WMA(0.618*REF(SJ,1)+0.382*SJ,2); DRAWTEXT(CROSS(SJ,ZJ) AND SJ<30,L,'←吸'),COLOR00FFFF,LAYER3; DRAWTEXT(CROSS(ZJ,SJ) AND SJ>70,H,'←抛'),COLOR00FFFF,LAYER3;