|
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9); MACD:=2*(DIFF-DEA); A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)); B1:=REF(CLOSE,A1+1)>CLOSE AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA); DRAWTEXT(FILTER(B1>0,5),LOW*0.94,M底),colorFF00; A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1)); B2:=REF(CLOSE,A2+1)>CLOSE AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)); DRAWTEXT(FILTER(B2>0,5),LOW*0.96,K底),colorFFFF; A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1)); B3:=REF(CLOSE,A3+1)>CLOSE AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)); DRAWTEXT(FILTER(B3>0,5),LOW*0.98,R底),colorFFFF00; C1:=BARSLAST(REF(CROSS(DEA,DIFF),1)); D1:=REF(CLOSE,C1+1)<CLOSE AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF); DRAWTEXT(FILTER(D1>0,5),HIGH*1.07,M顶),color66FF; C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1)); D2:=REF(CLOSE,C2+1)<CLOSE AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)); DRAWTEXT(FILTER(D2>0,5),HIGH*1.05,K顶),colorFF; C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,9,14),"RSI.RSI1"(6,9,14)),1)); D3:=REF(CLOSE,C3+1)<CLOSE AND REF("RSI.RSI1"(6,9,14),C3+1)>"RSI.RSI1"(6,9,14) AND CROSS("RSI.RSI2"(6,9,14),"RSI.RSI1"(6,9,14)); DRAWTEXT(FILTER(D3>0,5),HIGH*1.03,R顶),colorFF00FF; DIFF:EMA(CLOSE,12)-EMA(CLOSE,26); DEA:EMA(DIFF,9); MACD:(EMA(AMOUNT-SMA(AMOUNT,10,1),5))/1000000,COLORSTICK,LINETHICK5; POLYLINE(CLOSE, MACD); STICKLINE( MACD>REF( MACD,1) AND MACD>0, MACD,0,8,0),colorAA; STICKLINE( MACD>REF( MACD,1) AND MACD>0, MACD,0,5,0),colorCC; STICKLINE( MACD>REF( MACD,1) AND MACD>0, MACD,0,2.5,0),colorDD; STICKLINE( MACD<REF( MACD,1) AND MACD>0, MACD,0,8,0),colorAA; STICKLINE( MACD<REF( MACD,1) AND MACD>0, MACD,0,5,0),color77FF; STICKLINE( MACD<REF( MACD,1) AND MACD>0, MACD,0,3,0),colorFFFF; STICKLINE( MACD>REF( MACD,1) AND MACD<0, MACD,0,8,0),colorFF9900; STICKLINE( MACD>REF( MACD,1) AND MACD<0, MACD,0,5,0),colorFFBB00; STICKLINE( MACD>REF( MACD,1) AND MACD<0, MACD,0,3,0),colorFFFF00; STICKLINE( MACD<REF( MACD,1) AND MACD<0, MACD,0,8,0),colorFF0000; STICKLINE( MACD<REF( MACD,1) AND MACD<0, MACD,0,5,0),colorFF4400; STICKLINE( MACD<REF( MACD,1) AND MACD<0, MACD,0,3,0),colorFF8800; K:=DATE<1341231; F:=100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1); P1:=IF(CLOSE<REF(OPEN,1) AND F<0,1,0); P2:=IF(CLOSE<REF(OPEN,2) AND F<0,1,0); CLOSE3:=REF(CLOSE,3); CLOSE5:=REF(CLOSE,5); CLOSE7:=REF(CLOSE,7); CLOSE8:=REF(CLOSE,8); CLOSE13:=REF(CLOSE,13); CLOSE21:=REF(CLOSE,21); JC:=(REF(CLOSE,3)+REF(CLOSE,5)+REF(CLOSE,7)+REF(CLOSE,8)+REF(CLOSE,13)+REF(CLOSE,21))/6; AA:=IF(CLOSE>=REF(CLOSE,3),1,0); BB:=IF(CLOSE>=REF(CLOSE,5),1,0); CC:=IF(CLOSE>=REF(CLOSE,7),1,0); DD:=IF(CLOSE>=REF(CLOSE,8),1,0); EE:=IF(CLOSE>=REF(CLOSE,13),1,0); FF:=IF(CLOSE>=REF(CLOSE,21),1,0); GZ2:=AA+BB+CC+DD+EE+FF; KK:=0; FOR I=1 TO 4 DO BEGIN KK:=KK+REF(GZ2,I); END; KKK:=KK/4; DP:=IF(CLOSE=INDEXC,0,1); GJ:=AMOUNT/VOL/100; 明日阻力:=LOW+GJ-LOW+CLOSE-LOW; 明日支撑:=LOW+CLOSE-GJ; 今日阻力:=REF(明日阻力,1); 今日支撑:=REF(明日支撑,1); IF SYSPARAM(3)=2 THEN A:=BARPOS; IF SYSPARAM(3)=1 THEN B:=BARPOS; D:=A-B; E:=HHV(HIGH,D); DRAWTEXTEX(CLOSE,1,450,150,---------------),colorFFFFFF; DRAWTEXTEX(CLOSE,1,450,190,---------------),colorFFFFFF; DRAWTEXTEX(CLOSE,1,450,230,---------------),colorFFFFFF; DRAWTEXTEX(CLOSE,1,450,270,---------------),colorFFFFFF; DRAWTEXTEX(CLOSE,1,440,310, ---------------),colorFFFFFF; DRAWTEXTEX(CLOSE,1,450,170,今日支撑=:+NUMTOSTR(今日支撑,2)+),colorFFFF; DRAWTEXTEX(CLOSE,1,450,210,今日阻力=:+NUMTOSTR(今日阻力,2)+),colorFF00; DRAWTEXTEX(CLOSE,1,450,250,明日支撑=:+NUMTOSTR(明日支撑,2)),colorFF00FF; DRAWTEXTEX(CLOSE,1,450,290,明日阻力=:+NUMTOSTR(明日阻力,2)),colorFFFF00; V1:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100; V2:EMA(V1,8)*10,STICK; V3:EMA(V1,8)*10,LINESTICK,LINETHICK3,colorFF00FF; 资金:V3,LINETHICK3,colorFFFF; VAR1:=(HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*100; VAR2:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100; VAR3:=SMA(SMA(VAR2,3,1),3,1)/28.57; 财:EMA(VAR3,5),POINTDOT,colorFFCCCC; 小子哪跑:3*VAR3-2*财,POINTDOT,colorFF; STICKLINE(小子哪跑>财,小子哪跑,财,6,0),colorFF; STICKLINE(小子哪跑<财,财,小子哪跑,6,0),colorDD00; A1:=CROSS(小子哪跑,VAR3) AND VAR3<2.1 AND CLOSE>OPEN; STICKLINE(A1,0,0.9,6,0),colorFFFF; A2:=CROSS(小子哪跑,VAR3) AND VAR3>2.2; DRAWICON(A2,VAR3,1); DRAWTEXT(A1,60,60分),colorFFFFFF; DRAWTEXT(A1,50,祝),colorFFFFFF; DRAWTEXT(A1,40.6,朋),colorFFFFFF; DRAWTEXT(A1,30.2,友),colorFFFFFF; DRAWTEXT(A1,20.8,发),colorFFFFFF; DRAWTEXT(A1,10.4,财),colorFFFFFF; KS:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*(-100); RKS:=REF(KS,1); MLS:=RKS/KS>=1.23 AND RKS>=8 AND CLOSE/REF(CLOSE,1)>=1.02; 超跌:STICKLINE(KS>=8,HIGH,LOW,0,1),LINETHICK2,colorFFFFFF; STICKLINE(KS>=8,OPEN,CLOSE,7,1),LINETHICK2,colorFFFFFF; 反弹:STICKLINE(MLS=1,HIGH,LOW,0,1),LINETHICK2,colorFF00; STICKLINE(MLS=1,OPEN,CLOSE,7,1),LINETHICK2,colorFF00; 中线止损价:=EMA(CLOSE,26); 中线止赢价:=中线止损价*1.8; FC:=IF(CLOSE>=1 AND CLOSE<10,INTPART(CLOSE*10)/10,IF(CLOSE>=10 AND CLOSE<100,INTPART(CLOSE),IF(CLOSE>=100,INTPART(CLOSE/10)*10,CLOSE))); M5:=MA(FC,5); IF(M5>=1 AND M5<10,INTPART(M5*10)/10,IF(M5>=10 AND M5<100,INTPART(M5),IF(M5>=100,INTPART(M5/10)*10,CLOSE))),LINETHICK0; M10:=MA(FC,10); IF(M10>=1 AND M10<10,INTPART(M10*10)/10,IF(M10>=10 AND M10<100,INTPART(M10),IF(M10>=100,INTPART(M10/10)*10,CLOSE))),LINETHICK0; M20:=MA(FC,20); IF(M20>=1 AND M20<10,INTPART(M20*10)/10,IF(M20>=10 AND M20<100,INTPART(M20),IF(M20>=100,INTPART(M20/10)*10,CLOSE))),LINETHICK0; AA:=VOL/((HIGH-LOW)*2-(ABS(CLOSE-OPEN))); 主动买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*(HIGH-OPEN+CLOSE-LOW),VOL/2)); 主动卖盘:=IF(CLOSE>OPEN,AA*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,AA*(HIGH-LOW),VOL/2)); B:=主动买盘-主动卖盘; 五日:=SUM(B,5); 十日:=SUM(B,10); 十五日:=SUM(B,15); DRAWTEXTEX(CLOSE,2,10,50,中线止赢:),colorFFFF00; DRAWTEXTEX(CLOSE,2,110,50,NUMTOSTR(中线止赢价,2)+元),colorFFFF00; DRAWTEXTEX(CLOSE,2,230,50,中线止损:),colorFF00; DRAWTEXTEX(CLOSE,2,330,50,NUMTOSTR(中线止损价,2)+元),colorFF00; DRAWTEXTEX(CLOSE,2,450,50,主动买盘:),colorFF; DRAWTEXTEX(CLOSE,2,540,50,NUMTOSTR(主动买盘,2)+),colorFF; DRAWTEXTEX(CLOSE,2,650,50,主动卖盘:),colorFF00; DRAWTEXTEX(CLOSE,2,750,50,NUMTOSTR(主动卖盘,2)+),colorFF00; DRAWTEXTEX(CLOSE,3,10,100,五日增减:),colorFFFF; DRAWTEXTEX(CLOSE,3,90,100,NUMTOSTR(五日,2)+),colorFFFF; DRAWTEXTEX(CLOSE,3,230,100,十日增减:),colorFFFF; DRAWTEXTEX(CLOSE,3,310,100,NUMTOSTR(十日,2)+),colorFFFF; DRAWTEXTEX(CLOSE,3,450,100,十五日增减:),colorFFFF; DRAWTEXTEX(CLOSE,3,550,100,NUMTOSTR(十五日,2)+),colorFFFF; VARIABLE:WDAY[7]=星期六; WDAY[1]:=星期日; WDAY[2]:=星期一; WDAY[3]:=星期二; WDAY[4]:=星期三; WDAY[5]:=星期四; WDAY[6]:=星期五; FY:=YEAR; FM:=MONTH; FD:=DAY; WD:=WEEKDAY; DRAWTEXTEX(CLOSE,1,10,5,版块:+BLKNAME+\n),colorFFFFFF; BB:=BARPOS=SYSPARAM(1); P:=SYSPARAM(1); DRAWTEXTEX(CLOSE,4,10,150,\n\n收益:+NUMTOSTR(FINANCE(33),2)+\n+净资:+NUMTOSTR(FINANCE(34),2)+\n+流通:+NUMTOSTR(FINANCE(7)/10000,2)+亿+\n+流通:+NUMTOSTR(FINANCE(7)/FINANCE(1)*100,0)+ %+\n+权益:+NUMTOSTR(FINANCE(36),0)+ %+\n+主营:+NUMTOSTR(FINANCE(53),0)+ %+\n+利润:+NUMTOSTR(FINANCE(54),0)+ %+\n+主营:+NUMTOSTR(FINANCE(20)/10000,1)+亿+\n),colorCCFFCC; 机构:=EXTDATA(9); 券商:=EXTDATA(10); 大户:=EXTDATA(11); 中户:=EXTDATA(12); 散户:=EXTDATA(13); DRAWTEXTEX(CLOSE,2,200,150,NUMTOSTR(FY[P],0)+年+NUMTOSTR(FM[P],0)+月+NUMTOSTR(FD[P],0)+日,+WDAY[WD[P]+1]+\n+----------------\n+机构:+NUMTOSTR(机构[P],0)+手\n+券商:+NUMTOSTR(券商[P],0)+手\n+大户:+NUMTOSTR(大户[P],0)+手\n+中户:+NUMTOSTR(中户[P],0)+手\n+散户:+NUMTOSTR(散户[P],0)+手\n+++NUMTOSTR(机构[P]+券商[P]+大户[P],0)+手\n+----------------\n+NUMTOSTR(中户[P]+散户[P],0)+手\n+主力:+NUMTOSTR(机构[P]+券商[P]+大户[P]+中户[P]+散户[P],0)+手\n+中小散:+NUMTOSTR((机构[P]+券商[P]+大户[P]+中户[P]+散户[P])*CLOSE/100,0)+买卖总数:),colorFFFF; CHECK1:=CHECKUSER(1); EXPLAINICON(CLOSE>0,资金进出:),ALIGN1; EXPLAINICON(CLOSE>0,万元\n),ALIGN1; EXPLAINICON(CLOSE>0,zwbsdnjp),ALIGN1; QQQ:=(INDEXH+INDEXL)/2; DD:=FFT(QQQ,26); DDD:=FFT((HIGH+LOW)/2,26); EXPLAIN(DD>=REF(DD,1),sfcb),colorFF; EXPLAIN(DD<=REF(DD,1),dpjsbj),colorFF00; VK:=VOL/CAPITAL*100; STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),colorFF00FF; STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,3,1),colorFF00FF; STICKLINE(CLOSE<OPEN,HIGH,LOW,0,1),colorFF00; STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),colorFF00; PARTLINE(DDD>REF(DDD,1),DDD),colorFF; PARTLINE(DDD<REF(DDD,1),DDD),colorFFFF60; BJ:=CLOSE/INDEXC*1000; QS:=BJ>REF(BJ,1); RS:=BJ<=REF(BJ,1); EXPLAIN(QS, 解盘:大盘多头攻击、获利机会出现、寻机买进!),colorFF; EXPLAIN(RS, 解盘:大盘空头攻击、无明显操作机会、坚决出局!),colorFF00; EXPLAINICON(CLOSE>0, 解盘: 个股走势:强于大盘),ALIGN1; 日K:="KDJ.K#day"(20,5,5); 日D:="KDJ.D#day"(20,5,5); 周K:="KDJ.K#week"(9,3,3); 周D:="KDJ.D#week"(9,3,3); EXPLAINEX(日K>0, 解盘: 个股走势:弱于大盘,日K,2,0),colorFF0000; EXPLAIN(日K<=20,ggjszt),colorFF; EXPLAIN(日K>20 AND 日K<50, 解盘:日K=),colorFF; EXPLAIN(日K>50 AND 日K<80, 解盘:日线KD指标位置:低位),colorFF00; EXPLAIN(日K>=80, 解盘:日线KD指标位置:中低),colorFF00; EXPLAINEX(周K>0, 解盘:日线KD指标位置:中高,周K,2,0),colorFF; EXPLAIN(周K<=20, 解盘:日线KD指标位置:高位),colorFF; EXPLAIN(周K>20 AND 周K<50, 解盘:周K=),colorFF; EXPLAIN(周K>50 AND 周K<80, 解盘:周线KD指标位置:低位),colorFF00; EXPLAIN(周K>=80, 解盘:周线KD指标位置:中低); EXPLAIN(CROSS(日K,日D), 解盘:周线KD指标位置:中高),colorFF; EXPLAIN(CROSS(日D,日K), 解盘:周线KD指标位置:高位),colorFF00; EXPLAIN(CROSS(周K,周D), 解盘:日K与日D今日金叉),colorFF; EXPLAIN(CROSS(周D,周K), 解盘:日K与日D今日死叉),colorFF00; EXPLAINICON(CLOSE>0, 解盘:周K与周D今日金叉),ALIGN1; R:=REF(CLOSE,1)/CLOSE; QY:=VOL; QTT:=QY*R; TL:=FILTER(VOL=HHV(VOL,20),20); DL:=FILTER(VOL=LLV(VOL,20),20); XD:=FILTER(LOW=LLV(LOW,20),20); XG:=FILTER(HIGH=HHV(HIGH,20),20); AQ标准攻击量:=QTT*1.15; HQ危险成交量:=QTT*1.5; LQ防守量:=QTT*0.75; AHQ平均高量:=(AQ标准攻击量+HQ危险成交量)/2; ALQ平均低量:=(AQ标准攻击量+LQ防守量)/2; 市场实际量能:=QY; EXPLAINEX(HQ危险成交量, 解盘:周K与周D今日死叉,HQ危险成交量,0,0),colorFF; EXPLAINEX(AQ标准攻击量,szczzy,AQ标准攻击量,0,0),colorFF0000; EXPLAINEX(LQ防守量, 解盘:次日攻击危险量=,LQ防守量,0,0),colorFF00; EXPLAINEX(TL, 解盘:次日攻击标准量=,VOL,0,0),colorFF; EXPLAINEX(DL, 解盘:次日攻击防守量=,VOL,0,0),colorFF00; EXPLAINEX(XD, 解盘:今日为20日最大量=,LOW,2,0),colorFF00; EXPLAINEX(XG, 解盘:今日为20日最小量=,LOW,2,0),colorFF; PT:=REF(HIGH,1)-REF(LOW,1); CDP:=(HIGH+LOW+2*CLOSE)/4; AH:=CDP+PT; AL:=CDP-PT; NH敏感阻力:=2*CDP-LOW; NL:=2*CDP-HIGH; EXPLAINEX(AH, 解盘:今日为20日最低价格=,AH,2,0),colorFF00; EXPLAINEX(NH敏感阻力, 解盘:今日为20日最高价格=,NH敏感阻力,2,0),colorFFFF; EXPLAINEX(CDP, 解盘:次日重大阻力价位=,CDP,2,0),colorFFFFFF; EXPLAINEX(NL, 解盘:次日敏感阻力区域=,NL,2,0),colorFF0000; EXPLAINEX(AL, 解盘:次日关键均衡价位=,AL,2,0),colorFF; EXPLAINICON(CLOSE>0, 解盘:次日重要支撑区域=),ALIGN1; VAR0:=REF(CLOSE,1)-REF(OPEN,1); VAR1:=REF(OPEN,1); VAR2:=CLOSE>=VAR1*1.05; VAR3:=CLOSE>=2*VAR0/3*VAR1 AND CLOSE<=VAR1*1.05; VAR4:=CLOSE<VAR0*2/3*VAR1; EXPLAINEX(VAR2, 解盘:次日关键支撑价位=,(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00FF; EXPLAINEX(VAR3,szczxh,(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF; EXPLAINEX(VAR4, 解盘: 个股目前态势:超级强势。涨幅 %f %,(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00; B1:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100<-12; B3:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100>15; B:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100; EXPLAINEX(B<-18 AND CLOSE/OPEN>1.06,
|