{寻龙诀主图}
DRAWTEXT_FIX(1,0.01,0,0,HYBLOCK)COLOR0080FF;
DRAWTEXT_FIX(1,0.05,0,0,DYBLOCK)COLOR00FFFF;
DRAWTEXT_FIX(1,0.10,0,0,GNBLOCK)COLOR00FFFF;
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
上市日期:=STRCAT(' 上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.04,0,股本市值),COLORGREEN;
DRAWTEXT_FIX(1,0.007,0.075,0,'莸利比例:'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.05,0.075,0,CONST(WINNER(C )*100)),COLORYELLOW;
DRAWNUMBER_FIX(1,0.205,0.075,0,CONST(DYNAINFO(37)*100)),COLORYELLOW;
DRAWTEXT_FIX (1,0.18,0.075,0,'换手:'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.26,0.075,0,CONST(DYNAINFO(17))),COLORYELLOW;
DRAWTEXT_FIX (1,0.24,0.075,0,'量比:'),COLORYELLOW;
DRAWTEXT_FIX (1,0.295,0.075,0,'涨幅:'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.32,0.075,0,CONST(DYNAINFO(14)*100)),COLORYELLOW;
安全度:=ROUND2((COST(95)-COST(5))/HHV(H,1250)*100,1);
CBJ1:=STRCAT(STRCAT('安全度',CON2STR(安全度,3)),'%');
DRAWTEXT_FIX(ISLASTBAR,0.092,0.075,0,CBJ1),COLORYELLOW;
寻龙决:=VOL>=REF(V,1)*1.9 AND (IF(C<O,C>REF(C,1),1)) AND (C-REF(C,1))/REF(C,1)*100>4 AND C<19 AND MA(VOL,4)>MA(VOL,16)
AND C>MA(C,30) AND C>MA(C,78) AND C>MA(C,5) AND C>MA(C,10) AND C>MA(C,20) AND (C-REF(C,3))/REF(C,3)*100<29 AND (C-REF(C,6))/REF(C,6)*101<40;
LL2L:=DRAWTEXT(寻龙决,L-0.01,'★&寻&龙&决'),COLORYELLOW;
WWWGSPTCOM:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
N:=50;
YLX:=1;
ZCX:=1;
DG:=1;
A199:=REF(C,N)=HHV(C,2*N+1); B9:=FILTER(A199,N); C9:=BACKSET(B9,N+1); HD:=FILTER(C9,N);
A299:=REF(C,N)=LLV(C,2*N+1); B8:=FILTER(A299,N); C5:=BACKSET(B8,N+1); LD:=FILTER(C5,N);UU:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);VV:=UU>REF(UU,1);
前期高位:=REF(C,BARSLAST(HD));
前期低位:=REF(C,BARSLAST(LD));
STICKLINE(H AND YLX=1,前期高位,前期高位,5,0),COLORWHITE;
STICKLINE(L AND ZCX=1,前期低位,前期低位,5,0),COLORMAGENTA;
STICKLINE(CROSS(C,REF(前期高位,1)) AND (VOL>=REF(V,1)*2 OR VOL>=REF(V,2)*2),H,L,0,0),COLOR33FFDD;
STICKLINE(CROSS(C,REF(前期高位,1)) AND (VOL>=REF(V,1)*2 OR VOL>=REF(V,2)*2),C,O,3,0),COLOR33CFDD;
STICKLINE(CROSS(C,REF(前期高位,1)) AND (VOL>=REF(V,1)*2 OR VOL>=REF(V,2)*2),C,O,2.5,0),COLOR33DFDD;
STICKLINE(CROSS(C,REF(前期高位,1)) AND (VOL>=REF(V,1)*2 OR VOL>=REF(V,2)*2),C,O,2,0),COLOR33EFDD;
STICKLINE(CROSS(C,REF(前期高位,1)) AND (VOL>=REF(V,1)*2 OR VOL>=REF(V,2)*2),C,O,1,0),COLOR33FFDD;
前高:REF(C,BARSLAST(VV)),COLORRED,DOTLINE,LINETHICK2;
顶高:REF(C,BARSLAST(VV))*DG,COLORYELLOW,DOTLINE,LINETHICK2;
PTZQ:=BARSLAST(HD);
PTZF:=(HHV(H,PTZQ)-LLV(L,PTZQ))/LLV(L,PTZQ)*100;
AAAA:=CROSS(C,前高);
KMK:=(C-REF(C,1))/REF(C,1)*100>6;
KMK2:=AAAA AND KMK;
DRAWTEXT(KMK2,L-0.01,'★&寻龙突2'),COLORYELLOW;
AAAA3:=CROSS(C,前期高位);
KMK3:=(C-REF(C,1))/REF(C,1)*100>6;
KMK33:=AAAA3 AND KMK3;
DRAWTEXT(KMK33,L-0.01,'★&寻龙突2'),COLORYELLOW;
ZZ88:=DKX*1.02,COLORYELLOW;
DRAWICON(C<MA(CLOSE,3) AND C>MA(C,5) AND C<REF(C,1) AND SUM(VOL/CAPITAL*100,1)>6 AND (C-REF(C,5))/REF(C,5)*100>5,H*1.03,8);
DRAWICON( (C-REF(C,6))/REF(C,6)*100>45 AND C<O AND C<REF(C,1) AND SUM(VOL/CAPITAL*100,1)>20 ,H*1.01,15);
BOLL:=MA(CLOSE,20);
NE:=IF(NAMELIKE('S') OR NAMELIKE('*S'),0.05,0.1);{通用个股/ST股}
涨停:=C/REF(C,1)-1>=NE-0.01/REF(C,1) AND C=H AND PERIOD=5;{仅在日线上变色}
STICKLINE(涨停,C,O,1,0),COLORFF00F5;
跌停:=REF(C,1)/C-1>=NE-0.01/REF(C,1) AND L=C AND PERIOD=5;
STICKLINE(跌停,C,O,-1,0),COLOR00FF00;{曾涨跌停 K线变色}
曾涨停:=H/REF(C,1)-1>=NE-0.01/REF(C,1) AND C<H AND PERIOD=5;
STICKLINE(曾涨停,H-(H-MAX(O,C)),H,0,0),COLORFF00B5;
曾跌停:=REF(C,1)/L-1>=NE-0.01/REF(C,1) AND L<C AND PERIOD=5;
STICKLINE(曾跌停,L+(MIN(O,C)-L),L,0,0),COLOR00BB00;{涨跌停开盘 K线变色}
涨停开盘:=O/REF(C,1)-1>=NE-0.01/REF(C,1) AND O=H AND PERIOD=5;{阴阳线的十分之一变色}
STICKLINE(涨停开盘,C+(O-C)*0.9,O,-1,0),COLORFF00F5;
跌停开盘:=REF(C,1)/O-1>=NE-0.01/REF(C,1) AND L=O AND PERIOD=5;
STICKLINE(跌停开盘,C-(C-O)*0.9,O,-1,0),COLOR00FF00;
DIFF:=EMA(C,6) - EMA(C,38);
DEA:=EMA(DIFF,6);
MACD:=2*(DIFF-DEA);
M价:=(REF(MACD,1)/2 +(26-1)*REF( EMA(C,26),1)/(26+1)-(12-1)*REF( EMA(C,12),1)/(12+1)+ 2*DIFF/(9+1)+(9-1)*REF( DEA,1)/(9+1)) /2/(1 /(12+1)-1/(26+1) ),COLORWHITE;
WDIF:=EMA(EMA(EMA(C,3),3),3)+DIFF;
CGX:EMA(WDIF,9),COLORGREEN,LINETHICK2;
IF(CGX>=REF(CGX,1),CGX,DRAWNULL),COLORRED,LINETHICK2;
{N:=50;}
RC:=REFDATE(HHV(H,N)/1.4,DATE);
MMMM:=STICKLINE(MACD<0,RC,RC+MACD,0.1,0),COLOR0000FF;
KKK:=STICKLINE(MACD>0,RC,RC+MACD,0.1,0),COLOR00FF00;
X1:=(3*CLOSE+LOW+OPEN+HIGH)/6;
X2:=EMA(X1,13);
X3:=EMA(X2,3);
X4:=EMA(X3,3);
X5:=EMA(X4,3);
X6:=EMA(X5,3);
X7:=EMA(X6,3);
X8:=(20*X1+19*REF(X1,1)+18*REF(X1,2)+17*REF(X1,3)+16*REF(X1,4)+15*REF(X1,5)+14*REF(X1,6)+13*REF(X1,7)+12*REF(X1,8)+
11*REF(X1,9)+10*REF(X1,10)+9*REF(X1,11)+8*REF(X1,12)+7*REF(X1,13)+6*REF(X1,14)+5*REF(X1,15)+4*REF(X1,16)+3*REF(X1,17)+2*REF(X1,18)+REF(X1,20))/210;
多空线:MA(X8,20),COLOR197800,LINETHICK4;
趋势线:MA(多空线,2),COLOR197800,LINETHICK3;
JX1:=CROSS(CGX,趋势线) AND O<H AND C>-3 AND C>ZZ88 AND (C-REF(C,3))/REF(C,3)*100<30 AND (C-REF(C,2))/REF(C,2)*100<20 AND SUM(VOL/CAPITAL*100,1)<18;
DRAWICON(JX1,L,9);
S1:=(C-REF(C,15))/REF(C,15)*100>100;
S2:=C<CGX AND C<REF(C,1);
S3:=CROSS(CGX,C);
SSSS:=S1 AND S2 AND S3;
DRAWICON(SSSS,H*1.01,15);
BOCC:=(ATAN((BOLL/REF(BOLL,1)-1)*100)*180/3.1416)>=13 AND C>BOLL;
XJ:=REF(BOCC,5)AND C>BOLL AND L<BOLL*1.01 AND C>REF(C,1) AND C>CGX AND C>ZZ88 ;
DRAWTEXT_FIX(1,0.980,20,1,'公式平台,公式源码 HTTP://WWW.GSPT.COM'),COLOR333333;
M20:=MA(C,20);
XGGG1:=CROSS(C,M20) AND CURRBARSCOUNT<=10;
DRAWSL(SUM(XGGG1,0)=1 AND XGGG1,M20,0,CURRBARSCOUNT,0),COLORRED,LINETHICK2;
涨停3:=C>(REF(C,1)*1.1-0.01);
XG333:=REF(COUNT(涨停3,7)<=1,0);
P1:= (C-REF(C,5))/REF(C,5)*100>-3 AND (C-REF(C,21))/REF(C,21)*100>-18 AND (C-REF(C,5))/REF(C,5)*100<35 AND (C-REF(C,42))/REF(C,42)*100>-30;
MM:=C/REF(C,1)-1>=NE-0.01/REF(C,1) AND C=H
AND MACD.DEA<0.6 AND MACD.DEA>-0.5 AND MACD.MACD>-2 AND MACD.DIF>-1.5 AND MACD.DIF<0.8
AND (C-REF(C,2))/REF(C,2)*100<20.8 AND COST(95)-COST(5)/(COST(95)+COST(5))/2*100<25
AND (C-REF(C,44))/REF(C,44)*100>-25 AND (HHV(H,7)-LLV(L,7))/REF(O,6)<0.45 AND (C-REF(C,6))/REF(C,6)*100>-10;
BBBB2:=REF(MM,1) AND(C-REF(C,1))/REF(C,1)*100>9.2 AND VOL<=REF(V,1)*11;
MM3:=REF(MM,2) AND REF(C,1)=REF(H,1) AND(C-REF(C,1))/REF(C,1)*100>6 AND VOL<=REF(V,1)*11;
DRAWICON(MM3,C*1.018,13);
DRAWICON(MM3,OPEN*0.999,1);
DRAWICON(MM3,OPEN*0.994,1);
DRAWICON(MM3,OPEN*0.990,1);
DRAWICON(MM3,OPEN*0.985,1);
DRAWICON(MM3,OPEN*0.980,1);
DRAWICON(MM,OPEN*0.999,1);
DRAWICON(MM,OPEN*0.993,1);
DRAWICON(MM,OPEN*0.988,1);
B2:STICKLINE(MM,OPEN,CLOSE,3,0),COLORYELLOW;
B3:STICKLINE(MM,OPEN,CLOSE,1.5,0),COLORMAGENTA;
STICKLINE(BBBB2,OPEN,CLOSE,3,0),COLORLIMAGENTA;
DRAWICON(BBBB2,C*1.018,28);
DRAWICON(BBBB2,OPEN*0.999,1);
DRAWICON(BBBB2,OPEN*0.994,1);
DRAWICON(BBBB2,OPEN*0.990,1);
DRAWICON(BBBB2,OPEN*0.985,1);
DRAWICON(BBBB2,OPEN*0.980,1);
YB1:=MM AND 寻龙决;
YB2:=BBBB2 AND 寻龙决;
YB:=YB1 OR YB2 ;
DRAWTEXT(YB,L-0.01,'★&寻&龙&突1'),COLORYELLOW;
DRAWICON(YB,L,23);