●分割角度①
INPUT:n(13,1,999),n1(2,1,3),上角(11,0,500),下角(11,0,500);
DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1);
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'板块:'+BLKNAME),Color0095BC,align4;
u1:=SYSPARAM(3);
u:=u1-SYSPARAM(2)+1;
hh:=HHV(HIGH,u);
ll:=LLV(LOW,u);
最高:hh[u1],ColorC0C0C0;
最低:ll[u1],ColorC0C0C0;
PARTLINE(CLOSE and n1<>3,最低),COLORred;
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.191),LINEDOT,COLORWHITE;
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.382),LINEDOT,COLORWHITE;
PARTLINE(CLOSE and n1<>3,最低+(最高-最低)*0.5),ColorFF8200;
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.618),LINEDOT,COLORWHITE;
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.809),LINEDOT,COLORWHITE;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(3) and n1<>3,REF(最低,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'最低↓'),ALIGN2,COLORred;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(3) and n1<>3,REF(最高,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'最高↑'),ALIGN2,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.191)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.191↑'+NUMTOSTR(最低+(最高-最低)*0.191,2)),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.382)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.382↑'+NUMTOSTR(最低+(最高-最低)*0.382,2)),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1<>3,REF((最低+(最高-最低)*0.5)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM (2))),' 50%↑'+NUMTOSTR(最低+(最高-最低)*0.5,2)),ColorFF8200;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.618)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.618↑'+NUMTOSTR(最低+(最高-最低)*0.618,2)),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.809)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.809↑'+NUMTOSTR(最低+(最高-最低)*0.809,2)),COLORWHITE;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*1/8),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*1/4),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*3/8),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*5/8),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*7/8),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*3/4),LINEDOT,Color0095BC;
k3:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(k3,HIGH,LOW,0.1,0),colorred;
STICKLINE(k3,OPEN,CLOSE,7,1),colorred;
STICKLINE(NOT(k3),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(k3),CLOSE,OPEN,7,0),colorcyan;
N日:=n*10;
p1:=CLOSE-REF(CLOSE,1);p2:=SUM(ABS(p1),0); p3:=COUNT(CLOSE>0,0);
k1:=p2/p3/上角*10;k2:=p2/p3/下角*10;
DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH,-0.5*K2,0,0),COLOR33FFCC,POINTDOT;
DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH, -K2,0,0),COLOR33FFCC,POINTDOT;
DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH,-2*K2,0,0),COLOR33FFCC;
DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH,-4*K2,0,0),COLOR33FFCC,POINTDOT;
DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,N日)+1),N日),HIGH,-8*K2,0,0),COLOR33FFCC,POINTDOT;
DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW,0.5*K1,0,0),COLORffCCff,POINTDOT;
DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW,
K1,0,0),COLORffCCff,POINTDOT;
DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW,2*K1,0,0),COLORffCCff;
DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW,4*K1,0,0),COLORffCCff,POINTDOT;
DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,N日)+1),N日),LOW,8*K1,0,0),COLORffCCff,POINTDOT;
●分割角度②
INPUT:n(13,1,999),n1(2,1,3),上角(11,0,500),下角(11,0,500);
DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1);
DD0:=REF(DAY,(BARSCOUNT(CLOSE) - 1));
■上市日期:REF(YEAR,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0;
年:REF(MONTH,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0;
月:REF(DAY,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0;
日:0,LINETHICK0,ColorC0C0C0;
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'板块:'+BLKNAME),Color0095BC,align4;
u1:=SYSPARAM(3);
u:=u1-SYSPARAM(2)+1;
hh:=HHV(HIGH,u);
ll:=LLV(LOW,u);
最高:hh[u1],COLORYELLOW,ColorC0C0C0;
最低:ll[u1],COLORred,ColorC0C0C0;
PARTLINE(CLOSE and n1<>3,最低),COLORred;
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.191),LINEDOT,COLORWHITE;
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.382),LINEDOT,COLORWHITE;
PARTLINE(CLOSE and n1<>3,最低+(最高-最低)*0.5),ColorFF8200;
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.618),LINEDOT,COLORWHITE;
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.809),LINEDOT,COLORWHITE;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(3) and n1<>3,REF(最低,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'最低↓'),ALIGN2,COLORred;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(3) and n1<>3,REF(最高,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'最高↑'),ALIGN2,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.191)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.191↑'+NUMTOSTR(最低+(最高-最低)*0.191,2)),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.382)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.382↑'+NUMTOSTR(最低+(最高-最低)*0.382,2)),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1<>3,REF((最低+(最高-最低)*0.5)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM (2))),' 50%↑'+NUMTOSTR(最低+(最高-最低)*0.5,2)),ColorFF8200;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.618)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.618↑'+NUMTOSTR(最低+(最高-最低)*0.618,2)),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.809)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.809↑'+NUMTOSTR(最低+(最高-最低)*0.809,2)),COLORWHITE;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*1/8),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*1/4),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*3/8),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*5/8),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*7/8),LINEDOT,Color0095BC;
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*3/4),LINEDOT,Color0095BC;
k3:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(k3,HIGH,LOW,0.1,0),colorred;
STICKLINE(k3,OPEN,CLOSE,7,1),colorred;
STICKLINE(NOT(k3),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(k3),CLOSE,OPEN,7,0),colorcyan;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*1/8)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 1/8↑'+NUMTOSTR(最低+(最高-最低)*1/8,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*1/4)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 1/4↑'+NUMTOSTR(最低+(最高-最低)*1/4,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*3/8)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 3/8↑'+NUMTOSTR(最低+(最高-最低)*3/8,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*5/8)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 5/8↑'+NUMTOSTR(最低+(最高-最低)*5/8,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*7/8)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 7/8↑'+NUMTOSTR(最低+(最高-最低)*7/8,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*3/4)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 3/4↑'+NUMTOSTR(最低+(最高-最低)*3/4,2)),Color0095BC;
YB:=SYSPARAM(2);
a:=SYSPARAM(3);
P:=(a - YB);
S4:=SYSPARAM(4);
S5:=SYSPARAM(5);
HH:=HHVBARS(HIGH,(P + 1));
LL:=LLVBARS(LOW,(P + 1));
z:=(BARPOS = (a - HH[a]));
Y:=(BARPOS = (a - LL[a]));
K:=((S4 - S5) / (a - YB));
DRAWSL(z,HIGH,(0 - ((15 * K) / 60)),0,0),POINTDOT,colorFFFF00;
DRAWSL(z,HIGH,(0 - ((30 * K) / 60)),0,0),POINTDOT,colorFFFF00;
DRAWSL(z,HIGH,(0 - ((45 * K) / 60)),0,0),POINTDOT,colorFFFF00;
DRAWSL(z,HIGH,(0 - ((60 * K) / 60)),0,0),colorFFFF00;
DRAWSL(z,HIGH,(0 - ((85 * K) / 60)),0,0),POINTDOT,colorFFFF00;
DRAWSL(z,HIGH,(0 - ((120 * K) / 60)),0,0),POINTDOT,colorFFFF00;
DRAWSL(z,HIGH,(0 - ((165 * K) / 60)),0,0),POINTDOT,colorFFFF00;
DRAWSL(z,HIGH,(0 - ((240 * K) / 60)),0,0),POINTDOT,colorFFFF00;
DRAWSL(z,HIGH,(0 - ((360 * K) / 60)),0,0),POINTDOT,colorFFFF00;
DRAWSL(z,HIGH,(0 - ((600 * K) / 60)),0,0),POINTDOT,colorFFFF00;
DRAWSL(Y,LOW,((10 * K) / 60),0,0),POINTDOT,colorFF00FF;
DRAWSL(Y,LOW,((30 * K) / 60),0,0),POINTDOT,colorFF00FF;
DRAWSL(Y,LOW,((60 * K) / 60),0,0),POINTDOT,colorFF00FF;
DRAWSL(Y,LOW,((90 * K) / 60),0,0),POINTDOT,colorFF00FF;
DRAWSL(Y,LOW,((120 * K) / 60),0,0),colorFF00FF;
DRAWSL(Y,LOW,((180 * K) / 60),0,0),POINTDOT,colorFF00FF;
DRAWSL(Y,LOW,((300 * K) / 60),0,0),POINTDOT,colorFF00FF;
DRAWSL(Y,LOW,((540 * K) / 60),0,0),POINTDOT,colorFF00FF;
DRAWSL(Y,LOW,((1020 * K) / 60),0,0),POINTDOT,colorFF00FF;
A:=SYSPARAM(1);
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift13;
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift21;
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift34;
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift55;
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift89;
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift144;
DRAWTEXT(BARPOS=A,SYSPARAM(5),'天数'),Color0095BC,align2;
DRAWTEXT(BARPOS=A,SYSPARAM(5),'13'),Color0095BC,shift13;
DRAWTEXT(BARPOS=A,SYSPARAM(5),'21'),Color0095BC,shift21;
DRAWTEXT(BARPOS=A,SYSPARAM(5),'34'),Color0095BC,shift34;
DRAWTEXT(BARPOS=A,SYSPARAM(5),'55'),Color0095BC,shift55;
DRAWTEXT(BARPOS=A,SYSPARAM(5),'89'),Color0095BC,shift89;
DRAWTEXT(BARPOS=A,SYSPARAM(5),'144'),Color0095BC,shift144;
■量
DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1);
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
□主买□:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),Color0000FF,LINETHICK0;
□主卖□:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),ColorFFFF00,LINETHICK0;
□量比□:IF(BARPOS=DATACOUNT,DYNAINFO(17),VOL/REF(MA(VOL,5),1)),ColorFF80FF,LINETHICK0;
STICKLINE(□量比□,+□量比□,0,10,8),ColorFF80FF,POINTDOT,LINETHICK2;;
主买:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
主卖:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2));
STICKLINE(VOL>0,VOL,0,6,1),colorgray;
STICKLINE(主买>0,0,主买,5,0),COLORRED;
STICKLINE(主卖<0,0,主卖,7,1)colorgray;
STICKLINE(主卖<0,0,主卖,5,0),ColorFFFF00;
VOL/CAPITAL*100,linethick0;
((HIGH-LOW)/LOW)*100,linethick0;
VOL/DYNAINFO(38),linethick0,colorffff00;
STICKLINE(CLOSE<MA(CLOSE,2),0,VOL,6,0),ColorFFFF00;
STICKLINE(VOL>MA(VOL,5)*1.5,VOL,VOL+VOL*0.03,10,0),coloryellow;
ZZ:=(CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45))*100;
周K:=EMA(ZZ,3);
周D:=EMA(周K,3);
AB:=INTPART(周K);
CD:=INTPART(周D);
TF:=AB+CD;
TG:=(TF-REF(TF,1))*0.1;
ENTERLONG:= TG ;
DRAWICON(TG>=0,CLOSE,10) ,ALIGN4;
再补源码感谢大家!
●主图
input:N(6,0,9999),M(18,0,9999);
DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1);
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
压力位:IF(CROSS(j24,j),HIGH,REF(HIGH,BARSLAST(CROSS(j24,j)))),ColorFFFFFF,LINETHICK1;
支撑位:IF(CROSS(j,j24),LOW,REF(LOW,BARSLAST(CROSS(j,j24)))),Color0000FF,,LINETHICK1;
MA3:=MA(CLOSE,N);
MA30:=MA(CLOSE,M);
k3:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(k3,HIGH,LOW,0.1,0),colorred;
STICKLINE(k3,OPEN,CLOSE,7,1),colorred;
STICKLINE(NOT(k3),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(k3),CLOSE,OPEN,7,0),colorcyan;
DRAWLINE(LOW=SYSPARAM(5),LOW,BARPOS=SYSPARAM(3)-1,LOW,1),Colorgreen;
DRAWLINE(HIGH=SYSPARAM(4),HIGH,BARPOS=SYSPARAM(3)-1,HIGH,1),Coloryellow;
STICKLINE((BARSTATUS = 2),(MA30 * 1.004),(MA30 * 1.004),10,0),colorFF00FF;
STICKLINE((BARSTATUS = 2),(MA30 * 1.004),(MA30 * 1.004),10,0),SHIFT1,colorFF00FF;
STICKLINE((BARSTATUS = 2),(MA30 * 1.004),(MA30 * 1.004),10,0),SHIFT2,colorFF00FF;
DRAWNUMBER(((BARSTATUS = 2) AND BETWEEN(CLOSE,(MA30 * 0.95),(MA30 * 1.05))
),(MA30 * 1.004),(MA30 * 1.004),2),ALIGN1;
AA:=REF(HIGH,5)=HHV(HIGH,2*5+1);
BB:=BACKSET(AA,5+1);
CC:=FILTER(BB,5) AND HIGH=HHV(HIGH,5+1);
DRAWICON(CC and BARSTATUS=2,HIGH*1.01,10);
AA2:=REF(LOW,5)=LLV(LOW,2*5+1);
BB2:=BACKSET(AA2,5+1);
CC2:=FILTER(BB2,5) AND LOW=LLV(LOW,5+1);
DRAWICON(CC2 and BARSTATUS=2,LOW*0.998,11);
GG:=BARSTATUS=2 AND REF(CC,BARSLAST(CC));
HH:=BACKSET(GG,BARSLAST(CC)+1);
II:=HH>REF(HH,1);
JJ:=REF(BARSLAST(CC),1);
KK:=BACKSET(II,JJ+2);
LL:=KK>REF(KK,1);
DRAWLINE(LL,HIGH,II,HIGH,1),POINTDOT;
GG2:=BARSTATUS=2 AND REF(CC2,BARSLAST(CC2));
HH2:=BACKSET(GG2,BARSLAST(CC2)+1);
II2:=HH2>REF(HH2,1);
JJ2:=REF(BARSLAST(CC2),1);
KK2:=BACKSET(II2,JJ2+2);
LL2:=KK2>REF(KK2,1);
DRAWLINE(LL2,LOW,II2,LOW,1),POINTDOT;
hh:=SYSPARAM(4);
ll:=SYSPARAM(5);
q809:=ll+(hh-ll)*0.809;
q618:=ll+(hh-ll)*0.618;
q500:=ll+(hh-ll)*0.5;
q382:=ll+(hh-ll)*0.382;
q191:=ll+(hh-ll)*0.191;
qqqq:=CLOSE>0;
nnl:=ISLASTBAR;
PARTLINE(qqqq,hh),Color000099,POINTDOT;
PARTLINE(qqqq,q191),Color000099,POINTDOT;
PARTLINE(qqqq,q382),Color000099,POINTDOT;
PARTLINE(qqqq,q500),Color000099;
PARTLINE(qqqq,q618),Color000099,POINTDOT;
PARTLINE(qqqq,q809),Color000099,POINTDOT;
PARTLINE(qqqq,ll),Color000099,POINTDOT;
DRAWTEXT(nnl,hh*0.998,'最高价'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q809,'19.1%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q618,'38.2%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q500,'50%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q382,'61.8%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q191,'80.9%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,ll*1.01,'最低价'),ALIGN2,ColorC0C0C0;
流通:=FINANCE(37)/10000;
市盈率:=DYNAINFO(39);
F111:=COST(5 );J111:=COST(95 );
M111:=COST(15 );X111:=COST(85 );
F112:=(J111-F111)/(F111+J111)*100;M112:=(X111-M111)/(X111+M111)*100;
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(CLOSE));
集中度90:=F112;
集中度70:=M112;
收益:=FINANCE(3);
浮筹比:=(WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))/WINNER(HHV(HIGH,0))*100;
Aa3:=SUMBARS(VOL,CAPITAL);
换手成本:=IF(CAPITAL>0,SUM(AMOUNT,Aa3)/SUM(VOL,Aa3)/100,EMA(CLOSE,120));{100%换手平均成本线};
当日换手率:=SUM(100*VOL/CAPITAL,1);
五日换手率:=SUM(100*VOL/CAPITAL,5);
十日换手率:=SUM(VOL,10)*100/CAPITAL;
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'代码: '+STKLABEL+':'+ ' 名称:'+STKNAME+':'+'板块:'+BLKNAME+'\n浮筹比:'+NUMTOSTR(浮筹比,0)+'% '+'
总股本:'+NUMTOSTR(FINANCE(1),2)+'万股'+'流通A股:'+NUMTOSTR(FINANCE( 7),0)+' 市盈率: '+NUMTOSTR(市盈率,2)+'\n集中度70:'+NUMTOSTR(集中度70,0)+'
集中度90:'+NUMTOSTR(集中度90,0)+'获利盘:'+NUMTOSTR(获利盘,2)+'% '+'套牢盘:'+NUMTOSTR(套牢盘,2)+'% '+'
每股收益:'+NUMTOSTR(FINANCE(33),3)+'元 '+'\n净资产:'+NUMTOSTR(FINANCE(34),2)+'元'+'换手成本:'+NUMTOSTR(换手成本,2)+'
5日换手率:'+NUMTOSTR(五日换手率,2)+'%'+'10日换手率:'+NUMTOSTR(十日换手率,2)+'%'),COLORYELLOW,ALIGN4,COLORFFEEBB;
●买卖不会错
DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1);
DC:=REF(CLOSE,1);
AA:=ABS(HIGH-DC);
BB:=ABS(LOW-DC);
CC:=ABS(HIGH-REF(LOW,1));
DD:=ABS(DC-REF(OPEN,1));
R:=IF(AA>BB AND AA>CC,AA+BB/2+DD/4,IF(BB>CC AND BB>AA,BB+AA/2+DD/4,CC+DD/4));
E:=(CLOSE-DC+(CLOSE-OPEN)/2+DC-REF(OPEN,1));
SI:=13*E/R*MAX(AA,BB);
买:SUM(SI,0),ColorFF00FF;
卖:MA(买,2),ColorFFFF00;
A3:= 3*SI-2*买;
STICKLINE(卖>买,卖,买,10,0),ColorFFFF00;
STICKLINE(买>卖,买,卖,10,0),ColorFF00FF;
买入:= CROSS(买,卖);
VERTLINE(买入),POINTDOT,ColorFF00FF;
卖岀:= CROSS(卖,买);
VERTLINE(卖岀),POINTDOT,ColorFFFF00;
{千钧老师财务主图}
■阻力支撑源碼
INPUT:wN(3,1,255),p1(1,1,255);
DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1);
DD0:=REF(DAY,(BARSCOUNT(CLOSE) - 1));
■上市日期:REF(YEAR,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0;
年:REF(MONTH,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0;
月:REF(DAY,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0;
日:0,LINETHICK0,ColorC0C0C0;
u1:=SYSPARAM(3);
u:=u1-SYSPARAM(2)+1;
hh:=HHV(HIGH,u);
ll:=LLV(LOW,u);
最高:hh[u1],ColorC0C0C0;
最低:ll[u1],ColorC0C0C0;
wA1:=REF(HIGH,wN)=HHV(HIGH,2*wN+1); wB1:=FILTER(wA1,wN);
wC1:=BACKSET(wB1,wN+1);
wD1:=FILTER(wC1,wN);{高点}
wA2:=REF(LOW,wN)=LLV(LOW,2*wN+1);
wB2:=FILTER(wA2,wN); wC2:=BACKSET(wB2,wN+1);
wD2:=FILTER(wC2,wN);{低点}
wE1:=(REF(LLV(LOW,2*wN),1)+REF(HHV(HIGH,2*wN),1))/2;
wE2:=(HIGH+LOW)/2;
wH1:=(wD1 AND NOT(wD2 AND wE1>=wE2)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
wL1:=(wD2 AND NOT(wD1 AND wE1<wE2));
wH2:=wD1 AND NOT(wD2 AND wE1>=wE2);
wX1:=REF(BARSLAST(wH1),1)+1; wF1:=BACKSET(wH1 AND COUNT(wL1,wX1)>0,LLVBARS(IF(wL1,LOW,10000),wX1));
wG1:=wF1>REF(wF1,1); wI1:=BACKSET(wG1,2);
wLD:=wI1>REF(wI1,1);
wL2:=wLD OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
wX2:=REF(BARSLAST(wL2),1)+1;
wF2:=BACKSET(wL2 AND COUNT(wH2,wX2)>0,HHVBARS(IF(wH2,HIGH,0),wX2));
wG2:=wF2>REF(wF2,1); wI2:=BACKSET(wG2,2);
wHD:=wI2>REF(wI2,1);
wR1:=BACKSET(BARSTATUS=2,BARSLAST(wHD)+1);
wS1:=wR1>REF(wR1,1);
wT1:=BACKSET(BARSTATUS=2,BARSLAST(wLD)+1); wU1:=wT1>REF(wT1,1); {前一低}
wR2:=BACKSET(wS1,REF(BARSLAST(wHD),1)+2); wS2:=wR2>REF(wR2,1); {前二高}
wT2:=BACKSET(wU1,REF(BARSLAST(wLD),1)+2); wU2:=wT2>REF(wT2,1); {前二低}
wT3:=BACKSET(wU2,REF(BARSLAST(wLD),1)+2); wU3:=wT3>REF(wT3,1); {前三低}
wT4:=BACKSET(wU3,REF(BARSLAST(wLD),1)+2); wU4:=wT4>REF(wT4,1); {前四低}
wR3:=BACKSET(wS2,REF(BARSLAST(wHD),1)+2); wS3:=wR3>REF(wR3,1); {前三高}
wR4:=BACKSET(wS3,REF(BARSLAST(wHD),1)+2); wS4:=wR4>REF(wR4,1); {前四高}
DRAWLINE(wS2,HIGH,wS1,HIGH,1),Color008888;
DRAWLINE(wU2,LOW,wU1,LOW,1),POINTDOT,Color008888;
DRAWLINE(wS3,HIGH,wS2,HIGH,1),Color888000;
DRAWLINE(wU3,LOW,wU2,LOW,1),POINTDOT,Color888000;
DRAWLINE(wS4,HIGH,wS3,HIGH,1),Color0000CC;
DRAWLINE(wU4,LOW,wU3,LOW,1),POINTDOT,Color0000CC;
A:=EMA(CLOSE,3);
B:=EMA(CLOSE,5);
Z:=EMA(CLOSE,15);
D:=REF(HHV(A,B),Z);
Aa:=A;
Ab:=MA(Aa,5);
Z:=MA(Z,7);
高:=HHV(HIGH,0);
低:=LLV(LOW,0);
DCFL:=COST(95);
SCFL:=COST(55);
JCFL:=COST(15);
CH:=COST(5);
DI:=COST(0.38);
M:=58;
X:=3;
P:=SYSPARAM(1);
WS:=BARPOS;
WS1:=IF(WS<M,WS,M);
WSP:=P-WS1+1;
WSP1:=WS1-1;
H1:=HHV(HIGH,WS1);
L1:=LLV(LOW,WS1);
HP:=H1[P];
LP:=L1[P];
HLPX:=(HP-LP)/X;
IF WS1[P]>1 THEN BEGIN
DRAWSL(WS=WSP[P],HP,0,WSP1[P],3),LINEDOT,Color008888;
DRAWSL(WS=WSP[P],LP,0,WSP1[P],3),LINEDOT,Color008888;
DRAWSL(WS=WSP[P],LP+HLPX,0,WSP1[P],3),LINEDOT,Color008888;
DRAWSL(WS=WSP[P],LP+HLPX*2,0,WSP1[P],3),LINEDOT,Color008888;
DRAWNUMBER(WS=WSP[P],HP,HP,2),SHIFT38,Color008888;
DRAWNUMBER(WS=WSP[P],LP,LP,2),SHIFT38,Color008888;
DRAWNUMBER(WS=WSP[P],LP+HLPX,LP+HLPX,2),SHIFT38,Color008888;
DRAWNUMBER(WS=WSP[P],LP+HLPX*2,LP+HLPX*2,2),SHIFT38,Color008888;
END;
k3:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(k3,HIGH,LOW,0.1,0),colorred;
STICKLINE(k3,OPEN,CLOSE,7,1),colorred;
STICKLINE(NOT(k3),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(k3),CLOSE,OPEN,7,0),colorcyan;
市值:=CLOSE*CAPITAL*VOLUNIT/100000000;
股本:=FINANCE(1)/10000;
流通:=FINANCE(7)/10000;
股东总数:=FINANCE(50);
主营业务增长率:=FINANCE(53);
税后利润增长率:=FINANCE(54);
净利润增长率:=FINANCE(55);
人均持股:=(FINANCE( 7)/FINANCE(50))*10000;
市盈率:=DYNAINFO(39);
市净率:=CLOSE/FINANCE(34);
F:=COST(5 );J:=COST(95 );
M:=COST(15 );N:=COST(85 );
F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;
成本集中度:=F1;
莸利比例:=WINNER(CLOSE )*100;
日换手率:=VOL/CAPITAL*100;
净资产:=FINANCE(34);
净资收益率:=FINANCE(37);
最新收益:=FINANCE(33);
每股未分配:=FINANCE(32);
毛利润率:=FINANCE(21)/FINANCE(20)*100;
净利润率:=FINANCE(30)/FINANCE(20)*100;
股东权益比:=FINANCE(19)/FINANCE(50);
总资产增长率:=FINANCE(56);
每股公积金:=FINANCE(18);
DRAWTEXTEX(CLOSE,1,10,13,'市值:'),linethick1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,80,13,NUMTOSTR(市值,2)+'亿元'),ColorFF0000;
DRAWTEXTEX(CLOSE,1,220,13,'股本:'),LINETHICK1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,290,13,NUMTOSTR(股本,2)+'亿股'),ColorFF0000;
DRAWTEXTEX(CLOSE,1,430,13,'流通:'),LINETHICK1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,500,13,NUMTOSTR(流通,2)+'亿股'),ColorFF0000;
DRAWTEXTEX(CLOSE,1,620,13,'市盈率:'),LINETHICK1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,720,13,NUMTOSTR(市盈率,2)+''),ColorFF0000;
DRAWTEXTEX(CLOSE,1,830,13,'市净率:'),LINETHICK1,ColorFF0000;
DRAWTEXTEX(CLOSE,1,920,13,NUMTOSTR(市净率,2)+''),ColorFF0000;
DRAWTEXTEX(CLOSE,1,10,85,'成本集中度:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(CLOSE,1,160,85,NUMTOSTR(成本集中度,2)+'%'),ColorAFFF00;
DRAWTEXTEX(CLOSE,1,300,85,'莸利比例:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(CLOSE,1,410,85,NUMTOSTR(莸利比例,2)+'%'),ColorAFFF00;
DRAWTEXTEX(CLOSE,1,620,85,'日换手率:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(CLOSE,1,730,85,NUMTOSTR(日换手率,2)+'%'),ColorAFFF00;
DRAWTEXTEX(CLOSE,1,830,85,'净资产:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(CLOSE,1,920,85,NUMTOSTR(净资产,2)+''),ColorAFFF00;
DRAWTEXTEX(CLOSE,1,10,585,'净资收益率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,160,585,NUMTOSTR(净资收益率,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,10,157,'最新收益:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,160,157,NUMTOSTR(最新收益,2)+''),Color00FFFF;
DRAWTEXTEX(CLOSE,1,10,375,'每股未分配:'),LINETHICK2,ColorFF0080;
DRAWTEXTEX(CLOSE,1,160,375,NUMTOSTR(每股未分配,2)+''),ColorFF0080;
DRAWTEXTEX(CLOSE,1,10,445,'毛利润率:'),LINETHICK2,COLORFFEEBB;
DRAWTEXTEX(CLOSE,1,160,445,NUMTOSTR(毛利润率,2)+'%'),COLORFFEEBB;
DRAWTEXTEX(CLOSE,1,10,515,'净利润率:'),LINETHICK2,Color007DFF;
DRAWTEXTEX(CLOSE,1,160,515,NUMTOSTR(净利润率,2)+''),Color007DFF;
DRAWTEXTEX(CLOSE,1,10,229,'股东权益比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,160,229,NUMTOSTR(股东权益比,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,10,301,'每股公积金:'),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(CLOSE,1,160,301,NUMTOSTR(每股公积金,2)+''),ColorFFFF00;
DRAWTEXTEX(CLOSE,1,10,655,'股东总数:'),LINETHICK2,ColorFF80FF;
DRAWTEXTEX(CLOSE,1,160,655,NUMTOSTR(股东总数,0)+''),ColorFF80FF;
DRAWTEXTEX(CLOSE,1,10,725,'人均持股:'),LINETHICK2,ColorFFFFFF;
DRAWTEXTEX(CLOSE,1,160,725,NUMTOSTR(人均持股,0)+''),ColorFFFFFF;
DRAWTEXTEX(CLOSE,1,300,157,'主营业务增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,490,157,NUMTOSTR(主营业务增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,620,157,'净利润增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,780,157,NUMTOSTR(净利润增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,300,227,'税后利润增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,490,227,NUMTOSTR(税后利润增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(CLOSE,1,620,227,'总资产增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(CLOSE,1,780,227,NUMTOSTR(总资产增长率,2)+'%'),Color00FFFF;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
