通達信蓋地虎頂?shù)?趨勢買賣點副圖指標源碼

有點胡子 2021-01-17

展開全文

{背景}
STICKLINE(100,-100,100,10,0),COLORC61616;
{操盤線}
買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
STICKLINE(買線>=賣線,REFDATE(HHV(H,130),DATE),REFDATE(LLV(L,130),DATE),5,0),
COLOR600020;
STICKLINE(買線<賣線,REFDATE(HHV(H,130),DATE),REFDATE(LLV(L,130),DATE),5,0),
COLOR404050;
RSV:=((HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M))*200)-125;
空方主力:SMA(RSV,A,1),COLORYELLOW,LINETHICK2;
RSV1:=((CLOSE-LLV(LOW,M))/(HHV(HIGH,M)-LLV(LOW,M))*200)-105;
多方主力:SMA(RSV1,A,1),COLORRED,LINETHICK2;
WD:=CROSS(空方主力,-85);
WD1:=CROSS(空方主力,多方主力);
VAR1:=ZIG(CLOSE,13);
地虎買: IF(REF(VAR1,2)>REF(VAR1,1) AND VAR1>REF(VAR1,1),0,-70),COLORRED,LINETHICK2;
地虎賣: IF(REF(VAR1,2)<REF(VAR1,1) AND VAR1<REF(VAR1,1),0,80),LINETHICK2;
虎:0,POINTDOT,COLORWHITE;
N:=30;
RSV0:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV0,3,1),COLORYELLOW; D:=SMA(K,3,1),COLORWHITE,;
STICKLINE(K>D,K,D,2,0),COLOR0000FF;
STICKLINE(D>K,K,D,2,0),COLORFFFF50;
VARK1:=3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1),3,1);
VARK2:=EMA(VARK1,3), COLORBLACK,COLORYELLOW;
STICKLINE(VARK2<=13,-20,-18,8,0),COLOR0066FF;
STICKLINE(VARK2<=13 AND (VARK2-REF(VARK2,1))/REF(VARK2,1)*100>13,-20,-10,1,0),COLORMAGENTA;
{主力資金}
A:=VOL*CLOSE;
B:=SUM(A,1)/SUM(VOL,1);
B1:=EMA(B,17);
主力:(B-B1)*100/B,COLORRED;
進:STICKLINE(主力>=0 AND 0>=REF(0,1),0,主力,3,0),COLORRED;
出:STICKLINE(主力<0 AND 0>=REF(0,1),0,主力,3,0),COLORGREEN;
P1:=5;
P2:=10;
P3:=20;
P4:=30;
P5:=60;
P6:=120;
P7:=240;
P8:=340;
N0:=4;
WX:=MA(CLOSE,0);
M1:=MA(CLOSE,P1);
M2:=(MA(CLOSE,P2) * IF((N0 < 2),WX,1));
M3:=(MA(CLOSE,P3) * IF((N0 < 3),WX,1));
M4:=(MA(CLOSE,P4) * IF((N0 < 4),WX,1));
M5:=(MA(CLOSE,P5) * IF((N0 < 5),WX,1));
M6:=(MA(CLOSE,P6) * IF((N0 < 6),WX,1));
M7:=(MA(CLOSE,P7) * IF((N0 < 7),WX,1));
M8:=(MA(CLOSE,P8) * IF((N0 < 8),WX,1));
C1:=REF(CLOSE,1);
C2:=HHV(C1,2);
C3:=LLV(C1,1);
ET:=HHV(C1,2);
ET1:=REF(ET,1);
XB:=LLV(C1,1);
XB1:=REF(XB,1);
M:=BARSLAST(((CLOSE < XB) AND (C1 >= XB1)));
M11:=REF(M,1);
N9:=BARSLAST(((CLOSE > ET) AND (C1 <= ET1)));
N1:=REF(N9,1);
M21:=(BARSLAST((((M - N9) > 0) AND (M11 <= N1))) + 1);
N2:=(BARSLAST((((N9 - M) > 0) AND (N1 <= M11))) + 1);
ET2:=HHV(ET,M21);
XB2:=LLV(XB,N2);
A0:=IF((((M - N9) > 0) AND (M11 <= N1)),1,IF((((N9 - M) > 0) AND (N1 <= M11)),0,2));
H1:=IF(((M - N9) > 0),CLOSE,ET2);
H2:=IF((A0 = 1),CLOSE,C2);
H3:=IF(((M - N9) < 0),CLOSE,XB2);
H4:=IF((A0 = 1),CLOSE,XB2);
H5:=IF((((M - N9) > 0) OR (A0 = 1)),CLOSE,H3);
H6:=REF(H5,1);
H7:=REF(H5,2);
H8:=(H5 > H6);
H9:=(((H4 = REF(H4,1)) AND (REF(H4,1) < REF(H4,2))) AND (H5 > REF(H5,2)));
H10:=(((H2 = REF(H2,1)) AND (H4 = REF(H4,1))) AND (H5 = REF(H5,2)));
W:=((H8 OR H9) OR H10);
T9:=((H5 < H6) AND (H5 < REF(H5,2)));
T10:=((H4 = REF(H4,1)) AND (H5 < REF(H5,2)));
T11:=((H3 > REF(H3,1)) AND (H5 < REF(H5,1)));
T12:=((H5 = REF(H5,1)) AND (H3 = H4));
T13:=((H2 = REF(H2,1)) AND (H2 = H5));
TW:=((((T9 OR T10) OR T11) OR T12) OR T13);
PK:=((AMOUNT * (((OPEN + CLOSE) + HIGH) + LOW)) / 4);
PK1:=IF((VOL > 0),(PK / AMOUNT),((((OPEN + CLOSE) + HIGH) + LOW) / 4));
BBP:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
STICKLINE((ISLASTBAR AND W),(H5 * 1.025),(H5 * 0.99),0.5,0),COLORFF8800;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,8,0),COLOR102088;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,7,0),COLOR102099;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,6,0),COLOR1020AA;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,5,0),COLOR1020BB;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,4,0),COLOR1020CC;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,3,0),COLOR1020DD;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,2,0),COLOR1020EE;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,1,0),COLOR1020FF;
DRAWTEXT((ISLASTBAR AND (BBP >= 96.5)),(H5 * 1.022),'明見\N0 短高\N0 龍頭\N0 除外'),COLORRED;
DRAWTEXT((ISLASTBAR AND (BBP < 1)),((H5 + H4) / 1.96),'明見\N0 短低\N0 跌停\N0 除外'),COLORGREEN;
DRAWTEXT(((ISLASTBAR AND W) AND (BBP < 96.5)),(H5 * 1.022),'明日\N0 看漲'),COLORYELLOW;
DRAWTEXT(((ISLASTBAR AND TW) AND (BBP > 1)),((H5 + H4) / 2),'明日\N0 看跌'),COLORGREEN;
{覓莊建倉}
VAR2:=REF(LOW,1);
VAR3:=SMA(ABS(LOW-VAR2),13,1)/SMA(MAX(LOW-VAR2,0),13,1)*100;
VAR4:=EMA(IF(CLOSE*1.2,VAR3*13,VAR3/13),13);
VAR5:=LLV(LOW,34);
VAR6:=HHV(VAR4,34);
VAR7:=IF(LLV(LOW,56),1,0);
VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;
XL1:=MA(LOW,2)*0.96;
XL2:=MA(LOW,26)*0.85;
XL3:=REF(XL1,1)<XL2 AND REF(XL1,1)<XL1 AND REF(XL1,1)<REF(XL1,2);
STICKLINE(XL3,0,VAR8*3,4,0),COLOR006EFF;
DRAWTEXT(XL3,-5,'覓莊建倉'),COLORRED;
↑買:DRAWICON(XL3,0,4),COLORRED;
{莊見愁}
莊籌線:=EMA(WINNER(C)*70,5);
散籌線:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*70,5);
CC:=FILTER((CROSS(5,莊籌線) AND 散籌線<20 )*60,10 ),COLORFF00FF;
DRAWTEXT(CC ,-70 ,'海底撈活魚(抄底)' ),COLORYELLOW ;
AA:= REF(莊籌線,30)>40 OR REF(莊籌線,20)>40;
AA1:=CROSS(莊籌線,散籌線);
DRAWTEXT(AA1,-70,'雞雀升天'),COLORYELLOW ;
BB:=CROSS(28,莊籌線) AND 散籌線>40 AND AA=1 AND LLV(L ,60 )>LLV(L ,250 );
DRAWTEXT(BB,-70,'決戰(zhàn)誘空'),COLORYELLOW;
{建倉}
VAR3A:=LLV(LOW,5)=LLV(LOW,45) AND CLOSE>=OPEN*1.04;
VAR4A:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;
VAR5A:=VAR3A AND VAR4A;
DRAWTEXT(FILTER(VAR5A,5),-70,' 建倉 '),COLORRED ;
DRAWTEXT(FILTER(VAR5A,5),-70,'●'),COLORRED ;
{老鼠倉}
AA0:=AMOUNT/VOL;
BB1:=L<AA0*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=VOL<MA(V,5)*1.5;
老鼠倉:=BB1 AND CC1 AND DD1 AND EE1;
DRAWTEXT(老鼠倉,-63,'老鼠倉'),COLORRED ;
{瘋牛}
VARF1:=MA(HHV(HIGH,485),17);
VARF2:=MA(HHV(HIGH,222),17);
VARF3:=MA(HHV(HIGH,96),17);
VARF4:=MA(LLV(LOW,485),17);
VARF5:=MA(LLV(LOW,222),17);
VARF6:=MA(LLV(LOW,96),17);
VARF7:=MA((VARF4*0.96+VARF5*0.96+VARF6*0.96+VARF1*0.558+VARF2*0.558+VARF3*0.558)/6,17);
VARF8:=MA((VARF4*1.25+VARF5*1.23+VARF6*1.2+VARF1*0.55+VARF2*0.55+VARF3*0.65)/6,17);
VARF9:=MA((VARF4*1.3+VARF5*1.3+VARF6*1.3+VARF1*0.68+VARF2*0.68+VARF3*0.68)/6,17);
VARFA:=MA((VARF7*3+VARF8*2+VARF9)/6*1.738,17);
VARFB:=IF(C=C,VARFA,VARFA*DAY);
VARFC:=LOW;
VARFD:=REF(LOW,1);
VARFE:=SMA(ABS(VARFC-VARFD),3,1)/SMA(MAX(VARFC-VARFD,0),3,1)*100;
VARFF:=MA(IF(CLOSE*1.35<=VARFB,VARFE*10,VARFE/10),3);
VARF10:=LLV(LOW,30);
VARF11:=HHV(VARFF,30);
絕佳買點:=IF(C=C,MA(IF(LOW<=VARF10,(VARFF+VARF11*2)/2,0),3),100000000)/(200),COLORRED,LINETHICK2;
DRAWTEXT(CROSS(絕佳買點,1.20000) ,-57,'瘋牛'),COLORYELLOW,LINETHICK2 ;
{明天、全倉買進}
VAR03:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趨勢:=EMA(VAR03,3)-10;
VAR04:=(趨勢-REF(趨勢,1))/REF(趨勢,1)*100;
VAR05:=FILTER((趨勢<=13 AND VAR04>13),10);
DRAWTEXT(VAR05,-63,'明天買進'),COLOR0066FF;
趨勢線:趨勢,COLORFF00FF;
DRAWTEXT(CROSS(趨勢線,VAR2)AND 趨勢線>REF(趨勢線,1)AND 趨勢線<50,-63,'全倉買進'),COLORRED;
{箱型箱底}
VAR1A1:=LLV(LOW,21);
VAR2A2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1A1) / (VAR2A2 - VAR1A1)) * 100),5);
AK:=EMA((((CLOSE - VAR1A1) / (VAR2A2 - VAR1A1)) * 50),13);
AB:=CROSS(AK1,AK);
DRAWTEXT((AB = 1),-70,'○牛窩'),COLORYELLOW;
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
SHORT:=7; LONG:=19;
RMA:=EMA(CLOSE,SHORT);
NMA:=EMA(CLOSE,LONG);
UP:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1),LLV(L,BARSLAST(CROSS(NMA,RMA))+1),H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1),HHV(H,BARSLAST(CROSS(RMA,NMA))+1),0);
DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1),HHV(H,BARSLAST(CROSS(RMA,NMA))+1),L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1),LLV(L,BARSLAST(CROSS(NMA,RMA))+1),0);
DRAWTEXT(((LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2))) AND REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1))=0,-60,' 起'),COLORRED;
箱底10:=TROUGH(CLOSE,10,1)*1.02;
箱底3:=TROUGH(CLOSE,3,1)*1;
DRAWTEXT((箱底10>REF(箱底10,1) OR 箱底3>REF(箱底3,1)),-60,'走好'),COLORRED;
江恩線:=EMA(CLOSE,144);
VAR18:=(CROSS(100,"KDJ.J"(9,3,3)) OR CROSS("KDJ.K"(9,3,3),"KDJ.J"(9,3,3))) AND "KDJ.D"(9,3,3)>75;
VAR2C:=MA(3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),5);
VAR2D:=5;
VAR2E:=CROSS(VAR2C,VAR2D);
VAR2F:= VAR2E;
VAR30:=VAR18;
DRAWTEXT(VAR2F AND CLOSE<江恩線,-80,'秘密買點！'), COLORYELLOW;
DRAWTEXT(VAR2F AND CLOSE>江恩線,-80,'強勢買點！'), COLORRED;
DRAWTEXT(VAR30,80,'秘密拋點'), COLOR00FF00;
AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*C,0),0);
AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0);
AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0);
B1萬元:=DVOL*DCLOSE/100;
凈流入萬元:=(AAA2-AAA3-0.5*AAA4);
PM:=MA(凈流入萬元,1);
PMA:=PM/REF(PM,1)>1;
PMB:=REF(PMA,1)<1 AND PMA;
密碼:(EMA(MA(B1萬元,2),2))/100000,COLORYELLOW,NODRAW;
二日比:=密碼/REF(密碼,1);
選股:=PMB AND 密碼>REF(密碼,1) AND 二日比>1,;
DRAWNUMBER(選股=1 ,-87,密碼),COLORRED;
DRAWICON(選股,-97.5,1);