主图源码
魔鬼线:MA(CLOSE,321),NODRAW,COLORBLACK; VAR1:=CROSS(CLOSE,MA(CLOSE,321)); VAR2:=(MA(VOL,5) > MA(VOL,60)); VAR3:=((CLOSE / REF(CLOSE,1)) > 1.04); VAR4:=((VAR1 AND VAR2) AND VAR3); DRAWTEXT_FIX(1,0.88,(1 - 0.1),10,DYBLOCK),COLORWHITE; DRAWTEXT_FIX(1,0.94,(1 - 0.1),10,HYBLOCK),COLORYELLOW; DRAWTEXT_FIX(1,0.94,(1 - 0.15),10,GNBLOCK),COLORYELLOW; VAR8:=REF(CLOSE,1); VAR9:=IF(((((CLOSE - VAR8) * 100) / VAR8) >= (10 - ((0.01 * 100) / VAR8))),1,0); STICKLINE(VAR9,OPEN,CLOSE,2.5,0),COLORYELLOW; VAR11:=IF(((((VAR8 - CLOSE) * 100) / VAR8) >= (10 - ((0.01 * 100) / VAR8))),1,0); STICKLINE(VAR11,OPEN,CLOSE,2.5,0),COLORWHITE; VAR13:=((((OPEN + LOW) + HIGH) + CLOSE) / 4); VAR14:=(((CLOSE + HIGH) + LOW) / 3); VAR15:=EMA(VAR14,10); VAR16:=REF(VAR15,1); DRAWBAND(VAR15,RGB(255,0,0),VAR16,RGB(0,0,255)); VAR18:=114080999; VAR19:=IF((DATE < VAR18),1,DRAWNULL); (DRAWBAND(VAR15,RGB(255,0,0),VAR16,RGB(0,0,255)) * VAR19); DRAWTEXT((CROSS(DATE,VAR18) OR (DATE = VAR18)),REF(DRAWBAND(VAR15,RGB(255,0,0),VAR16,RGB(0,0,255)),1),1),COLORYELLOW; M55:EXPMA(CLOSE,55),LINETHICK2,COLORMAGENTA; IF((M55 <= REF(M55,1)),M55,DRAWNULL),LINETHICK2,COLORGREEN; PMA:MA(CLOSE,6),DOTLINE,COLORWHITE; IF((PMA > REF(PMA,1)),PMA,DRAWNULL),DOTLINE,COLORGREEN; IF((PMA < REF(PMA,1)),PMA,DRAWNULL),DOTLINE,COLORRED; VAR27:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100); VAR28:=SMA(VAR27,3,1); VAR29:=SMA(VAR28,3,1); VAR30:=((3 * VAR28) - (2 * VAR29)); VAR31:=(CLOSE - REF(CLOSE,1)); VAR32:=((100 * EMA(EMA(VAR31,6),6)) / EMA(EMA(ABS(VAR31),6),6)); VAR33:=(((LLV(VAR32,2) = LLV(VAR32,7)) AND COUNT((VAR32 < 0),2)) AND CROSS(VAR32,MA(VAR32,2))); DRAWTEXT(FILTER((VAR33 = 1),5),(LOW - 0.05),'抄底'),COLORMAGENTA; STICKLINE(VAR33,OPEN,CLOSE,2,0),COLORYELLOW; VAR36:=REF(HHV(HIGH,72),3); 顶:REFDATE(VAR36,DATE),DOTLINE,COLORYELLOW; VAR38:=((CLOSE / REF(CLOSE,1)) > 1.0969); STICKLINE(VAR38,CLOSE,OPEN,2,0),COLORRED; STICKLINE(VAR38,HIGH,LOW,0,0),COLORRED; VAR41:=(CLOSE * VOL); VAR42:=EMA((((((EMA(VAR41,3) / EMA(VOL,3)) + (EMA(VAR41,6) / EMA(VOL,6))) + (EMA(VAR41,12) / EMA(VOL,12))) + (EMA(VAR41,24) / EMA(VOL,24))) / 4),13); VAR43:=(((((3 * CLOSE) + HIGH) + LOW) + OPEN) / 6); VAR44:=(((((((((8 * VAR43) + (7 * REF(VAR43,1))) + (6 * REF(VAR43,2))) + (5 * REF(VAR43,3))) + (4 * REF(VAR43,4))) + (3 * REF(VAR43,5))) + (2 * REF(VAR43,6))) + REF(VAR43,8)) / 36); VAR45:=((((VOL = HHV(VOL,10)) AND (VOL > (2 * REF(VOL,1)))) AND (CLOSE > VAR44)) AND (CLOSE > REF(CLOSE,1))); VAR46:=FILTER(VAR45,5); VAR47:=0; VAR48:=(CLOSE > MA(CLOSE,63)); VAR49:=(((((CLOSE > VAR47) AND VAR48) AND (CLOSE > HHV(MA((((LOW + HIGH) + CLOSE) / 3),5),60))) AND (CLOSE > (1.06 * EMA((((((EMA((CLOSE * VOL),3) / EMA(VOL,3)) + (EMA((CLOSE * VOL),6) / EMA(VOL,6))) + (EMA((CLOSE * VOL),12) / EMA(VOL,12))) + (EMA((CLOSE * VOL),24) / EMA(VOL,24))) / 4),13)))) AND (CLOSE > REF(CLOSE,1))); DRAWTEXT(VAR49,(CLOSE * 1.04),'追'),COLORGREEN; STICKLINE(VAR46,OPEN,CLOSE,3,0),COLORYELLOW; VAR52:=((100 - (3 * SMA((((CLOSE - LLV(LOW,D)) / (HHV(HIGH,D) - LLV(LOW,D))) * 100),20,1))) + (2 * SMA(SMA((((CLOSE - LLV(LOW,D)) / (HHV(HIGH,D) - LLV(LOW,D))) * 100),20,1),15,1))); VAR53:=((100 - (3 * SMA((((OPEN - LLV(LOW,D)) / (HHV(HIGH,D) - LLV(LOW,D))) * 100),20,1))) + (2 * SMA(SMA((((OPEN - LLV(LOW,D)) / (HHV(HIGH,D) - LLV(LOW,D))) * 100),20,1),15,1))); 活筹OAMV:VAR52,NODRAW; VAR55:=EMA(((AMOUNT / VOL) / 100),5); VAR56:=EMA(((AMOUNT / VOL) / 100),13); VAR57:=(VAR55 - VAR56); 势能:IF((((1000 * VAR57) / VAR55) > 0),((1000 * VAR57) / VAR55),0),NODRAW; VAR59:=(CROSS(势能,活筹OAMV) AND (CLOSE > REF(CLOSE,1))); DRAWTEXT(VAR59,(LOW * 0.91),'抄底'),COLORMAGENTA; VAR61:=(((REF(CLOSE,2) / REF(CLOSE,3)) < 0.96) AND ((REF(OPEN,2) / REF(CLOSE,2)) > 1.05)); VAR62:=BETWEEN((REF(OPEN,1) / REF(CLOSE,2)),1.02,0.98); VAR63:=((BETWEEN((OPEN / REF(OPEN,1)),1.02,0.98) AND ((CLOSE / REF(CLOSE,1)) > 1.05)) AND ((CLOSE / OPEN) > 1.05)); XG:((VAR61 AND VAR62) AND VAR63),NODRAW; VAR65:=(EMA(CLOSE,12) - EMA(CLOSE,26)); VAR66:=EMA(VAR65,9); VAR67:=(BETWEEN((REF(CLOSE,1) / REF(CLOSE,2)),0.97,1.05) AND ((MAX(REF(CLOSE,1),REF(OPEN,1)) / MIN(REF(CLOSE,1),REF(OPEN,1))) < 1.03)); VAR68:=(((CLOSE = HHV(CLOSE,5)) AND (CLOSE > OPEN)) AND ((CLOSE / REF(CLOSE,1)) > 1.03)); VAR69:=((((MA(CLOSE,10) > MA(CLOSE,20)) AND (MA(CLOSE,20) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60))) AND (MA(CLOSE,30) > MA(CLOSE,120))); VAR70:=(VAR65 > VAR66); VAR71:=(COUNT(((REF(CLOSE,1) > REF(MA(CLOSE,20),1)) AND REF((MA(CLOSE,10) > MA(CLOSE,20)),1)),5) = 5); VAR72:=((((COUNT(VAR67,5) = 5) AND VAR68) AND VAR69) AND VAR70); DRAWTEXT(VAR72,(LOW * 1.01),'抄底'),COLORWHITE; 金线开花量能副图 线A1:=(MA(VOL,5)+MA(VOL,10)+MA(VOL,25))/3,COLOR00FF00; 线A2:=(MA(VOL,5)+MA(VOL,10)+MA(VOL,20)+MA(VOL,60)+MA(VOL,120))/5,COLOR00FF00; 线A3:=(MA(VOL,20)+MA(VOL,60)+MA(VOL,120))/3,COLOR00FF00,LINETHICK2; ZX:2*(线A1-线A2), COLORSTICK; STICKLINE(线A1>线A3,线A1,线A3,0.1,1),COLORFF0080; STICKLINE(线A1<=线A3,线A1,线A3,0.1,1),COLOR22CC33; 线1:IF(线A1<线A3,线A1,线A3),COLOR00FF00; IF(线A1<线A3,线A3,线A1),COLORRED; 线2:IF(线A2<线A3,线A2,线A3),COLOR00FF00; IF(线A2<线A3,线A3,线A2),COLORRED; 线3:IF(线A3<线A1,线A3,线A3),COLOR00FF00,LINETHICK2; IF(线A1<线A3,线A3,线A3),COLORRED,LINETHICK2; DIFF:=EMA(CLOSE,26) - EMA(CLOSE,12); DEA:=EMA(DIFF,9);MACD:=(DIFF-DEA), COLORSTICK; MACD金叉:IF(CROSS(DIFF,DEA),MACD-0.02,0),COLORFF00FF,POINTDOT; DRAWTEXT(CROSS(DIFF,DEA),MACD-0.03,'●'),COLORFF00FF; TYP := (HIGH + LOW + CLOSE)/3; RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D; JK金叉:IF(CROSS(J,K),MACD-0.02,0),COLORYELLOW,POINTDOT; DRAWTEXT(CROSS(J,K),MACD-0.03,'●'),COLORYELLOW; 上涨缺口:IF(L>REF(H,1),MACD-0.01,0),COLORRED,POINTDOT;DRAWTEXT(L>REF(H,1),REF(H,1),'☆'),COLORRED; 金典庄操盘副图 VUR0:=(((((2 * OPEN) + HIGH) + LOW) + (3 * CLOSE)) / 7); VUR1:=(CAPITAL * VUR0); VUR2:=(SMA(AMOUNT,10,1) / 1000); VUR3:=MA((CLOSE * 3),5); VUR4:=((((VUR2 * (CLOSE * 3)) / VUR3) * 1) / 10); VUR5:=((((VUR2 * (OPEN * 3)) / VUR3) * 1) / 10); VUR6:=((((VUR2 * (HIGH * 3)) / VUR3) * 1) / 10); VUR7:=((((VUR2 * (LOW * 3)) / VUR3) * 1) / 10); VUR8:=(((((2 * VUR5) + VUR6) + VUR7) + (3 * VUR4)) / 7); VUR9:=EMA(DMA(EMA(VUR4,2),(SUM(VOL,1) * VUR8)),2); VURA:=EMA((VUR1 - VUR9),1); VU1:=IF((VURA > REF(VURA,1)),((VURA - REF(VURA,1)) * 15 / 1000),0); VU2:=IF((VURA < REF(VURA,1)),((VURA - REF(VURA,1)) * 15 / 1000),0); VU3:=SUM(VU1,15); VU4:=EMA(VU3,10); VU5:=REF(VU4,1); VU6:=EMA(CLOSE,13); VU7:=(VU6 < REF(VU6,1)); VU8:=(VU7 AND (VU4 > VU5)); VU9:=(SUM(VU2,21) * (0 - 1)); VUA:=EMA(EMA(VU9,5),8); VUB:=REF(VUA,1); VUC:=EMA(CLOSE,3); VUD:=(VUC > REF(VUC,1)); VUE:=(VUC < REF(VUC,1)); VUF:=((VU4 > VU5) AND VUD); VUG:=((VU4 > VU5) AND VUE); VUH:=((VU6 > REF(VU6,1)) AND (VUA > VUB)); VUN:=IF(VU8,VUR0,0); VUK:=IF(VUH,((VUR0 + HIGH) / 2),0); 买线:VU5,,COLORDB70DB; 进价:VUN,POINTDOT,COLORFE10D2; 卖线:VUB,,COLORLIGREEN; 出价:VUK,POINTDOT,COLORGREEN; 拉抬:STICKLINE(VUF,VU5,(VU4 * 1.1),1,1),,COLOR1010F0; 变盘:STICKLINE(VUG,VU5,(VU4 * 1.1),1,0),,COLORB4B410; 出货:STICKLINE(VUH,VUB,(VUA * 1.2),1,1),,COLORGREEN; 吸筹:STICKLINE(VU8,VU5,(VU4 * 1.3),1,1),,COLORFE10D2; 抄底三剑客副图 A:=MA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),19); B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)); D:=EMA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),4); CQX:=A+100,COLOR9900FF; DQX:=B+100,COLOR888888; ZQX:=D+100,COLORYELLOW; 底部:=ZQX <10 AND DQX <15 AND CQX <50; 中期底:=CQX <20 AND ZQX<20; 中继区:=CQX<90 AND CQX >60 AND ZQX <90 AND ZQX > 65; 一剑抄底:CROSS(DQX,ZQX) AND 底部 AND C>O; 二剑回马:CROSS(ZQX,CQX) AND 中期底 AND C>O; 三剑中继:(DQX-REF(DQX,1) > 35 AND REF(DQX,1) < 30 ) AND 中继区 AND C>O AND ( MA(C,20) > REF(MA(C,20),1) AND REF(MA(C,20),1) > REF(MA(C,20),2) ) OR (DQX-REF(DQX,1) > 40 AND REF(DQX,1) < 5 ); {蹦极}; |
|
来自: 量学粉丝团 > 《公众号 通达信指标爱好者》