{跟庄建仓}
gzA01:=DYNAINFO(7);
gzA03:=BARSCOUNT(CLOSE);
gzA04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);
gzA05:=IF((gzA03 > 20),gzA04,0);
gzA06:=IF((LOW > gzA01),0,IF((HIGH < gzA01),1,(((gzA01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));
gzA07:=DMA(gzA06,(VOL / CAPITAL)) * 60;
gzA09:=IF((((gzA07 > 0) AND (gzA07 > REF(gzA07,1))) AND (gzA05 <= 88)),gzA07,0);
gzVar3:=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);
趋势1:=EMA(gzVar3,3)-10;
FILLRGN((gzA09 > 0 AND (趋势1<20 OR 趋势1>REF(趋势1,1)AND 趋势1<50)),0,gzA09),ColorFFAC59;
{动态出货指标}
DTCVAR1:=DYNAINFO(5);
DTCVAR2:=BARSCOUNT(HIGH);
DTCVAR3:=(SMA((HIGH / HHV(CLOSE,120)),3,1) * 100);
DTCVAR4:=IF((DTCVAR2 > 20),DTCVAR3,0);
DTCVAR5:=IF((HIGH < DTCVAR1),0,IF((LOW > DTCVAR1),1,(((DTCVAR1 - HIGH) + 0.009) / ((LOW - HIGH) + 0.009))));
DTCVAR6:=(DMA(DTCVAR5,(VOL / CAPITAL)) * 60);
DTCVAR7:=IF((((DTCVAR6 > 0) AND (DTCVAR6 > REF(DTCVAR6,1))) AND (DTCVAR4 >= 88)),DTCVAR6,0);
DTCVAR8:=((3 * SMA((((CLOSE - HHV(HIGH,27)) / (LLV(LOW,27) - HHV(HIGH,27))) * 100),5,1)) - (2 * SMA(SMA((((HIGH - HHV(HIGH,27)) / (LLV(LOW,27) - HHV(HIGH,27))) * 100),5,1),3,1)));
DTCVAR9:=EMA(DTCVAR8,8);
DTCVAR10:=((3 * SMA((((HIGH - HHV(HIGH,55)) / (LLV(LOW,55) - HHV(HIGH,55))) * 100),5,1)) - (2 * SMA(SMA((((HIGH - HHV(HIGH,55)) / (LLV(LOW,55) - HHV(HIGH,55))) * 100),5,1),3,1)));
DTCVAR11:=(EMA(DTCVAR10,3) - 10);
FILLRGN(((DTCVAR7 > 0) AND ((DTCVAR11 < 20) OR ((DTCVAR11 > REF(DTCVAR11,1)) AND (DTCVAR11 < 50)))),0,DTCVAR7),Color5A5A5A;
{机构出仓区:0,COLORGREEN,LINETHICK0;}
{提前抄底}
tqcdN:=21;
tqcdVar1:=HHV(HIGH,9)-LLV(LOW,9);
tqcdVar2:=HHV(HIGH,9)-CLOSE;
tqcdVar3:=CLOSE-LLV(LOW,9);
tqcdVar4:=tqcdVar2/tqcdVar1*100-70;
tqcdVar5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
tqcdVar6:=(2*CLOSE+HIGH+LOW)/4;
tqcdVar7:=SMA(tqcdVar3/tqcdVar1*100,3,1);
tqcdVar8:=LLV(LOW,34);
tqcdVar9:=SMA(tqcdVar7,3,1)-SMA(tqcdVar4,9,1);
tqcdVarA:=IF(tqcdVar9>100,tqcdVar9-100,0);
tqcdVarB:=HHV(HIGH,34);
tqcdAA:= tqcdVarA*2;
tqcdBB:= EMA((tqcdVar6-tqcdVar8)/(tqcdVarB-tqcdVar8)*100,13);
tqcdVarC:=EMA(0.667*REF(tqcdBB,1)+0.333*tqcdBB,2);
tqcdCC:= SMA(tqcdVar5,20,1);
tqcdVarD:=SMA(tqcdAA,2,1)-tqcdAA;
tqcdVarE:=EMA(0.667*REF(tqcdBB,1)+0.333*tqcdBB,2)-tqcdBB;
tqcdVar1a:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70;
tqcdVar2a:=SMA(tqcdVar1a,9,1)+100;
tqcdVar3a:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
tqcdVar4a:=SMA(tqcdVar3a,3,1);
tqcdVar5a:=SMA(tqcdVar4a,3,1)+100;
tqcdVar6a:=tqcdVar5a-tqcdVar2a;
提前抄底: IF(tqcdVar6a>tqcdn,tqcdVar6a-tqcdn,0),ColorC0C0C0,PRECISION1;
tqcdLC:=REF(CLOSE,1);
tqcdRSI:=SMA(MAX(CLOSE-tqcdLC,0),6,1)/SMA(ABS(CLOSE-tqcdLC),6,1)*100;
tqcde:=CROSS(83,tqcdRSI);
STICKLINE( tqcde,tqcde,55,1,0),Color00FFFF;
DRAWTEXT(tqcde,50,' 逃顶'),COLORff9966;
STICKLINE(REF(提前抄底,1)<提前抄底,提前抄底,REF(提前抄底,1),7,0),Color990099;
STICKLINE(REF(提前抄底,1)>提前抄底,提前抄底,REF(提前抄底,1),7,0),Color008000;
{提前抄底1}
cdtqp1:=5;
cdtqp2:=4;
SSRCJL:=EMA(VOL,13);
SSRCJE:=EMA(AMOUNT,13);
SSRCBJX:=((SSRCJE / SSRCJL) / 100);
SSRGL:=(((CLOSE - SSRCBJX) / SSRCBJX) * 100);
短底:SSRGL<(0-18),COLORRED;
大底:SSRGL<(0-14),COLORBLUE;
中底:SSRGL<(0-10),COLORYELLOW;
绝对底:SSRGL<(0-6),COLORWHITE;
STICKLINE((SSRGL < (0 - 18)),60,80,3,0),COLORRED;
STICKLINE((SSRGL < (0 - 14)),40,60,3,0),COLORBLUE;
STICKLINE((SSRGL < (0 - 10)),20,40,3,0),COLORYELLOW;
STICKLINE((SSRGL < (0 - 6)),0,20,3,0),COLORWHITE;
{高卖:80, POINTDOT,COLORRED;
低吸:20, POINTDOT,COLORGREEN;}
cdtqVAR1:=LLV(LOW,cdtqP1);
cdtqVAR2:=HHV(HIGH,cdtqP1);
cdtqK:sma(EMA((CLOSE-cdtqVAR1)/(cdtqVAR2-cdtqVAR1)*100,cdtqP2),3,1),Color0058B0,LINETHICK1,PRECISION1;
cdtqD:sma(EMA(0.667*REF(cdtqK,1)+0.333*cdtqK,2),3,1),Color008000,LINETHICK2,PRECISION1;
partline(cdtqK>cdtqd and cdtqk>ref(cdtqk,1),cdtqK),Color4242FF,LINETHICK2;
{资金指数}
主流资金:EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3), COLORRED,LINETHICK1,PRECISION1,LINEDOT;
非主流资金:EMA(100*(INDEXC-LLV(INDEXL,34))/(HHV(INDEXH,34)-LLV(INDEXL,34)),3),COLORGREEN,LINETHICK1,PRECISION1,LINEDOT;
{20,POINTDOT,COLORF00FF0;
50,POINTDOT,COLORGREEN;
80,POINTDOT,COLORWHITE;}
{主力拉升}
zllsaa1:=VOL/CAPITAL;
zllsaa2:=(zllsaa1-REF(zllsaa1,5))/REF(zllsaa1,5);
zllsaa3:=(CLOSE-REF(CLOSE,5))/REF(CLOSE,5);
zllsaa4:=MA(zllsaa2,10);
zllsaa5:=MA(zllsaa3,10)*200;
zllsaa6:=MA(zllsaa5,3);
zllsaa7:=MA(zllsaa5,5);
zllsaa8:=CROSS(zllsaa5,zllsaa7);
股价速率:zllsaa5,ColorFF0080,PRECISION1;
成交量速率:zllsaa7,ColorFFFF00,PRECISION1;
{STICKLINE(zllsaa8 AND zllsaa5<zllsaa4,zllsaa5+2,zllsaa5-2,5,0),LINETHICK2,Color0080FF;}
DRAWICON(cross(股价速率,成交量速率) and ref(股价速率,1)<-20,成交量速率,8);
partline(股价速率>成交量速率 and 股价速率>ref(股价速率,1),股价速率),Color8000FF,LINETHICK2;
{抄底王}
cdwVAR2:=MA(CLOSE, 5);
cdwVAR3:=MA(CLOSE, 10);
cdwVAR4:=MA(CLOSE, 20);
cdwVAR5:=MA(CLOSE, 30);
cdwVAR6:=(cdwVAR2+cdwVAR3+cdwVAR4+cdwVAR5)/4;
cdwVAR7:=(cdwVAR6-REF(cdwVAR6,15))/REF(cdwVAR6, 15)*100;
cdwVAR8:=(cdwVAR6-REF(cdwVAR6, 15))/REF(cdwVAR6, 15)*100;
cdwVAR9:=EMA(cdwVAR7,8);
反转:STICKLINE(cdwVAR9>1*REF(cdwVAR9, 1), cdwVAR7, 0, 2, 0),COLOREE00EE;
持股:STICKLINE(cdwVAR7>1*REF(cdwVAR7, 1), cdwVAR7, cdwVAR9, 2, 0),COLORRED;
持币:STICKLINE(cdwVAR7<1*REF(cdwVAR7, 1), cdwVAR7, cdwVAR9,4, 1),COLORGREEN;
洗盘:STICKLINE(cdwVAR7<1*REF(cdwVAR7, 1) AND cdwVAR9>1*REF(cdwVAR9, 1), cdwVAR7, cdwVAR9, 4, 0), COLOR00EEFF;
cdwVAR10:=(CLOSE-MA(CLOSE, 58))/MA(CLOSE, 58)*100;
cdwVAR11:=(cdwVAR10>1*REF(cdwVAR10, 1) AND cdwVAR10<-26 AND cdwVAR10>-40)*1.5;
cdwVAR12:=VOL/CAPITAL*100;
cdwVAR13:=LLVBARS(LOW, 50);
cdwVAR14:=SUM(VOL, cdwVAR13);
cdwVAR15:=HHVBARS(HIGH, 50);
cdwVAR16:=SUM(VOL, cdwVAR15);
cdwVAR17:=(CLOSE-REF(OPEN, cdwVAR15))/REF(OPEN, cdwVAR15)*100;
cdwVAR18:=cdwVAR16/CAPITAL*100;
cdwVAR19:=(CLOSE-REF(OPEN, cdwVAR13))/REF(OPEN, cdwVAR13)*100;
cdwVAR20:=cdwVAR14/CAPITAL*100;
cdwVAR21:=MA(CLOSE, 3);
cdwVAR22:=REF(CLOSE, 2)*0.865;
cdwVAR23:=REF(CLOSE, 13)*0.772;
cdwVAR24:=MIN(cdwVAR22, cdwVAR23);
cdwVAR25:=MA(CLOSE, 13);
操底王:IF((CLOSE-cdwVAR24)/CLOSE<0.030 AND cdwVAR17<(-35) AND SUM(cdwVAR12, 5)/5<1.800, 1, 0)*10, COLORWHITE,POINTDOT;
DRAWTEXT(操底王, 操底王, ' 底 追 '), COLORFFAA00;
cdwVAR26:=(CLOSE-REF(CLOSE, 1))/REF(CLOSE, 1)*100;
cdwVAR27:=(EMA(CLOSE, 12)-EMA(CLOSE, 26))*100;
cdwVAR28:=EMA(cdwVAR27, 9);
cdwVAR29:=2*(cdwVAR27-cdwVAR28);
DRAWTEXT(cdwVAR27<(-50) AND cdwVAR26>7 AND cdwVAR27<cdwVAR28, (-10), '底'), COLORWHITE;
DRAWTEXT(cdwVAR27<(-50) AND cdwVAR26>7 AND cdwVAR27>=cdwVAR28, 5, '追'), COLORWHITE;
STICKLINE(cdwVAR27<(-50) AND cdwVAR26>7, 0,(-10), 5, 0), COLORFFFF66;
{量能饱和度}
{input:N(20,1,100);}
lnn:=20;
lnbhp1:=SYSPARAM(1);
SAT:= IF((AMOUNT/C)/(HHV(AMOUNT,lnN)/HHV(C,lnN))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,lnN)/HHV(C,lnN))*100);
量饱和:SAT,PRECISION0,color55FFFF,LINETHICK0;
STICKLINE(((CLOSE > 0) AND BARSTATUS=2),-1,101,10,1),colorFFFFFF,SHIFT2;
STICKLINE(((SAT <= 5)AND BARSTATUS=2 ),0,SAT[lnbhp1],8,0),colorFFFFFF,SHIFT2;
STICKLINE((((SAT > 5) AND (SAT <= 20))AND BARSTATUS=2),0,SAT[lnbhp1],8,0),colorCCFF88,SHIFT2;
STICKLINE((((SAT > 20) AND (SAT <= 40))AND BARSTATUS=2 ),0,SAT[lnbhp1],8,0),colorFF00FF,SHIFT2;
STICKLINE(((SAT > 40)AND BARSTATUS=2 ),0,SAT[lnbhp1],8,0),color0000FF,SHIFT2;
DRAWTEXT(SAT AND BARSTATUS=2 ,110,'量饱'),ALIGN2,COLORccffcc,SHIFT3;
DRAWNUMBER(SAT AND BARSTATUS=2,105,SAT[lnbhp1],0),SHIFT3,ALIGN2,COLORccffcc;
{DRAWTEXT(sysparam(2)=BARPOS,c,'（一）根据量大成头的原理，当【量能饱和度】出现饱和，
而当前股价正巧位于一处高价区时，暗示该价位成为该时期峰顶的机率将会大幅增加。\n
（二）根据【爆发力】原理，当【量能饱和度】在一处股价的低价区出现饱和时，该价位便很可能成为一处起涨点。'),ALIGN4,COLORYELLOW;
}
{ 变色KDJ}
{input:n(9),m1(3),m2(3);}
BSn:=9;
BSm1:=3;
BSm2:=3;
BSRSV:=(CLOSE-LLV(LOW,BSN))/(HHV(HIGH,BSN)-LLV(LOW,BSN))*100;
BSK:sma(SMA(BSRSV,BSM1,1),3,1),COLORwhite,PRECISION1;
BSD:SMA(BSK,BSM2,1),colorYELLOW,PRECISION1;
BSJ:3*BSK-2*BSD,colorgreen,PRECISION1;
partline(BSk>BSd and bsk>ref(bsk,1),BSk),COLORMAGENTA,LINETHICK2;
partline(BSk<BSd,BSk),COLORwhite;
partline(BSj>BSd and bsj>ref(bsj,1),BSj),Color60AFFF,LINETHICK2;
partline(BSj<BSd,BSj),colorgreen,LINETHICK1;
{股道kdj}
空方能量:=(HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*100;
{套牢筹码:SMA(空方能量,3,1)/28.57,COLORMAGENTA,LINETHICK2;
股道KDJ基础:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
机构能量:=SMA(SMA(股道KDJ基础,3,1),3,1)/28.57;
}
股道KDJ基础:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
机构能量:=SMA(SMA(股道KDJ基础,3,1),3,1);
基本:=EMA(机构能量,5);
股道:(3*机构能量-2*基本),COLORRED,LINETHICK1,PRECISION1,LINEDASH;
基本面:基本*1.1,ColorFFFF00,LINETHICK1,PRECISION1,LINEDASH;
DRAWICON(CROSS(股道,基本面) and 基本面<20,股道-2,4);
套牢筹码:SMA(空方能量,3,1),Color36361B,LINEDASH,LINETHICK1,PRECISION1;
{金字塔趋势力道线}
JZTA:=(3*CLOSE+LOW+OPEN+HIGH)/6;
JZTB:=(20*JZTA+19*REF(JZTA,1)+18*REF(JZTA,2)+17*REF(JZTA,3)+16*REF(JZTA,4)+15*REF(JZTA,5)+14*REF(JZTA,6)+13*REF(JZTA,7)+12*REF(JZTA,8)+11*REF(JZTA,9)+10*REF(JZTA,10)+9*REF(JZTA,11)+8*REF(JZTA,12)+7*REF(JZTA,13)+6*REF(JZTA,14)+5*REF(JZTA,15)+4*REF(JZTA,16)+3*REF(JZTA,17)+2*REF(JZTA,18)+1*REF(JZTA,19))/210;
JZTD:=MA(JZTB,10);
DRAWTEXT(REF(JZTB,1)<REF(JZTD,1) AND JZTB>=JZTD,CDTQK,'买进!'),color0000FF;
DRAWTEXT(REF(JZTB,1)>=REF(JZTD,1) AND JZTB<JZTD,CDTQK,'卖出!'),color00FF00;
{买与卖}
必买96%:=IF(TROUGHBARS(3,15,1)=0 AND HIGH>LOW+0.01,1,0);
必卖60%:=IF(PEAKBARS(3,15,1)=1,1,0);
DRAWTEXT(必买96%,bsj*0.9,'必买96%'),colorred;
{DRAWTEXT(必卖60%,bsj*1.1,'必卖'),colorgreen;}
{庄家暗动}
zjadv6:=CLOSE/REF(CLOSE,3)>=1.1;
zjadv7:=BACKSET(zjadv6,3);
大涨买94%:=IF((zjadv7 AND COUNT(zjadv7,3)=1),40,0);
DRAWTEXT(大涨买94%,bsj*1.1,'满94%'),COLORYELLOW;
zjadv10:=PEAKBARS(3,15,1)<10;
zjadv12:=IF(zjadv10=1,50,0);
头部:= IF(zjadv12=50,100,0);
卖96%:=IF(头部>REF(头部,1),50,0);
DRAWTEXT(卖96%,bsj*1.1,'卖96%'),Colorred;
zjadv9:=TROUGHBARS(3,15,1)<10;
zjadv11:=IF(zjadv9=1,50,0);
底部:= IF(zjadv11=50,50,0);
买96%:=IF( 底部>REF(底部,1),30,0);
DRAWTEXT(买96%,bsj*0.7,'买96%'),COLORblue;
20,POINTDOT,COLORF00FF0;
50,POINTDOT,COLORGREEN;
80,POINTDOT,COLORWHITE; |
