源码
{CZW-L}
DRAWBKBMP(CLOSE>0,'b004');
n1:=7;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.1,0),COLOR0000FF;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.1,0),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),LINETHICK2,COLOR5050FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0),COLOR5050FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6.6,0),COLOR5F5FFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0),COLOR5F5FFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5.5,0),COLOR6C6CFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0),COLOR6C6CFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4.4,0),COLOR7E7EFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0),COLOR7E7EFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.3,0),COLOR9D9DFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR9D9DFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.2,0),COLORAFAFFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),COLORAFAFFF;
STICKLINE(CLOSE
RKS:=REF(KS,1);
MLS:=RKS/KS>=1.23 AND RKS>=8 AND C/REF(C,1)>=1.02;
超跌:STICKLINE(KS>=17,o,L,6,0),colorwhite,linethick6;
反弹:STICKLINE(MLS=1,o,L,6,0),colormagenta,linethick6;
超超跌:STICKLINE(KS>=34,o,L,8,1),colorwhite,linethick6;
反反弹:STICKLINE(MLS=1,o,L,8,1),colormagenta,linethick6;
超极跌:STICKLINE(KS>=34,o,L,8,1),COLORCYAN,linethick6;
CZ:HHv(ma(h,11),1),colorred,LINETHICK2;
XX:llv(ma(h,11),5),colorgreen,LINETHICK2;
强弱分界:=EMA(CLOSE,55);
DRAWICON(C>=强弱分界,强弱分界,8);
DRAWICON(C<强弱分界,强弱分界,9);
Var1:=(OPEN+LOW+HIGH+CLOSE)/4;
ZC: LLV(LOW,60)*1.02 ,colorred;
YL: HHV(HIGH,60)*0.98,coloryellow;
Varr1:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
DRAWICON(CROSS(82,Varr1),HIGH,2);
DRAWTEXT(CROSS(82,Varr1),HIGH,'▲风险↓'),coloryellow;
拐点:=MA(CLOSE,3);
gd1:=REF(COUNT(拐点<=REF(拐点,1),5)=5 ,1) and 拐点>REF(拐点,1)linethick2 colorred
gd2:=REF(COUNT(拐点1<=REF(拐点1,1),5)=5 ,1) and 拐点1>REF(拐点1,1)linethick2 colorred ;//250天均线拐点
DRAWICON(gd1,0.98*CLOSE,1);
DRAWICON(gd2,0.98*CLOSE,8);
Var1:=WINNER(CLOSE);
Var2:=VOL/CAPITAL;
Var3:=Var2/Var1;
财神线:=IF(Var1
DRAWICON(财神线
WR:="W&R"(14);
DRAWICON(FILTER(CROSS(WR,(0 - 81)),10),L,4);//威廉买点↑ ↓
DRAWICON(FILTER(CROSS((0 -19),WR),10),H*1.02,5);//威廉卖点
DRAWTEXT(FILTER(CROSS(WR,(0 - 81)),21),L*0.98,'
W&R'),ALIGN0,COLORRED;//威廉买点
DRAWTEXT(FILTER(CROSS(0 -19,WR),21),H*1.03,'
W&R'),ALIGN2,COLORGREEN;//威廉卖点
次买:=O+(c-O)/2 ,LINETHICK2,POINTDOT,SHIFT1;
次卖:=C+(O-C)/2 ,COLORRED,POINTDOT,LINETHICK2,SHIFT1;
上涨空间预测:=C+((H-L)/2)*2 ,POINTDOT,LINETHICK2,SHIFT1;;
下跌空间预测:=c-((h-l)/2)*2 ,POINTDOT,LINETHICK2,SHIFT1;;
PARTLINE(次买 AND ISLASTBAR=1,次买),SHIFT1,pointdot,colorDDDDDD;
PARTLINE(上涨空间预测 AND ISLASTBAR=1,上涨空间预测),SHIFT1,pointdot,ColorDDDDDD;
PARTLINE(下跌空间预测 AND ISLASTBAR=1,下跌空间预测),SHIFT1,pointdot,colorDDDDDD;
次1:=C*2-ma(ref(C,3),3){ref(C,3)};
次2:=ref(C,1)*2-ma(ref(C,4),4){ref(C,4)};
次3:=ref(C,2)*2-ma(ref(C,5),5){ref(C,5)};
PARTLINE(C*2-ma(ref(C,3),3)AND ISLASTBAR=1,次1),shift3,coloryellow,linethick1,pointdot;
PARTLINE(ref(C,1)*2-ma(ref(C,4),4)AND ISLASTBAR=1,次2),shift2,coloryellow,linethick1,pointdot;
PARTLINE(ref(C,2)*2-ma(ref(C,5),5)AND ISLASTBAR=1,次3),shift1,coloryellow,linethick1,pointdot;
SHOPEN:=OPEN;
SHHIGH:=HIGH;
SHLOW:=LOW;
SHCLOSE:=CLOSE;
SHAMOUNT:=AMOUNT;
SHVOL:=VOL;
EXPLAINEX((VOL > 0),'当日价格重心:',((SHAMOUNT / SHVOL) / 100),2,0),;
EXPLAINEX((VOL > 0),'3日价格重心:',((SUM(SHAMOUNT,3) / SUM(SHVOL,3)) / 100),2,0),;
EXPLAINEX((VOL > 0),'收盘价:',CLOSE,2,0),;
EXPLAIN((((SUM(SHAMOUNT,3) / SUM(SHVOL,3)) / 100) > REF(((SUM(SHAMOUNT,3) / SUM(SHVOL,3)) / 100),1)),'重心上移'),,colorFF;
EXPLAIN((((SUM(SHAMOUNT,3) / SUM(SHVOL,3)) / 100) < REF(((SUM(SHAMOUNT,3) / SUM(SHVOL,3)) / 100),1)),'重心下移'),,colorFF00;
EXPLAIN((CLOSE > ((SUM(SHAMOUNT,3) / SUM(SHVOL,3)) / 100)),'收盘价格在3日重心以上'),,colorFF;
EXPLAIN((CLOSE < ((SUM(SHAMOUNT,3) / SUM(SHVOL,3)) / 100)),'收盘价格在3日重心以下'),,colorFF00;
J12:=(HIGH - ((HIGH - LOW) / 3));
J23:=(LOW + ((HIGH - LOW) / 3));
EXPLAIN((((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1),'K线解说:极端行情,在未来的几日内有85%的机会变更方向'),,colorFF00FF;
EXPLAIN(((((CLOSE > J23) AND (CLOSE < J12)) AND (OPEN > J23)) AND (OPEN < J12)),'K线解说:中性行情,多空双方都未能取得当日行情主动性的控制权'),,colorFFFF00;
EXPLAIN(((CLOSE >= J12) AND (OPEN <= J23)),'K线解说:爬升行情,整个交易期间都有买方主导'),,colorFF00FF;
EXPLAIN((((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE > J12)),'K线解说:爬升行情,信息较少,但收盘期间是买方主导,其他未知'),,colorFF00FF;
EXPLAIN((((OPEN <= J23) AND (CLOSE <= J12)) AND (CLOSE >= J23)),'K线解说:爬升行情,信息最少,买方确实把收盘价拉升到开盘价之上,卖方却也主导一段行情把价格压低至最高价之下,
EXPLAIN(((CLOSE <= J23) AND (OPEN >= J12)),'K线解说:漂流行情,整个交易期间都有卖方主导'),,colorFF00;
EXPLAIN((((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE < J23)),'K线解说:漂流行情,信息较少,但收盘期间是卖方主导,其他未知'),,colorFF00;
EXPLAIN((((OPEN >= J12) AND (CLOSE <= J12)) AND (CLOSE >= J23)),'K线解说:漂流行情,信息最少,卖方确实把收盘价压至到开盘价之下,买方却也主导一段行情把价格拉升至最低价之上,
EXPLAIN((((SHAMOUNT / SHVOL) / 100) > REF(HIGH,1)),'上涨趋势'),,colorFF;
EXPLAIN((((SHAMOUNT / SHVOL) / 100) < REF(LOW,1)),'下跌趋势'),,colorFF00;
DRAWTEXT(sysparam(2)=BARPOS,c,' '+BLKNAME),COLORccffcc,ALIGN4;//板块
上市年:REF(YEAR,BARSCOUNT(C)-1),LINETHICK0,COLORGREEN;
月:REF(MONTH,BARSCOUNT(C)-1),LINETHICK0,COLORMAGENTA;
DRAWTEXT(SYSPARAM(1)=BARPOS,CLOSE,'* * *
