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; D |
